home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / igawk < prev    next >
Text File  |  2004-08-02  |  3KB  |  134 lines
  1. #! /bin/sh
  2. # igawk --- like gawk but do @include processing
  3. #
  4. # Arnold Robbins, arnold@gnu.org, Public Domain
  5. # July 1993
  6.  
  7. if [ "$1" = debug ]
  8. then
  9.     set -x
  10.     shift
  11. fi
  12.  
  13. # A literal newline, so that program text is formmatted correctly
  14. n='
  15. '
  16.  
  17. # Initialize variables to empty
  18. program=
  19. opts=
  20.  
  21. while [ $# -ne 0 ] # loop over arguments
  22. do
  23.     case $1 in
  24.     --)     shift; break;;
  25.  
  26.     -W)     shift
  27.             # The ${x?'message here'} construct prints a
  28.             # diagnostic if $x is the null string
  29.             set -- -W"${@?'missing operand'}"
  30.             continue;;
  31.  
  32.     -[vF])  opts="$opts $1 '${2?'missing operand'}'"
  33.             shift;;
  34.  
  35.     -[vF]*) opts="$opts '$1'" ;;
  36.  
  37.     -f)     program="$program$n@include ${2?'missing operand'}"
  38.             shift;;
  39.  
  40.     -f*)    f=`expr "$1" : '-f\(.*\)'`
  41.             program="$program$n@include $f";;
  42.  
  43.     -[W-]file=*)
  44.             f=`expr "$1" : '-.file=\(.*\)'`
  45.             program="$program$n@include $f";;
  46.  
  47.     -[W-]file)
  48.             program="$program$n@include ${2?'missing operand'}"
  49.             shift;;
  50.  
  51.     -[W-]source=*)
  52.             t=`expr "$1" : '-.source=\(.*\)'`
  53.             program="$program$n$t";;
  54.  
  55.     -[W-]source)
  56.             program="$program$n${2?'missing operand'}"
  57.             shift;;
  58.  
  59.     -[W-]version)
  60.             echo igawk: version 2.0 1>&2
  61.             gawk --version
  62.             exit 0 ;;
  63.  
  64.     -[W-]*) opts="$opts '$1'" ;;
  65.  
  66.     *)      break;;
  67.     esac
  68.     shift
  69. done
  70.  
  71. if [ -z "$program" ]
  72. then
  73.      program=${1?'missing program'}
  74.      shift
  75. fi
  76.  
  77. # At this point, `program' has the program.
  78. expand_prog='
  79.  
  80. function pathto(file,    i, t, junk)
  81. {
  82.     if (index(file, "/") != 0)
  83.         return file
  84.  
  85.     for (i = 1; i <= ndirs; i++) {
  86.         t = (pathlist[i] "/" file)
  87.         if ((getline junk < t) > 0) {
  88.             # found it
  89.             close(t)
  90.             return t
  91.         }
  92.     }
  93.     return ""
  94. }
  95. BEGIN {
  96.     path = ENVIRON["AWKPATH"]
  97.     ndirs = split(path, pathlist, ":")
  98.     for (i = 1; i <= ndirs; i++) {
  99.         if (pathlist[i] == "")
  100.             pathlist[i] = "."
  101.     }
  102.     stackptr = 0
  103.     input[stackptr] = ARGV[1] # ARGV[1] is first file
  104.  
  105.     for (; stackptr >= 0; stackptr--) {
  106.         while ((getline < input[stackptr]) > 0) {
  107.             if (tolower($1) != "@include") {
  108.                 print
  109.                 continue
  110.             }
  111.             fpath = pathto($2)
  112.             if (fpath == "") {
  113.                 printf("igawk:%s:%d: cannot find %s\n",
  114.                     input[stackptr], FNR, $2) > "/dev/stderr"
  115.                 continue
  116.             }
  117.             if (! (fpath in processed)) {
  118.                 processed[fpath] = input[stackptr]
  119.                 input[++stackptr] = fpath  # push onto stack
  120.             } else
  121.                 print $2, "included in", input[stackptr],
  122.                     "already included in",
  123.                     processed[fpath] > "/dev/stderr"
  124.         }
  125.         close(input[stackptr])
  126.     }
  127. }'  # close quote ends `expand_prog' variable
  128.  
  129. processed_program=`gawk -- "$expand_prog" /dev/stdin <<EOF
  130. $program
  131. EOF
  132. `
  133. eval gawk $opts -- '"$processed_program"' '"$@"'
  134.