home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / internet / amitcp3.0b / src.lha / src / amitcp / kern / config_var.awk < prev    next >
Encoding:
AWK Script  |  1996-09-08  |  6.2 KB  |  263 lines
  1. # -*- C -*- --- well, not actually...
  2. # $Id: config_var.awk,v 1.7 1993/11/06 23:51:22 ppessi Exp puhuri $
  3. #
  4. # Copyright © 1993 AmiTCP/IP Group, <amitcp-group@hut.fi>
  5. #                  Helsinki University of Technology, Finland.
  6. #                  All rights reserved.
  7. #
  8. # Created      : Wed Apr 28 21:09:22 1993 puhuri
  9. # Last modified: Thu Nov  4 07:33:09 1993 ppessi
  10. #
  11. # $Log: config_var.awk,v $
  12. # Revision 1.7  1993/11/06  23:51:22  ppessi
  13. # Added `global' definitions, allowing to export second level strings.
  14. #
  15. # Revision 1.6  1993/06/04  11:16:15  jraja
  16. # Fixes for first public release.
  17. #
  18. # Revision 1.5  1993/05/04  13:44:00  ppessi
  19. # Fixed Aliasing, removed level 0 \begin{description} \end{description}
  20. #
  21. # Revision 1.4  93/05/03  13:46:42  13:46:42  puhuri (Markus Peuhkuri)
  22. # Modified to use \Alias(es) command.
  23. # 
  24. # Revision 1.3  93/04/29  22:05:16  22:05:16  puhuri (Markus Peuhkuri)
  25. # Now gawk supouse substitute FILENAME
  26. # 
  27. # Revision 1.2  93/04/29  08:55:05  08:55:05  puhuri (Markus Peuhkuri)
  28. # Changed field seperator to ; surrounded by zero or more spaces or tabs.
  29. # 
  30. # Revision 1.1  93/04/28  21:55:56  21:55:56  ppessi (Pekka Pessi)
  31. # Initial revision
  32. # 
  33.  
  34. BEGIN {
  35.   FS="[\t ]*;[\t ]*"; 
  36.   level=1; 
  37.   tab=""; 
  38.   vars=""; 
  39.   var2="";
  40.   GFN = "kern/variables.src (" FILENAME ")";
  41.   TEXTARGET=0;CTARGET=0;TEXITARGET=0
  42.   if (TARGETTI == "TEX") {
  43.     TEXTARGET = 1;
  44.     startcomment = "% -*- LaTeX -*-";
  45.     comment = "%";
  46.     endcomment = "%";
  47.   }else if (TARGETTI == "TEXINFO") {
  48.     level = 0; 
  49.     TEXITARGET = 1;
  50.     startcomment = "@c -*- Texinfo -*-";
  51.     comment = "@c ";
  52.     endcomment = "@c ";
  53.   } else if (TARGETTI == "C") {
  54.     CTARGET = 1;
  55.     startcomment = "/* -*- C -*-";
  56.     comment = " *";
  57.     endcomment = " */";
  58.   } else printf "Unknown target format '%s'\n",TARGETTI > "/dev/stderr"
  59.   print startcomment;
  60.   printf "%s This file is automatically generated from %s\n", comment, GFN;
  61.   print comment;
  62.   printf "%s Do not change this file\n", comment;
  63.   print endcomment;
  64.   if (CTARGET) {
  65.     print "";
  66.     print "\#include <sys/param.h>";
  67.     print "\#include <sys/socket.h>";
  68.     print "\#include <netinet/in.h>";
  69.     print "\#include <kern/amiga_includes.h>";
  70.     print "\#include <kern/amiga_config.h>";
  71.     print "";
  72.   }
  73. }
  74.  
  75. # skip comments and empty lines
  76. /^#/ { next } 
  77. /^ *$/ { next }
  78. # Collect global variables
  79. /^global/ { 
  80.   gsub("^global ", ""); 
  81.   globals = globals "\n" $0;
  82.   next;
  83. }
  84. # Change _ to \_ in TeX
  85. TEXTARGET && /_/ { gsub("_","\\_") }
  86. # Generate indentation, add environment parenthesis
  87. level != $2 && TEXTARGET { 
  88.   if (level < $2) 
  89.     for(i=level; i < $2; i++) {
  90.       tab = sprintf("%"2*i"s", "");
  91.       print tab "\\begin{description}";
  92.     } 
  93.   else 
  94.     for(i=level; i > $2; i--) {
  95.       tab = sprintf("% "2*i "s", "");
  96.       print tab "\\end{description}";
  97.     }
  98.   level = $2;
  99.   tab = sprintf("%" 2*level "s", "");
  100.   print "";
  101. }
  102. TEXTARGET { 
  103.   n = split($1,temp,"=");
  104.   printf "%s\\item[\\code{%s}] %s\n",tab,temp[n],$3;
  105.   if(n>1) {
  106.     printf tab " \\Alias%s{%s",(n>2)?"es":"",temp[1];
  107.       for(i=2;i<n;i++) 
  108.     printf "{\\rm ,} %s",temp[i];
  109.     print "}";
  110.   }
  111.   print "";
  112.   if ($2 == 1) {
  113.     # Skip C declarations
  114.     getline dummy; 
  115.     getline dummy; 
  116.   }
  117. }
  118. #
  119. # TEXINFO
  120. #
  121. $2 == 2 && TEXITARGET { 
  122.   if (level == 1)
  123.       print "@table @code";    
  124.   n = split($1,temp,"=");print "level=" $2, n > "/dev/stderr"
  125.   printf "@item %s\n",temp[n];
  126.   for(i=1;i<n;i++) {
  127.     printf "@itemx %s\n",temp[i];
  128.   }
  129.   gsub("\\\\n","\n",$3) # replace with newlines
  130.   print $3;print "";
  131.   level = $2;
  132.   print "";
  133. }
  134. $2 == 1 && TEXITARGET { 
  135.   if (level == 2)
  136.     print "@end table";
  137.   if (level != 0)
  138.     print "@end deffn\n";
  139.   n = split($1,temp,"="); print "level=" $2, n > "/dev/stderr"
  140.   printf "@deffn {AREXX Variable} %s\n",temp[n];
  141.   for(i=1;i<n;i++) {
  142.     printf "@deffnx {AREXX Variable} %s\n",temp[i];
  143.   }
  144.   gsub("\\\\n","\n",$3) # replace with newlines
  145.   print $3;print "";
  146.   level = $2;
  147.   print "";
  148.  
  149.   if ($2 == 1) {
  150.     # Skip C declarations
  151.     getline dummy; 
  152.     getline dummy; 
  153.   }
  154. }
  155. ($2 != 1 && $2 != 2) && TEXITARGET {
  156.   print FILENAME ":" FNR ": Invalid level: " $2 > "/dev/stderr"
  157. }
  158. #
  159. # Make a C file
  160. #
  161. CTARGET {
  162.   n = split($1, temp, "=");
  163.   if ($2 == 1) {
  164.     if (length(var2) > 0) {
  165.       printf "/* %s */\n#define KW_%s \\\n \"", varcom, curvar;
  166.       n2 = split(var2, t2, ",");
  167.       cnt = 0;
  168.       for (i = 1; i < n2; i++) {
  169.     if ((cnt + length(t2[i])) > 60) {
  170.       printf "\" \\\n \"";
  171.       cnt=0;
  172.     }
  173.     cnt += length(t2[i]);
  174.     printf "%s,",t2[i];
  175.       }
  176.       if (length(t2[n2]) + cnt > 60) 
  177.     printf "\" \\\n \"";
  178.       printf "%s\"\n\n", t2[n2];
  179.     }
  180.     curvar=temp[n];
  181.     varcom=$3;
  182.     if (length(vars) > 0) {
  183.       vars=vars "," $1;
  184.     } else {
  185.       vars=$1;
  186.     }
  187.     var2 = "";
  188.     # Get external vars
  189.     getline extern;
  190.     externs = externs "\n" extern;
  191.     # get variables line
  192.     getline varline;
  193.     if (length(varlines) > 0) {
  194.       varlines = varlines ",\n" varline;
  195.     } else {
  196.       varlines = varline;
  197.     }
  198.   } else {
  199.     if(length(var2) == 0) {
  200.       var2=$1;
  201.     } else {
  202.       var2 = var2 "," $1;
  203.     }
  204.   }
  205. }
  206.     
  207. END {
  208.   if (TEXTARGET) {
  209.     for(i = level; i > 1; i--)
  210.       print "\\end{description}";
  211.   } else if(TEXITARGET) {
  212.     if (level == 2)
  213.        print "@end table";
  214.     if (level != 0)
  215.        print "@end deffn\n";
  216.   } else if(CTARGET) {
  217.     if (length(var2) > 0) {
  218.       printf "/* %s */\n#define KW_%s \\\n \"", varcom, curvar;
  219.       n2 = split(var2, t2, ",");
  220.       cnt = 0;
  221.       for(i=1;i<n2;i++) {
  222.     if((cnt+length(t2[i]))>60) {
  223.       printf "\" \\\n \"";
  224.       cnt=0;
  225.     }
  226.     cnt += length(t2[i]);
  227.     printf "%s,",t2[i];
  228.       }
  229.       if (length(t2[n2])+cnt> 60) printf "\" \\\n \"";
  230.       printf "%s\"\n\n", t2[n2];
  231.     }
  232.  
  233.     if (length(vars) > 0) {
  234.       printf "/* %s */\nSTRPTR KW_%s =\n  \"", "Level 1 variables", "VARS";
  235.       n2 = split(vars, t2, ","); cnt=0;
  236.       for(i=1; i<n2; i++) {
  237.     if(cnt + length(t2[i]) > 60) {
  238.       printf "\"\n  \"";
  239.       cnt=0;
  240.     }
  241.     cnt+=length(t2[i]);
  242.     printf "%s,",t2[i];
  243.       }
  244.       printf "%s\";\n\n", t2[n2];
  245.     }
  246.     if (length(externs)) {
  247.       print "/* extern declarations */";
  248.       print externs;
  249.       print;
  250.     }
  251.     if (length(globals)) {
  252.       printf "/* Global variables */";
  253.       print globals;
  254.       print;
  255.     }
  256.     if (length(varlines)) {
  257.       print "struct cfg_variable variables[] = {";
  258.       print varlines;
  259.       print "};";
  260.     }
  261.   }
  262. }
  263.