home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / mawk.lzh / mawk.1 < prev    next >
Text File  |  1991-05-19  |  62KB  |  2,288 lines
  1.  
  2. # This is a shell archive.  Remove anything before this line,
  3. # then unpack it by saving it in a file and typing "sh file".
  4. #
  5. # Wrapped by ssc-bee!brennan on Fri May 10 18:11:41 PDT 1991
  6. # Contents:  mawk0.97/ mawk0.97/rexp/ mawk0.97/test/ mawk0.97/examples/
  7. #    mawk0.97/msdos/ mawk0.97/packing.list mawk0.97/README
  8. #    mawk0.97/LIMITATIONS mawk0.97/Makefile mawk0.97/mawk.manual
  9. #    mawk0.97/array.c mawk0.97/bi_funct.c mawk0.97/bi_funct.h
  10. #    mawk0.97/bi_vars.c mawk0.97/bi_vars.h mawk0.97/cast.c mawk0.97/code.c
  11. #    mawk0.97/code.h mawk0.97/da.c mawk0.97/error.c mawk0.97/execute.c
  12. #    mawk0.97/fcall.c mawk0.97/field.c mawk0.97/field.h mawk0.97/files.c
  13. #    mawk0.97/files.h mawk0.97/fin.c mawk0.97/fin.h mawk0.97/hash.c
  14. #    mawk0.97/init.c mawk0.97/init.h mawk0.97/jmp.c mawk0.97/jmp.h
  15. #    mawk0.97/kw.c mawk0.97/machine.h mawk0.97/main.c mawk0.97/makescan.c
  16. #    mawk0.97/matherr.c mawk0.97/mawk.h mawk0.97/memory.c mawk0.97/memory.h
  17. #    mawk0.97/parse.y mawk0.97/print.c mawk0.97/re_cmpl.c mawk0.97/regexp.h
  18. #    mawk0.97/repl.h mawk0.97/scan.c mawk0.97/scan.h mawk0.97/scancode.c
  19. #    mawk0.97/sizes.h mawk0.97/split.c mawk0.97/symtype.h mawk0.97/types.h
  20. #    mawk0.97/zmalloc.c mawk0.97/zmalloc.h mawk0.97/rexp/Makefile
  21. #    mawk0.97/rexp/rexp.c mawk0.97/rexp/rexp.h mawk0.97/rexp/rexp0.c
  22. #    mawk0.97/rexp/rexp1.c mawk0.97/rexp/rexp2.c mawk0.97/rexp/rexp3.c
  23. #    mawk0.97/rexp/rexpdb.c mawk0.97/test/README mawk0.97/test/benchmarks
  24. #    mawk0.97/test/cat.awk mawk0.97/test/concat.awk mawk0.97/test/fields.awk
  25. #    mawk0.97/test/loops.awk mawk0.97/test/newton.awk
  26. #    mawk0.97/test/primes.awk mawk0.97/test/qsort.awk mawk0.97/test/reg0.awk
  27. #    mawk0.97/test/reg1.awk mawk0.97/test/reg2.awk mawk0.97/test/sample
  28. #    mawk0.97/test/squeeze.awk mawk0.97/test/test.sh mawk0.97/test/wc.awk
  29. #    mawk0.97/test/wfrq.awk mawk0.97/test/wfrq0.awk mawk0.97/test/words.awk
  30. #    mawk0.97/test/words0.awk mawk0.97/examples/decl.awk
  31. #    mawk0.97/examples/deps.awk mawk0.97/examples/gdecl.awk
  32. #    mawk0.97/examples/nocomment.awk mawk0.97/msdos/INSTALL
  33. #    mawk0.97/msdos/makefile mawk0.97/msdos/mklib.bat
  34. #    mawk0.97/msdos/rand48.asm mawk0.97/msdos/rand48.h
  35. #    mawk0.97/msdos/rand48_0.c mawk0.97/msdos/reargv.c
  36.  
  37. echo mkdir - mawk0.97
  38. mkdir mawk0.97
  39. chmod u=rwx,g=rx,o=rx mawk0.97
  40.  
  41. echo x - mawk0.97/packing.list
  42. sed 's/^@//' > "mawk0.97/packing.list" <<'@//E*O*F mawk0.97/packing.list//'
  43.  
  44. ################################################
  45. # These files form the mawk distribution
  46. #
  47. # Mawk is an implementation of the AWK Programming Language as
  48. # defined and described in Aho, Kernighan and Weinberger, The
  49. # Awk Programming Language, Addison-Wesley, 1988.
  50. #
  51. ################################################
  52. # Source code written by Michael D. Brennan
  53. # Copyright (C) 1991 , Michael D. Brennan
  54. ################################################
  55. packing.list        this file
  56. README            how to get started
  57. LIMITATIONS        restrictions on use
  58. Makefile        mawk makefile
  59. mawk.manual        mock manual
  60. ######################
  61. array.c            source files
  62. bi_funct.c
  63. bi_funct.h
  64. bi_vars.c
  65. bi_vars.h
  66. cast.c
  67. code.c
  68. code.h
  69. da.c
  70. error.c
  71. execute.c
  72. fcall.c
  73. field.c
  74. field.h
  75. files.c
  76. files.h
  77. fin.c
  78. fin.h
  79. hash.c
  80. init.c
  81. init.h
  82. jmp.c
  83. jmp.h
  84. kw.c
  85. machine.h
  86. main.c
  87. makescan.c
  88. matherr.c
  89. mawk.h
  90. memory.c
  91. memory.h
  92. parse.y
  93. print.c
  94. re_cmpl.c
  95. regexp.h
  96. repl.h
  97. scan.c
  98. scan.h
  99. scancode.c
  100. sizes.h
  101. split.c
  102. symtype.h
  103. types.h
  104. zmalloc.c
  105. zmalloc.h
  106. ########################
  107. # directory:  rexp
  108. rexp/Makefile        makefile for regexp.a
  109. rexp/rexp.c        source for regular matching library
  110. rexp/rexp.h
  111. rexp/rexp0.c
  112. rexp/rexp1.c
  113. rexp/rexp2.c
  114. rexp/rexp3.c
  115. rexp/rexpdb.c
  116. #######################
  117. # directory:  test      benchmarking directory
  118. test/README
  119. test/benchmarks
  120. test/cat.awk
  121. test/concat.awk
  122. test/fields.awk
  123. test/loops.awk
  124. test/newton.awk
  125. test/primes.awk
  126. test/qsort.awk
  127. test/reg0.awk
  128. test/reg1.awk
  129. test/reg2.awk
  130. test/sample            sample input file for test.sh
  131. test/squeeze.awk
  132. test/test.sh
  133. test/wc.awk
  134. test/wfrq.awk
  135. test/wfrq0.awk
  136. test/words.awk
  137. test/words0.awk
  138. ######################
  139. # directory:  examples       useful awk programs
  140. examples/decl.awk
  141. examples/deps.awk
  142. examples/gdecl.awk
  143. examples/nocomment.awk
  144. ######################
  145. # directory  msdos
  146. msdos/INSTALL
  147. msdos/makefile
  148. msdos/mklib.bat
  149. msdos/rand48.asm
  150. msdos/rand48.h
  151. msdos/rand48_0.c
  152. msdos/reargv.c
  153. @//E*O*F mawk0.97/packing.list//
  154. chmod u=rw,g=r,o=r mawk0.97/packing.list
  155.  
  156. echo x - mawk0.97/README
  157. sed 's/^@//' > "mawk0.97/README" <<'@//E*O*F mawk0.97/README//'
  158.  
  159.  
  160. to build mawk:
  161.  
  162. make sure  there is an appropriate description of
  163. your system in machine.h
  164.  
  165. set CFLAGS in the Makefile to pick the appropriate blob
  166. in machine.h
  167.  
  168. run make
  169.  
  170.  
  171.  
  172. PS:
  173. I expected to have bcopy() <-> memcpy()
  174. hassles on 4.3BSD, but didn't
  175. Is this right? or did someone add memcpy(), strchr() etc
  176.    to that machine?
  177.    If 4.3BSD in machine.h is wrong, let me know at
  178.    brennan@bcsaic.boeing.com
  179. @//E*O*F mawk0.97/README//
  180. chmod u=r,g=r,o=r mawk0.97/README
  181.  
  182. echo x - mawk0.97/LIMITATIONS
  183. sed 's/^@//' > "mawk0.97/LIMITATIONS" <<'@//E*O*F mawk0.97/LIMITATIONS//'
  184.  
  185.  
  186. Mawk is an implementation of the AWK Programming Language
  187. as defined in Aho, Kernighan and Weinberger, The AWK 
  188. Programming Language, Addison-Wesley, 1988.
  189.  
  190. The source code is original work, in the sense that its
  191. development relied only on the specification of the AWK
  192. language in the book above.  Most of the algorithms and
  193. data structures used in this code are not original --
  194. but based on knowledge acquired from numerous sources.
  195. Originality is claimed only for the aggregate work.  Any
  196. ideas or techniques in this code can be freely copied and
  197. used in other work.  
  198.  
  199. The source code may be modified provided the copyright
  200. notices remain intact, and modifications are unambiguously
  201. distinct from the original.  I want to retain credit for my
  202. work and do not want credit for yours.
  203.  
  204. Redistribution in any form is permitted provided the built-in
  205. variable VERSION is retained, and its initial value only
  206. modified by appending extra lines.
  207.  
  208.     For example, if you modify a mawk with VERSION
  209.  
  210.     mawk x.xx Mon Year, Copyright (C) Michael D. Brennan
  211.  
  212.     then add an extra line to VERSION without modifying the
  213.     first line.
  214.  
  215.     mawk x.xx Mon Year, Copyright (C) Michael D. Brennan
  216.     mod y.yy  Mon Year, your name
  217.  
  218.  
  219. Michael D. Brennan
  220. 16 Apr 1991
  221.  
  222. @//E*O*F mawk0.97/LIMITATIONS//
  223. chmod u=r,g=r,o=r mawk0.97/LIMITATIONS
  224.  
  225. echo x - mawk0.97/Makefile
  226. sed 's/^@//' > "mawk0.97/Makefile" <<'@//E*O*F mawk0.97/Makefile//'
  227.  
  228. # ###################################################
  229. # This is a makefile for mawk,
  230. # an implementation of The AWK Programmin Language, 1988.
  231. # 
  232. # 
  233.  
  234. SHELL=/bin/sh
  235.  
  236. ####################################
  237. # CFLAGS needs to match a define in machine.h
  238. # unless machine.h uses a built-in compiler flag
  239. #
  240.  
  241. CFLAGS = -O -DULTRIX
  242. #CFLAGS =  -O -DBSD43
  243. YACC=yacc -dv
  244. #YACC=bison -dvy
  245.  
  246. #######################################
  247.  
  248. O=parse.o scan.o memory.o main.o hash.o execute.o code.o\
  249.   da.o error.o init.o bi_vars.o cast.o print.o bi_funct.o\
  250.   kw.o jmp.o array.o field.o  split.o re_cmpl.o zmalloc.o\
  251.   fin.o files.o  scancode.o matherr.o  fcall.o
  252.  
  253. REXP_C=rexp/rexp.c rexp/rexp0.c rexp/rexp1.c rexp/rexp2.c\
  254.     rexp/rexp3.c rexp/rexpdb.c
  255.  
  256.  
  257.  
  258. mawk : $(O)  rexp/regexp.a
  259.     cc $(CFLAGS) -o mawk $(O) -lm rexp/regexp.a
  260.  
  261. rexp/regexp.a :  $(REXP_C)
  262.     cd  rexp ; make
  263.  
  264.  
  265. parse.c  : parse.y
  266.     @echo  expect 3 shift/reduce conflicts
  267.     $(YACC)  parse.y
  268.     mv y.tab.c parse.c
  269.     -if cmp -s y.tab.h parse.h ;\
  270.        then rm y.tab.h ;\
  271.        else mv y.tab.h parse.h ; fi
  272.  
  273. scancode.c :  makescan.c  scan.h
  274.     cc -o makescan.exe  makescan.c
  275.     makescan.exe > scancode.c
  276.     rm makescan.exe
  277.  
  278.  
  279. array.o : bi_vars.h sizes.h zmalloc.h memory.h types.h machine.h mawk.h symtype.h
  280. bi_funct.o : fin.h bi_vars.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h repl.h files.h bi_funct.h mawk.h symtype.h init.h
  281. bi_vars.o : bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h mawk.h symtype.h init.h
  282. cast.o : parse.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h repl.h mawk.h symtype.h
  283. code.o : sizes.h memory.h zmalloc.h types.h machine.h code.h mawk.h init.h
  284. da.o : sizes.h memory.h zmalloc.h types.h machine.h field.h repl.h code.h bi_funct.h mawk.h symtype.h
  285. error.o : parse.h bi_vars.h sizes.h types.h machine.h scan.h mawk.h symtype.h
  286. execute.o : sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h code.h repl.h bi_funct.h mawk.h symtype.h
  287. fcall.o : sizes.h memory.h zmalloc.h types.h machine.h code.h mawk.h symtype.h
  288. field.o : parse.h bi_vars.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h scan.h repl.h mawk.h symtype.h init.h
  289. files.o : fin.h sizes.h memory.h zmalloc.h types.h machine.h files.h mawk.h
  290. fin.o : parse.h fin.h bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h mawk.h symtype.h
  291. hash.o : sizes.h memory.h zmalloc.h types.h machine.h mawk.h symtype.h
  292. init.o : bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h code.h mawk.h symtype.h init.h
  293. jmp.o : sizes.h memory.h zmalloc.h types.h machine.h code.h jmp.h mawk.h init.h
  294. kw.o : parse.h sizes.h types.h machine.h mawk.h symtype.h init.h
  295. main.o : fin.h bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h code.h files.h mawk.h init.h
  296. makescan.o : parse.h scan.h symtype.h
  297. matherr.o : sizes.h types.h machine.h mawk.h
  298. memory.o : sizes.h memory.h zmalloc.h types.h machine.h mawk.h
  299. parse.o : bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h code.h files.h bi_funct.h mawk.h jmp.h symtype.h
  300. print.o : bi_vars.h parse.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h files.h bi_funct.h mawk.h symtype.h
  301. re_cmpl.o : parse.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h scan.h repl.h mawk.h symtype.h
  302. scan.o : parse.h fin.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h repl.h files.h mawk.h symtype.h init.h
  303. split.o : bi_vars.h parse.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h scan.h bi_funct.h mawk.h symtype.h
  304. zmalloc.o : sizes.h zmalloc.h types.h machine.h mawk.h
  305. @//E*O*F mawk0.97/Makefile//
  306. chmod u=r,g=r,o=r mawk0.97/Makefile
  307.  
  308. echo x - mawk0.97/mawk.manual
  309. sed 's/^@//' > "mawk0.97/mawk.manual" <<'@//E*O*F mawk0.97/mawk.manual//'
  310.  
  311.                               Mawk Manual 
  312.  
  313. Mawk implements the awk language as defined in Aho, Kernighan and 
  314. Weinberger, The AWK Programming Language, Addison-Wesley, 1988, ISBN 
  315. 0-201-07981-X, hereafter called the AWK book.  Chapter 2 serves as a 
  316. reference to the language and the rest (8 total chapters) provides a 
  317. wide range of examples and applications.  This book is must reading to 
  318. understand the versatility of the language.  
  319.  
  320. The 1988 version of the language is sometimes called new awk as opposed 
  321. to the 1977 version (awk or old awk.) Virtially every Unix system has 
  322. old awk, somewhere in the documentation will be an (old) awk tutorial 
  323. (probably in support tools).  If you use (old) awk, the transition to 
  324. new awk is easy.  The language has been extended and ambiguous points 
  325. clarified, but old awk programs still run under new awk.  
  326.  
  327. This manual assumes you know (old) awk, and hence concentrates on the 
  328. new features of awk.  Feature xxx is new means xxx was added to the 1988
  329. version.  
  330.  
  331. Experienced new awk users should read sections 9 and 12, and skim 
  332. sections 7 and 8.  
  333.  
  334. 1. Command line
  335.  
  336.     mawk [-Fs] 'program'  optional_list_of_files
  337.     mawk [-Fs] -f program_file  optional_list_of_files
  338.  
  339. 2. Program blocks
  340.  
  341.     Program blocks are of the form:
  342.  
  343.     pattern { action }
  344.  
  345.     pattern can be:
  346.  
  347.     regular_expression
  348.     expression
  349.     ( pattern )
  350.     ! pattern
  351.     pattern || pattern
  352.     pattern && pattern
  353.  
  354.     pattern , pattern  (range pattern)
  355.     BEGIN
  356.     END
  357.  
  358. Range, BEGIN and END patterns cannot be combined to form new patterns.  
  359. BEGIN and END patterns require an action; otherwise, if action is 
  360. omitted it is implicitly { print }.  
  361.  
  362.     NR==2    {  print }  # prints line number 2
  363.     NR==2             # also prints line number 2
  364.  
  365. If pattern is omitted then action is always applied.
  366.  
  367.     { print $NF }
  368.  
  369. prints the last field of every record.
  370.  
  371. 3. Statement format and loops
  372.  
  373. Statements are terminated by newlines, semi-colons or both.  Groups of 
  374. statements are blocked via { ...  } as in C.  The last statement in a 
  375. block doesn't need a terminator.  Blank lines have no meaning; an empty 
  376. statement is terminated with a semi-colon.  Long statements can be 
  377. continued with a backslash, \.  A statement can be broken without a 
  378. backslash after a comma, left brace, &&, ||, do, else, the right 
  379. parenthesis of an if, while or for statement, and the right parenthesis 
  380. of a function definition.  
  381.  
  382. Loops are for(){}, while(){} and do{}while() as in C.  
  383.  
  384. 4. Expression syntax
  385.  
  386. The expression syntax and grouping of the language is similar to C.  
  387. Primary expressions are numeric constants, string constants, variables, 
  388. arrays and functions.  Complex expressions are composed with the 
  389. following operators in order of increasing precedence.  
  390.  
  391.     assignment: = += -+ *= /= ^=
  392.     conditional:  ? :
  393.     logical or:   ||
  394.     logical and:  &&
  395.     array membership :   in
  396.     matching :   ~   !~
  397.     relational :  <  >   <=  >=  ==  !=
  398.     concatenation:   (no explicit operator)
  399.     add ops:  +  -
  400.     mul ops:  *  /  % 
  401.     unary  :  +  -
  402.     logical not :  !
  403.     exponentiation:  ^
  404.     inc and dec:  ++ -- (both post and pre)
  405.     field:  $
  406.  
  407. 5. Builtin variables.
  408.  
  409. The following variables are built-in and initialized before program 
  410. execution.  
  411.  
  412.     ARGC    number of command line arguments
  413.     ARGV    array of command line arguments, 0..ARGC-1
  414.     FILENAME    name of the current input file
  415.     FNR         current record number in the current input file
  416.     FS        splits records into fields as a regular expression
  417.     NF        number of fields in the current record, i.e., $0
  418.     NR        current record number in the total input stream
  419.     OFMT    format for printing numbers; initially = "%.6g"
  420.     OFS        inserted between fields on output, initially = " "
  421.     ORS        terminates each record on output, initially = "\n"
  422.     RLENGTH     length of the last call to the built-in function, match()
  423.     RS        input record separator, initially = " "
  424.     RSTART    index of the last call to match()
  425.     SUBSEP    used to build multiple array subscripts, initially = "\034"
  426.     VERSION     Mawk version, unique to mawk.
  427.  
  428. ARGC, ARGV, FNR, RLENGTH, RSTART and SUBSEP are new.  
  429.  
  430. The current input record is stored in the field, $0.  The fields of $0 
  431. determined by splitting with RS are stored in $1, $2, ..., $NF.  
  432.  
  433.  
  434. 6. Built-in Functions
  435.  
  436. String functions
  437.  
  438.     index(s,t)
  439.     length(s), length
  440.     split(s, A, r), split(s, A)
  441.     substr(s,i,n) , substr(s,i)
  442.     sprintf(format, expr_list)
  443.  
  444.     match(s,r)        returns the index where string s matches
  445.                 regular expression r or 0 if no match. As
  446.             a side effect, sets RSTART and RLENGTH.
  447.  
  448.     gsub(r, s, t)       Global substitution, every match of regular
  449.             expression r in variable t is replaced by s.
  450.             The number of matches/replacements is returned.
  451.  
  452.     sub(r, s, t)    Like gsub(), except at most one replacement.
  453.  
  454. Match(), gsub() and sub() are new.  If r is an expr it is coerced to 
  455. string and then treated as a regular expression.  In sub and gsub, t can
  456. be a variable, field or array element, i.e., it must have storage to 
  457. hold the modification.  Sub(r,s) and gsub(r,s) are the same as 
  458. sub(r,s,$0) and gsub(r,s,$0).  In the replacement string s, an & is 
  459. replaced by the matched piece and a literal & is obtained with \&.  
  460. E.g., 
  461.  
  462.         y = x = "abbc"
  463.         sub(/b+/, "B&B" , x)
  464.         sub(/b+/, "B\&B" , y)
  465.         print x, y
  466.  
  467. outputs:    aBbbBc aB&Bc
  468.  
  469.  
  470.  
  471.  
  472. Arithmetic functions
  473.  
  474.     atan2(y,x)        arctan of y/x between -pi and pi.
  475.     cos(x)
  476.     exp(x)
  477.     int(x)        x.dddd ->  x.0
  478.     log(x)
  479.     rand()        returns random number , 0 <= r < 1.
  480.     sin(x)
  481.     sqrt(x)
  482.     srand(x) , srand()  seeds random number generator, uses clock
  483.             if x is omitted.
  484.  
  485. Output functions
  486.  
  487.     print        writes  $0 ORS   to stdout.
  488.  
  489.     print expr1 , expr2 , ... , exprn
  490.             writes expr1 OFS expr2 OFS ... OFS exprn ORS to
  491.             stdout.
  492.  
  493.     printf format, expr_list
  494.             Acts like the C library function, writing to
  495.             stdout.  Supported conversions are
  496.             %c, %d, %e, %f, %g, %o, %s and %x.  
  497.             - , width and .prec are supported.
  498.             Dynamic widths can be built using string operations
  499.  
  500.  
  501. Output can be redirected 
  502.  
  503.    print[f]  > file
  504.          >> file
  505.          | command
  506.  
  507. File and command are awk expressions that are interpreted as a filename 
  508. or a shell command.  
  509.  
  510.  
  511. Input functions
  512.  
  513.     getline        read $0, update NF, NR and FNR.
  514.  
  515.     getline < file      read $0 from file, update NF.
  516.     getline var         read var from input stream, update NR, FNR.
  517.     getline var < file  read var from next record of file
  518.  
  519.     command | getline   read $0 from piped command, update NF.
  520.     command | getline var   read var from next record of piped command.
  521.  
  522. (Old) awk had getline, the redirection facilities are new.
  523.  
  524.     Files or commands are closed with
  525.  
  526.     close(expr)
  527.  
  528. where expr is command or file as a string.  Close returns 0 if expr was 
  529. in fact an open file or command else -1.  Close is needed if you want to
  530. reread a file, rerun a command, have a large number of output files 
  531. without mawk running out of resources or wait for an output command to 
  532. finish.  Here is an example of the last case: 
  533.  
  534.     { ....  do some processing on each input line
  535.       #  send the processed line to sort
  536.       print | "sort > temp_file"
  537.  
  538.     }
  539.  
  540.     END { # reread the sorted input
  541.       close( "sort > temp_file")  # makes sure sort is finished
  542.  
  543.       cnt=1
  544.       while ( getline line[cnt++] < "temp_file"  > 0 )  ;  
  545.       system( "rm temp_file" )  # cleanup
  546.  
  547.       ... process line[1], line[2] ... line[cnt-1]
  548.     }
  549.  
  550. The system() function executes a command and returns the command's exit 
  551. status.  Mawk uses the shell in the environment variable SHELL to 
  552. execute system or command pipelines; defaulting to "/bin/sh" if SHELL is
  553. not set.  
  554.  
  555.  
  556. 7. String constants
  557.  
  558. String constants are written as in C.
  559.  
  560.  
  561.     "This is a string with a newline at the end.\n"
  562.  
  563. Strings can be continued across a line by escaping (\) the newline.  The
  564. following escape sequences are recognized.  
  565.  
  566.     \\        \
  567.     \"        "
  568.     \'        '
  569.     \a        alert, ascii 7
  570.     \b        backspace, ascii 8
  571.     \t        tab, ascii 9
  572.     \n        newline, ascii 10
  573.     \v        vertical tab, ascii 11
  574.     \f        formfeed, ascii 12
  575.     \r        carriage return, ascii 13
  576.     \ddd        1, 2 or 3 octal digits for ascii ddd
  577.  
  578.     \xhh        1 or 2 hex digits for ascii  hh
  579.  
  580. If you escape any other character \c, you get \c, i.e.  the escape is 
  581. ignored.  Mawk is different than most awks here; the AWK book says \c is
  582. c.  The reason mawk chooses to be different is for easier conversion of 
  583. strings to regular expressions.  
  584.  
  585.  
  586. 8. Regular expressions
  587.  
  588. Awk notation for regular expressions is in the style of egrep(1).  In 
  589. awk, regular expressions are enclosed in / ...  /.  A regular expression
  590. /r/, is a set of strings.  
  591.  
  592.         s ~ /r/
  593.  
  594. is an awk expression that evaluates to 1 if an element of /r/ is a 
  595. substring of s and evaluates to 0 otherwise.  ~ is called the match 
  596. operator and the expression is read "s matches r".  
  597.  
  598.        s ~ /^r/   is 1 if some element of r is a prefix of s.
  599.        s ~ /r$/   is 1 if some element of r is a suffix of s.
  600.        s ~ /^r$/  is 1 if s is an element of r.
  601.  
  602. Replacing ~ by !~ , the not match operator, reverses the meanings.  In 
  603. patterns, /r/ and !/r/ are shorthand for $0 ~ /r/ and $0 !~ /r/.  
  604.  
  605. Regular expressions are combined by the following rules.
  606.  
  607.     //  stands for the one element set "" (not the empty set).
  608.     /c/ for a character c is the one element set "c".
  609.  
  610.     /rs/  is all elements of /r/ concatenated with all 
  611.           elements of /s/.
  612.  
  613.     /r|s/ is the set union of /r/ and /s/.
  614.  
  615.     /r*/  called the closure of r is // union /rr/ union /rrr/ ...
  616.           In words, r repeated zero or more times.
  617.  
  618. The above operations are sufficient to describe all regular expressions,
  619. but for ease of notation awk defines additional operations and notation.
  620.  
  621.     /r?/  // union /r/.  In words r 0 or 1 time.
  622.     /r+/  Positive closure of r.  R 1 or more times.
  623.     (r)   Same as r -- allows grouping.
  624.     .     Stands for any character (for mawk this means 
  625.           ascii 1 through ascii 255)
  626.     [c1c2..cn]    A character class same as (c1|c2|...|cn) where
  627.           ci's are single characters.
  628.  
  629.     [^c1c2..cn]   Complement of the class [c1c2..cn].  For mawk
  630.           complement in the ascii character set 1 to 255.
  631.  
  632. Ranges c1-cn are allowed in character classes.  For example,
  633.  
  634.     /[_a-zA-Z][_a-zA-Z0-9]*/
  635.  
  636. expresses the set of possible identifiers in awk.
  637.  
  638. The operators have increasing precedence:
  639.  
  640.        |
  641.        implicit concatenation
  642.        + * ?
  643.  
  644. So /a|b+/ means a or (1 or more b's), and /(a|b)+/ means (a or b) one or
  645. more times.  The so called regular expression metacharacters are \ ^ $ .
  646. [ ] | ( ) * + ? .  To stand for themselves as characters they have to be
  647. escaped.  (They don't have to be escaped in classes, inside classes the 
  648. meta-meaning is off).  The same escape sequences that are recognized in 
  649. strings (see above) are recognized in regular expressions.  For mawk, 
  650. the escape rule for \c changes to c.  
  651.  
  652. For example,
  653.  
  654.     /[ \t]*/   is optional space
  655.     /^[-+]?([0-9]+\.?|\.[0-9])[0-9]*([eE][-+]?[0-9]+)?$/
  656.            is numbers in the Awk language.
  657.            Note,  . must be escaped to have
  658.            its meaning as decimal point.
  659.  
  660. For building regular expressions, you can think of ^ and $ as phantom 
  661. characters at the front and back of every string.  So /(^a|b$|^A.*B$)/ 
  662. is the set of strings that start with a or end with b or (start with A 
  663. and end with B).  
  664.  
  665. Dynamic regular expressions are new.  You can write 
  666.  
  667.     x ~ expr
  668.  
  669. and expr is interpreted as a regular expression.  The result of x ~ y 
  670. can vary with the variable y; so 
  671.  
  672.     x ~ /a\+b/   and   x ~ "a\+b"
  673.  
  674. are the same, or are they? In mawk, they are; in some other awk's they 
  675. are not.  In the second expression, "a\+b" is scanned twice: once as a 
  676. string constant and then again as a regular expression.  In mawk the 
  677. first scan gives the four character string 'a' '\' '+' 'b' because mawk 
  678. treats \+ as \+; the second scan gives a regular expression matched by 
  679. the three character string 'a' '+' 'b' because on the second scan \+ 
  680. becomes +.  
  681.  
  682. If \c becomes c in strings, you need to double escape metacharacters, 
  683. i.e., write 
  684.  
  685.     x ~ "a\\+b".
  686.  
  687. Exercise: what happens if you double escape in mawk?
  688.  
  689. In strings if you only escape characters with defined escape sequences 
  690. such as \t or \n or meta-characters when you expect to use a string as a
  691. regular expression, then mawk's rules are intuitive and simple.  See 
  692. example/cdecl.awk and example/gdecl.awk for the same program with single
  693. and double escapes, the first is clearer.  
  694.  
  695.  
  696. 9. How Mawk splits lines, records and files.
  697.  
  698. Mawk uses the essentially the same algorithm to split lines into pieces 
  699. with split(), records into fields on FS, and files into records on RS.  
  700.  
  701. Split( s, A, sep ) splits string s into array A with separator sep as 
  702. follows: 
  703.  
  704.     Sep is interpreted as a regular expression.
  705.  
  706.     If s = "", there are no pieces and split returns 0.
  707.  
  708.     Otherwise s is split into pieces by the matches with sep
  709.     of positive length treated as a separator between pieces,
  710.     so the number of pieces is the number of matches + 1.
  711.     Matches of the null string do not split.
  712.     So sep = "b+" and sep = "b*" split the same although the
  713.     latter executes more slowly.
  714.  
  715.     Split(s, A) is the same as split(s, A, FS).
  716.     With mawk you can write sep as a regular expression, i.e.,
  717.     split(s, A, "b+") and split(s, A, /b+/) are the same.
  718.  
  719.     Sep = " " (a single space) is special.  Before the algorithm is
  720.     applied, white-space is trimmed from the front and back of s.
  721.     Mawk defines white-space as SPACE, TAB, FORMFEED, VERTICAL TAB
  722.     or NEWLINE, i.e [ \t\f\v\n].  Usually this means SPACE or TAB
  723.     because NEWLINE usually separates records, and the other
  724.     characters are rare.  The above algorithm
  725.     is then applied with sep = "[ \t\f\v\n]+".
  726.  
  727.     If length(sep) = 1, then regular expression metacharacters do
  728.     not have to be escaped, i.e. split(s, A, "+") is the same as
  729.     split(s, A, /\+/).
  730.  
  731.  
  732. Splitting records into fields works exactly the same except the pieces 
  733. are loaded into $1, $2 ...  $NF.  
  734.  
  735. Records are also the same, RS is treated as a regular expression.  But 
  736. there is a slight difference, RS is really a record terminator (ORS is 
  737. really a terminator also).  
  738.  
  739.     E.g., if FS = ":" and $0 = "a:b:" , then
  740.     NF = 3 and $1 = "a", $2 = "b" and $3 = "", but
  741.     if "a:b:" is the contents of an input file and RS = ":", then
  742.     there are two records "a" and "b".
  743.  
  744.     RS = " " does not have special meaning as with FS.
  745.  
  746.  
  747. Not all versions of (new) awk support RS as a regular expression.  This 
  748. feature of mawk is useful and improves performance.  
  749.  
  750.     BEGIN { RS = "[^a-zA-Z]+" 
  751.         getline
  752.         if ( $0 == "" ) NR = 0 
  753.         else word[1] = $0
  754.     }
  755.  
  756.     { word[NR] = $0 }
  757.  
  758.     END { ... do something with word[1]...word[NR] }
  759.  
  760. isolates words in a document over twice as fast as reading one line at a
  761. time and then examining each field with FS = "[^a-zA-Z]+".  
  762.  
  763. To remove comments from C code: 
  764.  
  765.     BEGIN { RS = "/\*([^*]|\*[^/])*\*/"  # comment is RS
  766.         ORS = " "
  767.     }
  768.  
  769.     { print }
  770.  
  771.     END { printf "\n" }
  772.  
  773.  
  774. 10. Multi-line records
  775.  
  776. Since mawk interprets RS as a regular expression, multi-line records are
  777. easy.  Setting RS = "\n\n+", makes one or more blank lines separate 
  778. records.  If FS = " " (the default), then single newlines, by the rules 
  779. for space above, become space.  
  780.  
  781.    For example, if a file is "a b\nc\n\n", RS = "\n\n+" and
  782.    FS = " ", then there is one record "a b\nc" with three
  783.    fields "a", "b" and "c".  Changing FS = "\n", gives two
  784.    fields "a b" and "c"; changing FS = "", gives one field
  785.    identical to the record.
  786.  
  787. For compatibility with (old) awk, setting RS = "" has the same
  788. effect on determining records as RS = "\n([ \t]*\n)+".
  789.  
  790. Most of the time when you change RS for mult-line records, you
  791. will also want to change ORS to "\n\n".
  792.  
  793. 11. User functions.
  794.  
  795. User defined functions are new.  They can be passed expressions by value
  796. or arrays by reference.  Function calls can be nested and support 
  797. recursion.  The syntax is 
  798.  
  799.     function  funcname( args ) {
  800.  
  801.     .... body
  802.  
  803.     }
  804.  
  805. Newlines are ignored after the ')' so the '{' can start on a different 
  806. line.  Inside the body, you can use a return statement 
  807.  
  808.     return expr
  809.     return
  810.  
  811. As in C, there is no distinction between functions and procedures.  A 
  812. function does not need an explicit return.  Extra arguments act as local
  813. variables.  For example, csplit(s, A) puts each character of s in array 
  814. A.  
  815.  
  816.     function  csplit(s, A,     i)
  817.     {
  818.       for(i=1; i <= length(s) ; i++)
  819.         A[i] = substr(s, i, 1)
  820.     }
  821.  
  822. Putting lots of space between the passed arguments and the local 
  823. variables is a convention that can be ignored if you don't like it.  
  824.  
  825. Dynamic regular expressions allow regular expressions to be passed to 
  826. user defined functions.  The following function gobble() is the lexical 
  827. scanner for a recursive descent parser, the whole program is in 
  828. examples/cdecl.awk.  
  829.  
  830.     function gobble( r,   x) # eat regular expression 
  831.         #  r off the front of global variable line
  832.  
  833.     {
  834.       if ( match( line, "^(" r ")") )
  835.       {
  836.         x = substr(line, 1, RLENGTH)
  837.         line = substr(line, RLENGTH)
  838.       }
  839.       else  x = ""
  840.  
  841.       return x
  842.     }
  843.  
  844. You can call a function before it is defined, but the function name and 
  845. the '(' must not be separated by white space to avoid confusion with 
  846. concatenation.  
  847.  
  848. 12. Other differences in mawk
  849.  
  850. The main differences between mawk and other awks have been discussed, RS
  851. as a regular expression and regular expression metacharacters don't have
  852. to be double escaped.  Here are some others: 
  853.  
  854.   VERSION  -- built-in variable holding version number of mawk.
  855.  
  856.     mawk 'BEGIN{print VERSION}'       shows it.
  857.  
  858.  
  859.   -D  --  command line flag causes mawk to dump to stderr 
  860.       a mawk assembler listing of the current program.
  861.       The program is executed by a stack machine internal
  862.       to mawk.  The op codes are in code.h, the machine in
  863.       execute.c.
  864.  
  865.   srand() --    
  866.       During initialization, mawk seeds the random number generator
  867.       by silently calling srand(), so calling srand() yourself is
  868.       unnecessary.  The main use of srand is to use srand(x) to get
  869.       a repeatable stream of random numbers.  Srand(x) returns x
  870.       and srand() returns the value of the system clock in some form
  871.       of ticks.
  872.  
  873.  
  874. 13. MsDOS
  875.  
  876. For a number of reasons, entering a mawk program on the command line 
  877. using command.com as your shell is an exercise in futility, so under 
  878. MsDOS the command syntax is 
  879.  
  880.     mawk [-Fs] optional_list_of_files
  881.  
  882. You'll get a prompt, and then type in the program.  The -f option works 
  883. as before.  
  884.  
  885. If you use a DOS shell that gives you a Unix style command line, to use 
  886. it you'll need to provide a C function reargv() that retrieves argc and 
  887. argv[] from your shell.  The details are in msdos/INSTALL.  
  888.  
  889. Some features are missing from the DOS version of mawk: No system(), and
  890. no input or output pipes.  To provide a hook to stderr, I've added 
  891.  
  892.     errmsg( "string" )
  893.  
  894. which prints "string\n" to stderr which will be the console and only the
  895. console under command.com.  A better solution would be to associate a 
  896. file with handle 2, so print and printf would be available.  Consider 
  897. the errmsg() feature as temporary.  
  898.  
  899. For compatibility with Unix, CR are silently stripped from input and LF 
  900. silently become CRLF on output.  
  901.  
  902. WARNING: If you write an infinite loop that does not print to the 
  903. screen, then you will have to reboot.  For example 
  904.  
  905.     x = 1 
  906.     while( x < 10 )  A[x] = x
  907.     x++
  908.  
  909. By mistake the x++ is outside the loop.  What you need to do is type 
  910. control break and the keyboard hardware will generate an interrupt and 
  911. the operating system will service that interrupt and terminate your 
  912. program, but unfortunately MsDOS does not have such a feature.  
  913.  
  914.  
  915. 14. Bugs
  916.  
  917. Currently mawk cannot handle \0 (NUL) characters in input files 
  918. otherwise mawk is 8 bit clean.  Also "a\0b", doesn't work right -- you 
  919. get "a".  You can't use \0 in regular expressions either.  
  920.  
  921.    printf "A string%c more string\n" , 0
  922.  
  923. does work, but more by luck than design since it doesn't work with 
  924. sprintf().  
  925.  
  926.  
  927. 15. Releases
  928.  
  929. This release is version 0.97.  After a reasonable period of time, any 
  930. bugs that appear will be fixed, and this release will become version 
  931. 1.0.  
  932.  
  933. Evidently features have been added to awk by Aho, Kernighan and 
  934. Weinberger since the 1988 release of the AWK book.  Version 1.1 will add
  935. whatever features are necessary to remain compatible with the language 
  936. as defined by its designers.  
  937.  
  938. After that ...  ? 
  939.  
  940. 16. Correspondence
  941.  
  942. Send bug reports or other correspondence to
  943.  
  944. Mike Brennan
  945. brennan@bcsaic.boeing.com
  946.  
  947. If you have some interesting awk programs, contributions to the examples
  948. directory would be appreciated.  
  949. @//E*O*F mawk0.97/mawk.manual//
  950. chmod u=rw,g=r,o=r mawk0.97/mawk.manual
  951.  
  952. echo x - mawk0.97/array.c
  953. sed 's/^@//' > "mawk0.97/array.c" <<'@//E*O*F mawk0.97/array.c//'
  954.  
  955. /********************************************
  956. array.c
  957. copyright 1991, Michael D. Brennan
  958.  
  959. This is a source file for mawk, an implementation of
  960. the Awk programming language as defined in
  961. Aho, Kernighan and Weinberger, The AWK Programming Language,
  962. Addison-Wesley, 1988.
  963.  
  964. See the accompaning file, LIMITATIONS, for restrictions
  965. regarding modification and redistribution of this
  966. program in source or binary form.
  967. ********************************************/
  968.  
  969. /* $Log:    array.c,v $
  970.  * Revision 2.1  91/04/08  08:22:15  brennan
  971.  * VERSION 0.97
  972.  * 
  973. */
  974.  
  975. #include "mawk.h"
  976. #include "symtype.h"
  977. #include "memory.h"
  978. #include "bi_vars.h"
  979.  
  980. extern int returning ; 
  981.    /* flag -- on if returning from function call */
  982.  
  983. extern unsigned hash() ;
  984.  
  985. /* An array A is a pointer to a hash table of size
  986.    A_HASH_PRIME holding linked lists of ANODEs.
  987.  
  988.    When an index is deleted via  delete A[i], the
  989.    ANODE is not removed from the hash chain.  A[i].cp
  990.    and A[i].sval are both freed and sval is set NULL.
  991.    This method of deletion simplifies for( i in A ) loops.
  992. */
  993.  
  994. /* is sval in A ? */
  995. int array_test( A, sval)
  996.   ARRAY A ; 
  997.   STRING *sval ;
  998. { char *s = sval->str ;
  999.   register ANODE *p = A[ hash(s) % A_HASH_PRIME ] ;
  1000.   
  1001.   while ( p )
  1002.   { if ( p->sval && strcmp(s, p->sval->str) == 0 )  return 1 ;
  1003.     p = p->link ; }
  1004.   /* not there */
  1005.   return 0 ;
  1006. }
  1007.   
  1008. /* find x in array a
  1009.    if flag is ON x is a char* else a STRING*,
  1010.    computes a[x] as a CELL*
  1011. */
  1012.  
  1013. CELL *array_find( a, x, flag)
  1014.   ARRAY a ; PTR  x ; int flag ;
  1015. { register ANODE *p ;  /* search with p */
  1016.   ANODE *q ;  /* pts at a deleted node */
  1017.   unsigned h ;
  1018.   char *s ;
  1019.  
  1020.   s = flag ? (char *) x : ( (STRING *) x) -> str ;
  1021.   p = a[ h = hash(s) % A_HASH_PRIME ] ;
  1022.   q = (ANODE *) 0 ; 
  1023.  
  1024.   while ( p )
  1025.   { 
  1026.     if ( p->sval )
  1027.     {
  1028.       if ( strcmp(s,p->sval->str) == 0 )  /* found */
  1029.         return  p->cp ;
  1030.     }
  1031.     else /* a deleted node */
  1032.     if ( !q )  q = p ;
  1033.  
  1034.     p = p->link ;
  1035.   }
  1036.   
  1037.   /* not there make one  */
  1038.   if ( q )  p = q ; /* reuse the node */
  1039.   else
  1040.   { p = (ANODE *) zmalloc( sizeof(ANODE) ) ;
  1041.     p->link = a[h] ; a[h] = p ; }
  1042.  
  1043.   if ( flag )  p->sval = new_STRING(s) ;
  1044.   else
  1045.   { p->sval = (STRING *) x ; p->sval->ref_cnt++ ; }
  1046.   p->cp = new_CELL() ; p->cp->type = C_NOINIT ;
  1047.   return p->cp ;
  1048. }
  1049.  
  1050. void  array_delete( a, sval)
  1051.   ARRAY a ; STRING *sval ;
  1052. { char *s = sval->str ;
  1053.   register ANODE *p = a[ hash(s) % A_HASH_PRIME ] ;
  1054.  
  1055.   while ( p )
  1056.   { if ( p->sval && strcmp(s, p->sval->str)== 0 ) /* found */
  1057.     { 
  1058.       cell_destroy(p->cp) ;  free_CELL(p->cp) ;
  1059.       free_STRING(p->sval) ; p->sval = (STRING *) 0 ;
  1060.  
  1061.       break ;
  1062.     }
  1063.  
  1064.     p = p->link ;
  1065.   }
  1066. }
  1067.       
  1068.  
  1069. /* for ( i in A ) ,
  1070.    loop over elements of an array 
  1071.  
  1072. sp[0].ptr :  a pointer to A ( the hash table of A)
  1073. sp[-1] :  a pointer to i ( a cell ptr)
  1074.  
  1075. cdp[0] :  a stop op to catch breaks
  1076. cdp[1] :  offset from cdp of the code after the loop (n+2)
  1077. cdp[2] :  start of body of the loop
  1078. cdp[3..n] : the rest of the body
  1079. cdp[n+1]  : a stop op to delimit the body and catch continues
  1080. */
  1081.  
  1082. INST  *array_loop( cdp, sp, fp) /* passed code, stack and frame ptrs */
  1083.   INST *cdp ; 
  1084.   CELL *sp, *fp ;
  1085. { int i ;
  1086.   register ANODE *p ;
  1087.   ARRAY   A = (ARRAY) sp-- -> ptr ;
  1088.   register CELL *cp = (CELL *) sp-- -> ptr ;
  1089.  
  1090.   for ( i = 0 ; i < A_HASH_PRIME ; i++ )
  1091.   for ( p = A[i] ; p ; p = p->link )
  1092.   { if ( ! p->sval /* its deleted */ )  continue ;
  1093.   
  1094.     cell_destroy(cp) ;
  1095.     cp->type = C_STRING ;
  1096.     cp->ptr = (PTR) p->sval ;
  1097.     p->sval->ref_cnt++ ;
  1098.  
  1099.     /* execute the body of the loop */
  1100.     if ( execute(cdp+2, sp, fp) == cdp /* exec'ed a break statement */
  1101.          || returning  /* function return in body of loop */
  1102.        )  
  1103.            goto break2 /* break both for loops */ ; 
  1104.   }
  1105.  
  1106. break2 :
  1107.   return   cdp + cdp[1].op ;
  1108. }
  1109.  
  1110.  
  1111. /* cat together cnt elements on the eval stack to form
  1112.    an array index using SUBSEP */
  1113.  
  1114. CELL *array_cat( sp, cnt)
  1115.   register CELL *sp ;
  1116.   int cnt ;
  1117. { register CELL *p ;  /* walks the stack */
  1118.   CELL subsep ;  /* a copy of bi_vars[SUBSEP] */
  1119.   unsigned subsep_len ;
  1120.   char *subsep_str ;
  1121.   unsigned total_len ; /* length of cat'ed expression */
  1122.   CELL *top ;  /* sp at entry */
  1123.   char *t ; /* target ptr when catting */
  1124.   STRING *sval ;  /* build new STRING here */
  1125.  
  1126.   /* get a copy of subsep, we may need to cast */
  1127.   (void) cellcpy(&subsep, bi_vars + SUBSEP) ;
  1128.   if ( subsep.type < C_STRING ) cast1_to_s(&subsep) ;
  1129.   subsep_len = string(&subsep)->len ;
  1130.   subsep_str = string(&subsep)->str ;
  1131.   total_len = --cnt * subsep_len ;
  1132.  
  1133.   top = sp ;
  1134.   sp -= cnt ;
  1135.   for( p = sp ; p <= top ; p++ )
  1136.   {
  1137.     if ( p->type < C_STRING ) cast1_to_s(p) ;
  1138.     total_len += string(p)->len ;
  1139.   }
  1140.  
  1141.   sval = new_STRING((char *)0, total_len) ;
  1142.   t = sval->str ;
  1143.  
  1144.   /* put the pieces together */
  1145.   for( p = sp ; p < top ; p++ )
  1146.   { (void) memcpy(t, string(p)->str, string(p)->len) ;
  1147.     (void) memcpy( t += string(p)->len, subsep_str, subsep_len) ;
  1148.     t += subsep_len ;
  1149.   }
  1150.   /* p == top */
  1151.   (void) memcpy(t, string(p)->str, string(p)->len) ;
  1152.  
  1153.   /* done, now cleanup */
  1154.   free_STRING(string(&subsep)) ;
  1155.   while ( p >= sp )  { free_STRING(string(p)) ; p-- ; }
  1156.   sp->type = C_STRING ;
  1157.   sp->ptr = (PTR) sval ;
  1158.   return sp ;
  1159. }
  1160.  
  1161.  
  1162. /* free all memory used by an array,
  1163.    only used for arrays local to a function call
  1164. */
  1165.  
  1166. void  array_free(A)
  1167.   ARRAY  A ;
  1168. { register ANODE *p ;
  1169.   register int i ;
  1170.   ANODE *q ;
  1171.  
  1172.   for( i = 0 ; i < A_HASH_PRIME ; i++ )
  1173.   { p = A[i] ;
  1174.     while ( p )
  1175.     { /* check its not a deleted node */
  1176.       if ( p->sval )
  1177.       { free_STRING(p->sval) ;
  1178.         cell_destroy(p->cp) ;
  1179.         free_CELL(p->cp) ;
  1180.       }
  1181.  
  1182.       q = p ; p = p->link ;
  1183.       zfree( q, sizeof(ANODE)) ;
  1184.     }
  1185.   }
  1186.  
  1187.   zfree(A, sizeof(ANODE *) * A_HASH_PRIME ) ;
  1188. }
  1189. @//E*O*F mawk0.97/array.c//
  1190. chmod u=rw,g=r,o=r mawk0.97/array.c
  1191.  
  1192. echo x - mawk0.97/bi_funct.c
  1193. sed 's/^@//' > "mawk0.97/bi_funct.c" <<'@//E*O*F mawk0.97/bi_funct.c//'
  1194.  
  1195. /********************************************
  1196. bi_funct.c
  1197. copyright 1991, Michael D. Brennan
  1198.  
  1199. This is a source file for mawk, an implementation of
  1200. the Awk programming language as defined in
  1201. Aho, Kernighan and Weinberger, The AWK Programming Language,
  1202. Addison-Wesley, 1988.
  1203.  
  1204. See the accompaning file, LIMITATIONS, for restrictions
  1205. regarding modification and redistribution of this
  1206. program in source or binary form.
  1207. ********************************************/
  1208.  
  1209.  
  1210. /* $Log:    bi_funct.c,v $
  1211.  * Revision 2.3  91/04/17  06:34:00  brennan
  1212.  * index("","") should be 1 not 0 for consistency with match("",//)
  1213.  * 
  1214.  * Revision 2.2  91/04/09  12:38:42  brennan
  1215.  * added static to funct decls to satisfy STARDENT compiler
  1216.  * 
  1217.  * Revision 2.1  91/04/08  08:22:17  brennan
  1218.  * VERSION 0.97
  1219.  * 
  1220. */
  1221.  
  1222.  
  1223. #include "mawk.h"
  1224. #include "bi_funct.h"
  1225. #include "bi_vars.h"
  1226. #include "memory.h"
  1227. #include "init.h"
  1228. #include "files.h"
  1229. #include "fin.h"
  1230. #include "field.h"
  1231. #include "regexp.h"
  1232. #include "repl.h"
  1233. #include <math.h>
  1234.  
  1235. #ifndef  BSD43
  1236. void PROTO( srand48, (long) ) ;
  1237. double PROTO( drand48, (void) ) ;
  1238. #endif
  1239.  
  1240. /* statics */
  1241. static STRING *PROTO(gsub, (PTR, CELL *, char *, int) ) ;
  1242. static void  PROTO( fplib_err, (char *, double, char *) ) ;
  1243.  
  1244.  
  1245. /* global for the disassembler */
  1246. BI_REC  bi_funct[] = { /* info to load builtins */
  1247.  
  1248. "index" , bi_index , 2, 2 ,
  1249. "substr" , bi_substr, 2, 3,
  1250. "sprintf" , bi_sprintf, 1, 255,
  1251. "sin", bi_sin , 1, 1 ,
  1252. "cos", bi_cos , 1, 1 ,
  1253. "atan2", bi_atan2, 2,2,
  1254. "exp", bi_exp, 1, 1,
  1255. "log", bi_log , 1, 1 ,
  1256. "int", bi_int, 1, 1,
  1257. "sqrt", bi_sqrt, 1, 1,
  1258. "rand" , bi_rand, 0, 0,
  1259. "srand", bi_srand, 0, 1,
  1260. "close", bi_close, 1, 1,
  1261. "system", bi_system, 1, 1,
  1262.  
  1263. #if  DOS   /* this might go away, when pipes and system are added
  1264.           for DOS  */
  1265. "errmsg", bi_errmsg, 1, 1,
  1266. #endif
  1267.  
  1268. (char *) 0, (PF_CP) 0, 0, 0 } ;
  1269.  
  1270.  
  1271.  
  1272. void bi_funct_init()
  1273. { register BI_REC *p = bi_funct ;
  1274.   register SYMTAB *stp ;
  1275.  
  1276.   while ( p->name )
  1277.   { stp = insert( p->name ) ;
  1278.     stp->type = ST_BUILTIN ;
  1279.     stp->stval.bip = p++ ;
  1280.   }
  1281.   /* seed rand() off the clock */
  1282.   { CELL c ;
  1283.  
  1284.     c.type = 0 ; (void) bi_srand(&c) ;
  1285.   }
  1286.  
  1287.   stp = insert( "length") ;
  1288.   stp->type = ST_LENGTH ;
  1289. }
  1290.  
  1291. /**************************************************
  1292.  string builtins (except split (in split.c) and [g]sub (at end))
  1293.  **************************************************/
  1294.  
  1295. CELL *bi_length(sp)
  1296.   register  CELL *sp ;
  1297. { unsigned len ;
  1298.  
  1299.   if ( sp->type < C_STRING ) cast1_to_s(sp) ;
  1300.   len = string(sp)->len ;
  1301.  
  1302.   free_STRING( string(sp) ) ;
  1303.   sp->type = C_DOUBLE ;
  1304.   sp->dval = (double) len ;
  1305.  
  1306.   return sp ;
  1307. }
  1308.  
  1309. char *str_str(target, key , key_len)
  1310.   register char *target, *key ;
  1311.   unsigned key_len ;
  1312. { 
  1313.   switch( key_len )
  1314.   { case 0 :  return (char *) 0 ;
  1315.     case 1 :  return strchr( target, *key) ;
  1316.     case 2 :
  1317.         while ( target = strchr(target, *key) )
  1318.           if ( target[1] == key[1] )  return  target ;
  1319.           else target++ ;
  1320.         /*failed*/
  1321.         return (char *) 0 ;
  1322.   }
  1323.   key_len-- ;
  1324.   while ( target = strchr(target, *key) )
  1325.         if ( memcmp(target+1, key+1, key_len) == 0 ) return target ;
  1326.         else target++ ;
  1327.   /*failed*/
  1328.   return (char *) 0 ;
  1329. }
  1330.  
  1331.  
  1332.  
  1333. CELL *bi_index(sp)
  1334.   register CELL *sp ;
  1335. { register int idx ;
  1336.   unsigned len ;
  1337.   char *p ;
  1338.  
  1339.   sp-- ;
  1340.   if ( TEST2(sp) != TWO_STRINGS )
  1341.         cast2_to_s(sp) ;
  1342.  
  1343.   if ( len = string(sp+1)->len )
  1344.     idx = (p = str_str(string(sp)->str,string(sp+1)->str,len))
  1345.           ? p - string(sp)->str + 1 : 0 ;
  1346.  
  1347.   else  /* index of the empty string */
  1348.     idx = 1 ;
  1349.   
  1350.   free_STRING( string(sp) ) ;
  1351.   free_STRING( string(sp+1) ) ;
  1352.   sp->type = C_DOUBLE ;
  1353.   sp->dval = (double) idx ;
  1354.   return sp ;
  1355. }
  1356.  
  1357. /*  substr(s, i, n)
  1358.     if l = length(s)
  1359.     then get the characters
  1360.     from  max(1,i) to min(l,n-i-1) inclusive */
  1361.  
  1362. CELL *bi_substr(sp)
  1363.   CELL *sp ;
  1364. { int n_args, len ;
  1365.   register int i, n ;
  1366.   char *s ;    /* substr(s, i, n) */
  1367.   STRING *sval ;
  1368.  
  1369.   n_args = sp->type ;
  1370.   sp -= n_args ;
  1371.   if ( sp->type < C_STRING )  cast1_to_s(sp) ;
  1372.   s = (sval = string(sp)) -> str ;
  1373.  
  1374.   if ( n_args == 2 )  
  1375.   { n = 0x7fff  ;  /* essentially infinity */
  1376.     if ( sp[1].type != C_DOUBLE ) cast1_to_d(sp+1) ; 
  1377.   }
  1378.   else
  1379.   { if ( sp[1].type + sp[2].type != TWO_STRINGS ) cast2_to_d(sp+1) ;
  1380.     n = (int) sp[2].dval ;
  1381.   }
  1382.   i = (int) sp[1].dval - 1 ; /* i now indexes into string */
  1383.  
  1384.  
  1385.   if ( (len = strlen(s)) == 0 )  return sp ;
  1386.   /* get to here is s is not the null string */
  1387.   if ( i < 0 ) { n += i ; i = 0 ; }
  1388.   if ( n > len - i )  n = len - i ;
  1389.  
  1390.   if ( n <= 0 )  /* the null string */
  1391.   { free_STRING( sval ) ;
  1392.     sp->ptr = (PTR) &null_str ;
  1393.     null_str.ref_cnt++ ;
  1394.   }
  1395.   else  /* got something */
  1396.   { 
  1397.     sp->ptr = (PTR) new_STRING((char *)0, n) ;
  1398.     (void) memcpy(string(sp)->str, s+i, n) ;
  1399.     string(sp)->str[n] = 0 ;
  1400.   }
  1401.   return sp ;
  1402. } 
  1403.  
  1404. /*
  1405.   match(s,r)
  1406.   sp[0] holds s, sp[-1] holds r
  1407. */
  1408.  
  1409. CELL *bi_match(sp)
  1410.   register CELL *sp ;
  1411. { double d ;
  1412.   char *p ;
  1413.   unsigned length ;
  1414.  
  1415.   if ( sp->type != C_RE )  cast_to_RE(sp) ;
  1416.   if ( (--sp)->type < C_STRING )  cast1_to_s(sp) ;
  1417.  
  1418.   if ( p = REmatch(string(sp)->str, (sp+1)->ptr, &length) )
  1419.       d = (double) ( p - string(sp)->str + 1 ) ;
  1420.   else  d = 0.0 ;
  1421.  
  1422.   cell_destroy( & bi_vars[RSTART] ) ;
  1423.   cell_destroy( & bi_vars[RLENGTH] ) ;
  1424.   bi_vars[RSTART].type = C_DOUBLE ;
  1425.   bi_vars[RSTART].dval = d ;
  1426.   bi_vars[RLENGTH].type = C_DOUBLE ;
  1427.   bi_vars[RLENGTH].dval = (double) length ;
  1428.  
  1429.   free_STRING(string(sp)) ;
  1430.     
  1431.   sp->type = C_DOUBLE ;  sp->dval = d ;
  1432.   return sp ;
  1433. }
  1434.  
  1435.  
  1436. /************************************************
  1437.   arithemetic builtins
  1438.  ************************************************/
  1439.  
  1440. static void fplib_err( fname, val, error)
  1441.   char *fname ;
  1442.   double val ;
  1443.   char *error ;
  1444. {
  1445.   rt_error("%s(%g) : %s" , fname, val, error) ;
  1446. }
  1447.  
  1448.  
  1449. CELL *bi_sin(sp)
  1450.   register CELL *sp ;
  1451. { 
  1452. #if ! STDC_MATHERR
  1453.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1454.   sp->dval = sin( sp->dval ) ;
  1455.   return sp ;
  1456. #else
  1457.   double x ;
  1458.  
  1459.   errno = 0 ;
  1460.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1461.   x = sp->dval ;
  1462.   sp->dval = sin( sp->dval ) ;
  1463.   if ( errno )  fplib_err("sin", x, "loss of precision") ;
  1464.   return sp ;
  1465. #endif
  1466. }
  1467.  
  1468. CELL *bi_cos(sp)
  1469.   register CELL *sp ;
  1470. { 
  1471. #if ! STDC_MATHERR
  1472.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1473.   sp->dval = cos( sp->dval ) ;
  1474.   return sp ;
  1475. #else
  1476.   double x ;
  1477.  
  1478.   errno = 0 ;
  1479.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1480.   x = sp->dval ;
  1481.   sp->dval = cos( sp->dval ) ;
  1482.   if ( errno )  fplib_err("cos", x, "loss of precision") ;
  1483.   return sp ;
  1484. #endif
  1485. }
  1486.  
  1487. CELL *bi_atan2(sp)
  1488.   register CELL *sp ;
  1489. { 
  1490. #if  !  STDC_MATHERR
  1491.   sp-- ;
  1492.   if ( TEST2(sp) != TWO_DOUBLES ) cast2_to_d(sp) ;
  1493.   sp->dval = atan2(sp->dval, (sp+1)->dval) ;
  1494.   return sp ;
  1495. #else
  1496.  
  1497.   errno = 0 ;
  1498.   sp-- ;
  1499.   if ( TEST2(sp) != TWO_DOUBLES ) cast2_to_d(sp) ;
  1500.   sp->dval = atan2(sp->dval, (sp+1)->dval) ;
  1501.   if ( errno ) rt_error("atan2(0,0) : domain error") ;
  1502.   return sp ;
  1503. #endif
  1504. }
  1505.  
  1506. CELL *bi_log(sp)
  1507.   register CELL *sp ;
  1508. { 
  1509. #if ! STDC_MATHERR
  1510.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1511.   sp->dval = log( sp->dval ) ;
  1512.   return sp ;
  1513. #else
  1514.   double  x ;
  1515.  
  1516.   errno = 0 ;
  1517.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1518.   x = sp->dval ;
  1519.   sp->dval = log( sp->dval ) ;
  1520.   if ( errno )  fplib_err("log", x, "domain error") ;
  1521.   return sp ;
  1522. #endif
  1523. }
  1524.  
  1525. CELL *bi_exp(sp)
  1526.   register CELL *sp ;
  1527. { 
  1528. #if  ! STDC_MATHERR
  1529.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1530.   sp->dval = exp(sp->dval) ;
  1531.   return sp ;
  1532. #else
  1533.   double  x ;
  1534.  
  1535.   errno = 0 ;
  1536.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1537.   x = sp->dval ;
  1538.   sp->dval = exp(sp->dval) ;
  1539.   if ( errno && sp->dval)  fplib_err("exp", x, "overflow") ;
  1540.      /* on underflow sp->dval==0, ignore */
  1541.   return sp ;
  1542. #endif
  1543. }
  1544.  
  1545. CELL *bi_int(sp)
  1546.   register CELL *sp ;
  1547. { if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1548.   sp->dval = sp->dval >= 0.0 ? floor( sp->dval ) : ceil(sp->dval)  ;
  1549.   return sp ;
  1550. }
  1551.  
  1552. CELL *bi_sqrt(sp)
  1553.   register CELL *sp ;
  1554. { 
  1555. #if  ! STDC_MATHERR
  1556.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1557.   sp->dval = sqrt( sp->dval ) ;
  1558.   return sp ;
  1559. #else
  1560.   double x ;
  1561.  
  1562.   errno = 0 ;
  1563.   if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1564.   x = sp->dval ;
  1565.   sp->dval = sqrt( sp->dval ) ;
  1566.   if ( errno )  fplib_err("sqrt", x, "domain error") ;
  1567.   return sp ;
  1568. #endif
  1569. }
  1570.  
  1571. #ifdef  __TURBOC__
  1572. long  biostime(int, long) ;
  1573. #define  time(x)  (biostime(0,0L)<<4)
  1574. #else
  1575. #include <sys/types.h>
  1576.  
  1577. #if 0
  1578. #ifndef  STARDENT
  1579. #include <sys/timeb.h>
  1580. #endif
  1581. #endif
  1582.  
  1583. #endif
  1584.  
  1585. CELL *bi_srand(sp)
  1586.   register CELL *sp ;
  1587. { register long l ; 
  1588.   void srand48() ;
  1589.  
  1590.   if ( sp-- -> type )  /* user seed */
  1591.   { if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  1592.     l = (long) sp->dval ; }
  1593.   else
  1594.   { l = (long) time( (time_t *) 0 ) ;
  1595.     (++sp)->type = C_DOUBLE ;
  1596.     sp->dval = (double) l ;
  1597.   }
  1598.   srand48(l) ;
  1599.   return sp ;
  1600. }
  1601.     
  1602. CELL *bi_rand(sp)
  1603.   register CELL *sp ;
  1604. { 
  1605.  
  1606.   (++sp)->type = C_DOUBLE ;
  1607.   sp->dval = drand48() ;
  1608.   return sp ;
  1609. }
  1610.  
  1611. /*************************************************
  1612.  miscellaneous builtins
  1613.  close, system and getline
  1614.  *************************************************/
  1615.  
  1616. CELL *bi_close(sp)
  1617.   register CELL *sp ;
  1618. { int x ;
  1619.  
  1620.   if ( sp->type < C_STRING ) cast1_to_s(sp) ;
  1621.   x = file_close( (STRING *) sp->ptr) ;
  1622.   free_STRING( string(sp) ) ;
  1623.   sp->type = C_DOUBLE ;
  1624.   sp->dval = (double) x ;
  1625.   return sp ;
  1626. }
  1627.  
  1628. #if   ! DOS
  1629. CELL *bi_system(sp)
  1630.   CELL *sp ;
  1631. { int pid ;
  1632.   unsigned ret_val ;
  1633.  
  1634.   if ( !shell ) shell = (shell = getenv("SHELL")) ? shell : "/bin/sh" ;
  1635.   if ( sp->type < C_STRING ) cast1_to_s(sp) ;
  1636.  
  1637.   switch( pid = fork() )
  1638.   { case -1 :  /* fork failed */
  1639.  
  1640.        errmsg(errno, "could not create a new process") ;
  1641.        ret_val = 128 ;
  1642.        break ;
  1643.  
  1644.     case  0  :  /* the child */
  1645.        (void) execl(shell, shell, "-c", string(sp)->str, (char *) 0) ;
  1646.        /* if get here, execl() failed */
  1647.        errmsg(errno, "execute of %s failed", shell) ;
  1648.        fflush(stderr) ;
  1649.        _exit(128) ;
  1650.  
  1651.     default   :  /* wait for the child */
  1652.        ret_val = wait_for(pid) ;
  1653.        if ( ret_val & 0xff ) ret_val = 128 ;
  1654.        else  ret_val = (ret_val & 0xff00) >> 8 ;
  1655.        break ;
  1656.   }
  1657.  
  1658.   cell_destroy(sp) ;
  1659.   sp->type = C_DOUBLE ;
  1660.   sp->dval = (double) ret_val ;
  1661.   return sp ;
  1662. }
  1663.  
  1664. #else   /*  DOS   */
  1665.  
  1666. CELL *bi_system( sp )
  1667.   register CELL *sp ;
  1668. { rt_error("no system call in MsDos --yet") ;
  1669.   return sp ;
  1670. }
  1671.  
  1672. /* prints errmsgs for DOS  */
  1673. CELL *bi_errmsg(sp)
  1674.   register CELL *sp ;
  1675. {
  1676.   cast1_to_s(sp) ;
  1677.   fprintf(stderr, "%s\n", string(sp)->str) ;
  1678.   free_STRING(string(sp)) ;
  1679.   sp->type = C_DOUBLE ;
  1680.   sp->dval = 0.0 ;
  1681.   return sp ;
  1682. }
  1683. #endif
  1684.  
  1685.  
  1686. /*  getline()  */
  1687.  
  1688. /*  if type == 0 :  stack is 0 , target address
  1689.  
  1690.     if type == F_IN : stack is F_IN, expr(filename), target address
  1691.  
  1692.     if type == PIPE_IN : stack is PIPE_IN, target address, expr(pipename)
  1693. */
  1694.  
  1695. CELL *bi_getline(sp)
  1696.   register CELL *sp ;
  1697. { 
  1698.   CELL tc , *cp ;
  1699.   char *p ;
  1700.   unsigned len ;
  1701.   FIN *fin_p ;
  1702.  
  1703.  
  1704.   switch( sp->type )
  1705.   { 
  1706.     case 0 :
  1707.         sp-- ;
  1708.         if ( main_fin == (FIN *) -1 && ! open_main() )
  1709.                 goto open_failure ;
  1710.     
  1711.         if ( ! main_fin || !(p = FINgets(main_fin, &len)) )
  1712.                 goto  eof ;
  1713.  
  1714.         cp = (CELL *) sp->ptr ;
  1715.         if ( TEST2(bi_vars+NR) != TWO_DOUBLES ) cast2_to_d(bi_vars+NR) ;
  1716.         bi_vars[NR].dval += 1.0 ;
  1717.         bi_vars[FNR].dval += 1.0 ;
  1718.         break ;
  1719.  
  1720.     case  F_IN :
  1721.         sp-- ;
  1722.         if ( sp->type < C_STRING ) cast1_to_s(sp) ;
  1723.         fin_p = (FIN *) file_find(sp->ptr, F_IN) ;
  1724.         free_STRING(string(sp) ) ;
  1725.         sp-- ;
  1726.  
  1727.         if ( ! fin_p )   goto open_failure ;
  1728.         if ( ! (p = FINgets(fin_p, &len)) )  goto eof ; 
  1729.         cp = (CELL *) sp->ptr ;
  1730.         break ;
  1731.  
  1732.     case PIPE_IN :
  1733.         sp -= 2 ;
  1734.         if ( sp->type < C_STRING ) cast1_to_s(sp) ;
  1735.         fin_p = (FIN *) file_find(sp->ptr, PIPE_IN) ;
  1736.         free_STRING(string(sp)) ;
  1737.  
  1738.         if ( ! fin_p )   goto open_failure ;
  1739.         if ( ! (p = FINgets(fin_p, &len)) )  goto eof ; 
  1740.         cp = (CELL *) (sp+1)->ptr ;
  1741.         break ;
  1742.  
  1743.     default : bozo("type in bi_getline") ;
  1744.  
  1745.   }
  1746.  
  1747.   /* we've read a line , store it */
  1748.  
  1749.     if ( len == 0 )
  1750.     { tc.type = C_STRING ; 
  1751.       tc.ptr = (PTR) &null_str ; 
  1752.       null_str.ref_cnt++ ;
  1753.     }
  1754.     else
  1755.     { tc.type = C_MBSTRN ;
  1756.       tc.ptr = (PTR) new_STRING((char *) 0, len) ;
  1757.       (void) memcpy( string(&tc)->str, p, len) ;
  1758.     }
  1759.  
  1760.     if ( cp  >= field && cp < field+NUM_FIELDS )
  1761.            field_assign(cp-field, &tc) ;
  1762.     else
  1763.     { cell_destroy(cp) ;
  1764.       (void) cellcpy(cp, &tc) ;
  1765.     }
  1766.  
  1767.     cell_destroy(&tc) ;
  1768.  
  1769.   sp->dval = 1.0  ;  goto done ;
  1770.  
  1771. open_failure :
  1772.   sp->dval = -1.0  ; goto done ;
  1773.  
  1774. eof :
  1775.   sp->dval = 0.0  ;  /* fall thru to done  */
  1776.  
  1777. done :
  1778.   sp->type = C_DOUBLE  ;
  1779.   return sp ;
  1780. }
  1781.  
  1782. /**********************************************
  1783.  sub() and gsub()
  1784.  **********************************************/
  1785.  
  1786. /* entry:  sp[0] = address of CELL to sub on
  1787.            sp[-1] = substitution CELL
  1788.            sp[-2] = regular expression to match
  1789. */
  1790.  
  1791. CELL *bi_sub( sp )
  1792.   register CELL *sp ;
  1793. { CELL *cp ; /* pointer to the replacement target */
  1794.   CELL tc ;  /* build the new string here */
  1795.   CELL sc ;  /* copy of the target CELL */
  1796.   char *front, *middle, *back ; /* pieces */
  1797.   unsigned front_len, middle_len, back_len ;
  1798.  
  1799.   sp -= 2 ;
  1800.   if ( sp->type != C_RE )  cast_to_RE(sp) ;
  1801.   if ( sp[1].type != C_REPL && sp[1].type != C_REPLV )
  1802.               cast_to_REPL(sp+1) ;
  1803.   cp = (CELL *) (sp+2)->ptr ;
  1804.   /* make a copy of the target, because we won't change anything
  1805.      including type unless the match works */
  1806.   (void) cellcpy(&sc, cp) ;
  1807.   if ( sc.type < C_STRING ) cast1_to_s(&sc) ;
  1808.   front = string(&sc)->str ;
  1809.  
  1810.   if ( middle = REmatch(front, sp->ptr, &middle_len) )
  1811.   { 
  1812.     front_len = middle - front ;
  1813.     back = middle + middle_len ; 
  1814.     back_len = string(&sc)->len - front_len - middle_len ;
  1815.  
  1816.     if ( (sp+1)->type == C_REPLV ) 
  1817.     { STRING *sval = new_STRING((char *) 0, middle_len) ;
  1818.  
  1819.       (void) memcpy(sval->str, middle, middle_len) ;
  1820.       (void) replv_to_repl(sp+1, sval) ;
  1821.       free_STRING(sval) ;
  1822.     }
  1823.  
  1824.     tc.type = C_STRING ;
  1825.     tc.ptr = (PTR) new_STRING((char *) 0, 
  1826.              front_len + string(sp+1)->len + back_len ) ;
  1827.  
  1828.     { char *p = string(&tc)->str ;
  1829.  
  1830.       if ( front_len )
  1831.       { (void) memcpy(p, front, front_len) ;
  1832.         p += front_len ;
  1833.       }
  1834.       if ( string(sp+1)->len )
  1835.       { (void) memcpy(p, string(sp+1)->str, string(sp+1)->len) ;
  1836.         p += string(sp+1)->len ;
  1837.       }
  1838.       if ( back_len )  (void) memcpy(p, back, back_len) ;
  1839.     }
  1840.  
  1841.     if ( cp  >= field && cp < field+NUM_FIELDS )
  1842.            field_assign(cp-field, &tc) ;
  1843.     else
  1844.     { cell_destroy(cp) ;
  1845.       (void) cellcpy(cp, &tc) ;
  1846.     }
  1847.  
  1848.     free_STRING(string(&tc)) ;
  1849.   }
  1850.  
  1851.   free_STRING(string(&sc)) ;
  1852.   repl_destroy(sp+1) ;
  1853.   sp->type = C_DOUBLE ;
  1854.   sp->dval = middle != (char *) 0 ? 1.0 : 0.0 ;
  1855.   return sp ;
  1856. }
  1857.  
  1858. static  unsigned repl_cnt ;  /* number of global replacements */
  1859.  
  1860. /* recursive global subsitution 
  1861.    dealing with empty matches makes this mildly painful
  1862. */
  1863.  
  1864. static STRING *gsub( re, repl, target, flag)
  1865.   PTR  re ;
  1866.   CELL *repl ;  /* always of type REPL or REPLV */
  1867.   char *target ;
  1868.   int flag ; /* if on, match of empty string at front is OK */
  1869. { char *front, *middle ;
  1870.   STRING *back ;
  1871.   unsigned front_len, middle_len ;
  1872.   STRING  *ret_val ;
  1873.   CELL xrepl ; /* a copy of repl so we can change repl */
  1874.  
  1875.   if ( ! (middle = REmatch(target, re, &middle_len)) )
  1876.       return  new_STRING(target) ; /* no match */
  1877.  
  1878.   (void) cellcpy(&xrepl, repl) ;
  1879.  
  1880.   if ( !flag && middle_len == 0 && middle == target ) 
  1881.   { /* match at front that's not allowed */
  1882.  
  1883.     if ( *target == 0 )  /* target is empty string */
  1884.     { null_str.ref_cnt++ ;
  1885.       return & null_str ;
  1886.     }
  1887.     else
  1888.     { char xbuff[2] ;
  1889.  
  1890.       front_len = 0 ;
  1891.       /* make new repl with target[0] */
  1892.       repl_destroy(repl) ;
  1893.       xbuff[0] = *target++ ;  xbuff[1] = 0 ;
  1894.       repl->type = C_REPL ;
  1895.       repl->ptr = (PTR) new_STRING( xbuff ) ;
  1896.       back = gsub(re, &xrepl, target, 1) ;
  1897.     }
  1898.   }
  1899.   else  /* a match that counts */
  1900.   { repl_cnt++ ;
  1901.  
  1902.     front = target ;
  1903.     front_len = middle - target ;
  1904.  
  1905.     if ( *middle == 0 )  /* matched back of target */
  1906.     { back = &null_str ; null_str.ref_cnt++ ; }
  1907.     else back = gsub(re, &xrepl, middle + middle_len, 0) ;
  1908.       
  1909.     /* patch the &'s if needed */
  1910.     if ( repl->type == C_REPLV )
  1911.     { STRING *sval = new_STRING((char *) 0, middle_len) ;
  1912.  
  1913.       (void) memcpy(sval->str, middle, middle_len) ;
  1914.       (void) replv_to_repl(repl, sval) ;
  1915.       free_STRING(sval) ;
  1916.     }
  1917.   }
  1918.  
  1919.   /* put the three pieces together */
  1920.   ret_val = new_STRING((char *)0,
  1921.               front_len + string(repl)->len + back->len); 
  1922.   { char *p = ret_val->str ;
  1923.  
  1924.     if ( front_len )
  1925.     { (void) memcpy(p, front, front_len) ; p += front_len ; }
  1926.     if ( string(repl)->len )
  1927.     { (void) memcpy(p, string(repl)->str, string(repl)->len) ;
  1928.       p += string(repl)->len ;
  1929.     }
  1930.     if ( back->len ) (void) memcpy(p, back->str, back->len) ;
  1931.   }
  1932.  
  1933.   /* cleanup, repl is freed by the caller */
  1934.   repl_destroy(&xrepl) ;
  1935.   free_STRING(back) ;
  1936.  
  1937.   return ret_val ;
  1938. }
  1939.  
  1940. /* set up for call to gsub() */
  1941. CELL *bi_gsub( sp )
  1942.   register CELL *sp ;
  1943. { CELL *cp ;  /* pts at the replacement target */
  1944.   CELL sc  ;  /* copy of replacement target */
  1945.   CELL tc  ;  /* build the result here */
  1946.  
  1947.   sp -= 2 ;
  1948.   if ( sp->type != C_RE ) cast_to_RE(sp) ;
  1949.   if ( (sp+1)->type != C_REPL && (sp+1)->type != C_REPLV )
  1950.           cast_to_REPL(sp+1) ;
  1951.  
  1952.   (void) cellcpy(&sc, cp = (CELL *)(sp+2)->ptr) ;
  1953.   if ( sc.type < C_STRING ) cast1_to_s(&sc) ;
  1954.  
  1955.   repl_cnt = 0 ;
  1956.   tc.ptr = (PTR) gsub(sp->ptr, sp+1, string(&sc)->str, 1) ;
  1957.  
  1958.   if ( repl_cnt )
  1959.   { tc.type = C_STRING ;
  1960.  
  1961.     if ( cp >= field && cp < field + NUM_FIELDS )
  1962.         field_assign(cp-field, &tc) ;
  1963.     else
  1964.     { cell_destroy(cp) ; (void) cellcpy(cp, &tc) ; }
  1965.   }
  1966.  
  1967.   /* cleanup */
  1968.   free_STRING(string(&sc)) ; free_STRING(string(&tc)) ;
  1969.   repl_destroy(sp+1) ;
  1970.  
  1971.   sp->type = C_DOUBLE ;
  1972.   sp->dval = (double) repl_cnt ;
  1973.   return sp ;
  1974. }
  1975. @//E*O*F mawk0.97/bi_funct.c//
  1976. chmod u=rw,g=r,o=r mawk0.97/bi_funct.c
  1977.  
  1978. echo x - mawk0.97/bi_funct.h
  1979. sed 's/^@//' > "mawk0.97/bi_funct.h" <<'@//E*O*F mawk0.97/bi_funct.h//'
  1980.  
  1981. /********************************************
  1982. bi_funct.h
  1983. copyright 1991, Michael D. Brennan
  1984.  
  1985. This is a source file for mawk, an implementation of
  1986. the Awk programming language as defined in
  1987. Aho, Kernighan and Weinberger, The AWK Programming Language,
  1988. Addison-Wesley, 1988.
  1989.  
  1990. See the accompaning file, LIMITATIONS, for restrictions
  1991. regarding modification and redistribution of this
  1992. program in source or binary form.
  1993. ********************************************/
  1994.  
  1995.  
  1996. /* $Log:    bi_funct.h,v $
  1997.  * Revision 2.2  91/04/22  08:00:13  brennan
  1998.  * prototype for bi_errmsg() under DOS
  1999.  * 
  2000.  * Revision 2.1  91/04/08  08:22:20  brennan
  2001.  * VERSION 0.97
  2002.  * 
  2003. */
  2004.  
  2005. #ifndef  BI_FUNCT_H
  2006. #define  BI_FUNCT_H  1
  2007.  
  2008. #include "symtype.h"
  2009.  
  2010. extern BI_REC  bi_funct[] ;
  2011.  
  2012. void PROTO(bi_init, (void) ) ;
  2013.  
  2014. /* builtin string functions */
  2015. CELL *PROTO( bi_print, (CELL *) ) ;
  2016. CELL *PROTO( bi_printf, (CELL *) ) ;
  2017. CELL *PROTO( bi_length, (CELL *) ) ;
  2018. CELL *PROTO( bi_index, (CELL *) ) ;
  2019. CELL *PROTO( bi_substr, (CELL *) ) ;
  2020. CELL *PROTO( bi_sprintf, (CELL *) ) ;
  2021. CELL *PROTO( bi_split, (CELL *) ) ;
  2022. CELL *PROTO( bi_match, (CELL *) ) ;
  2023. CELL *PROTO( bi_getline, (CELL *) ) ;
  2024. CELL *PROTO( bi_sub, (CELL *) ) ;
  2025. CELL *PROTO( bi_gsub, (CELL *) ) ;
  2026.  
  2027. /* builtin arith functions */
  2028. CELL *PROTO( bi_sin, (CELL *) ) ;
  2029. CELL *PROTO( bi_cos, (CELL *) ) ;
  2030. CELL *PROTO( bi_atan2, (CELL *) ) ;
  2031. CELL *PROTO( bi_log, (CELL *) ) ;
  2032. CELL *PROTO( bi_exp, (CELL *) ) ;
  2033. CELL *PROTO( bi_int, (CELL *) ) ;
  2034. CELL *PROTO( bi_sqrt, (CELL *) ) ;
  2035. CELL *PROTO( bi_srand, (CELL *) ) ;
  2036. CELL *PROTO( bi_rand, (CELL *) ) ;
  2037.  
  2038. /* other builtins */
  2039. CELL *PROTO( bi_close, (CELL *) ) ;
  2040. CELL *PROTO( bi_system, (CELL *) ) ;
  2041.  
  2042. #if  DOS
  2043. CELL *PROTO(bi_errmsg, (CELL *) ) ;
  2044. #endif
  2045.  
  2046. #endif  /* BI_FUNCT_H  */
  2047.  
  2048. @//E*O*F mawk0.97/bi_funct.h//
  2049. chmod u=rw,g=r,o=r mawk0.97/bi_funct.h
  2050.  
  2051. echo x - mawk0.97/bi_vars.c
  2052. sed 's/^@//' > "mawk0.97/bi_vars.c" <<'@//E*O*F mawk0.97/bi_vars.c//'
  2053.  
  2054. /********************************************
  2055. bi_vars.c
  2056. copyright 1991, Michael D. Brennan
  2057.  
  2058. This is a source file for mawk, an implementation of
  2059. the Awk programming language as defined in
  2060. Aho, Kernighan and Weinberger, The AWK Programming Language,
  2061. Addison-Wesley, 1988.
  2062.  
  2063. See the accompaning file, LIMITATIONS, for restrictions
  2064. regarding modification and redistribution of this
  2065. program in source or binary form.
  2066. ********************************************/
  2067.  
  2068. /* $Log:    bi_vars.c,v $
  2069.  * Revision 2.1  91/04/08  08:22:22  brennan
  2070.  * VERSION 0.97
  2071.  * 
  2072. */
  2073.  
  2074.  
  2075. /* bi_vars.c */
  2076.  
  2077. #include "mawk.h"
  2078. #include "symtype.h"
  2079. #include "bi_vars.h"
  2080. #include "field.h"
  2081. #include "init.h"
  2082. #include "memory.h"
  2083.  
  2084. /* the builtin variables */
  2085. CELL  bi_vars[NUM_BI_VAR] ;
  2086.  
  2087. /* the order here must match the order in bi_vars.h */
  2088.  
  2089. static char *bi_var_names[NUM_BI_VAR] = {
  2090. "ARGC" ,
  2091. "FILENAME" ,
  2092. "NR" ,
  2093. "FNR" ,
  2094. "OFS" ,
  2095. "ORS" ,
  2096. "RLENGTH" ,
  2097. "RSTART" ,
  2098. "SUBSEP",
  2099. "VERSION"
  2100. } ;
  2101.  
  2102. /* insert the builtin vars in the hash table */
  2103.  
  2104. void  bi_vars_init()
  2105. { register int i ;
  2106.   register SYMTAB *s ;
  2107.  
  2108.   for ( i = 0 ; i < NUM_BI_VAR ; i++ )
  2109.   { s = insert( bi_var_names[i] ) ;
  2110.     s->type = ST_VAR ; s->stval.cp = bi_vars + i ;
  2111.     /* bi_vars[i].type = 0 which is C_NOINIT */
  2112.   }
  2113.   /* set defaults */
  2114.  
  2115.   bi_vars[FILENAME].type = C_STRING ;
  2116.   bi_vars[FILENAME].ptr = (PTR) new_STRING( "" ) ; 
  2117.  
  2118.   bi_vars[ OFS ].type = C_STRING ;
  2119.   bi_vars[OFS].ptr = (PTR) new_STRING( " " ) ;
  2120.   
  2121.   bi_vars[ ORS ].type = C_STRING ;
  2122.   bi_vars[ORS].ptr = (PTR) new_STRING( "\n" ) ;
  2123.  
  2124.   bi_vars[ SUBSEP ].type = C_STRING ;
  2125.   bi_vars[SUBSEP].ptr =  (PTR) new_STRING( "\034" ) ;
  2126.  
  2127.   bi_vars[VERSION].type = C_STRING ;
  2128.   bi_vars[VERSION].ptr = (PTR) new_STRING( VERSION_STRING ) ;
  2129.  
  2130.   bi_vars[NR].type = bi_vars[FNR].type = C_DOUBLE ;
  2131.   /* dval is already 0.0 */
  2132.  
  2133.   cell_zero.type = C_DOUBLE ;
  2134.   cell_one.type = C_DOUBLE ;
  2135.   cell_one.dval = 1.0 ;
  2136. }
  2137.  
  2138. CELL cell_zero ;
  2139. CELL cell_one ;
  2140. @//E*O*F mawk0.97/bi_vars.c//
  2141. chmod u=rw,g=r,o=r mawk0.97/bi_vars.c
  2142.  
  2143. echo x - mawk0.97/bi_vars.h
  2144. sed 's/^@//' > "mawk0.97/bi_vars.h" <<'@//E*O*F mawk0.97/bi_vars.h//'
  2145.  
  2146. /********************************************
  2147. bi_vars.h
  2148. copyright 1991, Michael D. Brennan
  2149.  
  2150. This is a source file for mawk, an implementation of
  2151. the Awk programming language as defined in
  2152. Aho, Kernighan and Weinberger, The AWK Programming Language,
  2153. Addison-Wesley, 1988.
  2154.  
  2155. See the accompaning file, LIMITATIONS, for restrictions
  2156. regarding modification and redistribution of this
  2157. program in source or binary form.
  2158. ********************************************/
  2159.  
  2160.  
  2161. /* $Log:    bi_vars.h,v $
  2162.  * Revision 2.1  91/04/08  08:26:30  brennan
  2163.  * VERSION 0.97
  2164.  * 
  2165. */
  2166.  
  2167.  
  2168. /* bi_vars.h */
  2169.  
  2170. #ifndef  BI_VARS_H
  2171. #define  BI_VARS_H  1
  2172.  
  2173. #define  VERSION_STRING  \
  2174.   "mawk 0.97 Mar 1991, Copyright (C) Michael D. Brennan"
  2175.  
  2176. /* If use different command line syntax for DOS
  2177.    mark that in VERSION  */
  2178.  
  2179. #if  DOS  &&  ! HAVE_REARGV
  2180. #undef   VERSION_STRING
  2181. #define  VERSION_STRING  \
  2182.   "mawk 0.97DOS Mar 1991, Copyright (C) Michael D. Brennan"
  2183. #endif
  2184.  
  2185. /* builtin variables NF, RS, FS, OFMT are stored
  2186.    internally in field[], so side effects of assignment can
  2187.    be handled 
  2188. */
  2189.  
  2190. #define  ARGC      0
  2191. #define  FILENAME  1
  2192. #define  NR        2  /* NR must be exactly one in front of FNR */
  2193. #define  FNR       3
  2194. #define  OFS       4
  2195. #define  ORS       5
  2196. #define  RLENGTH   6
  2197. #define  RSTART    7
  2198. #define  SUBSEP    8
  2199. #define  VERSION   9
  2200. #define  NUM_BI_VAR  10
  2201.  
  2202. extern CELL bi_vars[NUM_BI_VAR] ;
  2203.  
  2204.  
  2205. #endif
  2206. @//E*O*F mawk0.97/bi_vars.h//
  2207. chmod u=rw,g=r,o=r mawk0.97/bi_vars.h
  2208.  
  2209. echo x - mawk0.97/cast.c
  2210. sed 's/^@//' > "mawk0.97/cast.c" <<'@//E*O*F mawk0.97/cast.c//'
  2211.  
  2212. /********************************************
  2213. cast.c
  2214. copyright 1991, Michael D. Brennan
  2215.  
  2216. This is a source file for mawk, an implementation of
  2217. the Awk programming language as defined in
  2218. Aho, Kernighan and Weinberger, The AWK Programming Language,
  2219. Addison-Wesley, 1988.
  2220.  
  2221. See the accompaning file, LIMITATIONS, for restrictions
  2222. regarding modification and redistribution of this
  2223. program in source or binary form.
  2224. ********************************************/
  2225.  
  2226.  
  2227. /*   $Log:    cast.c,v $
  2228.  * Revision 2.1  91/04/08  08:22:44  brennan
  2229.  * VERSION 0.97
  2230.  * 
  2231. */
  2232.  
  2233.  
  2234. /*  cast.c  */
  2235.  
  2236. #include "mawk.h"
  2237. #include "field.h"
  2238. #include "memory.h"
  2239. #include "scan.h"
  2240. #include "repl.h"
  2241. #include <string.h>
  2242.  
  2243. int pow2[NUM_CELL_TYPES] = {1,2,4,8,16,32,64,128,256,512} ;
  2244.  
  2245. void cast1_to_d( cp )
  2246.   register CELL *cp ;
  2247. {
  2248.   switch( cp->type )
  2249.   { case C_NOINIT :  cp->dval = 0.0 ; break ;
  2250.  
  2251.     case C_DOUBLE :  return ;
  2252.  
  2253.     case C_MBSTRN :
  2254.     case C_STRING :  
  2255.           { register STRING *s = (STRING *) cp->ptr  ;
  2256.  
  2257. #if FPE_TRAPS  /* look for overflow error */
  2258.             errno = 0 ;
  2259.             cp->dval = strtod(s->str,(char **)0) ;
  2260.             if ( errno && cp->dval != 0.0 ) /* ignore underflow */
  2261.                 rt_error("overflow converting %s to double", s) ;
  2262. #else
  2263.             cp->dval = strtod(s->str,(char **)0) ;
  2264. #endif
  2265.             free_STRING(s) ;
  2266.           }
  2267.             break ;
  2268.  
  2269.     case C_STRNUM :  
  2270.       /* don't need to convert, but do need to free the STRING part */
  2271.             free_STRING( string(cp) ) ;
  2272.             break ;
  2273.  
  2274.  
  2275.     default :
  2276.             bozo("cast on bad type") ;
  2277.   }
  2278.   cp->type = C_DOUBLE ;
  2279. }
  2280.  
  2281. void cast2_to_d( cp )
  2282.   register CELL *cp ;
  2283. { register STRING *s ;
  2284.  
  2285.   switch( cp->type )
  2286.  
  2287.  
  2288.