scripts/cint2.awk

   1 # Creates C files with function prototypes from FD and clib/*_proto.h files.
   2
   3 # Example usage:
   4 #
   5 # Required directory structure:
   6 # amiga/include/fd/mylib_lib.fd
   7 # amiga/include/clib/mylib_protos.h
   8
   9 # Usage: awk -f cint2.awk mylib
  10
  11 # Result:
  12 # mylib/func1.c
  13 # mylib/func2.c
  14 # ...
  15
  16 BEGIN {
  17     date="27-11-96";
  18
  19     RTYPES["long"]="LONG";
  20     RTYPES["unsigned long"]="ULONG";
  21     RTYPES["short"]="WORD";
  22     RTYPES["unsigned short"]="UWORD";
  23     RTYPES["char"]="BYTE";
  24     RTYPES["unsigned char"]="UBYTE";
  25
  26     TYPES["ULONG"]=1;
  27     TYPES["LONG"]=1;
  28     TYPES["UBYTE"]=1;
  29     TYPES["BYTE"]=1;
  30     TYPES["UWORD"]=1;
  31     TYPES["WORD"]=1;
  32     TYPES["APTR"]=1;
  33     TYPES["BPTR"]=1;
  34     TYPES["STRPTR"]=1;
  35     TYPES["BSTR"]=1;
  36     TYPES["BOOL"]=1;
  37     TYPES["Tag"]=1;
  38     TYPES["FLOAT"]=1;
  39     TYPES["DOUBLE"]=1;
  40     TYPES[""]=1;
  41     TYPES[""]=1;
  42
  43     # 1- types
  44     # 2- commands
  45     KEYWORDS["struct"]=2;
  46     KEYWORDS["int"]=1;
  47     KEYWORDS["char"]=1;
  48     KEYWORDS["double"]=1;
  49     KEYWORDS["float"]=1;
  50     KEYWORDS["for"]=10;
  51     KEYWORDS["if"]=10;
  52     KEYWORDS["else"]=10;
  53     KEYWORDS["do"]=10;
  54     KEYWORDS["while"]=10;
  55     KEYWORDS["switch"]=10;
  56     KEYWORDS["case"]=10;
  57     KEYWORDS["break"]=10;
  58     KEYWORDS["continue"]=10;
  59     KEYWORDS["goto"]=10;
  60     KEYWORDS["union"]=2;
  61     KEYWORDS["enum"]=2;
  62     KEYWORDS["typedef"]=1;
  63     KEYWORDS["void"]=1;
  64     KEYWORDS["unsigned"]=3;
  65     KEYWORDS["signed"]=3;
  66     KEYWORDS["const"]=3;
  67     KEYWORDS["long"]=3;
  68     KEYWORDS["short"]=3;
  69     KEYWORDS[""]=0;
  70     KEYWORDS[""]=0;
  71
  72     SpecialStructs["exec"]="ExecBase";
  73     SpecialStructs["graphics"]="GfxBase";
  74     SpecialStructs["dos"]="DosLibrary";
  75     SpecialStructs["intuition"]="IntuitionBase";
  76
  77     spaces=" ";
  78     for (t=0; t<10; t++)
  79         spaces=spaces spaces;
  80
  81     for (arg=1; arg<ARGC; arg++)
  82     {
  83         part_name=ARGV[arg];
  84         Part_name=toupper(substr(part_name,1,1)) substr(part_name,2);
  85
  86         if (part_name in SpecialStructs)
  87             struct_name=SpecialStructs[part_name];
  88         else
  89             struct_name="Library";
  90
  91 print "Working on " part_name "..."
  92
  93         dir="amiga/" part_name;
  94         system("mkdir " dir);
  95     print dir;
  96         dir=dir"/";
  97         INPUT="amiga/include/fd/" part_name "_lib.fd"
  98     print INPUT
  99
 100         # Read LVO
 101         delete LVO
 102         while ((getline line < INPUT) > 0)
 103         {
 104             if (substr(line,1,6) == "##bias")
 105                 offset = int(substr(line,7))/6;
 106             else if (substr(line,1,6) == "##base")
 107             {
 108                 match(line,"[A-Za-z_][A-Za-z0-9_]*$");
 109                 Base = substr(line,RSTART+1,RLENGTH-1);
 110             }
 111             else if (!match (line,/[*#]/))
 112             {
 113                 match(line,"[A-Za-z_][A-Za-z0-9_]*");
 114                 fname=substr(line,RSTART,RLENGTH);
 115                 line=substr(line,RSTART+RLENGTH);
 116                 if (match(line,"[(][^)]*[)]"))
 117                 {
 118                     if (RLENGTH!=2)
 119                         fargs=substr(line,RSTART+1,RLENGTH-2);
 120                     else
 121                         fargs="";
 122                 }
 123                 else
 124                     fargs="";
 125                 line=substr(line,RSTART+RLENGTH);
 126                 if (match(line,"[(][^)]*[)]"))
 127                 {
 128                     if (RLENGTH!=2)
 129                         fregs=substr(line,RSTART+1,RLENGTH-2);
 130                     else
 131                         fregs="";
 132                 }
 133                 else
 134                     fregs="";
 135                 #print fname " (" fargs ") (" fregs ") " offset
 136                 LVO[fname] = offset;
 137                 offset ++;
 138                 LVO_regs[fname] = toupper(fregs);
 139             }
 140         }
 141
 142         INPUT="amiga/include/clib/" part_name "_protos.h"
 143     #print INPUT
 144         getline line < INPUT
 145         yyinit(line);
 146         rt_type="";
 147
 148         #if (!match(FILENAME,"\/.*_"))
 149         #{
 150         #    print "Can't find libname"
 151         #    exit (10);
 152         #}
 153         #dir=substr(FILENAME,RSTART+1,RLENGTH-2);
 154         #
 155         #if (dir!="")
 156         #{
 157         #    system("mkdir " dir);
 158         #    part_name=dir;
 159         #    dir=dir "/";
 160         #}
 161
 162         while ((token=yylex()) != "EOF")
 163         {
 164     #print "0 -" token "-" yyval "-"
 165             if ((token=="keyword" && KEYWORDS[yyval]<10) || token=="typedef")
 166             {
 167                 plevel=0;
 168                 token=read_type(token);
 169                 fname = yyval;
 170                 token=yylex();
 171
 172                 if (token=="(")
 173                 {
 174                     plevel ++;
 175                     token=yylex();
 176
 177                     if (rt_ptr!="")
 178                         ret=rt_type " " rt_ptr;
 179                     else
 180                         ret=rt_type;
 181
 182                     if (token==")")
 183                     {
 184                         npar=1;
 185                         par_type[1]="void";
 186                         par_ptr[1]="";
 187                         par_name[1]="";
 188                     }
 189                     else
 190                     {
 191                         npar=0;
 192                         while (token!=")")
 193                         {
 194     #print 1
 195                             if (token==",")
 196                                 token=yylex();
 197                             token=read_type(token);
 198                             if (token=="ident")
 199                             {
 200                                 name=yyval;
 201                                 token=yylex();
 202                             }
 203                             else
 204                                 name="";
 205
 206     #                        if (plevel != 1)
 207     #                        {
 208     #                            plevel --;
 209     #                            name=name ") "
 210     #                            while((token==yylex())!=")" || plevel!=1)
 211     #                            {
 212     #print 2
 213     #                                if (token=="(")
 214     #                                    plevel ++;
 215     #                                else if (token==")")
 216     #                                    plevel --;
 217     #                                name=name " " yyval;
 218     #                            }
 219     #                        }
 220
 221                             npar++;
 222                             par_type[npar]=rt_type;
 223                             par_ptr[npar]=rt_ptr;
 224                             par_name[npar]=name;
 225     #print "npar " npar "-" rt_type "-" rt_ptr "-" name
 226                         }
 227                     }
 228
 229                     print "Processing "fname"..."
 230                     #file="/dev/stdout"
 231                     file=dir tolower(fname) ".c"
 232
 233                     if (fname in LVO)
 234                     {
 235                         offset=LVO[fname];
 236                         regs=LVO_regs[fname];
 237                     }
 238                     else
 239                     {
 240                         offset=-1;
 241                         regs="";
 242                     }
 243
 244                     printf ("/*\n") > file;
 245                     print "    Copyright © 2010, The AROS Development Team. All rights reserved." >> file
 246                     printf ("    %sId$\n", "$") >> file;
 247                     printf ("\n") >> file;
 248                     printf ("    Desc:\n") >> file;
 249                     printf ("    Lang: english\n") >> file;
 250                     printf ("*/\n") >> file;
 251                     printf ("#include \"%s_intern.h\"\n\n", part_name) >> file;
 252                     print "/*****************************************************************************\n" >> file
 253                     print "    NAME */" >>file
 254                     print "#include <proto/" part_name ".h>\n">>file
 255
 256                     if (offset!=-1)
 257                     {
 258                         if (npar==1 && par_type[1]=="void" && par_ptr[1] == "" &&
 259                             par_name[1]=="")
 260                             print "\tAROS_LH0("ret", "fname",\n" >>file
 261                         else
 262                             print "\tAROS_LH"npar"("ret", "fname",\n" >>file
 263                         print "/*  SYNOPSIS */" >>file
 264
 265                         if (npar==1 && par_type[1]=="void" && par_ptr[1] == "" &&
 266                             par_name[1]=="")
 267                         {
 268                             print "\t/* void */" >>file
 269                         }
 270                         else
 271                         {
 272                             maxlen=0;
 273                             for (t=1; t<=npar; t++)
 274                             {
 275         #print 3
 276                                 len=length(par_type[t]);
 277                                 len2=length(par_ptr[t]);
 278                                 len+=len2 ? len2+1 : 0;
 279                                 if (len > maxlen)
 280                                     maxlen = len;
 281                             }
 282
 283                             for (t=1; t<=npar; t++)
 284                             {
 285         #print 4
 286                                 len=length(par_type[t]);
 287                                 len2=length(par_ptr[t]);
 288
 289                                 printf("\tAROS_LHA(%s", par_type[t])>>file;
 290                                 printf("%s", substr(spaces,1,maxlen-len-len2))>>file;
 291                                 printf("%s, %s, %s),\n",par_ptr[t],par_name[t],
 292                                     substr(regs,1,2))>>file;
 293                                 if (regs!="")
 294                                 {
 295                                     regs=substr(regs,4);
 296                                 }
 297                             }
 298                         }
 299                         print "\n/*  LOCATION */\n\tstruct "struct_name" *, "Base", "offset", "Part_name")">>file
 300                     }
 301                     else
 302                     {
 303                         print "\t"ret" "fname" (\n" >>file
 304                         print "/*  SYNOPSIS */" >>file
 305
 306                         if (npar==1 && par_type[1]=="void" && par_ptr[1] == "" &&
 307                             par_name[1]=="")
 308                         {
 309                             print "\tvoid)" >>file
 310                         }
 311                         else
 312                         {
 313                             maxlen=0;
 314                             for (t=1; t<=npar; t++)
 315                             {
 316         #print 3
 317                                 len=length(par_type[t]);
 318                                 len2=length(par_ptr[t]);
 319                                 len+=len2 ? len2+1 : 0;
 320                                 if (len > maxlen)
 321                                     maxlen = len;
 322                             }
 323
 324                             for (t=1; t<=npar; t++)
 325                             {
 326         #print 4
 327                                 len=length(par_type[t]);
 328                                 len2=length(par_ptr[t]);
 329
 330                                 printf("\t%s", par_type[t])>>file;
 331                                 printf("%s", substr(spaces,1,maxlen-len-len2))>>file;
 332                                 printf("%s %s",par_ptr[t],par_name[t])>>file;
 333                                 if (t==npar)
 334                                     printf(")\n")>>file;
 335                                 else
 336                                     printf(",\n")>>file;
 337                             }
 338                         }
 339                     }
 340                     print "\n/*  FUNCTION\n\n    INPUTS\n\n    RESULT\n\n    NOTES\n">>file
 341                     print "    EXAMPLE\n\n    BUGS\n\n    SEE ALSO\n\n    INTERNALS\n">>file
 342                     print "    HISTORY\n\n">>file;
 343                     print "*****************************************************************************/" > file
 344                     print "{">>file;
 345                     print "    AROS_LIBFUNC_INIT\n">>file;
 346                     print "    extern void aros_print_not_implemented (char *);">>file;
 347                     print "    aros_print_not_implemented (\"" fname "\");\n">>file;
 348                     print "    AROS_LIBFUNC_EXIT">>file;
 349                     print "} /* " fname " */">>file;
 350                     fclose (file);
 351                 } # found "("
 352             } # found keyword
 353         } # while token != EOF
 354     } # for all args
 355 } # BEGIN
 356
 357 function read_type(pretoken     ,token) {
 358     token=pretoken;
 359 #print "token3 " token "-" yyval
 360
 361     rt_type="";
 362     while ((token=="keyword" && KEYWORDS[yyval]<10) || token=="typedef" ||
 363         token=="...")
 364     {
 365 #print 5
 366         rt_type=rt_type " " yyval;
 367         if (KEYWORDS[yyval]==2)
 368         {
 369             token=yylex();
 370             rt_type=rt_type " " yyval;
 371         }
 372         token=yylex();
 373 #print "token2 " token
 374     }
 375     rt_type=substr(rt_type,2);
 376 #print "type " rt_type
 377     if (rt_type in RTYPES)
 378         rt_type = RTYPES[rt_type];
 379
 380     rt_ptr="";
 381     while (token=="*" || token=="(")
 382     {
 383 #print 6
 384         rt_ptr=rt_ptr yyval;
 385         if (token=="(")
 386             plevel++;
 387         token=yylex();
 388 #print "token1 " token
 389     }
 390 #print "ptr " rt_ptr
 391
 392     return token;
 393 }
 394
 395 function yyinit(str) {
 396     yyrest=str;
 397 }
 398
 399 function yylex() {
 400 #print yylex
 401     for (yyagain=1; yyagain; )
 402     {
 403         yyagain=0;
 404         if (yyrest=="" || match(yyrest,/^[ \t\014\r]+/))
 405         {
 406             while (1)
 407             {
 408                 while (yyrest=="")
 409                 {
 410                     if ((getline yyrest < INPUT) != 1)
 411                         return "EOF";
 412 #print "1 -" yyrest "-"
 413                     if (substr(yyrest,1,1) == "#")
 414                         yyrest="";
 415                 }
 416                 if (!match(yyrest,"^[ \t\014\r]+"))
 417                     break;
 418                 yyrest=substr(yyrest,RSTART+RLENGTH);
 419             }
 420         }
 421         if (match(yyrest,/^\/\*/))
 422         {
 423             yyrest=substr(yyrest,3);
 424             while (!match(yyrest,"\*\/"))
 425             {
 426                 if ((getline yyrest < INPUT) != 1)
 427                     return "EOF";
 428 #print "2 -" yyrest "-"
 429             }
 430             yyrest=substr(yyrest,RSTART+RLENGTH);
 431             yyagain=1;
 432         }
 433     }
 434     if (match(yyrest,"^[a-zA-Z_][a-zA-Z0-9_]*"))
 435     {
 436         yyval=substr(yyrest,RSTART,RLENGTH);
 437         yyrest=substr(yyrest,RSTART+RLENGTH);
 438
 439         if (yyval in TYPES)
 440             return "typedef";
 441         else if (yyval in KEYWORDS)
 442             return "keyword";
 443         else
 444             return "ident";
 445     }
 446     if (match(yyrest,"^0[xX][0-9a-f]+[lL]?"))
 447     {
 448         yyval=substr(yyrest,RSTART,RLENGTH);
 449         yyrest=substr(yyrest,RSTART+RLENGTH);
 450         return "int_const";
 451     }
 452     if (match(yyrest,/^([0-9]*\.[0-9]+|[0-9]+\.[0-9]*)([eE][0-9]+)?[fF]?/))
 453     {
 454         yyval=substr(yyrest,RSTART,RLENGTH);
 455         yyrest=substr(yyrest,RSTART+RLENGTH);
 456         return "float_const";
 457     }
 458     if (match(yyrest,"^0[0-7]+[lL]?"))
 459     {
 460         yyval=substr(yyrest,RSTART,RLENGTH);
 461         yyrest=substr(yyrest,RSTART+RLENGTH);
 462         return "int_const";
 463     }
 464     if (match(yyrest,"^[1-9][0-9]*[lL]?"))
 465     {
 466         yyval=substr(yyrest,RSTART,RLENGTH);
 467         yyrest=substr(yyrest,RSTART+RLENGTH);
 468         return "int_const";
 469     }
 470     if (match(yyrest,"^\""))
 471     {
 472         if (match(yyrest,"^\"(\\\"|[^\"])*\""))
 473         {
 474             yyval=substr(yyrest,RSTART,RLENGTH);
 475             yyrest=substr(yyrest,RSTART+RLENGTH);
 476             return "str_const";
 477         }
 478         else
 479         {
 480             yyval=substr(yyrest,1,length(yyrest)-1);
 481             while (1)
 482             {
 483                 if ((getline yyrest < INPUT) != 1)
 484                     return "EOF";
 485                 if (match(yyrest,"^(\\\"|[^\"])*\""))
 486                     break;
 487                 yyval=yyval substr(yyrest,1,length(yyrest)-1);
 488             }
 489             yyval=yyval substr(yyrest,RSTART,RLENGTH);
 490             yyrest=substr(yyrest,RSTART+RLENGTH);
 491             return "str_const";
 492         }
 493     }
 494     if (substr(yyrest,1,3)=="...")
 495     {
 496         yyval="...";
 497         yyrest=substr(yyrest,4);
 498         return yyval;
 499     }
 500     yyval=substr(yyrest,1,1);
 501     yyrest=substr(yyrest,2);
 502     return yyval;
 503 }