Usenet 1994 January

home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8712 / mkmf / 2 < prev next >
SHell self-extracting ARchive | 1990-07-13 | 71.5 KB
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was processed as: SHell self-extracting ARchive (archive/shar).

You can browse this item here: 2
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Newsgroup Content `(archive/news)`	magic	Supported
`100%`	dexvert	SHell self-extracting ARchive `(archive/shar)`	magic	Supported
`100%`	dexvert	Internet Message Format `(text/imf)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	news, ASCII text	default
`100%`	checkBytes	Printable ASCII	default
`100%`	dexmagic	PrintFox/Pagefox WEAK	default
`100%`	perlTextCheck	Likely Text (Perl)	default
`100%`	siegfried	fmt/329 Shell Archive Format	default
`100%`	detectItEasy	Format: plain text[LF]	default (weak)
`100%`	xdgMime	message/news	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 68 75 73 63 |Path: uu|net!husc|
|00000010| 36 21 72 75 74 67 65 72 | 73 21 63 6c 79 64 65 21 |6!rutger|s!clyde!|
|00000020| 63 62 6f 73 67 64 21 6d | 61 6e 64 72 69 6c 6c 21 |cbosgd!m|andrill!|
|00000030| 68 61 6c 21 6e 63 6f 61 | 73 74 21 61 6c 6c 62 65 |hal!ncoa|st!allbe|
|00000040| 72 79 0a 46 72 6f 6d 3a | 20 6c 6a 7a 40 66 78 67 |ry.From:| ljz@fxg|
|00000050| 72 70 2e 55 55 43 50 20 | 28 4c 6c 6f 79 64 20 5a |rp.UUCP |(Lloyd Z|
|00000060| 75 73 6d 61 6e 29 0a 4e | 65 77 73 67 72 6f 75 70 |usman).N|ewsgroup|
|00000070| 73 3a 20 63 6f 6d 70 2e | 73 6f 75 72 63 65 73 2e |s: comp.|sources.|
|00000080| 6d 69 73 63 0a 53 75 62 | 6a 65 63 74 3a 20 22 6d |misc.Sub|ject: "m|
|00000090| 6b 6d 66 22 20 6d 61 6b | 65 66 69 6c 65 20 6d 61 |kmf" mak|efile ma|
|000000a0| 6b 65 72 20 28 32 20 6f | 66 20 32 29 0a 4d 65 73 |ker (2 o|f 2).Mes|
|000000b0| 73 61 67 65 2d 49 44 3a | 20 3c 36 39 30 34 40 6e |sage-ID:| <6904@n|
|000000c0| 63 6f 61 73 74 2e 55 55 | 43 50 3e 0a 44 61 74 65 |coast.UU|CP>.Date|
|000000d0| 3a 20 32 36 20 44 65 63 | 20 38 37 20 30 32 3a 34 |: 26 Dec| 87 02:4|
|000000e0| 30 3a 32 33 20 47 4d 54 | 0a 53 65 6e 64 65 72 3a |0:23 GMT|.Sender:|
|000000f0| 20 61 6c 6c 62 65 72 79 | 40 6e 63 6f 61 73 74 2e | allbery|@ncoast.|
|00000100| 55 55 43 50 0a 4c 69 6e | 65 73 3a 20 32 39 39 37 |UUCP.Lin|es: 2997|
|00000110| 0a 41 70 70 72 6f 76 65 | 64 3a 20 61 6c 6c 62 65 |.Approve|d: allbe|
|00000120| 72 79 40 6e 63 6f 61 73 | 74 2e 55 55 43 50 0a 58 |ry@ncoas|t.UUCP.X|
|00000130| 2d 41 72 63 68 69 76 65 | 3a 20 63 6f 6d 70 2e 73 |-Archive|: comp.s|
|00000140| 6f 75 72 63 65 73 2e 6d | 69 73 63 2f 6d 6b 6d 66 |ources.m|isc/mkmf|
|00000150| 2f 32 0a 0a 49 20 68 6f | 70 65 20 49 20 61 6d 20 |/2..I ho|pe I am |
|00000160| 70 6f 73 74 69 6e 67 20 | 74 68 69 73 20 74 6f 20 |posting |this to |
|00000170| 74 68 65 20 72 69 67 68 | 74 20 70 65 72 73 6f 6e |the righ|t person|
|00000180| 2e 20 20 49 20 61 73 73 | 75 6d 65 20 79 6f 75 20 |.  I ass|ume you |
|00000190| 61 72 65 0a 74 68 65 20 | 6d 6f 64 65 72 61 74 6f |are.the |moderato|
|000001a0| 72 20 6f 66 20 63 6f 6d | 70 2e 73 6f 75 72 63 65 |r of com|p.source|
|000001b0| 73 2e 6d 69 73 63 2e 0a | 0a 49 6e 20 61 20 72 65 |s.misc..|.In a re|
|000001c0| 63 65 6e 74 20 70 6f 73 | 74 69 6e 67 20 49 20 6d |cent pos|ting I m|
|000001d0| 65 6e 74 69 6f 6e 65 64 | 20 61 20 70 72 6f 67 72 |entioned| a progr|
|000001e0| 61 6d 20 63 61 6c 6c 65 | 64 20 22 6d 6b 6d 66 22 |am calle|d "mkmf"|
|000001f0| 20 77 68 69 63 68 0a 6d | 61 6b 65 73 20 6d 61 6b | which.m|akes mak|
|00000200| 65 66 69 6c 65 73 2e 20 | 20 4c 6f 74 73 20 6f 66 |efiles. | Lots of|
|00000210| 20 70 65 6f 70 6c 65 20 | 68 61 76 65 20 73 65 6e | people |have sen|
|00000220| 74 20 6d 65 20 6d 61 69 | 6c 20 72 65 71 75 65 73 |t me mai|l reques|
|00000230| 74 69 6e 67 0a 74 68 69 | 73 20 73 6f 66 74 77 61 |ting.thi|s softwa|
|00000240| 72 65 2c 20 73 6f 20 68 | 65 72 65 20 69 74 20 69 |re, so h|ere it i|
|00000250| 73 2e 20 20 49 6e 20 74 | 68 65 20 61 66 6f 72 65 |s.  In t|he afore|
|00000260| 6d 65 6e 74 69 6f 6e 65 | 64 20 70 6f 73 74 69 6e |mentione|d postin|
|00000270| 67 2c 0a 49 20 73 61 69 | 64 20 74 68 69 73 20 70 |g,.I sai|d this p|
|00000280| 72 6f 67 72 61 6d 20 69 | 73 20 22 6e 65 74 77 61 |rogram i|s "netwa|
|00000290| 72 65 22 2c 20 62 75 74 | 20 61 70 70 61 72 65 6e |re", but| apparen|
|000002a0| 74 6c 79 20 69 74 20 68 | 61 73 20 6e 6f 74 0a 62 |tly it h|as not.b|
|000002b0| 65 65 6e 20 70 6f 73 74 | 65 64 20 6f 6e 20 74 68 |een post|ed on th|
|000002c0| 65 20 6e 65 74 20 28 3f | 3f 3f 29 2e 20 20 49 74 |e net (?|??).  It|
|000002d0| 20 69 73 2c 20 68 6f 77 | 65 76 65 72 2c 20 64 65 | is, how|ever, de|
|000002e0| 66 69 6e 69 74 65 6c 79 | 20 69 6e 0a 74 68 65 20 |finitely| in.the |
|000002f0| 70 75 62 6c 69 63 20 64 | 6f 6d 61 69 6e 2e 0a 0a |public d|omain...|
|00000300| 49 74 20 63 6f 6d 65 73 | 20 69 6e 20 74 77 6f 20 |It comes| in two |
|00000310| 70 69 65 63 65 73 2e 20 | 20 48 65 72 65 20 69 73 |pieces. | Here is|
|00000320| 20 70 61 72 74 20 32 2e | 0a 0a 45 6e 6a 6f 79 2e | part 2.|..Enjoy.|
|00000330| 0a 0a 20 4c 6c 6f 79 64 | 20 5a 75 73 6d 61 6e 0a |.. Lloyd| Zusman.|
|00000340| 20 4d 61 73 74 65 72 20 | 42 79 74 65 20 53 6f 66 | Master |Byte Sof|
|00000350| 74 77 61 72 65 0a 20 4c | 6f 73 20 47 61 74 6f 73 |tware. L|os Gatos|
|00000360| 2c 20 43 61 6c 69 66 6f | 72 6e 69 61 09 20 20 20 |, Califo|rnia.   |
|00000370| 20 09 20 20 20 20 09 49 | 6e 74 65 72 6e 65 74 3a | .    .I|nternet:|
|00000380| 20 20 20 66 78 67 72 70 | 21 6c 6a 7a 40 61 6d 65 |   fxgrp|!ljz@ame|
|00000390| 73 2e 61 72 70 61 0a 20 | 22 57 65 20 74 61 6b 65 |s.arpa. |"We take|
|000003a0| 20 74 68 69 6e 67 73 20 | 77 65 6c 6c 20 69 6e 20 | things |well in |
|000003b0| 68 61 6e 64 2e 22 09 20 | 20 20 20 09 55 55 43 50 |hand.". |   .UUCP|
|000003c0| 3a 09 20 20 20 20 2e 2e | 2e 21 61 6d 65 73 21 66 |:.    ..|.!ames!f|
|000003d0| 78 67 72 70 21 6c 6a 7a | 0a 0a 23 2d 2d 2d 2d 2d |xgrp!ljz|..#-----|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 2d 2d 2d 43 75 74 | 20 48 65 72 65 2d 2d 2d |-----Cut| Here---|
|00000400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 0a | 23 21 20 2f 62 69 6e 2f |-------.|#! /bin/|
|00000420| 73 68 0a 23 20 54 68 69 | 73 20 69 73 20 61 20 73 |sh.# Thi|s is a s|
|00000430| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 20 20 52 |hell arc|hive.  R|
|00000440| 65 6d 6f 76 65 20 61 6e | 79 74 68 69 6e 67 20 62 |emove an|ything b|
|00000450| 65 66 6f 72 65 20 74 68 | 65 20 22 23 21 20 2f 62 |efore th|e "#! /b|
|00000460| 69 6e 2f 73 68 22 20 6c | 69 6e 65 2c 0a 23 20 74 |in/sh" l|ine,.# t|
|00000470| 68 65 6e 20 75 6e 70 61 | 63 6b 20 69 74 20 62 79 |hen unpa|ck it by|
|00000480| 20 73 61 76 69 6e 67 20 | 69 74 20 69 6e 20 61 20 | saving |it in a |
|00000490| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|000004a0| 22 73 68 20 66 69 6c 65 | 2e 22 0a 23 0a 23 20 57 |"sh file|.".#.# W|
|000004b0| 72 61 70 70 65 64 20 62 | 79 20 4c 6c 6f 79 64 20 |rapped b|y Lloyd |
|000004c0| 5a 75 73 6d 61 6e 20 28 | 6c 6a 7a 29 20 61 74 20 |Zusman (|ljz) at |
|000004d0| 66 78 67 72 70 20 6f 6e | 20 54 75 65 20 44 65 63 |fxgrp on| Tue Dec|
|000004e0| 20 32 32 20 31 32 3a 35 | 33 3a 33 36 20 31 39 38 | 22 12:5|3:36 198|
|000004f0| 37 0a 23 0a 23 20 75 6e | 70 61 63 6b 73 20 77 69 |7.#.# un|packs wi|
|00000500| 74 68 20 64 65 66 61 75 | 6c 74 20 70 65 72 6d 69 |th defau|lt permi|
|00000510| 73 73 69 6f 6e 73 0a 23 | 0a 23 20 43 6f 6e 74 65 |ssions.#|.# Conte|
|00000520| 6e 74 73 20 3a 20 73 72 | 63 2f 65 64 69 74 6d 66 |nts : sr|c/editmf|
|00000530| 2e 63 20 73 72 63 2f 67 | 65 74 63 77 70 2e 63 20 |.c src/g|etcwp.c |
|00000540| 73 72 63 2f 67 65 74 70 | 72 6f 6a 65 63 74 2e 63 |src/getp|roject.c|
|00000550| 20 73 72 63 2f 68 61 73 | 68 2e 63 0a 23 09 73 72 | src/has|h.c.#.sr|
|00000560| 63 2f 69 6f 6c 69 6e 2e | 63 20 73 72 63 2f 6d 61 |c/iolin.|c src/ma|
|00000570| 63 72 6f 2e 63 20 73 72 | 63 2f 6d 69 73 63 2e 63 |cro.c sr|c/misc.c|
|00000580| 20 73 72 63 2f 6d 75 73 | 74 66 6f 70 65 6e 2e 63 | src/mus|tfopen.c|
|00000590| 20 73 72 63 2f 6f 70 74 | 70 61 74 68 2e 63 0a 23 | src/opt|path.c.#|
|000005a0| 09 73 72 63 2f 70 61 74 | 68 63 61 74 2e 63 20 73 |.src/pat|hcat.c s|
|000005b0| 72 63 2f 70 61 74 68 68 | 65 61 64 2e 63 20 73 72 |rc/pathh|ead.c sr|
|000005c0| 63 2f 70 70 65 72 72 6f | 72 2e 63 20 73 72 63 2f |c/pperro|r.c src/|
|000005d0| 72 75 6c 65 2e 63 20 73 | 72 63 2f 73 6c 61 70 70 |rule.c s|rc/slapp|
|000005e0| 65 6e 64 2e 63 0a 23 09 | 73 72 63 2f 73 6c 69 6e |end.c.#.|src/slin|
|000005f0| 69 74 2e 63 20 73 72 63 | 2f 73 6c 73 6f 72 74 2e |it.c src|/slsort.|
|00000600| 63 20 73 72 63 2f 73 74 | 72 70 63 70 79 2e 63 20 |c src/st|rpcpy.c |
|00000610| 73 72 63 2f 73 74 72 73 | 61 76 2e 63 20 73 72 63 |src/strs|av.c src|
|00000620| 2f 73 75 66 66 69 78 2e | 63 0a 23 09 73 72 63 2f |/suffix.|c.#.src/|
|00000630| 75 73 61 67 65 2e 63 20 | 73 72 63 2f 77 61 72 6e |usage.c |src/warn|
|00000640| 2e 63 20 73 72 63 2f 77 | 61 72 6e 32 2e 63 20 73 |.c src/w|arn2.c s|
|00000650| 72 63 2f 77 61 72 6e 73 | 2e 63 20 73 72 63 2f 4d |rc/warns|.c src/M|
|00000660| 6b 6d 66 2e 68 0a 23 09 | 73 72 63 2f 64 65 66 61 |kmf.h.#.|src/defa|
|00000670| 75 6c 74 72 75 6c 2e 68 | 20 73 72 63 2f 64 65 66 |ultrul.h| src/def|
|00000680| 61 75 6c 74 73 66 78 2e | 68 20 73 72 63 2f 64 6c |aultsfx.|h src/dl|
|00000690| 69 73 74 2e 68 20 73 72 | 63 2f 67 65 74 61 72 67 |ist.h sr|c/getarg|
|000006a0| 2e 68 20 73 72 63 2f 68 | 61 73 68 2e 68 0a 23 09 |.h src/h|ash.h.#.|
|000006b0| 73 72 63 2f 6d 61 63 72 | 6f 2e 68 20 73 72 63 2f |src/macr|o.h src/|
|000006c0| 6e 75 6c 6c 2e 68 20 73 | 72 63 2f 70 61 74 68 2e |null.h s|rc/path.|
|000006d0| 68 20 73 72 63 2f 72 75 | 6c 65 2e 68 20 73 72 63 |h src/ru|le.h src|
|000006e0| 2f 73 63 63 73 69 64 2e | 68 20 73 72 63 2f 73 6c |/sccsid.|h src/sl|
|000006f0| 69 73 74 2e 68 0a 23 09 | 73 72 63 2f 73 70 6d 73 |ist.h.#.|src/spms|
|00000700| 2e 68 20 73 72 63 2f 73 | 75 66 66 69 78 2e 68 20 |.h src/s|uffix.h |
|00000710| 73 72 63 2f 73 79 73 74 | 65 6d 2e 68 20 73 72 63 |src/syst|em.h src|
|00000720| 2f 74 61 72 67 65 74 2e | 68 20 73 72 63 2f 79 65 |/target.|h src/ye|
|00000730| 73 6e 6f 2e 68 0a 23 09 | 73 72 63 2f 6f 4d 61 6b |sno.h.#.|src/oMak|
|00000740| 65 66 69 6c 65 20 78 2e | 4d 61 6b 65 66 69 6c 65 |efile x.|Makefile|
|00000750| 2f 74 2e 4d 61 6b 65 66 | 69 6c 65 20 78 2e 4d 61 |/t.Makef|ile x.Ma|
|00000760| 6b 65 66 69 6c 65 2f 4d | 61 6b 65 66 69 6c 65 0a |kefile/M|akefile.|
|00000770| 23 09 78 2e 4d 61 6b 65 | 66 69 6c 65 2f 6c 2e 4d |#.x.Make|file/l.M|
|00000780| 61 6b 65 66 69 6c 65 20 | 78 2e 4d 61 6b 65 66 69 |akefile |x.Makefi|
|00000790| 6c 65 2f 70 2e 4d 61 6b | 65 66 69 6c 65 0a 23 0a |le/p.Mak|efile.#.|
|000007a0| 69 66 20 60 74 65 73 74 | 20 21 20 2d 64 20 73 72 |if `test| ! -d sr|
|000007b0| 63 60 0a 74 68 65 6e 0a | 20 20 6d 6b 64 69 72 20 |c`.then.|  mkdir |
|000007c0| 73 72 63 0a 20 20 65 63 | 68 6f 20 22 6d 6b 64 69 |src.  ec|ho "mkdi|
|000007d0| 72 20 73 72 63 22 0a 66 | 69 0a 69 66 20 60 74 65 |r src".f|i.if `te|
|000007e0| 73 74 20 21 20 2d 73 20 | 73 72 63 2f 65 64 69 74 |st ! -s |src/edit|
|000007f0| 6d 66 2e 63 60 0a 74 68 | 65 6e 0a 65 63 68 6f 20 |mf.c`.th|en.echo |
|00000800| 22 78 20 2d 20 73 72 63 | 2f 65 64 69 74 6d 66 2e |"x - src|/editmf.|
|00000810| 63 22 0a 73 65 64 20 27 | 73 2f 5e 58 2f 2f 27 20 |c".sed '|s/^X//' |
|00000820| 3e 20 73 72 63 2f 65 64 | 69 74 6d 66 2e 63 20 3c |> src/ed|itmf.c <|
|00000830| 3c 20 27 40 5c 45 6e 64 | 5c 6f 66 5c 46 69 6c 65 |< '@\End|\of\File|
|00000840| 5c 27 0a 58 2f 2a 20 24 | 48 65 61 64 65 72 3a 20 |\'.X/* $|Header: |
|00000850| 65 64 69 74 6d 66 2e 63 | 2c 76 20 31 2e 34 20 38 |editmf.c|,v 1.4 8|
|00000860| 35 2f 30 35 2f 30 32 20 | 30 37 3a 35 31 3a 34 30 |5/05/02 |07:51:40|
|00000870| 20 6e 69 63 6b 6c 69 6e | 20 45 78 70 20 24 20 2a | nicklin| Exp $ *|
|00000880| 2f 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 41 75 74 68 |/.X.X/*.|X * Auth|
|00000890| 6f 72 3a 20 50 65 74 65 | 72 20 4a 2e 20 4e 69 63 |or: Pete|r J. Nic|
|000008a0| 6b 6c 69 6e 0a 58 20 2a | 2f 0a 58 23 69 6e 63 6c |klin.X *|/.X#incl|
|000008b0| 75 64 65 20 3c 63 74 79 | 70 65 2e 68 3e 0a 58 23 |ude <cty|pe.h>.X#|
|000008c0| 69 6e 63 6c 75 64 65 20 | 3c 73 69 67 6e 61 6c 2e |include |<signal.|
|000008d0| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 74 |h>.X#inc|lude <st|
|000008e0| 64 69 6f 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |dio.h>.X|#include|
|000008f0| 20 22 4d 6b 6d 66 2e 68 | 22 0a 58 23 69 6e 63 6c | "Mkmf.h|".X#incl|
|00000900| 75 64 65 20 22 64 6c 69 | 73 74 2e 68 22 0a 58 23 |ude "dli|st.h".X#|
|00000910| 69 6e 63 6c 75 64 65 20 | 22 68 61 73 68 2e 68 22 |include |"hash.h"|
|00000920| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 6d 61 63 72 |.X#inclu|de "macr|
|00000930| 6f 2e 68 22 0a 58 23 69 | 6e 63 6c 75 64 65 20 22 |o.h".X#i|nclude "|
|00000940| 6e 75 6c 6c 2e 68 22 0a | 58 23 69 6e 63 6c 75 64 |null.h".|X#includ|
|00000950| 65 20 22 73 6c 69 73 74 | 2e 68 22 0a 58 23 69 6e |e "slist|.h".X#in|
|00000960| 63 6c 75 64 65 20 22 73 | 79 73 74 65 6d 2e 68 22 |clude "s|ystem.h"|
|00000970| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 79 65 73 6e |.X#inclu|de "yesn|
|00000980| 6f 2e 68 22 0a 58 0a 58 | 73 74 61 74 69 63 20 63 |o.h".X.X|static c|
|00000990| 68 61 72 20 2a 4d 66 74 | 65 6d 70 3b 09 09 09 2f |har *Mft|emp;.../|
|000009a0| 2a 20 74 65 6d 70 6f 72 | 61 72 79 20 6d 61 6b 65 |* tempor|ary make|
|000009b0| 66 69 6c 65 20 2a 2f 0a | 58 0a 58 2f 2a 0a 58 20 |file */.|X.X/*.X |
|000009c0| 2a 20 65 64 69 74 6d 66 | 28 29 20 72 65 70 6c 61 |* editmf|() repla|
|000009d0| 63 65 73 20 6d 61 63 72 | 6f 20 64 65 66 69 6e 69 |ces macr|o defini|
|000009e0| 74 69 6f 6e 73 20 77 69 | 74 68 69 6e 20 61 20 6d |tions wi|thin a m|
|000009f0| 61 6b 65 66 69 6c 65 2e | 0a 58 20 2a 2f 0a 58 76 |akefile.|.X */.Xv|
|00000a00| 6f 69 64 0a 58 65 64 69 | 74 6d 66 28 6d 66 6e 61 |oid.Xedi|tmf(mfna|
|00000a10| 6d 65 2c 20 6d 66 70 61 | 74 68 29 0a 58 09 63 68 |me, mfpa|th).X.ch|
|00000a20| 61 72 20 2a 6d 66 6e 61 | 6d 65 3b 09 09 09 2f 2a |ar *mfna|me;.../*|
|00000a30| 20 6d 61 6b 65 66 69 6c | 65 20 6e 61 6d 65 20 2a | makefil|e name *|
|00000a40| 2f 0a 58 09 63 68 61 72 | 20 2a 6d 66 70 61 74 68 |/.X.char| *mfpath|
|00000a50| 3b 09 09 09 2f 2a 20 6d | 61 6b 65 66 69 6c 65 20 |;.../* m|akefile |
|00000a60| 74 65 6d 70 6c 61 74 65 | 20 70 61 74 68 6e 61 6d |template| pathnam|
|00000a70| 65 20 2a 2f 0a 58 7b 0a | 58 09 72 65 67 69 73 74 |e */.X{.|X.regist|
|00000a80| 65 72 20 63 68 61 72 20 | 2a 62 70 3b 09 09 2f 2a |er char |*bp;../*|
|00000a90| 20 62 75 66 66 65 72 20 | 70 6f 69 6e 74 65 72 20 | buffer |pointer |
|00000aa0| 2a 2f 0a 58 09 65 78 74 | 65 72 6e 20 63 68 61 72 |*/.X.ext|ern char|
|00000ab0| 20 49 4f 42 55 46 5b 5d | 3b 09 09 2f 2a 20 49 2f | IOBUF[]|;../* I/|
|00000ac0| 4f 20 62 75 66 66 65 72 | 20 6c 69 6e 65 20 2a 2f |O buffer| line */|
|00000ad0| 0a 58 09 65 78 74 65 72 | 6e 20 69 6e 74 20 44 45 |.X.exter|n int DE|
|00000ae0| 50 45 4e 44 3b 09 09 2f | 2a 20 64 65 70 65 6e 64 |PEND;../|* depend|
|00000af0| 65 6e 63 79 20 61 6e 61 | 6c 79 73 69 73 3f 20 2a |ency ana|lysis? *|
|00000b00| 2f 0a 58 09 65 78 74 65 | 72 6e 20 53 4c 49 53 54 |/.X.exte|rn SLIST|
|00000b10| 20 2a 45 58 54 4c 49 53 | 54 3b 09 09 2f 2a 20 65 | *EXTLIS|T;../* e|
|00000b20| 78 74 65 72 6e 61 6c 20 | 68 65 61 64 65 72 20 66 |xternal |header f|
|00000b30| 69 6c 65 20 6e 61 6d 65 | 20 6c 69 73 74 20 2a 2f |ile name| list */|
|00000b40| 0a 58 09 65 78 74 65 72 | 6e 20 53 4c 49 53 54 20 |.X.exter|n SLIST |
|00000b50| 2a 48 45 41 44 4c 49 53 | 54 3b 09 09 2f 2a 20 68 |*HEADLIS|T;../* h|
|00000b60| 65 61 64 65 72 20 66 69 | 6c 65 20 6e 61 6d 65 20 |eader fi|le name |
|00000b70| 6c 69 73 74 20 2a 2f 0a | 58 09 65 78 74 65 72 6e |list */.|X.extern|
|00000b80| 20 53 4c 49 53 54 20 2a | 4c 49 42 4c 49 53 54 3b | SLIST *|LIBLIST;|
|00000b90| 09 09 2f 2a 20 6c 69 62 | 72 61 72 79 20 70 61 74 |../* lib|rary pat|
|00000ba0| 68 6e 61 6d 65 20 6c 69 | 73 74 20 2a 2f 0a 58 09 |hname li|st */.X.|
|00000bb0| 65 78 74 65 72 6e 20 53 | 4c 49 53 54 20 2a 53 52 |extern S|LIST *SR|
|00000bc0| 43 4c 49 53 54 3b 09 09 | 2f 2a 20 73 6f 75 72 63 |CLIST;..|/* sourc|
|00000bd0| 65 20 66 69 6c 65 20 6e | 61 6d 65 20 6c 69 73 74 |e file n|ame list|
|00000be0| 20 2a 2f 0a 58 09 65 78 | 74 65 72 6e 20 48 41 53 | */.X.ex|tern HAS|
|00000bf0| 48 20 2a 4d 44 45 46 54 | 41 42 4c 45 3b 09 09 2f |H *MDEFT|ABLE;../|
|00000c00| 2a 20 6d 61 63 72 6f 20 | 64 65 66 69 6e 69 74 69 |* macro |definiti|
|00000c10| 6f 6e 20 74 61 62 6c 65 | 20 2a 2f 0a 58 09 63 68 |on table| */.X.ch|
|00000c20| 61 72 20 2a 66 69 6e 64 | 6d 61 63 72 6f 28 29 3b |ar *find|macro();|
|00000c30| 09 09 2f 2a 20 69 73 20 | 74 68 65 20 6c 69 6e 65 |../* is |the line|
|00000c40| 20 61 20 6d 61 63 72 6f | 20 64 65 66 69 6e 69 74 | a macro| definit|
|00000c50| 69 6f 6e 3f 20 2a 2f 0a | 58 09 63 68 61 72 20 2a |ion? */.|X.char *|
|00000c60| 67 65 74 6c 69 6e 28 29 | 3b 09 09 09 2f 2a 20 67 |getlin()|;.../* g|
|00000c70| 65 74 20 61 20 6c 69 6e | 65 20 66 72 6f 6d 20 69 |et a lin|e from i|
|00000c80| 6e 70 75 74 20 73 74 72 | 65 61 6d 20 2a 2f 0a 58 |nput str|eam */.X|
|00000c90| 09 63 68 61 72 20 2a 6d | 6b 74 65 6d 70 28 29 3b |.char *m|ktemp();|
|00000ca0| 09 09 09 2f 2a 20 6d 61 | 6b 65 20 66 69 6c 65 20 |.../* ma|ke file |
|00000cb0| 6e 61 6d 65 20 2a 2f 0a | 58 09 63 68 61 72 20 6d |name */.|X.char m|
|00000cc0| 6e 61 6d 5b 4d 41 43 52 | 4f 4e 41 4d 53 49 5a 45 |nam[MACR|ONAMSIZE|
|00000cd0| 5d 3b 09 2f 2a 20 6d 61 | 63 72 6f 20 6e 61 6d 65 |];./* ma|cro name|
|00000ce0| 20 62 75 66 66 65 72 20 | 2a 2f 0a 58 09 44 4c 49 | buffer |*/.X.DLI|
|00000cf0| 53 54 20 2a 64 6c 70 3b | 09 09 09 2f 2a 20 64 65 |ST *dlp;|.../* de|
|00000d00| 70 65 6e 64 65 6e 63 79 | 20 6c 69 73 74 20 2a 2f |pendency| list */|
|00000d10| 0a 58 09 44 4c 49 53 54 | 20 2a 6d 6b 64 65 70 65 |.X.DLIST| *mkdepe|
|00000d20| 6e 64 28 29 3b 09 09 2f | 2a 20 67 65 6e 65 72 61 |nd();../|* genera|
|00000d30| 74 65 20 6f 62 6a 65 63 | 74 2d 69 6e 63 6c 75 64 |te objec|t-includ|
|00000d40| 65 20 66 69 6c 65 20 64 | 65 70 73 20 2a 2f 0a 58 |e file d|eps */.X|
|00000d50| 09 46 49 4c 45 20 2a 69 | 66 70 3b 09 09 09 2f 2a |.FILE *i|fp;.../*|
|00000d60| 20 69 6e 70 75 74 20 73 | 74 72 65 61 6d 20 2a 2f | input s|tream */|
|00000d70| 0a 58 09 46 49 4c 45 20 | 2a 6d 75 73 74 66 6f 70 |.X.FILE |*mustfop|
|00000d80| 65 6e 28 29 3b 09 09 2f | 2a 20 6d 75 73 74 20 6f |en();../|* must o|
|00000d90| 70 65 6e 20 66 69 6c 65 | 20 6f 72 20 64 69 65 20 |pen file| or die |
|00000da0| 2a 2f 0a 58 09 46 49 4c | 45 20 2a 6f 66 70 3b 09 |*/.X.FIL|E *ofp;.|
|00000db0| 09 09 2f 2a 20 6f 75 74 | 70 75 74 20 73 74 72 65 |../* out|put stre|
|00000dc0| 61 6d 20 2a 2f 0a 58 09 | 48 41 53 48 42 4c 4b 20 |am */.X.|HASHBLK |
|00000dd0| 2a 68 74 62 3b 09 09 09 | 2f 2a 20 68 61 73 68 20 |*htb;...|/* hash |
|00000de0| 74 61 62 6c 65 20 62 6c | 6f 63 6b 20 2a 2f 0a 58 |table bl|ock */.X|
|00000df0| 09 48 41 53 48 42 4c 4b | 20 2a 68 74 6c 6f 6f 6b |.HASHBLK| *htlook|
|00000e00| 75 70 28 29 3b 09 09 2f | 2a 20 66 69 6e 64 20 68 |up();../|* find h|
|00000e10| 61 73 68 20 74 61 62 6c | 65 20 65 6e 74 72 79 20 |ash tabl|e entry |
|00000e20| 2a 2f 0a 58 09 69 6e 74 | 20 63 6c 65 61 6e 75 70 |*/.X.int| cleanup|
|00000e30| 28 29 3b 09 09 09 2f 2a | 20 72 65 6d 6f 76 65 20 |();.../*| remove |
|00000e40| 74 65 6d 70 6f 72 61 72 | 79 20 6d 61 6b 65 66 69 |temporar|y makefi|
|00000e50| 6c 65 20 61 6e 64 20 65 | 78 69 74 20 2a 2f 0a 58 |le and e|xit */.X|
|00000e60| 09 76 6f 69 64 20 64 6c | 70 72 69 6e 74 28 29 3b |.void dl|print();|
|00000e70| 09 09 09 2f 2a 20 70 72 | 69 6e 74 20 64 65 70 65 |.../* pr|int depe|
|00000e80| 6e 64 65 6e 63 79 20 6c | 69 73 74 20 2a 2f 0a 58 |ndency l|ist */.X|
|00000e90| 09 76 6f 69 64 20 70 75 | 72 67 63 6f 6e 74 69 6e |.void pu|rgcontin|
|00000ea0| 75 65 28 29 3b 09 09 2f | 2a 20 67 65 74 20 72 69 |ue();../|* get ri|
|00000eb0| 64 20 6f 66 20 63 6f 6e | 74 69 6e 75 61 74 69 6f |d of con|tinuatio|
|00000ec0| 6e 20 6c 69 6e 65 73 20 | 2a 2f 0a 58 09 76 6f 69 |n lines |*/.X.voi|
|00000ed0| 64 20 70 75 74 6d 61 63 | 72 6f 28 29 3b 09 09 2f |d putmac|ro();../|
|00000ee0| 2a 20 70 75 74 20 6d 61 | 63 72 6f 20 64 65 66 73 |* put ma|cro defs|
|00000ef0| 20 66 72 6f 6d 20 74 61 | 62 6c 65 20 2a 2f 0a 58 | from ta|ble */.X|
|00000f00| 09 76 6f 69 64 20 70 75 | 74 6c 69 6e 28 29 3b 09 |.void pu|tlin();.|
|00000f10| 09 09 2f 2a 20 70 75 74 | 20 61 20 6d 61 6b 65 66 |../* put| a makef|
|00000f20| 69 6c 65 20 6c 69 6e 65 | 20 2a 2f 0a 58 09 76 6f |ile line| */.X.vo|
|00000f30| 69 64 20 70 75 74 6f 62 | 6a 6d 61 63 72 6f 28 29 |id putob|jmacro()|
|00000f40| 3b 09 09 2f 2a 20 70 75 | 74 20 6f 62 6a 65 63 74 |;../* pu|t object|
|00000f50| 20 66 69 6c 65 20 6e 61 | 6d 65 20 6d 61 63 72 6f | file na|me macro|
|00000f60| 20 64 65 66 20 2a 2f 0a | 58 09 76 6f 69 64 20 70 | def */.|X.void p|
|00000f70| 75 74 73 6c 6d 61 63 72 | 6f 28 29 3b 09 09 2f 2a |utslmacr|o();../*|
|00000f80| 20 70 75 74 20 6d 61 63 | 72 6f 20 64 65 66 73 20 | put mac|ro defs |
|00000f90| 66 72 6f 6d 20 6c 69 6e | 6b 65 64 20 6c 69 73 74 |from lin|ked list|
|00000fa0| 20 2a 2f 0a 58 0a 58 09 | 69 66 70 20 3d 20 6d 75 | */.X.X.|ifp = mu|
|00000fb0| 73 74 66 6f 70 65 6e 28 | 6d 66 70 61 74 68 2c 20 |stfopen(|mfpath, |
|00000fc0| 22 72 22 29 3b 0a 58 09 | 4d 66 74 65 6d 70 20 3d |"r");.X.|Mftemp =|
|00000fd0| 20 6d 6b 74 65 6d 70 28 | 22 6d 6b 6d 66 58 58 58 | mktemp(|"mkmfXXX|
|00000fe0| 58 58 58 22 29 3b 0a 58 | 0a 58 09 73 69 67 6e 61 |XXX");.X|.X.signa|
|00000ff0| 6c 28 53 49 47 48 55 50 | 2c 20 63 6c 65 61 6e 75 |l(SIGHUP|, cleanu|
|00001000| 70 29 3b 0a 58 09 73 69 | 67 6e 61 6c 28 53 49 47 |p);.X.si|gnal(SIG|
|00001010| 49 4e 54 2c 20 63 6c 65 | 61 6e 75 70 29 3b 0a 58 |INT, cle|anup);.X|
|00001020| 09 73 69 67 6e 61 6c 28 | 53 49 47 51 55 49 54 2c |.signal(|SIGQUIT,|
|00001030| 20 63 6c 65 61 6e 75 70 | 29 3b 0a 58 0a 58 09 6f | cleanup|);.X.X.o|
|00001040| 66 70 20 3d 20 6d 75 73 | 74 66 6f 70 65 6e 28 4d |fp = mus|tfopen(M|
|00001050| 66 74 65 6d 70 2c 20 22 | 77 22 29 3b 0a 58 09 69 |ftemp, "|w");.X.i|
|00001060| 66 20 28 44 45 50 45 4e | 44 29 0a 58 09 09 7b 0a |f (DEPEN|D).X..{.|
|00001070| 58 09 09 64 6c 70 20 3d | 20 6d 6b 64 65 70 65 6e |X..dlp =| mkdepen|
|00001080| 64 28 29 3b 0a 58 09 09 | 7d 0a 58 0a 58 09 77 68 |d();.X..|}.X.X.wh|
|00001090| 69 6c 65 20 28 67 65 74 | 6c 69 6e 28 69 66 70 29 |ile (get|lin(ifp)|
|000010a0| 20 21 3d 20 4e 55 4c 4c | 29 0a 58 09 09 7b 0a 58 | != NULL|).X..{.X|
|000010b0| 09 09 69 66 20 28 44 45 | 50 45 4e 44 20 26 26 20 |..if (DE|PEND && |
|000010c0| 45 51 55 41 4c 28 49 4f | 42 55 46 2c 20 44 45 50 |EQUAL(IO|BUF, DEP|
|000010d0| 45 4e 44 4d 41 52 4b 29 | 29 0a 58 09 09 09 62 72 |ENDMARK)|).X...br|
|000010e0| 65 61 6b 3b 0a 58 09 09 | 66 6f 72 20 28 62 70 20 |eak;.X..|for (bp |
|000010f0| 3d 20 49 4f 42 55 46 3b | 20 2a 62 70 20 3d 3d 20 |= IOBUF;| *bp == |
|00001100| 27 20 27 3b 20 62 70 2b | 2b 29 0a 58 09 09 09 63 |' '; bp+|+).X...c|
|00001110| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 69 66 20 28 |ontinue;|.X..if (|
|00001120| 69 73 61 6c 6e 75 6d 28 | 2a 62 70 29 20 26 26 20 |isalnum(|*bp) && |
|00001130| 66 69 6e 64 6d 61 63 72 | 6f 28 6d 6e 61 6d 2c 20 |findmacr|o(mnam, |
|00001140| 62 70 29 20 21 3d 20 4e | 55 4c 4c 29 0a 58 09 09 |bp) != N|ULL).X..|
|00001150| 09 7b 0a 58 09 09 09 69 | 66 20 28 28 68 74 62 20 |.{.X...i|f ((htb |
|00001160| 3d 20 68 74 6c 6f 6f 6b | 75 70 28 6d 6e 61 6d 2c |= htlook|up(mnam,|
|00001170| 20 4d 44 45 46 54 41 42 | 4c 45 29 29 20 21 3d 20 | MDEFTAB|LE)) != |
|00001180| 4e 55 4c 4c 29 0a 58 09 | 09 09 09 7b 0a 58 09 09 |NULL).X.|...{.X..|
|00001190| 09 09 69 66 20 28 68 74 | 62 2d 3e 68 5f 76 61 6c |..if (ht|b->h_val|
|000011a0| 20 3d 3d 20 56 52 45 41 | 44 57 52 49 54 45 29 0a | == VREA|DWRITE).|
|000011b0| 58 09 09 09 09 09 7b 0a | 58 09 09 09 09 09 70 75 |X.....{.|X.....pu|
|000011c0| 74 6d 61 63 72 6f 28 68 | 74 62 2d 3e 68 5f 64 65 |tmacro(h|tb->h_de|
|000011d0| 66 2c 20 6f 66 70 29 3b | 0a 58 09 09 09 09 09 70 |f, ofp);|.X.....p|
|000011e0| 75 72 67 63 6f 6e 74 69 | 6e 75 65 28 69 66 70 29 |urgconti|nue(ifp)|
|000011f0| 3b 0a 58 09 09 09 09 09 | 7d 0a 58 09 09 09 09 65 |;.X.....|}.X....e|
|00001200| 6c 73 65 09 7b 0a 58 09 | 09 09 09 09 70 75 74 6c |lse.{.X.|....putl|
|00001210| 69 6e 28 6f 66 70 29 3b | 0a 58 09 09 09 09 09 7d |in(ofp);|.X.....}|
|00001220| 0a 58 09 09 09 09 7d 0a | 58 09 09 09 65 6c 73 65 |.X....}.|X...else|
|00001230| 20 69 66 20 28 45 51 55 | 41 4c 28 6d 6e 61 6d 2c | if (EQU|AL(mnam,|
|00001240| 20 4d 48 45 41 44 45 52 | 53 29 29 0a 58 09 09 09 | MHEADER|S)).X...|
|00001250| 09 7b 0a 58 09 09 09 09 | 70 75 74 73 6c 6d 61 63 |.{.X....|putslmac|
|00001260| 72 6f 28 48 45 41 44 4c | 49 53 54 2c 20 6f 66 70 |ro(HEADL|IST, ofp|
|00001270| 29 3b 0a 58 09 09 09 09 | 70 75 72 67 63 6f 6e 74 |);.X....|purgcont|
|00001280| 69 6e 75 65 28 69 66 70 | 29 3b 0a 58 09 09 09 09 |inue(ifp|);.X....|
|00001290| 7d 0a 58 09 09 09 65 6c | 73 65 20 69 66 20 28 45 |}.X...el|se if (E|
|000012a0| 51 55 41 4c 28 6d 6e 61 | 6d 2c 20 4d 4f 42 4a 45 |QUAL(mna|m, MOBJE|
|000012b0| 43 54 53 29 29 0a 58 09 | 09 09 09 7b 0a 58 09 09 |CTS)).X.|...{.X..|
|000012c0| 09 09 70 75 74 6f 62 6a | 6d 61 63 72 6f 28 6f 66 |..putobj|macro(of|
|000012d0| 70 29 3b 0a 58 09 09 09 | 09 70 75 72 67 63 6f 6e |p);.X...|.purgcon|
|000012e0| 74 69 6e 75 65 28 69 66 | 70 29 3b 0a 58 09 09 09 |tinue(if|p);.X...|
|000012f0| 09 7d 0a 58 09 09 09 65 | 6c 73 65 20 69 66 20 28 |.}.X...e|lse if (|
|00001300| 45 51 55 41 4c 28 6d 6e | 61 6d 2c 20 4d 53 4f 55 |EQUAL(mn|am, MSOU|
|00001310| 52 43 45 29 29 0a 58 09 | 09 09 09 7b 0a 58 09 09 |RCE)).X.|...{.X..|
|00001320| 09 09 70 75 74 73 6c 6d | 61 63 72 6f 28 53 52 43 |..putslm|acro(SRC|
|00001330| 4c 49 53 54 2c 20 6f 66 | 70 29 3b 0a 58 09 09 09 |LIST, of|p);.X...|
|00001340| 09 70 75 72 67 63 6f 6e | 74 69 6e 75 65 28 69 66 |.purgcon|tinue(if|
|00001350| 70 29 3b 0a 58 09 09 09 | 09 7d 0a 58 09 09 09 65 |p);.X...|.}.X...e|
|00001360| 6c 73 65 20 69 66 20 28 | 45 51 55 41 4c 28 6d 6e |lse if (|EQUAL(mn|
|00001370| 61 6d 2c 20 4d 45 58 54 | 45 52 4e 41 4c 53 29 29 |am, MEXT|ERNALS))|
|00001380| 0a 58 09 09 09 09 7b 0a | 58 09 09 09 09 69 66 20 |.X....{.|X....if |
|00001390| 28 44 45 50 45 4e 44 29 | 0a 58 09 09 09 09 09 7b |(DEPEND)|.X.....{|
|000013a0| 0a 58 09 09 09 09 09 70 | 75 74 73 6c 6d 61 63 72 |.X.....p|utslmacr|
|000013b0| 6f 28 45 58 54 4c 49 53 | 54 2c 20 6f 66 70 29 3b |o(EXTLIS|T, ofp);|
|000013c0| 0a 58 09 09 09 09 09 70 | 75 72 67 63 6f 6e 74 69 |.X.....p|urgconti|
|000013d0| 6e 75 65 28 69 66 70 29 | 3b 0a 58 09 09 09 09 09 |nue(ifp)|;.X.....|
|000013e0| 7d 0a 58 09 09 09 09 65 | 6c 73 65 09 7b 0a 58 09 |}.X....e|lse.{.X.|
|000013f0| 09 09 09 09 70 75 74 6c | 69 6e 28 6f 66 70 29 3b |....putl|in(ofp);|
|00001400| 0a 58 09 09 09 09 09 7d | 0a 58 09 09 09 09 7d 0a |.X.....}|.X....}.|
|00001410| 58 09 09 09 65 6c 73 65 | 20 69 66 20 28 45 51 55 |X...else| if (EQU|
|00001420| 41 4c 28 6d 6e 61 6d 2c | 20 4d 4c 49 42 4c 49 53 |AL(mnam,| MLIBLIS|
|00001430| 54 29 20 26 26 20 4c 49 | 42 4c 49 53 54 20 21 3d |T) && LI|BLIST !=|
|00001440| 20 4e 55 4c 4c 29 0a 58 | 09 09 09 09 7b 0a 58 09 | NULL).X|....{.X.|
|00001450| 09 09 09 70 75 74 73 6c | 6d 61 63 72 6f 28 4c 49 |...putsl|macro(LI|
|00001460| 42 4c 49 53 54 2c 20 6f | 66 70 29 3b 0a 58 09 09 |BLIST, o|fp);.X..|
|00001470| 09 09 70 75 72 67 63 6f | 6e 74 69 6e 75 65 28 69 |..purgco|ntinue(i|
|00001480| 66 70 29 3b 0a 58 09 09 | 09 09 7d 0a 58 09 09 09 |fp);.X..|..}.X...|
|00001490| 65 6c 73 65 09 7b 0a 58 | 09 09 09 09 70 75 74 6c |else.{.X|....putl|
|000014a0| 69 6e 28 6f 66 70 29 3b | 0a 58 09 09 09 09 7d 0a |in(ofp);|.X....}.|
|000014b0| 58 09 09 09 7d 0a 58 09 | 09 65 6c 73 65 09 7b 0a |X...}.X.|.else.{.|
|000014c0| 58 09 09 09 70 75 74 6c | 69 6e 28 6f 66 70 29 3b |X...putl|in(ofp);|
|000014d0| 0a 58 09 09 09 7d 0a 58 | 09 09 7d 0a 58 09 66 63 |.X...}.X|..}.X.fc|
|000014e0| 6c 6f 73 65 28 69 66 70 | 29 3b 0a 58 09 69 66 20 |lose(ifp|);.X.if |
|000014f0| 28 44 45 50 45 4e 44 29 | 0a 58 09 09 7b 0a 58 09 |(DEPEND)|.X..{.X.|
|00001500| 09 64 6c 70 72 69 6e 74 | 28 64 6c 70 2c 20 6f 66 |.dlprint|(dlp, of|
|00001510| 70 29 3b 0a 58 09 09 7d | 0a 58 09 66 63 6c 6f 73 |p);.X..}|.X.fclos|
|00001520| 65 28 6f 66 70 29 3b 0a | 58 0a 58 09 73 69 67 6e |e(ofp);.|X.X.sign|
|00001530| 61 6c 28 53 49 47 48 55 | 50 2c 20 53 49 47 5f 49 |al(SIGHU|P, SIG_I|
|00001540| 47 4e 29 3b 0a 58 09 73 | 69 67 6e 61 6c 28 53 49 |GN);.X.s|ignal(SI|
|00001550| 47 49 4e 54 2c 20 53 49 | 47 5f 49 47 4e 29 3b 0a |GINT, SI|G_IGN);.|
|00001560| 58 09 73 69 67 6e 61 6c | 28 53 49 47 51 55 49 54 |X.signal|(SIGQUIT|
|00001570| 2c 20 53 49 47 5f 49 47 | 4e 29 3b 0a 58 0a 58 09 |, SIG_IG|N);.X.X.|
|00001580| 52 45 4e 41 4d 45 28 4d | 66 74 65 6d 70 2c 20 6d |RENAME(M|ftemp, m|
|00001590| 66 6e 61 6d 65 29 3b 0a | 58 7d 0a 58 0a 58 0a 58 |fname);.|X}.X.X.X|
|000015a0| 0a 58 2f 2a 0a 58 20 2a | 20 63 6c 65 61 6e 75 70 |.X/*.X *| cleanup|
|000015b0| 28 29 20 72 65 6d 6f 76 | 65 73 20 74 68 65 20 74 |() remov|es the t|
|000015c0| 65 6d 70 6f 72 61 72 79 | 20 6d 61 6b 65 66 69 6c |emporary| makefil|
|000015d0| 65 20 61 6e 64 20 64 65 | 70 65 6e 64 65 6e 63 79 |e and de|pendency|
|000015e0| 20 66 69 6c 65 2c 20 61 | 6e 64 0a 58 20 2a 20 63 | file, a|nd.X * c|
|000015f0| 61 6c 6c 73 20 65 78 69 | 74 28 31 29 2e 0a 58 20 |alls exi|t(1)..X |
|00001600| 2a 2f 0a 58 63 6c 65 61 | 6e 75 70 28 29 0a 58 7b |*/.Xclea|nup().X{|
|00001610| 0a 58 09 73 69 67 6e 61 | 6c 28 53 49 47 48 55 50 |.X.signa|l(SIGHUP|
|00001620| 2c 20 63 6c 65 61 6e 75 | 70 29 3b 0a 58 09 73 69 |, cleanu|p);.X.si|
|00001630| 67 6e 61 6c 28 53 49 47 | 49 4e 54 2c 20 63 6c 65 |gnal(SIG|INT, cle|
|00001640| 61 6e 75 70 29 3b 0a 58 | 09 73 69 67 6e 61 6c 28 |anup);.X|.signal(|
|00001650| 53 49 47 51 55 49 54 2c | 20 63 6c 65 61 6e 75 70 |SIGQUIT,| cleanup|
|00001660| 29 3b 0a 58 0a 58 09 75 | 6e 6c 69 6e 6b 28 4d 66 |);.X.X.u|nlink(Mf|
|00001670| 74 65 6d 70 29 3b 0a 58 | 09 65 78 69 74 28 31 29 |temp);.X|.exit(1)|
|00001680| 3b 0a 58 7d 0a 40 5c 45 | 6e 64 5c 6f 66 5c 46 69 |;.X}.@\E|nd\of\Fi|
|00001690| 6c 65 5c 0a 65 6c 73 65 | 0a 20 20 65 63 68 6f 20 |le\.else|.  echo |
|000016a0| 22 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 |"shar: W|ill not |
|000016b0| 6f 76 65 72 20 77 72 69 | 74 65 20 73 72 63 2f 65 |over wri|te src/e|
|000016c0| 64 69 74 6d 66 2e 63 22 | 0a 66 69 0a 69 66 20 60 |ditmf.c"|.fi.if `|
|000016d0| 74 65 73 74 20 21 20 2d | 73 20 73 72 63 2f 67 65 |test ! -|s src/ge|
|000016e0| 74 63 77 70 2e 63 60 0a | 74 68 65 6e 0a 65 63 68 |tcwp.c`.|then.ech|
|000016f0| 6f 20 22 78 20 2d 20 73 | 72 63 2f 67 65 74 63 77 |o "x - s|rc/getcw|
|00001700| 70 2e 63 22 0a 73 65 64 | 20 27 73 2f 5e 58 2f 2f |p.c".sed| 's/^X//|
|00001710| 27 20 3e 20 73 72 63 2f | 67 65 74 63 77 70 2e 63 |' > src/|getcwp.c|
|00001720| 20 3c 3c 20 27 40 5c 45 | 6e 64 5c 6f 66 5c 46 69 | << '@\E|nd\of\Fi|
|00001730| 6c 65 5c 27 0a 58 2f 2a | 20 24 48 65 61 64 65 72 |le\'.X/*| $Header|
|00001740| 3a 20 67 65 74 63 77 70 | 2e 63 2c 76 20 31 2e 31 |: getcwp|.c,v 1.1|
|00001750| 20 38 35 2f 30 33 2f 31 | 34 20 31 36 3a 35 38 3a | 85/03/1|4 16:58:|
|00001760| 35 34 20 6e 69 63 6b 6c | 69 6e 20 45 78 70 20 24 |54 nickl|in Exp $|
|00001770| 20 2a 2f 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 41 75 | */.X.X/|*.X * Au|
|00001780| 74 68 6f 72 3a 20 50 65 | 74 65 72 20 4a 2e 20 4e |thor: Pe|ter J. N|
|00001790| 69 63 6b 6c 69 6e 0a 58 | 20 2a 2f 0a 58 0a 58 2f |icklin.X| */.X.X/|
|000017a0| 2a 0a 58 20 2a 20 67 65 | 74 63 77 70 28 29 20 72 |*.X * ge|tcwp() r|
|000017b0| 65 74 75 72 6e 73 20 74 | 68 65 20 70 61 74 68 6e |eturns t|he pathn|
|000017c0| 61 6d 65 20 6f 66 20 74 | 68 65 20 63 75 72 72 65 |ame of t|he curre|
|000017d0| 6e 74 20 77 6f 72 6b 69 | 6e 67 20 70 72 6f 6a 65 |nt worki|ng proje|
|000017e0| 63 74 2e 20 49 66 20 74 | 68 65 0a 58 20 2a 20 50 |ct. If t|he.X * P|
|000017f0| 52 4f 4a 45 43 54 20 65 | 6e 76 69 72 6f 6e 6d 65 |ROJECT e|nvironme|
|00001800| 6e 74 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 75 |nt varia|ble is u|
|00001810| 6e 64 65 66 69 6e 65 64 | 20 6f 72 20 61 20 6e 75 |ndefined| or a nu|
|00001820| 6c 6c 20 73 74 72 69 6e | 67 2c 20 6e 75 6c 6c 20 |ll strin|g, null |
|00001830| 69 73 0a 58 20 2a 20 72 | 65 74 75 72 6e 65 64 2e |is.X * r|eturned.|
|00001840| 0a 58 20 2a 2f 0a 58 23 | 69 6e 63 6c 75 64 65 20 |.X */.X#|include |
|00001850| 22 6e 75 6c 6c 2e 68 22 | 0a 58 0a 58 63 68 61 72 |"null.h"|.X.Xchar|
|00001860| 20 2a 0a 58 67 65 74 63 | 77 70 28 29 0a 58 7b 0a | *.Xgetc|wp().X{.|
|00001870| 58 09 65 78 74 65 72 6e | 20 63 68 61 72 20 2a 5f |X.extern| char *_|
|00001880| 50 52 4f 4a 45 43 54 3b | 09 09 2f 2a 20 70 72 6f |PROJECT;|../* pro|
|00001890| 6a 65 63 74 20 72 6f 6f | 74 20 64 69 72 65 63 74 |ject roo|t direct|
|000018a0| 6f 72 79 20 70 61 74 68 | 6e 61 6d 65 20 2a 2f 0a |ory path|name */.|
|000018b0| 58 09 76 6f 69 64 20 67 | 65 74 70 72 6f 6a 65 63 |X.void g|etprojec|
|000018c0| 74 28 29 3b 09 09 2f 2a | 20 67 65 74 20 50 52 4f |t();../*| get PRO|
|000018d0| 4a 45 43 54 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |JECT env|ironment|
|000018e0| 20 76 61 72 69 61 62 6c | 65 20 2a 2f 0a 58 0a 58 | variabl|e */.X.X|
|000018f0| 09 69 66 20 28 5f 50 52 | 4f 4a 45 43 54 20 3d 3d |.if (_PR|OJECT ==|
|00001900| 20 4e 55 4c 4c 29 0a 58 | 09 09 67 65 74 70 72 6f | NULL).X|..getpro|
|00001910| 6a 65 63 74 28 29 3b 0a | 58 09 72 65 74 75 72 6e |ject();.|X.return|
|00001920| 28 5f 50 52 4f 4a 45 43 | 54 29 3b 0a 58 7d 0a 40 |(_PROJEC|T);.X}.@|
|00001930| 5c 45 6e 64 5c 6f 66 5c | 46 69 6c 65 5c 0a 65 6c |\End\of\|File\.el|
|00001940| 73 65 0a 20 20 65 63 68 | 6f 20 22 73 68 61 72 3a |se.  ech|o "shar:|
|00001950| 20 57 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 20 77 | Will no|t over w|
|00001960| 72 69 74 65 20 73 72 63 | 2f 67 65 74 63 77 70 2e |rite src|/getcwp.|
|00001970| 63 22 0a 66 69 0a 69 66 | 20 60 74 65 73 74 20 21 |c".fi.if| `test !|
|00001980| 20 2d 73 20 73 72 63 2f | 67 65 74 70 72 6f 6a 65 | -s src/|getproje|
|00001990| 63 74 2e 63 60 0a 74 68 | 65 6e 0a 65 63 68 6f 20 |ct.c`.th|en.echo |
|000019a0| 22 78 20 2d 20 73 72 63 | 2f 67 65 74 70 72 6f 6a |"x - src|/getproj|
|000019b0| 65 63 74 2e 63 22 0a 73 | 65 64 20 27 73 2f 5e 58 |ect.c".s|ed 's/^X|
|000019c0| 2f 2f 27 20 3e 20 73 72 | 63 2f 67 65 74 70 72 6f |//' > sr|c/getpro|
|000019d0| 6a 65 63 74 2e 63 20 3c | 3c 20 27 40 5c 45 6e 64 |ject.c <|< '@\End|
|000019e0| 5c 6f 66 5c 46 69 6c 65 | 5c 27 0a 58 2f 2a 20 24 |\of\File|\'.X/* $|
|000019f0| 48 65 61 64 65 72 3a 20 | 67 65 74 70 72 6f 6a 65 |Header: |getproje|
|00001a00| 63 74 2e 63 2c 76 20 31 | 2e 31 20 38 35 2f 30 33 |ct.c,v 1|.1 85/03|
|00001a10| 2f 31 34 20 31 36 3a 35 | 39 3a 30 31 20 6e 69 63 |/14 16:5|9:01 nic|
|00001a20| 6b 6c 69 6e 20 45 78 70 | 20 24 20 2a 2f 0a 58 0a |klin Exp| $ */.X.|
|00001a30| 58 2f 2a 0a 58 20 2a 20 | 41 75 74 68 6f 72 3a 20 |X/*.X * |Author: |
|00001a40| 50 65 74 65 72 20 4a 2e | 20 4e 69 63 6b 6c 69 6e |Peter J.| Nicklin|
|00001a50| 0a 58 20 2a 2f 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |.X */.X.|X/*.X * |
|00001a60| 67 65 74 70 72 6f 6a 65 | 63 74 28 29 20 73 61 76 |getproje|ct() sav|
|00001a70| 65 73 20 74 68 65 20 63 | 6f 6e 74 65 6e 74 73 20 |es the c|ontents |
|00001a80| 6f 66 20 74 68 65 20 50 | 52 4f 4a 45 43 54 20 65 |of the P|ROJECT e|
|00001a90| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 76 61 72 69 61 |nvironme|nt varia|
|00001aa0| 62 6c 65 2e 0a 58 20 2a | 20 49 66 20 74 68 65 20 |ble..X *| If the |
|00001ab0| 50 52 4f 4a 45 43 54 20 | 76 61 72 69 61 62 6c 65 |PROJECT |variable|
|00001ac0| 20 69 73 20 75 6e 64 65 | 66 69 6e 65 64 20 6f 72 | is unde|fined or|
|00001ad0| 20 61 20 6e 75 6c 6c 20 | 73 74 72 69 6e 67 2c 20 | a null |string, |
|00001ae0| 6e 75 6c 6c 20 69 73 20 | 72 65 74 75 72 6e 65 64 |null is |returned|
|00001af0| 2e 0a 58 20 2a 2f 0a 58 | 23 69 6e 63 6c 75 64 65 |..X */.X|#include|
|00001b00| 20 22 6e 75 6c 6c 2e 68 | 22 0a 58 0a 58 63 68 61 | "null.h|".X.Xcha|
|00001b10| 72 20 2a 5f 50 52 4f 4a | 45 43 54 20 3d 20 4e 55 |r *_PROJ|ECT = NU|
|00001b20| 4c 4c 3b 09 09 09 2f 2a | 20 70 72 6f 6a 65 63 74 |LL;.../*| project|
|00001b30| 20 72 6f 6f 74 20 64 69 | 72 65 63 74 6f 72 79 20 | root di|rectory |
|00001b40| 70 61 74 68 6e 61 6d 65 | 20 2a 2f 0a 58 0a 58 76 |pathname| */.X.Xv|
|00001b50| 6f 69 64 0a 58 67 65 74 | 70 72 6f 6a 65 63 74 28 |oid.Xget|project(|
|00001b60| 29 0a 58 7b 0a 58 09 72 | 65 67 69 73 74 65 72 20 |).X{.X.r|egister |
|00001b70| 63 68 61 72 20 2a 70 76 | 3b 09 09 2f 2a 20 70 74 |char *pv|;../* pt|
|00001b80| 72 20 74 6f 20 73 74 61 | 72 74 20 6f 66 20 50 52 |r to sta|rt of PR|
|00001b90| 4f 4a 45 43 54 20 76 61 | 72 69 61 62 6c 65 20 2a |OJECT va|riable *|
|00001ba0| 2f 0a 58 09 63 68 61 72 | 20 2a 67 65 74 65 6e 76 |/.X.char| *getenv|
|00001bb0| 28 29 3b 09 09 09 2f 2a | 20 67 65 74 20 65 6e 76 |();.../*| get env|
|00001bc0| 69 72 6f 6e 6d 65 6e 74 | 20 76 61 72 69 61 62 6c |ironment| variabl|
|00001bd0| 65 20 2a 2f 0a 58 09 63 | 68 61 72 20 2a 73 74 72 |e */.X.c|har *str|
|00001be0| 73 61 76 28 29 3b 09 09 | 09 2f 2a 20 73 61 76 65 |sav();..|./* save|
|00001bf0| 20 61 20 73 74 72 69 6e | 67 20 73 6f 6d 65 77 68 | a strin|g somewh|
|00001c00| 65 72 65 20 2a 2f 0a 58 | 0a 58 09 69 66 20 28 28 |ere */.X|.X.if ((|
|00001c10| 70 76 20 3d 20 67 65 74 | 65 6e 76 28 22 50 52 4f |pv = get|env("PRO|
|00001c20| 4a 45 43 54 22 29 29 20 | 21 3d 20 4e 55 4c 4c 20 |JECT")) |!= NULL |
|00001c30| 26 26 20 2a 70 76 20 21 | 3d 20 27 5c 30 27 29 0a |&& *pv !|= '\0').|
|00001c40| 58 09 09 5f 50 52 4f 4a | 45 43 54 20 3d 20 73 74 |X.._PROJ|ECT = st|
|00001c50| 72 73 61 76 28 70 76 29 | 3b 0a 58 7d 0a 40 5c 45 |rsav(pv)|;.X}.@\E|
|00001c60| 6e 64 5c 6f 66 5c 46 69 | 6c 65 5c 0a 65 6c 73 65 |nd\of\Fi|le\.else|
|00001c70| 0a 20 20 65 63 68 6f 20 | 22 73 68 61 72 3a 20 57 |.  echo |"shar: W|
|00001c80| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 20 77 72 69 |ill not |over wri|
|00001c90| 74 65 20 73 72 63 2f 67 | 65 74 70 72 6f 6a 65 63 |te src/g|etprojec|
|00001ca0| 74 2e 63 22 0a 66 69 0a | 69 66 20 60 74 65 73 74 |t.c".fi.|if `test|
|00001cb0| 20 21 20 2d 73 20 73 72 | 63 2f 68 61 73 68 2e 63 | ! -s sr|c/hash.c|
|00001cc0| 60 0a 74 68 65 6e 0a 65 | 63 68 6f 20 22 78 20 2d |`.then.e|cho "x -|
|00001cd0| 20 73 72 63 2f 68 61 73 | 68 2e 63 22 0a 73 65 64 | src/has|h.c".sed|
|00001ce0| 20 27 73 2f 5e 58 2f 2f | 27 20 3e 20 73 72 63 2f | 's/^X//|' > src/|
|00001cf0| 68 61 73 68 2e 63 20 3c | 3c 20 27 40 5c 45 6e 64 |hash.c <|< '@\End|
|00001d00| 5c 6f 66 5c 46 69 6c 65 | 5c 27 0a 58 2f 2a 20 24 |\of\File|\'.X/* $|
|00001d10| 48 65 61 64 65 72 3a 20 | 68 61 73 68 2e 63 2c 76 |Header: |hash.c,v|
|00001d20| 20 31 2e 31 20 38 35 2f | 30 33 2f 31 34 20 31 35 | 1.1 85/|03/14 15|
|00001d30| 3a 33 38 3a 31 36 20 6e | 69 63 6b 6c 69 6e 20 45 |:38:16 n|icklin E|
|00001d40| 78 70 20 24 20 2a 2f 0a | 58 0a 58 2f 2a 0a 58 20 |xp $ */.|X.X/*.X |
|00001d50| 2a 20 41 75 74 68 6f 72 | 3a 20 50 65 74 65 72 20 |* Author|: Peter |
|00001d60| 4a 2e 20 4e 69 63 6b 6c | 69 6e 0a 58 20 2a 2f 0a |J. Nickl|in.X */.|
|00001d70| 58 23 69 6e 63 6c 75 64 | 65 20 22 6e 75 6c 6c 2e |X#includ|e "null.|
|00001d80| 68 22 0a 58 23 69 6e 63 | 6c 75 64 65 20 22 68 61 |h".X#inc|lude "ha|
|00001d90| 73 68 2e 68 22 0a 58 23 | 69 6e 63 6c 75 64 65 20 |sh.h".X#|include |
|00001da0| 22 6d 61 63 72 6f 2e 68 | 22 0a 58 0a 58 2f 2a 0a |"macro.h|".X.X/*.|
|00001db0| 58 20 2a 20 68 74 68 61 | 73 68 28 29 20 72 65 74 |X * htha|sh() ret|
|00001dc0| 75 72 6e 73 20 61 20 68 | 61 73 68 20 76 61 6c 75 |urns a h|ash valu|
|00001dd0| 65 20 66 6f 72 20 73 74 | 72 69 6e 67 2c 20 73 2e |e for st|ring, s.|
|00001de0| 0a 58 20 2a 2f 0a 58 68 | 74 68 61 73 68 28 73 2c |.X */.Xh|thash(s,|
|00001df0| 20 68 61 73 68 29 0a 58 | 09 72 65 67 69 73 74 65 | hash).X|.registe|
|00001e00| 72 20 63 68 61 72 20 2a | 73 3b 09 09 2f 2a 20 73 |r char *|s;../* s|
|00001e10| 74 72 69 6e 67 20 2a 2f | 0a 58 09 48 41 53 48 20 |tring */|.X.HASH |
|00001e20| 2a 68 61 73 68 3b 09 09 | 09 2f 2a 20 68 61 73 68 |*hash;..|./* hash|
|00001e30| 20 74 61 62 6c 65 20 2a | 2f 0a 58 7b 0a 58 09 72 | table *|/.X{.X.r|
|00001e40| 65 67 69 73 74 65 72 20 | 69 6e 74 20 68 61 73 68 |egister |int hash|
|00001e50| 76 61 6c 3b 09 09 2f 2a | 20 68 61 73 68 20 76 61 |val;../*| hash va|
|00001e60| 6c 75 65 20 66 6f 72 20 | 73 74 72 69 6e 67 20 2a |lue for |string *|
|00001e70| 2f 0a 58 0a 58 09 66 6f | 72 20 28 68 61 73 68 76 |/.X.X.fo|r (hashv|
|00001e80| 61 6c 20 3d 20 30 3b 20 | 2a 73 20 21 3d 20 27 5c |al = 0; |*s != '\|
|00001e90| 30 27 3b 20 73 2b 2b 29 | 0a 58 09 09 68 61 73 68 |0'; s++)|.X..hash|
|00001ea0| 76 61 6c 20 2b 3d 20 2a | 73 3b 0a 58 09 72 65 74 |val += *|s;.X.ret|
|00001eb0| 75 72 6e 28 68 61 73 68 | 76 61 6c 20 25 20 68 61 |urn(hash|val % ha|
|00001ec0| 73 68 2d 3e 68 61 73 68 | 73 69 7a 29 3b 0a 58 7d |sh->hash|siz);.X}|
|00001ed0| 0a 58 0a 58 0a 58 0a 58 | 2f 2a 0a 58 20 2a 20 68 |.X.X.X.X|/*.X * h|
|00001ee0| 74 69 6e 69 74 28 29 20 | 72 65 74 75 72 6e 73 20 |tinit() |returns |
|00001ef0| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 61 20 6e |a pointe|r to a n|
|00001f00| 65 77 20 68 61 73 68 20 | 74 61 62 6c 65 2c 20 6f |ew hash |table, o|
|00001f10| 72 20 61 20 6e 75 6c 6c | 20 70 6f 69 6e 74 65 72 |r a null| pointer|
|00001f20| 20 69 66 0a 58 20 2a 20 | 6f 75 74 20 6f 66 20 6d | if.X * |out of m|
|00001f30| 65 6d 6f 72 79 2e 0a 58 | 20 2a 2f 0a 58 48 41 53 |emory..X| */.XHAS|
|00001f40| 48 20 2a 0a 58 68 74 69 | 6e 69 74 28 68 61 73 68 |H *.Xhti|nit(hash|
|00001f50| 73 69 7a 29 0a 58 09 75 | 6e 73 69 67 6e 65 64 20 |siz).X.u|nsigned |
|00001f60| 69 6e 74 20 68 61 73 68 | 73 69 7a 3b 09 09 2f 2a |int hash|siz;../*|
|00001f70| 20 68 61 73 68 20 74 61 | 62 6c 65 20 73 69 7a 65 | hash ta|ble size|
|00001f80| 20 2a 2f 0a 58 7b 0a 58 | 09 63 68 61 72 20 2a 6d | */.X{.X|.char *m|
|00001f90| 61 6c 6c 6f 63 28 29 3b | 09 09 09 2f 2a 20 61 6c |alloc();|.../* al|
|00001fa0| 6c 6f 63 61 74 65 20 6d | 65 6d 6f 72 79 20 2a 2f |locate m|emory */|
|00001fb0| 0a 58 09 63 68 61 72 20 | 2a 63 61 6c 6c 6f 63 28 |.X.char |*calloc(|
|00001fc0| 29 3b 09 09 09 2f 2a 20 | 61 6c 6c 6f 63 61 74 65 |);.../* |allocate|
|00001fd0| 20 61 6e 64 20 7a 65 72 | 6f 20 6d 65 6d 6f 72 79 | and zer|o memory|
|00001fe0| 20 2a 2f 0a 58 09 48 41 | 53 48 20 2a 68 74 3b 09 | */.X.HA|SH *ht;.|
|00001ff0| 09 09 2f 2a 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |../* poi|nter to |
|00002000| 68 61 73 68 20 74 61 62 | 6c 65 20 73 74 72 75 63 |hash tab|le struc|
|00002010| 74 20 2a 2f 0a 58 09 48 | 41 53 48 42 4c 4b 20 2a |t */.X.H|ASHBLK *|
|00002020| 2a 70 74 3b 09 09 09 2f | 2a 20 70 6f 69 6e 74 65 |*pt;.../|* pointe|
|00002030| 72 20 74 6f 20 68 61 73 | 68 20 70 6f 69 6e 74 65 |r to has|h pointe|
|00002040| 72 20 74 61 62 6c 65 20 | 2a 2f 0a 58 0a 58 09 69 |r table |*/.X.X.i|
|00002050| 66 20 28 28 68 74 20 3d | 20 28 48 41 53 48 20 2a |f ((ht =| (HASH *|
|00002060| 29 20 6d 61 6c 6c 6f 63 | 28 73 69 7a 65 6f 66 28 |) malloc|(sizeof(|
|00002070| 48 41 53 48 29 29 29 20 | 3d 3d 20 4e 55 4c 4c 20 |HASH))) |== NULL |
|00002080| 7c 7c 0a 58 09 20 20 20 | 20 28 70 74 20 3d 20 28 |||.X.   | (pt = (|
|00002090| 48 41 53 48 42 4c 4b 20 | 2a 2a 29 20 63 61 6c 6c |HASHBLK |**) call|
|000020a0| 6f 63 28 68 61 73 68 73 | 69 7a 2c 20 73 69 7a 65 |oc(hashs|iz, size|
|000020b0| 6f 66 28 48 41 53 48 42 | 4c 4b 20 2a 29 29 29 20 |of(HASHB|LK *))) |
|000020c0| 3d 3d 20 4e 55 4c 4c 29 | 0a 58 09 09 7b 0a 58 09 |== NULL)|.X..{.X.|
|000020d0| 09 77 61 72 6e 28 22 6f | 75 74 20 6f 66 20 6d 65 |.warn("o|ut of me|
|000020e0| 6d 6f 72 79 22 29 3b 0a | 58 09 09 72 65 74 75 72 |mory");.|X..retur|
|000020f0| 6e 28 4e 55 4c 4c 29 3b | 0a 58 09 09 7d 0a 58 09 |n(NULL);|.X..}.X.|
|00002100| 68 74 2d 3e 68 61 73 68 | 74 61 62 20 3d 20 70 74 |ht->hash|tab = pt|
|00002110| 3b 0a 58 09 68 74 2d 3e | 68 61 73 68 73 69 7a 20 |;.X.ht->|hashsiz |
|00002120| 3d 20 68 61 73 68 73 69 | 7a 3b 0a 58 09 72 65 74 |= hashsi|z;.X.ret|
|00002130| 75 72 6e 28 68 74 29 3b | 0a 58 7d 0a 58 0a 58 0a |urn(ht);|.X}.X.X.|
|00002140| 58 0a 58 2f 2a 0a 58 20 | 2a 20 68 74 69 6e 73 74 |X.X/*.X |* htinst|
|00002150| 61 6c 6c 28 29 20 69 6e | 73 74 61 6c 6c 73 20 61 |all() in|stalls a|
|00002160| 20 6e 65 77 20 65 6e 74 | 72 79 20 69 6e 20 61 20 | new ent|ry in a |
|00002170| 68 61 73 68 20 74 61 62 | 6c 65 20 69 66 20 69 74 |hash tab|le if it|
|00002180| 20 64 6f 65 73 6e 27 74 | 20 61 6c 72 65 61 64 79 | doesn't| already|
|00002190| 0a 58 20 2a 20 65 78 69 | 73 74 2e 20 49 66 20 69 |.X * exi|st. If i|
|000021a0| 74 20 64 6f 65 73 2c 20 | 74 68 65 20 6f 6c 64 20 |t does, |the old |
|000021b0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 61 6e 64 20 76 |definiti|on and v|
|000021c0| 61 6c 75 65 20 69 73 20 | 73 75 70 65 72 73 65 64 |alue is |supersed|
|000021d0| 65 64 2e 20 52 65 74 75 | 72 6e 73 0a 58 20 2a 20 |ed. Retu|rns.X * |
|000021e0| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |a pointe|r to the|
|000021f0| 20 65 6e 74 72 79 2c 20 | 6f 72 20 6e 75 6c 6c 20 | entry, |or null |
|00002200| 69 66 20 6f 75 74 20 6f | 66 20 6d 65 6d 6f 72 79 |if out o|f memory|
|00002210| 2e 0a 58 20 2a 2f 0a 58 | 48 41 53 48 42 4c 4b 20 |..X */.X|HASHBLK |
|00002220| 2a 0a 58 68 74 69 6e 73 | 74 61 6c 6c 28 6b 65 79 |*.Xhtins|tall(key|
|00002230| 2c 20 64 65 66 2c 20 76 | 61 6c 2c 20 68 61 73 68 |, def, v|al, hash|
|00002240| 29 0a 58 09 63 68 61 72 | 20 2a 6b 65 79 3b 09 09 |).X.char| *key;..|
|00002250| 09 2f 2a 20 6b 65 79 20 | 66 6f 72 20 68 61 73 68 |./* key |for hash|
|00002260| 20 74 61 62 6c 65 20 65 | 6e 74 72 79 20 2a 2f 0a | table e|ntry */.|
|00002270| 58 09 63 68 61 72 20 2a | 64 65 66 3b 09 09 09 2f |X.char *|def;.../|
|00002280| 2a 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 73 74 72 |* defini|tion str|
|00002290| 69 6e 67 20 2a 2f 0a 58 | 09 69 6e 74 20 76 61 6c |ing */.X|.int val|
|000022a0| 3b 09 09 09 2f 2a 20 69 | 6e 74 65 67 65 72 20 76 |;.../* i|nteger v|
|000022b0| 61 6c 75 65 20 2a 2f 0a | 58 09 48 41 53 48 20 2a |alue */.|X.HASH *|
|000022c0| 68 61 73 68 3b 09 09 09 | 2f 2a 20 68 61 73 68 20 |hash;...|/* hash |
|000022d0| 74 61 62 6c 65 20 2a 2f | 0a 58 7b 0a 58 09 63 68 |table */|.X{.X.ch|
|000022e0| 61 72 20 2a 6d 61 6c 6c | 6f 63 28 29 3b 09 09 09 |ar *mall|oc();...|
|000022f0| 2f 2a 20 6d 65 6d 6f 72 | 79 20 61 6c 6c 6f 63 61 |/* memor|y alloca|
|00002300| 74 6f 72 20 2a 2f 0a 58 | 09 63 68 61 72 20 2a 73 |tor */.X|.char *s|
|00002310| 74 72 73 61 76 28 29 3b | 09 09 09 2f 2a 20 73 61 |trsav();|.../* sa|
|00002320| 76 65 20 73 74 72 69 6e | 67 20 73 6f 6d 65 77 68 |ve strin|g somewh|
|00002330| 65 72 65 20 2a 2f 0a 58 | 09 48 41 53 48 42 4c 4b |ere */.X|.HASHBLK|
|00002340| 20 2a 68 74 62 3b 09 09 | 09 2f 2a 20 68 61 73 68 | *htb;..|./* hash|
|00002350| 20 74 61 62 6c 65 20 65 | 6e 74 72 79 20 62 6c 6f | table e|ntry blo|
|00002360| 63 6b 20 2a 2f 0a 58 09 | 48 41 53 48 42 4c 4b 20 |ck */.X.|HASHBLK |
|00002370| 2a 68 74 6c 6f 6f 6b 75 | 70 28 29 3b 09 09 2f 2a |*htlooku|p();../*|
|00002380| 20 66 69 6e 64 20 68 61 | 73 68 20 74 61 62 6c 65 | find ha|sh table|
|00002390| 20 65 6e 74 72 79 20 2a | 2f 0a 58 09 69 6e 74 20 | entry *|/.X.int |
|000023a0| 68 61 73 68 76 61 6c 3b | 09 09 09 2f 2a 20 68 61 |hashval;|.../* ha|
|000023b0| 73 68 20 76 61 6c 75 65 | 20 66 6f 72 20 6b 65 79 |sh value| for key|
|000023c0| 20 2a 2f 0a 58 09 69 6e | 74 20 68 74 68 61 73 68 | */.X.in|t hthash|
|000023d0| 28 29 3b 09 09 09 2f 2a | 20 63 61 6c 63 75 6c 61 |();.../*| calcula|
|000023e0| 74 65 20 68 61 73 68 20 | 76 61 6c 75 65 20 2a 2f |te hash |value */|
|000023f0| 0a 58 0a 58 09 69 66 20 | 28 28 68 74 62 20 3d 20 |.X.X.if |((htb = |
|00002400| 68 74 6c 6f 6f 6b 75 70 | 28 6b 65 79 2c 20 68 61 |htlookup|(key, ha|
|00002410| 73 68 29 29 20 3d 3d 20 | 4e 55 4c 4c 29 0a 58 09 |sh)) == |NULL).X.|
|00002420| 09 7b 09 09 09 2f 2a 20 | 6e 6f 74 20 66 6f 75 6e |.{.../* |not foun|
|00002430| 64 20 2a 2f 0a 58 09 09 | 69 66 20 28 28 68 74 62 |d */.X..|if ((htb|
|00002440| 20 3d 20 28 48 41 53 48 | 42 4c 4b 20 2a 29 20 6d | = (HASH|BLK *) m|
|00002450| 61 6c 6c 6f 63 28 73 69 | 7a 65 6f 66 28 48 41 53 |alloc(si|zeof(HAS|
|00002460| 48 42 4c 4b 29 29 29 20 | 3d 3d 20 4e 55 4c 4c 29 |HBLK))) |== NULL)|
|00002470| 0a 58 09 09 09 72 65 74 | 75 72 6e 28 4e 55 4c 4c |.X...ret|urn(NULL|
|00002480| 29 3b 0a 58 09 09 69 66 | 20 28 28 68 74 62 2d 3e |);.X..if| ((htb->|
|00002490| 68 5f 6b 65 79 20 3d 20 | 73 74 72 73 61 76 28 6b |h_key = |strsav(k|
|000024a0| 65 79 29 29 20 3d 3d 20 | 4e 55 4c 4c 29 0a 58 09 |ey)) == |NULL).X.|
|000024b0| 09 09 72 65 74 75 72 6e | 28 4e 55 4c 4c 29 3b 0a |..return|(NULL);.|
|000024c0| 58 09 09 68 61 73 68 76 | 61 6c 20 3d 20 68 74 68 |X..hashv|al = hth|
|000024d0| 61 73 68 28 6b 65 79 2c | 20 68 61 73 68 29 3b 0a |ash(key,| hash);.|
|000024e0| 58 09 09 68 74 62 2d 3e | 68 5f 6e 65 78 74 20 3d |X..htb->|h_next =|
|000024f0| 20 28 68 61 73 68 2d 3e | 68 61 73 68 74 61 62 29 | (hash->|hashtab)|
|00002500| 5b 68 61 73 68 76 61 6c | 5d 3b 0a 58 09 09 28 68 |[hashval|];.X..(h|
|00002510| 61 73 68 2d 3e 68 61 73 | 68 74 61 62 29 5b 68 61 |ash->has|htab)[ha|
|00002520| 73 68 76 61 6c 5d 20 3d | 20 68 74 62 3b 0a 58 09 |shval] =| htb;.X.|
|00002530| 09 68 74 62 2d 3e 68 5f | 73 75 62 20 3d 20 4e 55 |.htb->h_|sub = NU|
|00002540| 4c 4c 3b 0a 58 09 09 68 | 74 62 2d 3e 68 5f 74 61 |LL;.X..h|tb->h_ta|
|00002550| 67 20 3d 20 4e 55 4c 4c | 3b 0a 58 09 09 7d 0a 58 |g = NULL|;.X..}.X|
|00002560| 09 65 6c 73 65 09 7b 09 | 09 09 2f 2a 20 66 6f 75 |.else.{.|../* fou|
|00002570| 6e 64 20 2a 2f 0a 58 09 | 09 66 72 65 65 28 68 74 |nd */.X.|.free(ht|
|00002580| 62 2d 3e 68 5f 64 65 66 | 29 3b 09 2f 2a 20 66 72 |b->h_def|);./* fr|
|00002590| 65 65 20 70 72 65 76 69 | 6f 75 73 20 64 65 66 69 |ee previ|ous defi|
|000025a0| 6e 69 74 69 6f 6e 20 2a | 2f 0a 58 09 09 7d 0a 58 |nition *|/.X..}.X|
|000025b0| 09 69 66 20 28 28 68 74 | 62 2d 3e 68 5f 64 65 66 |.if ((ht|b->h_def|
|000025c0| 20 3d 20 73 74 72 73 61 | 76 28 64 65 66 29 29 20 | = strsa|v(def)) |
|000025d0| 3d 3d 20 4e 55 4c 4c 29 | 0a 58 09 09 72 65 74 75 |== NULL)|.X..retu|
|000025e0| 72 6e 28 4e 55 4c 4c 29 | 3b 0a 58 09 68 74 62 2d |rn(NULL)|;.X.htb-|
|000025f0| 3e 68 5f 76 61 6c 20 3d | 20 76 61 6c 3b 0a 58 09 |>h_val =| val;.X.|
|00002600| 72 65 74 75 72 6e 28 68 | 74 62 29 3b 0a 58 7d 0a |return(h|tb);.X}.|
|00002610| 58 0a 58 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 68 74 |X.X.X.X/|*.X * ht|
|00002620| 6c 6f 6f 6b 75 70 28 29 | 20 72 65 74 75 72 6e 73 |lookup()| returns|
|00002630| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 61 20 | a point|er to a |
|00002640| 68 61 73 68 20 74 61 62 | 6c 65 20 65 6e 74 72 79 |hash tab|le entry|
|00002650| 20 69 66 20 66 6f 75 6e | 64 2c 20 6f 74 68 65 72 | if foun|d, other|
|00002660| 77 69 73 65 20 6e 75 6c | 6c 2e 0a 58 20 2a 2f 0a |wise nul|l..X */.|
|00002670| 58 48 41 53 48 42 4c 4b | 20 2a 0a 58 68 74 6c 6f |XHASHBLK| *.Xhtlo|
|00002680| 6f 6b 75 70 28 6b 65 79 | 2c 20 68 61 73 68 29 0a |okup(key|, hash).|
|00002690| 58 09 63 68 61 72 20 2a | 6b 65 79 3b 09 09 09 2f |X.char *|key;.../|
|000026a0| 2a 20 6b 65 79 20 66 6f | 72 20 68 61 73 68 20 74 |* key fo|r hash t|
|000026b0| 61 62 6c 65 20 65 6e 74 | 72 79 20 2a 2f 0a 58 09 |able ent|ry */.X.|
|000026c0| 48 41 53 48 20 2a 68 61 | 73 68 3b 09 09 09 2f 2a |HASH *ha|sh;.../*|
|000026d0| 20 68 61 73 68 20 74 61 | 62 6c 65 20 2a 2f 0a 58 | hash ta|ble */.X|
|000026e0| 7b 0a 58 09 48 41 53 48 | 42 4c 4b 20 2a 68 74 62 |{.X.HASH|BLK *htb|
|000026f0| 3b 09 09 09 2f 2a 20 68 | 61 73 68 20 74 61 62 6c |;.../* h|ash tabl|
|00002700| 65 20 65 6e 74 72 79 20 | 62 6c 6f 63 6b 20 2a 2f |e entry |block */|
|00002710| 0a 58 09 69 6e 74 20 68 | 74 68 61 73 68 28 29 3b |.X.int h|thash();|
|00002720| 09 09 09 2f 2a 20 63 61 | 6c 63 75 6c 61 74 65 20 |.../* ca|lculate |
|00002730| 68 61 73 68 20 76 61 6c | 75 65 20 2a 2f 0a 58 0a |hash val|ue */.X.|
|00002740| 58 09 66 6f 72 20 28 68 | 74 62 20 3d 20 28 68 61 |X.for (h|tb = (ha|
|00002750| 73 68 2d 3e 68 61 73 68 | 74 61 62 29 5b 68 74 68 |sh->hash|tab)[hth|
|00002760| 61 73 68 28 6b 65 79 2c | 20 68 61 73 68 29 5d 3b |ash(key,| hash)];|
|00002770| 20 68 74 62 20 21 3d 20 | 4e 55 4c 4c 3b 20 68 74 | htb != |NULL; ht|
|00002780| 62 20 3d 20 68 74 62 2d | 3e 68 5f 6e 65 78 74 29 |b = htb-|>h_next)|
|00002790| 0a 58 09 09 69 66 20 28 | 45 51 55 41 4c 28 68 74 |.X..if (|EQUAL(ht|
|000027a0| 62 2d 3e 68 5f 6b 65 79 | 2c 20 6b 65 79 29 29 0a |b->h_key|, key)).|
|000027b0| 58 09 09 09 72 65 74 75 | 72 6e 28 68 74 62 29 3b |X...retu|rn(htb);|
|000027c0| 09 2f 2a 20 66 6f 75 6e | 64 20 2a 2f 0a 58 09 72 |./* foun|d */.X.r|
|000027d0| 65 74 75 72 6e 28 4e 55 | 4c 4c 29 3b 09 09 09 2f |eturn(NU|LL);.../|
|000027e0| 2a 20 6e 6f 74 20 66 6f | 75 6e 64 20 2a 2f 0a 58 |* not fo|und */.X|
|000027f0| 7d 0a 58 0a 58 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |}.X.X.X.|X/*.X * |
|00002800| 68 74 72 6d 28 29 20 72 | 65 6d 6f 76 65 73 20 61 |htrm() r|emoves a|
|00002810| 20 68 61 73 68 20 74 61 | 62 6c 65 20 65 6e 74 72 | hash ta|ble entr|
|00002820| 79 2e 20 49 66 20 6b 65 | 79 20 69 73 20 6e 75 6c |y. If ke|y is nul|
|00002830| 6c 2c 20 74 68 65 20 65 | 6e 74 69 72 65 20 68 61 |l, the e|ntire ha|
|00002840| 73 68 0a 58 20 2a 20 74 | 61 62 6c 65 20 69 73 20 |sh.X * t|able is |
|00002850| 72 65 6d 6f 76 65 64 2e | 0a 58 20 2a 2f 0a 58 76 |removed.|.X */.Xv|
|00002860| 6f 69 64 0a 58 68 74 72 | 6d 28 6b 65 79 2c 20 68 |oid.Xhtr|m(key, h|
|00002870| 61 73 68 29 0a 58 09 63 | 68 61 72 20 2a 6b 65 79 |ash).X.c|har *key|
|00002880| 3b 09 09 09 2f 2a 20 6b | 65 79 20 66 6f 72 20 68 |;.../* k|ey for h|
|00002890| 61 73 68 20 74 61 62 6c | 65 20 65 6e 74 72 79 20 |ash tabl|e entry |
|000028a0| 2a 2f 0a 58 09 48 41 53 | 48 20 2a 68 61 73 68 3b |*/.X.HAS|H *hash;|
|000028b0| 09 09 09 2f 2a 20 68 61 | 73 68 20 74 61 62 6c 65 |.../* ha|sh table|
|000028c0| 20 2a 2f 0a 58 7b 0a 58 | 09 48 41 53 48 42 4c 4b | */.X{.X|.HASHBLK|
|000028d0| 20 2a 68 74 62 72 6d 28 | 29 3b 09 09 2f 2a 20 72 | *htbrm(|);../* r|
|000028e0| 65 6d 6f 76 65 20 68 61 | 73 68 20 74 61 62 6c 65 |emove ha|sh table|
|000028f0| 20 62 6c 6f 63 6b 20 2a | 2f 0a 58 09 48 41 53 48 | block *|/.X.HASH|
|00002900| 42 4c 4b 20 2a 68 74 63 | 3b 09 09 09 2f 2a 20 66 |BLK *htc|;.../* f|
|00002910| 69 72 73 74 20 68 61 73 | 68 20 74 61 62 6c 65 20 |irst has|h table |
|00002920| 62 6c 6f 63 6b 20 69 6e | 20 63 68 61 69 6e 20 2a |block in| chain *|
|00002930| 2f 0a 58 09 69 6e 74 20 | 68 61 73 68 76 61 6c 3b |/.X.int |hashval;|
|00002940| 09 09 09 2f 2a 20 68 61 | 73 68 20 76 61 6c 75 65 |.../* ha|sh value|
|00002950| 20 66 6f 72 20 6b 65 79 | 20 2a 2f 0a 58 09 69 6e | for key| */.X.in|
|00002960| 74 20 68 74 68 61 73 68 | 28 29 3b 09 09 09 2f 2a |t hthash|();.../*|
|00002970| 20 63 6f 6d 70 75 74 65 | 20 68 61 73 68 20 76 61 | compute| hash va|
|00002980| 6c 75 65 20 2a 2f 0a 58 | 09 69 6e 74 20 69 3b 09 |lue */.X|.int i;.|
|00002990| 09 09 09 2f 2a 20 68 61 | 73 68 20 74 61 62 6c 65 |.../* ha|sh table|
|000029a0| 20 69 6e 64 65 78 20 2a | 2f 0a 58 0a 58 09 69 66 | index *|/.X.X.if|
|000029b0| 20 28 6b 65 79 20 3d 3d | 20 4e 55 4c 4c 29 0a 58 | (key ==| NULL).X|
|000029c0| 09 09 7b 0a 58 09 09 66 | 6f 72 20 28 69 20 3d 20 |..{.X..f|or (i = |
|000029d0| 30 3b 20 69 20 3c 20 68 | 61 73 68 2d 3e 68 61 73 |0; i < h|ash->has|
|000029e0| 68 73 69 7a 3b 20 69 2b | 2b 29 0a 58 09 09 09 69 |hsiz; i+|+).X...i|
|000029f0| 66 20 28 28 68 74 63 20 | 3d 20 28 68 61 73 68 2d |f ((htc |= (hash-|
|00002a00| 3e 68 61 73 68 74 61 62 | 29 5b 69 5d 29 20 21 3d |>hashtab|)[i]) !=|
|00002a10| 20 4e 55 4c 4c 29 0a 58 | 09 09 09 09 68 74 63 20 | NULL).X|....htc |
|00002a20| 3d 20 68 74 62 72 6d 28 | 6b 65 79 2c 20 68 74 63 |= htbrm(|key, htc|
|00002a30| 29 3b 0a 58 09 09 66 72 | 65 65 28 28 63 68 61 72 |);.X..fr|ee((char|
|00002a40| 20 2a 29 20 68 61 73 68 | 29 3b 0a 58 09 09 7d 0a | *) hash|);.X..}.|
|00002a50| 58 09 65 6c 73 65 09 7b | 0a 58 09 09 68 61 73 68 |X.else.{|.X..hash|
|00002a60| 76 61 6c 20 3d 20 68 74 | 68 61 73 68 28 6b 65 79 |val = ht|hash(key|
|00002a70| 2c 20 68 61 73 68 29 3b | 0a 58 09 09 69 66 20 28 |, hash);|.X..if (|
|00002a80| 28 68 74 63 20 3d 20 28 | 68 61 73 68 2d 3e 68 61 |(htc = (|hash->ha|
|00002a90| 73 68 74 61 62 29 5b 68 | 61 73 68 76 61 6c 5d 29 |shtab)[h|ashval])|
|00002aa0| 20 21 3d 20 4e 55 4c 4c | 29 0a 58 09 09 09 28 68 | != NULL|).X...(h|
|00002ab0| 61 73 68 2d 3e 68 61 73 | 68 74 61 62 29 5b 68 61 |ash->has|htab)[ha|
|00002ac0| 73 68 76 61 6c 5d 20 3d | 20 68 74 62 72 6d 28 6b |shval] =| htbrm(k|
|00002ad0| 65 79 2c 20 68 74 63 29 | 3b 0a 58 09 09 7d 0a 58 |ey, htc)|;.X..}.X|
|00002ae0| 7d 0a 58 0a 58 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |}.X.X.X.|X/*.X * |
|00002af0| 68 74 62 72 6d 28 29 20 | 72 65 6d 6f 76 65 73 20 |htbrm() |removes |
|00002b00| 61 20 68 61 73 68 20 74 | 61 62 6c 65 20 62 6c 6f |a hash t|able blo|
|00002b10| 63 6b 20 69 64 65 6e 74 | 69 66 69 65 64 20 62 79 |ck ident|ified by|
|00002b20| 20 6b 65 79 2e 20 49 66 | 20 6b 65 79 20 69 73 20 | key. If| key is |
|00002b30| 6e 75 6c 6c 2c 20 74 68 | 65 0a 58 20 2a 20 65 6e |null, th|e.X * en|
|00002b40| 74 69 72 65 20 63 68 61 | 69 6e 20 69 73 20 72 65 |tire cha|in is re|
|00002b50| 6d 6f 76 65 64 2e 20 52 | 65 74 75 72 6e 73 20 61 |moved. R|eturns a|
|00002b60| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 74 68 65 20 | pointer| to the |
|00002b70| 66 69 72 73 74 20 62 6c | 6f 63 6b 20 69 6e 20 74 |first bl|ock in t|
|00002b80| 68 65 20 63 68 61 69 6e | 2e 0a 58 20 2a 2f 0a 58 |he chain|..X */.X|
|00002b90| 48 41 53 48 42 4c 4b 20 | 2a 0a 58 68 74 62 72 6d |HASHBLK |*.Xhtbrm|
|00002ba0| 28 6b 65 79 2c 20 68 74 | 63 29 0a 58 09 63 68 61 |(key, ht|c).X.cha|
|00002bb0| 72 20 2a 6b 65 79 3b 09 | 09 09 2f 2a 20 6b 65 79 |r *key;.|../* key|
|00002bc0| 20 73 74 72 69 6e 67 20 | 2a 2f 0a 58 09 48 41 53 | string |*/.X.HAS|
|00002bd0| 48 42 4c 4b 20 2a 68 74 | 63 3b 09 09 09 2f 2a 20 |HBLK *ht|c;.../* |
|00002be0| 68 61 73 68 20 74 61 62 | 6c 65 20 62 6c 6f 63 6b |hash tab|le block|
|00002bf0| 20 63 68 61 69 6e 20 2a | 2f 0a 58 7b 0a 58 09 48 | chain *|/.X{.X.H|
|00002c00| 41 53 48 42 4c 4b 20 2a | 63 75 72 62 6c 6b 3b 09 |ASHBLK *|curblk;.|
|00002c10| 09 2f 2a 20 63 75 72 72 | 65 6e 74 20 6c 69 73 74 |./* curr|ent list|
|00002c20| 20 62 6c 6f 63 6b 20 2a | 2f 0a 58 09 48 41 53 48 | block *|/.X.HASH|
|00002c30| 42 4c 4b 20 2a 6e 78 74 | 62 6c 6b 3b 09 09 2f 2a |BLK *nxt|blk;../*|
|00002c40| 20 6e 65 78 74 20 6c 69 | 73 74 20 62 6c 6f 63 6b | next li|st block|
|00002c50| 20 2a 2f 0a 58 09 48 41 | 53 48 42 4c 4b 20 2a 70 | */.X.HA|SHBLK *p|
|00002c60| 72 76 62 6c 6b 3b 09 09 | 2f 2a 20 70 72 65 76 69 |rvblk;..|/* previ|
|00002c70| 6f 75 73 20 6c 69 73 74 | 20 62 6c 6f 63 6b 20 2a |ous list| block *|
|00002c80| 2f 0a 58 0a 58 09 69 66 | 20 28 6b 65 79 20 3d 3d |/.X.X.if| (key ==|
|00002c90| 20 4e 55 4c 4c 29 0a 58 | 09 09 77 68 69 6c 65 20 | NULL).X|..while |
|00002ca0| 28 68 74 63 20 21 3d 20 | 4e 55 4c 4c 29 0a 58 09 |(htc != |NULL).X.|
|00002cb0| 09 09 7b 0a 58 09 09 09 | 6e 78 74 62 6c 6b 20 3d |..{.X...|nxtblk =|
|00002cc0| 20 68 74 63 2d 3e 68 5f | 6e 65 78 74 3b 0a 58 09 | htc->h_|next;.X.|
|00002cd0| 09 09 66 72 65 65 28 68 | 74 63 2d 3e 68 5f 6b 65 |..free(h|tc->h_ke|
|00002ce0| 79 29 3b 0a 58 09 09 09 | 66 72 65 65 28 68 74 63 |y);.X...|free(htc|
|00002cf0| 2d 3e 68 5f 64 65 66 29 | 3b 0a 58 09 09 09 66 72 |->h_def)|;.X...fr|
|00002d00| 65 65 28 28 63 68 61 72 | 20 2a 29 20 68 74 63 29 |ee((char| *) htc)|
|00002d10| 3b 0a 58 09 09 09 68 74 | 63 20 3d 20 6e 78 74 62 |;.X...ht|c = nxtb|
|00002d20| 6c 6b 3b 0a 58 09 09 09 | 7d 0a 58 09 65 6c 73 65 |lk;.X...|}.X.else|
|00002d30| 09 7b 0a 58 09 09 2f 2a | 20 66 69 72 73 74 20 62 |.{.X../*| first b|
|00002d40| 6c 6f 63 6b 20 69 73 20 | 61 20 73 70 65 63 69 61 |lock is |a specia|
|00002d50| 6c 20 63 61 73 65 20 2a | 2f 0a 58 09 09 69 66 20 |l case *|/.X..if |
|00002d60| 28 45 51 55 41 4c 28 68 | 74 63 2d 3e 68 5f 6b 65 |(EQUAL(h|tc->h_ke|
|00002d70| 79 2c 20 6b 65 79 29 29 | 0a 58 09 09 09 7b 0a 58 |y, key))|.X...{.X|
|00002d80| 09 09 09 6e 78 74 62 6c | 6b 20 3d 20 68 74 63 2d |...nxtbl|k = htc-|
|00002d90| 3e 68 5f 6e 65 78 74 3b | 0a 58 09 09 09 66 72 65 |>h_next;|.X...fre|
|00002da0| 65 28 68 74 63 2d 3e 68 | 5f 6b 65 79 29 3b 0a 58 |e(htc->h|_key);.X|
|00002db0| 09 09 09 66 72 65 65 28 | 68 74 63 2d 3e 68 5f 64 |...free(|htc->h_d|
|00002dc0| 65 66 29 3b 0a 58 09 09 | 09 66 72 65 65 28 28 63 |ef);.X..|.free((c|
|00002dd0| 68 61 72 20 2a 29 20 68 | 74 63 29 3b 0a 58 09 09 |har *) h|tc);.X..|
|00002de0| 09 68 74 63 20 3d 20 6e | 78 74 62 6c 6b 3b 0a 58 |.htc = n|xtblk;.X|
|00002df0| 09 09 09 7d 0a 58 09 09 | 65 6c 73 65 09 7b 0a 58 |...}.X..|else.{.X|
|00002e00| 09 09 09 2f 2a 20 72 65 | 6d 61 69 6e 64 65 72 20 |.../* re|mainder |
|00002e10| 6f 66 20 6c 69 73 74 20 | 2a 2f 0a 58 09 09 09 70 |of list |*/.X...p|
|00002e20| 72 76 62 6c 6b 20 3d 20 | 68 74 63 3b 0a 58 09 09 |rvblk = |htc;.X..|
|00002e30| 09 63 75 72 62 6c 6b 20 | 3d 20 68 74 63 2d 3e 68 |.curblk |= htc->h|
|00002e40| 5f 6e 65 78 74 3b 0a 58 | 09 09 09 77 68 69 6c 65 |_next;.X|...while|
|00002e50| 20 28 63 75 72 62 6c 6b | 20 21 3d 20 4e 55 4c 4c | (curblk| != NULL|
|00002e60| 29 0a 58 09 09 09 09 69 | 66 20 28 45 51 55 41 4c |).X....i|f (EQUAL|
|00002e70| 28 63 75 72 62 6c 6b 2d | 3e 68 5f 6b 65 79 2c 20 |(curblk-|>h_key, |
|00002e80| 6b 65 79 29 29 0a 58 09 | 09 09 09 09 7b 0a 58 09 |key)).X.|....{.X.|
|00002e90| 09 09 09 09 70 72 76 62 | 6c 6b 2d 3e 68 5f 6e 65 |....prvb|lk->h_ne|
|00002ea0| 78 74 20 3d 20 63 75 72 | 62 6c 6b 2d 3e 68 5f 6e |xt = cur|blk->h_n|
|00002eb0| 65 78 74 3b 0a 58 09 09 | 09 09 09 66 72 65 65 28 |ext;.X..|...free(|
|00002ec0| 63 75 72 62 6c 6b 2d 3e | 68 5f 6b 65 79 29 3b 0a |curblk->|h_key);.|
|00002ed0| 58 09 09 09 09 09 66 72 | 65 65 28 63 75 72 62 6c |X.....fr|ee(curbl|
|00002ee0| 6b 2d 3e 68 5f 64 65 66 | 29 3b 0a 58 09 09 09 09 |k->h_def|);.X....|
|00002ef0| 09 66 72 65 65 28 28 63 | 68 61 72 20 2a 29 20 63 |.free((c|har *) c|
|00002f00| 75 72 62 6c 6b 29 3b 0a | 58 09 09 09 09 09 63 75 |urblk);.|X.....cu|
|00002f10| 72 62 6c 6b 20 3d 20 70 | 72 76 62 6c 6b 2d 3e 68 |rblk = p|rvblk->h|
|00002f20| 5f 6e 65 78 74 3b 0a 58 | 09 09 09 09 09 62 72 65 |_next;.X|.....bre|
|00002f30| 61 6b 3b 0a 58 09 09 09 | 09 09 7d 0a 58 09 09 09 |ak;.X...|..}.X...|
|00002f40| 09 65 6c 73 65 09 7b 0a | 58 09 09 09 09 09 70 72 |.else.{.|X.....pr|
|00002f50| 76 62 6c 6b 20 3d 20 63 | 75 72 62 6c 6b 3b 0a 58 |vblk = c|urblk;.X|
|00002f60| 09 09 09 09 09 63 75 72 | 62 6c 6b 20 3d 20 63 75 |.....cur|blk = cu|
|00002f70| 72 62 6c 6b 2d 3e 68 5f | 6e 65 78 74 3b 0a 58 09 |rblk->h_|next;.X.|
|00002f80| 09 09 09 09 7d 0a 58 09 | 09 09 7d 0a 58 09 09 7d |....}.X.|..}.X..}|
|00002f90| 0a 58 09 72 65 74 75 72 | 6e 28 68 74 63 29 3b 0a |.X.retur|n(htc);.|
|00002fa0| 58 7d 0a 40 5c 45 6e 64 | 5c 6f 66 5c 46 69 6c 65 |X}.@\End|\of\File|
|00002fb0| 5c 0a 65 6c 73 65 0a 20 | 20 65 63 68 6f 20 22 73 |\.else. | echo "s|
|00002fc0| 68 61 72 3a 20 57 69 6c | 6c 20 6e 6f 74 20 6f 76 |har: Wil|l not ov|
|00002fd0| 65 72 20 77 72 69 74 65 | 20 73 72 63 2f 68 61 73 |er write| src/has|
|00002fe0| 68 2e 63 22 0a 66 69 0a | 69 66 20 60 74 65 73 74 |h.c".fi.|if `test|
|00002ff0| 20 21 20 2d 73 20 73 72 | 63 2f 69 6f 6c 69 6e 2e | ! -s sr|c/iolin.|
|00003000| 63 60 0a 74 68 65 6e 0a | 65 63 68 6f 20 22 78 20 |c`.then.|echo "x |
|00003010| 2d 20 73 72 63 2f 69 6f | 6c 69 6e 2e 63 22 0a 73 |- src/io|lin.c".s|
|00003020| 65 64 20 27 73 2f 5e 58 | 2f 2f 27 20 3e 20 73 72 |ed 's/^X|//' > sr|
|00003030| 63 2f 69 6f 6c 69 6e 2e | 63 20 3c 3c 20 27 40 5c |c/iolin.|c << '@\|
|00003040| 45 6e 64 5c 6f 66 5c 46 | 69 6c 65 5c 27 0a 58 2f |End\of\F|ile\'.X/|
|00003050| 2a 20 24 48 65 61 64 65 | 72 3a 20 69 6f 6c 69 6e |* $Heade|r: iolin|
|00003060| 2e 63 2c 76 20 31 2e 31 | 20 38 35 2f 30 33 2f 31 |.c,v 1.1| 85/03/1|
|00003070| 34 20 31 35 3a 33 38 3a | 32 35 20 6e 69 63 6b 6c |4 15:38:|25 nickl|
|00003080| 69 6e 20 45 78 70 20 24 | 20 2a 2f 0a 58 0a 58 2f |in Exp $| */.X.X/|
|00003090| 2a 0a 58 20 2a 20 41 75 | 74 68 6f 72 3a 20 50 65 |*.X * Au|thor: Pe|
|000030a0| 74 65 72 20 4a 2e 20 4e | 69 63 6b 6c 69 6e 0a 58 |ter J. N|icklin.X|
|000030b0| 20 2a 2f 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 73 | */.X#in|clude <s|
|000030c0| 74 64 69 6f 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |tdio.h>.|X#includ|
|000030d0| 65 20 22 79 65 73 6e 6f | 2e 68 22 0a 58 0a 58 63 |e "yesno|.h".X.Xc|
|000030e0| 68 61 72 20 49 4f 42 55 | 46 5b 42 55 46 53 49 5a |har IOBU|F[BUFSIZ|
|000030f0| 5d 3b 09 09 09 2f 2a 20 | 49 2f 4f 20 6c 69 6e 65 |];.../* |I/O line|
|00003100| 20 62 75 66 66 65 72 20 | 2a 2f 0a 58 73 68 6f 72 | buffer |*/.Xshor|
|00003110| 74 20 43 4f 4e 54 49 4e | 55 45 3b 09 09 09 09 2f |t CONTIN|UE;..../|
|00003120| 2a 20 64 6f 65 73 20 74 | 68 65 20 6c 69 6e 65 20 |* does t|he line |
|00003130| 63 6f 6e 74 69 6e 75 65 | 3f 20 2a 2f 0a 58 0a 58 |continue|? */.X.X|
|00003140| 2f 2a 0a 58 20 2a 20 67 | 65 74 6c 69 6e 28 29 20 |/*.X * g|etlin() |
|00003150| 73 74 6f 72 65 73 20 61 | 20 6c 69 6e 65 20 66 72 |stores a| line fr|
|00003160| 6f 6d 20 69 6e 70 75 74 | 20 73 74 72 65 61 6d 20 |om input| stream |
|00003170| 69 6e 20 49 4f 42 55 46 | 2e 20 54 68 65 20 73 74 |in IOBUF|. The st|
|00003180| 72 69 6e 67 20 69 73 20 | 74 65 72 6d 69 6e 61 74 |ring is |terminat|
|00003190| 65 64 0a 58 20 2a 20 62 | 79 20 61 20 6e 65 77 6c |ed.X * b|y a newl|
|000031a0| 69 6e 65 20 63 68 61 72 | 61 63 74 65 72 20 77 68 |ine char|acter wh|
|000031b0| 69 63 68 20 69 73 20 72 | 65 70 6c 61 63 65 64 20 |ich is r|eplaced |
|000031c0| 62 79 20 61 20 6e 75 6c | 6c 20 63 68 61 72 61 63 |by a nul|l charac|
|000031d0| 74 65 72 2e 20 67 65 74 | 6c 69 6e 28 29 0a 58 20 |ter. get|lin().X |
|000031e0| 2a 20 72 65 74 75 72 6e | 73 20 49 4f 42 55 46 2c |* return|s IOBUF,|
|000031f0| 20 6f 72 20 6e 75 6c 6c | 20 70 6f 69 6e 74 65 72 | or null| pointer|
|00003200| 20 75 70 6f 6e 20 65 6e | 64 20 6f 66 20 66 69 6c | upon en|d of fil|
|00003210| 65 2e 0a 58 20 2a 2f 0a | 58 63 68 61 72 20 2a 0a |e..X */.|Xchar *.|
|00003220| 58 67 65 74 6c 69 6e 28 | 73 74 72 65 61 6d 29 0a |Xgetlin(|stream).|
|00003230| 58 09 72 65 67 69 73 74 | 65 72 20 46 49 4c 45 20 |X.regist|er FILE |
|00003240| 2a 73 74 72 65 61 6d 3b | 09 09 2f 2a 20 69 6e 70 |*stream;|../* inp|
|00003250| 75 74 20 73 74 72 65 61 | 6d 20 2a 2f 0a 58 7b 0a |ut strea|m */.X{.|
|00003260| 58 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 63 |X.regist|er int c|
|00003270| 3b 09 09 09 2f 2a 20 63 | 75 72 72 65 6e 74 20 63 |;.../* c|urrent c|
|00003280| 68 61 72 61 63 74 65 72 | 20 2a 2f 0a 58 09 72 65 |haracter| */.X.re|
|00003290| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 69 6f 70 |gister c|har *iop|
|000032a0| 3b 09 09 2f 2a 20 49 4f | 42 55 46 20 70 6f 69 6e |;../* IO|BUF poin|
|000032b0| 74 65 72 20 2a 2f 0a 58 | 0a 58 09 69 6f 70 20 3d |ter */.X|.X.iop =|
|000032c0| 20 49 4f 42 55 46 3b 0a | 58 09 77 68 69 6c 65 20 | IOBUF;.|X.while |
|000032d0| 28 28 63 20 3d 20 67 65 | 74 63 28 73 74 72 65 61 |((c = ge|tc(strea|
|000032e0| 6d 29 29 20 21 3d 20 27 | 5c 6e 27 20 26 26 20 63 |m)) != '|\n' && c|
|000032f0| 20 21 3d 20 45 4f 46 29 | 0a 58 09 09 2a 69 6f 70 | != EOF)|.X..*iop|
|00003300| 2b 2b 20 3d 20 63 3b 0a | 58 09 69 66 20 28 63 20 |++ = c;.|X.if (c |
|00003310| 3d 3d 20 45 4f 46 20 26 | 26 20 69 6f 70 20 3d 3d |== EOF &|& iop ==|
|00003320| 20 49 4f 42 55 46 29 0a | 58 09 09 72 65 74 75 72 | IOBUF).|X..retur|
|00003330| 6e 28 4e 55 4c 4c 29 3b | 0a 58 09 69 66 20 28 69 |n(NULL);|.X.if (i|
|00003340| 6f 70 20 21 3d 20 49 4f | 42 55 46 20 26 26 20 69 |op != IO|BUF && i|
|00003350| 6f 70 5b 2d 31 5d 20 3d | 3d 20 27 5c 5c 27 29 0a |op[-1] =|= '\\').|
|00003360| 58 09 09 7b 0a 58 09 09 | 69 6f 70 5b 2d 31 5d 20 |X..{.X..|iop[-1] |
|00003370| 3d 20 27 5c 30 27 3b 0a | 58 09 09 43 4f 4e 54 49 |= '\0';.|X..CONTI|
|00003380| 4e 55 45 20 3d 20 59 45 | 53 3b 0a 58 09 09 7d 0a |NUE = YE|S;.X..}.|
|00003390| 58 09 65 6c 73 65 09 7b | 0a 58 09 09 69 6f 70 5b |X.else.{|.X..iop[|
|000033a0| 30 5d 20 3d 20 27 5c 30 | 27 3b 0a 58 09 09 43 4f |0] = '\0|';.X..CO|
|000033b0| 4e 54 49 4e 55 45 20 3d | 20 4e 4f 3b 0a 58 09 09 |NTINUE =| NO;.X..|
|000033c0| 7d 0a 58 09 72 65 74 75 | 72 6e 28 49 4f 42 55 46 |}.X.retu|rn(IOBUF|
|000033d0| 29 3b 0a 58 7d 0a 58 0a | 58 0a 58 0a 58 2f 2a 0a |);.X}.X.|X.X.X/*.|
|000033e0| 58 20 2a 20 70 75 72 67 | 63 6f 6e 74 69 6e 75 65 |X * purg|continue|
|000033f0| 28 29 20 65 61 74 73 20 | 75 70 20 63 6f 6e 74 69 |() eats |up conti|
|00003400| 6e 75 61 74 69 6f 6e 20 | 6c 69 6e 65 73 20 66 72 |nuation |lines fr|
|00003410| 6f 6d 20 61 6e 20 69 6e | 70 75 74 20 73 74 72 65 |om an in|put stre|
|00003420| 61 6d 2e 0a 58 20 2a 2f | 0a 58 76 6f 69 64 0a 58 |am..X */|.Xvoid.X|
|00003430| 70 75 72 67 63 6f 6e 74 | 69 6e 75 65 28 73 74 72 |purgcont|inue(str|
|00003440| 65 61 6d 29 0a 58 09 72 | 65 67 69 73 74 65 72 20 |eam).X.r|egister |
|00003450| 46 49 4c 45 20 2a 73 74 | 72 65 61 6d 3b 09 09 2f |FILE *st|ream;../|
|00003460| 2a 20 69 6e 70 75 74 20 | 73 74 72 65 61 6d 20 2a |* input |stream *|
|00003470| 2f 0a 58 7b 0a 58 09 72 | 65 67 69 73 74 65 72 20 |/.X{.X.r|egister |
|00003480| 69 6e 74 20 63 3b 09 09 | 09 2f 2a 20 63 75 72 72 |int c;..|./* curr|
|00003490| 65 6e 74 20 63 68 61 72 | 61 63 74 65 72 20 2a 2f |ent char|acter */|
|000034a0| 0a 58 09 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |.X.regis|ter int |
|000034b0| 6c 61 73 74 63 3b 09 09 | 2f 2a 20 70 72 65 76 69 |lastc;..|/* previ|
|000034c0| 6f 75 73 20 63 68 61 72 | 61 63 74 65 72 20 2a 2f |ous char|acter */|
|000034d0| 0a 58 0a 58 09 69 66 20 | 28 43 4f 4e 54 49 4e 55 |.X.X.if |(CONTINU|
|000034e0| 45 20 3d 3d 20 59 45 53 | 29 0a 58 09 09 7b 0a 58 |E == YES|).X..{.X|
|000034f0| 09 09 66 6f 72 20 28 3b | 3b 29 0a 58 09 09 09 7b |..for (;|;).X...{|
|00003500| 0a 58 09 09 09 77 68 69 | 6c 65 20 28 28 63 20 3d |.X...whi|le ((c =|
|00003510| 20 67 65 74 63 28 73 74 | 72 65 61 6d 29 29 20 21 | getc(st|ream)) !|
|00003520| 3d 20 27 5c 6e 27 20 26 | 26 20 63 20 21 3d 20 45 |= '\n' &|& c != E|
|00003530| 4f 46 29 0a 58 09 09 09 | 09 6c 61 73 74 63 20 3d |OF).X...|.lastc =|
|00003540| 20 63 3b 0a 58 09 09 09 | 69 66 20 28 63 20 3d 3d | c;.X...|if (c ==|
|00003550| 20 45 4f 46 20 7c 7c 20 | 28 63 20 3d 3d 20 27 5c | EOF || |(c == '\|
|00003560| 6e 27 20 26 26 20 6c 61 | 73 74 63 20 21 3d 20 27 |n' && la|stc != '|
|00003570| 5c 5c 27 29 29 0a 58 09 | 09 09 09 62 72 65 61 6b |\\')).X.|...break|
|00003580| 3b 0a 58 09 09 09 7d 0a | 58 09 09 43 4f 4e 54 49 |;.X...}.|X..CONTI|
|00003590| 4e 55 45 20 3d 20 4e 4f | 3b 0a 58 09 09 7d 0a 58 |NUE = NO|;.X..}.X|
|000035a0| 7d 0a 58 0a 58 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |}.X.X.X.|X/*.X * |
|000035b0| 70 75 74 6c 69 6e 28 29 | 20 77 72 69 74 65 73 20 |putlin()| writes |
|000035c0| 49 4f 42 55 46 20 74 6f | 20 73 74 72 65 61 6d 20 |IOBUF to| stream |
|000035d0| 61 6e 64 20 61 70 70 65 | 6e 64 73 20 61 20 6e 65 |and appe|nds a ne|
|000035e0| 77 6c 69 6e 65 20 63 68 | 61 72 61 63 74 65 72 2e |wline ch|aracter.|
|000035f0| 20 49 66 0a 58 20 2a 20 | 49 4f 42 55 46 20 68 6f | If.X * |IOBUF ho|
|00003600| 6c 64 73 20 61 20 43 4f | 4e 54 49 4e 55 45 20 6c |lds a CO|NTINUE l|
|00003610| 69 6e 65 2c 20 61 20 60 | 5c 27 20 70 72 65 63 65 |ine, a `|\' prece|
|00003620| 64 65 73 20 74 68 65 20 | 6e 65 77 6c 69 6e 65 2e |des the |newline.|
|00003630| 0a 58 20 2a 2f 0a 58 76 | 6f 69 64 0a 58 70 75 74 |.X */.Xv|oid.Xput|
|00003640| 6c 69 6e 28 73 74 72 65 | 61 6d 29 0a 58 09 72 65 |lin(stre|am).X.re|
|00003650| 67 69 73 74 65 72 20 46 | 49 4c 45 20 2a 73 74 72 |gister F|ILE *str|
|00003660| 65 61 6d 3b 09 09 2f 2a | 20 6f 75 74 70 75 74 20 |eam;../*| output |
|00003670| 73 74 72 65 61 6d 20 2a | 2f 0a 58 7b 0a 58 09 72 |stream *|/.X{.X.r|
|00003680| 65 67 69 73 74 65 72 20 | 69 6e 74 20 63 3b 09 09 |egister |int c;..|
|00003690| 09 2f 2a 20 63 75 72 72 | 65 6e 74 20 63 68 61 72 |./* curr|ent char|
|000036a0| 61 63 74 65 72 20 2a 2f | 0a 58 09 72 65 67 69 73 |acter */|.X.regis|
|000036b0| 74 65 72 20 63 68 61 72 | 20 2a 69 6f 70 3b 09 09 |ter char| *iop;..|
|000036c0| 2f 2a 20 49 4f 42 55 46 | 20 70 6f 69 6e 74 65 72 |/* IOBUF| pointer|
|000036d0| 20 2a 2f 0a 58 0a 58 09 | 69 6f 70 20 3d 20 49 4f | */.X.X.|iop = IO|
|000036e0| 42 55 46 3b 0a 58 09 77 | 68 69 6c 65 20 28 63 20 |BUF;.X.w|hile (c |
|000036f0| 3d 20 2a 69 6f 70 2b 2b | 29 0a 58 09 09 70 75 74 |= *iop++|).X..put|
|00003700| 63 28 63 2c 20 73 74 72 | 65 61 6d 29 3b 0a 58 09 |c(c, str|eam);.X.|
|00003710| 69 66 20 28 43 4f 4e 54 | 49 4e 55 45 20 3d 3d 20 |if (CONT|INUE == |
|00003720| 59 45 53 29 0a 58 09 09 | 70 75 74 63 28 27 5c 5c |YES).X..|putc('\\|
|00003730| 27 2c 20 73 74 72 65 61 | 6d 29 3b 0a 58 09 70 75 |', strea|m);.X.pu|
|00003740| 74 63 28 27 5c 6e 27 2c | 20 73 74 72 65 61 6d 29 |tc('\n',| stream)|
|00003750| 3b 0a 58 7d 0a 40 5c 45 | 6e 64 5c 6f 66 5c 46 69 |;.X}.@\E|nd\of\Fi|
|00003760| 6c 65 5c 0a 65 6c 73 65 | 0a 20 20 65 63 68 6f 20 |le\.else|.  echo |
|00003770| 22 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 |"shar: W|ill not |
|00003780| 6f 76 65 72 20 77 72 69 | 74 65 20 73 72 63 2f 69 |over wri|te src/i|
|00003790| 6f 6c 69 6e 2e 63 22 0a | 66 69 0a 69 66 20 60 74 |olin.c".|fi.if `t|
|000037a0| 65 73 74 20 21 20 2d 73 | 20 73 72 63 2f 6d 61 63 |est ! -s| src/mac|
|000037b0| 72 6f 2e 63 60 0a 74 68 | 65 6e 0a 65 63 68 6f 20 |ro.c`.th|en.echo |
|000037c0| 22 78 20 2d 20 73 72 63 | 2f 6d 61 63 72 6f 2e 63 |"x - src|/macro.c|
|000037d0| 22 0a 73 65 64 20 27 73 | 2f 5e 58 2f 2f 27 20 3e |".sed 's|/^X//' >|
|000037e0| 20 73 72 63 2f 6d 61 63 | 72 6f 2e 63 20 3c 3c 20 | src/mac|ro.c << |
|000037f0| 27 40 5c 45 6e 64 5c 6f | 66 5c 46 69 6c 65 5c 27 |'@\End\o|f\File\'|
|00003800| 0a 58 2f 2a 20 24 48 65 | 61 64 65 72 3a 20 6d 61 |.X/* $He|ader: ma|
|00003810| 63 72 6f 2e 63 2c 76 20 | 31 2e 33 20 38 35 2f 30 |cro.c,v |1.3 85/0|
|00003820| 35 2f 30 32 20 30 37 3a | 35 33 3a 35 32 20 6e 69 |5/02 07:|53:52 ni|
|00003830| 63 6b 6c 69 6e 20 45 78 | 70 20 24 20 2a 2f 0a 58 |cklin Ex|p $ */.X|
|00003840| 0a 58 2f 2a 0a 58 20 2a | 20 41 75 74 68 6f 72 3a |.X/*.X *| Author:|
|00003850| 20 50 65 74 65 72 20 4a | 2e 20 4e 69 63 6b 6c 69 | Peter J|. Nickli|
|00003860| 6e 0a 58 20 2a 2f 0a 58 | 23 69 6e 63 6c 75 64 65 |n.X */.X|#include|
|00003870| 20 3c 63 74 79 70 65 2e | 68 3e 0a 58 23 69 6e 63 | <ctype.|h>.X#inc|
|00003880| 6c 75 64 65 20 3c 73 74 | 64 69 6f 2e 68 3e 0a 58 |lude <st|dio.h>.X|
|00003890| 23 69 6e 63 6c 75 64 65 | 20 22 4d 6b 6d 66 2e 68 |#include| "Mkmf.h|
|000038a0| 22 0a 58 23 69 6e 63 6c | 75 64 65 20 22 68 61 73 |".X#incl|ude "has|
|000038b0| 68 2e 68 22 0a 58 23 69 | 6e 63 6c 75 64 65 20 22 |h.h".X#i|nclude "|
|000038c0| 6d 61 63 72 6f 2e 68 22 | 0a 58 23 69 6e 63 6c 75 |macro.h"|.X#inclu|
|000038d0| 64 65 20 22 6e 75 6c 6c | 2e 68 22 0a 58 23 69 6e |de "null|.h".X#in|
|000038e0| 63 6c 75 64 65 20 22 73 | 6c 69 73 74 2e 68 22 0a |clude "s|list.h".|
|000038f0| 58 23 69 6e 63 6c 75 64 | 65 20 22 79 65 73 6e 6f |X#includ|e "yesno|
|00003900| 2e 68 22 0a 58 0a 58 65 | 78 74 65 72 6e 20 63 68 |.h".X.Xe|xtern ch|
|00003910| 61 72 20 49 4f 42 55 46 | 5b 5d 3b 09 09 09 2f 2a |ar IOBUF|[];.../*|
|00003920| 20 49 2f 4f 20 62 75 66 | 66 65 72 20 6c 69 6e 65 | I/O buf|fer line|
|00003930| 20 2a 2f 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 66 69 | */.X.X/|*.X * fi|
|00003940| 6e 64 6d 61 63 72 6f 28 | 29 20 73 65 61 72 63 68 |ndmacro(|) search|
|00003950| 73 20 61 20 6c 69 6e 65 | 20 66 6f 72 20 61 20 6d |s a line| for a m|
|00003960| 61 63 72 6f 20 64 65 66 | 69 6e 69 74 69 6f 6e 2e |acro def|inition.|
|00003970| 20 52 65 74 75 72 6e 73 | 20 74 68 65 20 6e 61 6d | Returns| the nam|
|00003980| 65 2c 0a 58 20 2a 20 6f | 72 20 6e 75 6c 6c 20 69 |e,.X * o|r null i|
|00003990| 66 20 6e 6f 74 20 66 6f | 75 6e 64 2e 0a 58 20 2a |f not fo|und..X *|
|000039a0| 2f 0a 58 63 68 61 72 20 | 2a 0a 58 66 69 6e 64 6d |/.Xchar |*.Xfindm|
|000039b0| 61 63 72 6f 28 6d 61 63 | 72 6f 6e 61 6d 65 2c 20 |acro(mac|roname, |
|000039c0| 62 70 29 0a 58 09 63 68 | 61 72 20 2a 6d 61 63 72 |bp).X.ch|ar *macr|
|000039d0| 6f 6e 61 6d 65 3b 09 09 | 2f 2a 20 6d 61 63 72 6f |oname;..|/* macro|
|000039e0| 20 6e 61 6d 65 20 72 65 | 63 65 69 76 69 6e 67 20 | name re|ceiving |
|000039f0| 62 75 66 66 65 72 20 2a | 2f 0a 58 09 72 65 67 69 |buffer *|/.X.regi|
|00003a00| 73 74 65 72 20 63 68 61 | 72 20 2a 62 70 3b 09 09 |ster cha|r *bp;..|
|00003a10| 2f 2a 20 62 75 66 66 65 | 72 20 70 6f 69 6e 74 65 |/* buffe|r pointe|
|00003a20| 72 20 2a 2f 0a 58 7b 0a | 58 09 72 65 67 69 73 74 |r */.X{.|X.regist|
|00003a30| 65 72 20 63 68 61 72 20 | 2a 6d 70 3b 09 09 2f 2a |er char |*mp;../*|
|00003a40| 20 6d 61 63 72 6f 20 6e | 61 6d 65 20 70 6f 69 6e | macro n|ame poin|
|00003a50| 74 65 72 20 2a 2f 0a 58 | 0a 58 09 6d 70 20 3d 20 |ter */.X|.X.mp = |
|00003a60| 6d 61 63 72 6f 6e 61 6d | 65 3b 0a 58 09 77 68 69 |macronam|e;.X.whi|
|00003a70| 6c 65 28 69 73 61 6c 6e | 75 6d 28 2a 62 70 29 29 |le(isaln|um(*bp))|
|00003a80| 0a 58 09 09 2a 6d 70 2b | 2b 20 3d 20 2a 62 70 2b |.X..*mp+|+ = *bp+|
|00003a90| 2b 3b 0a 58 09 2a 6d 70 | 20 3d 20 27 5c 30 27 3b |+;.X.*mp| = '\0';|
|00003aa0| 0a 58 09 77 68 69 6c 65 | 28 2a 62 70 20 3d 3d 20 |.X.while|(*bp == |
|00003ab0| 27 20 27 20 7c 7c 20 2a | 62 70 20 3d 3d 20 27 5c |' ' || *|bp == '\|
|00003ac0| 74 27 29 0a 58 09 09 62 | 70 2b 2b 3b 0a 58 09 69 |t').X..b|p++;.X.i|
|00003ad0| 66 20 28 2a 62 70 20 21 | 3d 20 27 3d 27 29 0a 58 |f (*bp !|= '=').X|
|00003ae0| 09 09 72 65 74 75 72 6e | 28 4e 55 4c 4c 29 3b 0a |..return|(NULL);.|
|00003af0| 58 09 72 65 74 75 72 6e | 28 6d 61 63 72 6f 6e 61 |X.return|(macrona|
|00003b00| 6d 65 29 3b 0a 58 7d 0a | 58 09 0a 58 0a 58 0a 58 |me);.X}.|X..X.X.X|
|00003b10| 2f 2a 0a 58 20 2a 20 67 | 65 74 6d 61 63 72 6f 28 |/*.X * g|etmacro(|
|00003b20| 29 20 6c 6f 61 64 73 20 | 74 68 65 20 62 6f 64 79 |) loads |the body|
|00003b30| 20 6f 66 20 61 20 6d 61 | 63 72 6f 20 64 65 66 69 | of a ma|cro defi|
|00003b40| 6e 69 74 69 6f 6e 20 69 | 6e 74 6f 20 6d 64 65 66 |nition i|nto mdef|
|00003b50| 62 75 66 20 61 6e 64 20 | 72 65 74 75 72 6e 73 0a |buf and |returns.|
|00003b60| 58 20 2a 20 61 20 70 6f | 69 6e 74 65 72 20 74 6f |X * a po|inter to|
|00003b70| 20 6d 64 65 66 62 75 66 | 2e 20 49 66 20 74 68 65 | mdefbuf|. If the|
|00003b80| 20 6d 61 63 72 6f 20 64 | 65 66 69 6e 69 74 69 6f | macro d|efinitio|
|00003b90| 6e 20 63 6f 6e 74 69 6e | 75 65 73 20 6f 6e 20 6d |n contin|ues on m|
|00003ba0| 6f 72 65 20 74 68 61 6e | 0a 58 20 2a 20 6f 6e 65 |ore than|.X * one|
|00003bb0| 20 6c 69 6e 65 20 66 75 | 72 74 68 65 72 20 6c 69 | line fu|rther li|
|00003bc0| 6e 65 73 20 61 72 65 20 | 66 65 74 63 68 65 64 20 |nes are |fetched |
|00003bd0| 66 72 6f 6d 20 74 68 65 | 20 69 6e 70 75 74 20 73 |from the| input s|
|00003be0| 74 72 65 61 6d 2e 0a 58 | 20 2a 2f 0a 58 63 68 61 |tream..X| */.Xcha|
|00003bf0| 72 20 2a 0a 58 67 65 74 | 6d 61 63 72 6f 28 6d 64 |r *.Xget|macro(md|
|00003c00| 65 66 62 75 66 2c 20 73 | 74 72 65 61 6d 29 0a 58 |efbuf, s|tream).X|
|00003c10| 09 63 68 61 72 20 2a 6d | 64 65 66 62 75 66 3b 09 |.char *m|defbuf;.|
|00003c20| 09 09 2f 2a 20 72 65 63 | 65 69 76 69 6e 67 20 6d |../* rec|eiving m|
|00003c30| 61 63 72 6f 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |acro def|inition |
|00003c40| 62 75 66 66 65 72 20 2a | 2f 0a 58 09 46 49 4c 45 |buffer *|/.X.FILE|
|00003c50| 20 2a 73 74 72 65 61 6d | 3b 09 09 09 2f 2a 20 69 | *stream|;.../* i|
|00003c60| 6e 70 75 74 20 73 74 72 | 65 61 6d 20 2a 2f 0a 58 |nput str|eam */.X|
|00003c70| 7b 0a 58 09 65 78 74 65 | 72 6e 20 73 68 6f 72 74 |{.X.exte|rn short|
|00003c80| 20 43 4f 4e 54 49 4e 55 | 45 3b 09 09 2f 2a 20 64 | CONTINU|E;../* d|
|00003c90| 6f 65 73 20 74 68 65 20 | 6c 69 6e 65 20 63 6f 6e |oes the |line con|
|00003ca0| 74 69 6e 75 65 3f 20 2a | 2f 0a 58 09 63 68 61 72 |tinue? *|/.X.char|
|00003cb0| 20 2a 67 65 74 6c 69 6e | 28 29 3b 09 09 09 2f 2a | *getlin|();.../*|
|00003cc0| 20 67 65 74 20 61 20 6c | 69 6e 65 20 66 72 6f 6d | get a l|ine from|
|00003cd0| 20 69 6e 70 75 74 20 73 | 74 72 65 61 6d 20 2a 2f | input s|tream */|
|00003ce0| 0a 58 09 72 65 67 69 73 | 74 65 72 20 63 68 61 72 |.X.regis|ter char|
|00003cf0| 20 2a 62 70 3b 09 09 2f | 2a 20 62 75 66 66 65 72 | *bp;../|* buffer|
|00003d00| 20 70 6f 69 6e 74 65 72 | 20 2a 2f 0a 58 09 72 65 | pointer| */.X.re|
|00003d10| 67 69 73 74 65 72 20 63 | 68 61 72 20 2a 6d 70 3b |gister c|har *mp;|
|00003d20| 09 09 2f 2a 20 6d 61 63 | 72 6f 20 64 65 66 69 6e |../* mac|ro defin|
|00003d30| 69 74 69 6f 6e 20 62 75 | 66 66 65 72 20 70 6f 69 |ition bu|ffer poi|
|00003d40| 6e 74 65 72 20 2a 2f 0a | 58 0a 58 09 62 70 20 3d |nter */.|X.X.bp =|
|00003d50| 20 49 4f 42 55 46 3b 0a | 58 09 6d 70 20 3d 20 6d | IOBUF;.|X.mp = m|
|00003d60| 64 65 66 62 75 66 3b 0a | 58 09 77 68 69 6c 65 20 |defbuf;.|X.while |
|00003d70| 28 2a 62 70 2b 2b 20 21 | 3d 20 27 3d 27 29 0a 58 |(*bp++ !|= '=').X|
|00003d80| 09 09 63 6f 6e 74 69 6e | 75 65 3b 0a 58 09 69 66 |..contin|ue;.X.if|
|00003d90| 20 28 57 48 49 54 45 53 | 50 41 43 45 28 2a 62 70 | (WHITES|PACE(*bp|
|00003da0| 29 29 0a 58 09 09 62 70 | 2b 2b 3b 0a 58 09 77 68 |)).X..bp|++;.X.wh|
|00003db0| 69 6c 65 20 28 2a 62 70 | 20 21 3d 20 27 5c 30 27 |ile (*bp| != '\0'|
|00003dc0| 29 0a 58 09 09 2a 6d 70 | 2b 2b 20 3d 20 2a 62 70 |).X..*mp|++ = *bp|
|00003dd0| 2b 2b 3b 0a 58 09 77 68 | 69 6c 65 20 28 43 4f 4e |++;.X.wh|ile (CON|
|00003de0| 54 49 4e 55 45 20 3d 3d | 20 59 45 53 29 0a 58 09 |TINUE ==| YES).X.|
|00003df0| 09 7b 0a 58 09 09 2a 6d | 70 2b 2b 20 3d 20 27 20 |.{.X..*m|p++ = ' |
|00003e00| 27 3b 0a 58 09 09 69 66 | 20 28 67 65 74 6c 69 6e |';.X..if| (getlin|
|00003e10| 28 73 74 72 65 61 6d 29 | 20 3d 3d 20 4e 55 4c 4c |(stream)| == NULL|
|00003e20| 29 0a 58 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |).X...br|eak;.X..|
|00003e30| 62 70 20 3d 20 49 4f 42 | 55 46 3b 0a 58 09 09 77 |bp = IOB|UF;.X..w|
|00003e40| 68 69 6c 65 20 28 2a 62 | 70 20 21 3d 20 27 5c 30 |hile (*b|p != '\0|
|00003e50| 27 29 0a 58 09 09 09 2a | 6d 70 2b 2b 20 3d 20 2a |').X...*|mp++ = *|
|00003e60| 62 70 2b 2b 3b 0a 58 09 | 09 7d 0a 58 09 2a 6d 70 |bp++;.X.|.}.X.*mp|
|00003e70| 20 3d 20 27 5c 30 27 3b | 0a 58 09 72 65 74 75 72 | = '\0';|.X.retur|
|00003e80| 6e 28 6d 64 65 66 62 75 | 66 29 3b 0a 58 7d 0a 58 |n(mdefbu|f);.X}.X|
|00003e90| 0a 58 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 70 75 74 |.X.X.X/*|.X * put|
|00003ea0| 6d 61 63 72 6f 28 29 20 | 70 72 69 6e 74 73 20 61 |macro() |prints a|
|00003eb0| 20 6d 61 63 72 6f 20 64 | 65 66 69 6e 69 74 69 6f | macro d|efinitio|
|00003ec0| 6e 20 66 72 6f 6d 20 74 | 68 65 20 6d 61 63 72 6f |n from t|he macro|
|00003ed0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 74 61 62 6c | definit|ion tabl|
|00003ee0| 65 2e 0a 58 20 2a 2f 0a | 58 76 6f 69 64 0a 58 70 |e..X */.|Xvoid.Xp|
|00003ef0| 75 74 6d 61 63 72 6f 28 | 6d 61 63 72 6f 76 61 6c |utmacro(|macroval|
|00003f00| 75 65 2c 20 73 74 72 65 | 61 6d 29 0a 58 09 63 68 |ue, stre|am).X.ch|
|00003f10| 61 72 20 2a 6d 61 63 72 | 6f 76 61 6c 75 65 3b 09 |ar *macr|ovalue;.|
|00003f20| 09 2f 2a 20 76 61 6c 75 | 65 20 6f 66 20 6d 61 63 |./* valu|e of mac|
|00003f30| 72 6f 20 64 65 66 69 6e | 69 74 69 6f 6e 20 2a 2f |ro defin|ition */|
|00003f40| 0a 58 09 72 65 67 69 73 | 74 65 72 20 46 49 4c 45 |.X.regis|ter FILE|
|00003f50| 20 2a 73 74 72 65 61 6d | 3b 09 09 2f 2a 20 6f 75 | *stream|;../* ou|
|00003f60| 74 70 75 74 20 73 74 72 | 65 61 6d 20 2a 2f 0a 58 |tput str|eam */.X|
|00003f70| 7b 0a 58 09 72 65 67 69 | 73 74 65 72 20 63 68 61 |{.X.regi|ster cha|
|00003f80| 72 20 2a 69 6f 70 3b 09 | 09 2f 2a 20 49 4f 42 55 |r *iop;.|./* IOBU|
|00003f90| 46 20 70 6f 69 6e 74 65 | 72 20 2a 2f 0a 58 09 72 |F pointe|r */.X.r|
|00003fa0| 65 67 69 73 74 65 72 20 | 69 6e 74 20 63 3b 09 09 |egister |int c;..|
|00003fb0| 09 2f 2a 20 63 75 72 72 | 65 6e 74 20 63 68 61 72 |./* curr|ent char|
|00003fc0| 61 63 74 65 72 20 2a 2f | 0a 58 0a 58 09 69 6f 70 |acter */|.X.X.iop|
|00003fd0| 20 3d 20 49 4f 42 55 46 | 3b 0a 58 09 77 68 69 6c | = IOBUF|;.X.whil|
|00003fe0| 65 20 28 28 63 20 3d 20 | 2a 69 6f 70 2b 2b 29 20 |e ((c = |*iop++) |
|00003ff0| 21 3d 20 27 3d 27 29 0a | 58 09 09 70 75 74 63 28 |!= '=').|X..putc(|
|00004000| 63 2c 20 73 74 72 65 61 | 6d 29 3b 0a 58 09 66 70 |c, strea|m);.X.fp|
|00004010| 72 69 6e 74 66 28 73 74 | 72 65 61 6d 2c 20 22 3d |rintf(st|ream, "=|
|00004020| 20 25 73 5c 6e 22 2c 20 | 6d 61 63 72 6f 76 61 6c | %s\n", |macroval|
|00004030| 75 65 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 0a 58 2f |ue);.X}.|X.X.X.X/|
|00004040| 2a 0a 58 20 2a 20 70 75 | 74 6f 62 6a 6d 61 63 72 |*.X * pu|tobjmacr|
|00004050| 6f 28 29 20 64 65 72 69 | 76 65 73 20 61 6e 64 20 |o() deri|ves and |
|00004060| 70 72 69 6e 74 73 20 6f | 62 6a 65 63 74 20 66 69 |prints o|bject fi|
|00004070| 6c 65 20 6e 61 6d 65 73 | 20 66 72 6f 6d 20 74 68 |le names| from th|
|00004080| 65 20 53 52 43 4c 49 53 | 54 20 6c 69 73 74 2e 0a |e SRCLIS|T list..|
|00004090| 58 20 2a 2f 0a 58 76 6f | 69 64 0a 58 70 75 74 6f |X */.Xvo|id.Xputo|
|000040a0| 62 6a 6d 61 63 72 6f 28 | 73 74 72 65 61 6d 29 0a |bjmacro(|stream).|
|000040b0| 58 09 72 65 67 69 73 74 | 65 72 20 46 49 4c 45 20 |X.regist|er FILE |
|000040c0| 2a 73 74 72 65 61 6d 3b | 09 09 2f 2a 20 6f 75 74 |*stream;|../* out|
|000040d0| 70 75 74 20 73 74 72 65 | 61 6d 20 2a 2f 0a 58 7b |put stre|am */.X{|
|000040e0| 0a 58 09 65 78 74 65 72 | 6e 20 53 4c 49 53 54 20 |.X.exter|n SLIST |
|000040f0| 2a 53 52 43 4c 49 53 54 | 3b 09 09 2f 2a 20 73 6f |*SRCLIST|;../* so|
|00004100| 75 72 63 65 20 66 69 6c | 65 20 6e 61 6d 65 20 6c |urce fil|e name l|
|00004110| 69 73 74 20 2a 2f 0a 58 | 09 72 65 67 69 73 74 65 |ist */.X|.registe|
|00004120| 72 20 63 68 61 72 20 2a | 69 6f 70 3b 09 09 2f 2a |r char *|iop;../*|
|00004130| 20 49 4f 42 55 46 20 70 | 6f 69 6e 74 65 72 20 2a | IOBUF p|ointer *|
|00004140| 2f 0a 58 09 72 65 67 69 | 73 74 65 72 20 69 6e 74 |/.X.regi|ster int|
|00004150| 20 63 3b 09 09 09 2f 2a | 20 63 75 72 72 65 6e 74 | c;.../*| current|
|00004160| 20 63 68 61 72 61 63 74 | 65 72 20 2a 2f 0a 58 09 | charact|er */.X.|
|00004170| 63 68 61 72 20 2a 72 69 | 6e 64 65 78 28 29 3b 09 |char *ri|ndex();.|
|00004180| 09 09 2f 2a 20 66 69 6e | 64 20 6c 61 73 74 20 6f |../* fin|d last o|
|00004190| 63 63 75 72 72 65 6e 63 | 65 20 6f 66 20 63 68 61 |ccurrenc|e of cha|
|000041a0| 72 61 63 74 65 72 20 2a | 2f 0a 58 09 63 68 61 72 |racter *|/.X.char|
|000041b0| 20 2a 73 75 66 66 69 78 | 3b 09 09 09 2f 2a 20 73 | *suffix|;.../* s|
|000041c0| 75 66 66 69 78 20 70 6f | 69 6e 74 65 72 20 2a 2f |uffix po|inter */|
|000041d0| 0a 58 09 48 41 53 48 42 | 4c 4b 20 2a 6c 6f 6f 6b |.X.HASHB|LK *look|
|000041e0| 75 70 69 6e 63 6c 75 64 | 65 28 29 3b 09 2f 2a 20 |upinclud|e();./* |
|000041f0| 6c 6f 6f 6b 20 75 70 20 | 69 6e 63 6c 75 64 65 20 |look up |include |
|00004200| 6e 61 6d 65 20 69 6e 20 | 68 61 73 68 20 74 61 62 |name in |hash tab|
|00004210| 6c 65 20 2a 2f 0a 58 09 | 69 6e 74 20 63 6e 74 20 |le */.X.|int cnt |
|00004220| 3d 20 30 3b 09 09 09 2f | 2a 20 6e 75 6d 62 65 72 |= 0;.../|* number|
|00004230| 20 6f 66 20 6f 62 6a 65 | 63 74 20 66 69 6c 65 6e | of obje|ct filen|
|00004240| 61 6d 65 73 20 70 72 69 | 6e 74 65 64 20 2a 2f 0a |ames pri|nted */.|
|00004250| 58 09 69 6e 74 20 6c 6f | 6f 6b 75 70 74 79 70 65 |X.int lo|okuptype|
|00004260| 6f 66 69 6e 63 6c 75 64 | 65 28 29 3b 09 2f 2a 20 |ofinclud|e();./* |
|00004270| 6c 6f 6f 6b 20 75 70 20 | 74 68 65 20 62 72 61 6e |look up |the bran|
|00004280| 64 20 6f 66 20 69 6e 63 | 6c 75 64 65 20 2a 2f 0a |d of inc|lude */.|
|00004290| 58 09 69 6e 74 20 74 79 | 70 65 3b 09 09 09 2f 2a |X.int ty|pe;.../*|
|000042a0| 20 66 69 6c 65 20 74 79 | 70 65 20 2a 2f 0a 58 09 | file ty|pe */.X.|
|000042b0| 53 4c 42 4c 4b 20 2a 6c | 62 70 3b 09 09 09 2f 2a |SLBLK *l|bp;.../*|
|000042c0| 20 6c 69 73 74 20 62 6c | 6f 63 6b 20 70 6f 69 6e | list bl|ock poin|
|000042d0| 74 65 72 20 2a 2f 0a 58 | 09 76 6f 69 64 20 70 75 |ter */.X|.void pu|
|000042e0| 74 6f 62 6a 28 29 3b 09 | 09 09 2f 2a 20 70 72 69 |tobj();.|../* pri|
|000042f0| 6e 74 20 6f 62 6a 65 63 | 74 20 66 69 6c 65 20 6e |nt objec|t file n|
|00004300| 61 6d 65 20 2a 2f 0a 58 | 0a 58 09 69 6f 70 20 3d |ame */.X|.X.iop =|
|00004310| 20 49 4f 42 55 46 3b 0a | 58 09 77 68 69 6c 65 20 | IOBUF;.|X.while |
|00004320| 28 28 63 20 3d 20 2a 69 | 6f 70 2b 2b 29 20 21 3d |((c = *i|op++) !=|
|00004330| 20 27 3d 27 29 0a 58 09 | 09 70 75 74 63 28 63 2c | '=').X.|.putc(c,|
|00004340| 20 73 74 72 65 61 6d 29 | 3b 0a 58 09 70 75 74 63 | stream)|;.X.putc|
|00004350| 28 27 3d 27 2c 20 73 74 | 72 65 61 6d 29 3b 0a 58 |('=', st|ream);.X|
|00004360| 09 66 6f 72 20 28 6c 62 | 70 20 3d 20 53 52 43 4c |.for (lb|p = SRCL|
|00004370| 49 53 54 2d 3e 68 65 61 | 64 3b 20 6c 62 70 20 21 |IST->hea|d; lbp !|
|00004380| 3d 20 4e 55 4c 4c 3b 20 | 6c 62 70 20 3d 20 6c 62 |= NULL; |lbp = lb|
|00004390| 70 2d 3e 6e 65 78 74 29 | 0a 58 09 09 7b 0a 58 09 |p->next)|.X..{.X.|
|000043a0| 09 73 75 66 66 69 78 20 | 3d 20 72 69 6e 64 65 78 |.suffix |= rindex|
|000043b0| 28 6c 62 70 2d 3e 6b 65 | 79 2c 20 27 2e 27 29 3b |(lbp->ke|y, '.');|
|000043c0| 0a 58 09 09 74 79 70 65 | 20 3d 20 6c 6f 6f 6b 75 |.X..type| = looku|
|000043d0| 70 74 79 70 65 6f 66 69 | 6e 63 6c 75 64 65 28 2b |ptypeofi|nclude(+|
|000043e0| 2b 73 75 66 66 69 78 29 | 3b 0a 58 09 09 69 66 20 |+suffix)|;.X..if |
|000043f0| 28 6c 6f 6f 6b 75 70 69 | 6e 63 6c 75 64 65 28 6c |(lookupi|nclude(l|
|00004400| 62 70 2d 3e 6b 65 79 2c | 20 74 79 70 65 29 20 3d |bp->key,| type) =|
|00004410| 3d 20 4e 55 4c 4c 29 0a | 58 09 09 09 7b 0a 58 09 |= NULL).|X...{.X.|
|00004420| 09 09 63 6e 74 20 2b 3d | 20 31 3b 0a 58 09 09 09 |..cnt +=| 1;.X...|
|00004430| 69 66 20 28 63 6e 74 20 | 3d 3d 20 31 29 0a 58 09 |if (cnt |== 1).X.|
|00004440| 09 09 09 7b 0a 58 09 09 | 09 09 70 75 74 63 28 27 |...{.X..|..putc('|
|00004450| 20 27 2c 20 73 74 72 65 | 61 6d 29 3b 0a 58 09 09 | ', stre|am);.X..|
|00004460| 09 09 70 75 74 6f 62 6a | 28 6c 62 70 2d 3e 6b 65 |..putobj|(lbp->ke|
|00004470| 79 2c 20 73 74 72 65 61 | 6d 29 3b 0a 58 09 09 09 |y, strea|m);.X...|
|00004480| 09 7d 0a 58 09 09 09 65 | 6c 73 65 09 7b 0a 58 09 |.}.X...e|lse.{.X.|
|00004490| 09 09 09 66 70 72 69 6e | 74 66 28 73 74 72 65 61 |...fprin|tf(strea|
|000044a0| 6d 2c 20 22 20 5c 5c 5c | 6e 5c 74 5c 74 22 29 3b |m, " \\\|n\t\t");|
|000044b0| 0a 58 09 09 09 09 70 75 | 74 6f 62 6a 28 6c 62 70 |.X....pu|tobj(lbp|
|000044c0| 2d 3e 6b 65 79 2c 20 73 | 74 72 65 61 6d 29 3b 0a |->key, s|tream);.|
|000044d0| 58 09 09 09 09 7d 0a 58 | 09 09 09 7d 0a 58 09 09 |X....}.X|...}.X..|
|000044e0| 7d 0a 58 09 70 75 74 63 | 28 27 5c 6e 27 2c 20 73 |}.X.putc|('\n', s|
|000044f0| 74 72 65 61 6d 29 3b 0a | 58 7d 0a 58 0a 58 0a 58 |tream);.|X}.X.X.X|
|00004500| 0a 58 2f 2a 0a 58 20 2a | 20 70 75 74 73 6c 6d 61 |.X/*.X *| putslma|
|00004510| 63 72 6f 28 29 20 63 6f | 70 69 65 73 20 61 20 6d |cro() co|pies a m|
|00004520| 61 63 72 6f 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |acro def|inition |
|00004530| 66 72 6f 6d 20 61 20 6c | 69 73 74 2e 0a 58 20 2a |from a l|ist..X *|
|00004540| 2f 0a 58 76 6f 69 64 0a | 58 70 75 74 73 6c 6d 61 |/.Xvoid.|Xputslma|
|00004550| 63 72 6f 28 73 6c 69 73 | 74 2c 20 73 74 72 65 61 |cro(slis|t, strea|
|00004560| 6d 29 0a 58 09 53 4c 49 | 53 54 20 2a 73 6c 69 73 |m).X.SLI|ST *slis|
|00004570| 74 3b 09 09 09 2f 2a 20 | 73 69 6e 67 6c 79 2d 6c |t;.../* |singly-l|
|00004580| 69 6e 6b 65 64 20 6d 61 | 63 72 6f 20 64 65 66 20 |inked ma|cro def |
|00004590| 6c 69 73 74 20 2a 2f 0a | 58 09 72 65 67 69 73 74 |list */.|X.regist|
|000045a0| 65 72 20 46 49 4c 45 20 | 2a 73 74 72 65 61 6d 3b |er FILE |*stream;|
|000045b0| 09 09 2f 2a 20 6f 75 74 | 70 75 74 20 73 74 72 65 |../* out|put stre|
|000045c0| 61 6d 20 2a 2f 0a 58 7b | 0a 58 09 72 65 67 69 73 |am */.X{|.X.regis|
|000045d0| 74 65 72 20 63 68 61 72 | 20 2a 69 6f 70 3b 09 09 |ter char| *iop;..|
|000045e0| 2f 2a 20 49 4f 42 55 46 | 20 70 6f 69 6e 74 65 72 |/* IOBUF| pointer|
|000045f0| 20 2a 2f 0a 58 09 72 65 | 67 69 73 74 65 72 20 69 | */.X.re|gister i|
|00004600| 6e 74 20 63 3b 09 09 09 | 2f 2a 20 63 75 72 72 65 |nt c;...|/* curre|
|00004610| 6e 74 20 63 68 61 72 61 | 63 74 65 72 20 2a 2f 0a |nt chara|cter */.|
|00004620| 58 09 53 4c 42 4c 4b 20 | 2a 6c 62 70 3b 09 09 09 |X.SLBLK |*lbp;...|
|00004630| 2f 2a 20 6c 69 73 74 20 | 62 6c 6f 63 6b 20 70 6f |/* list |block po|
|00004640| 69 6e 74 65 72 20 2a 2f | 0a 58 0a 58 09 69 6f 70 |inter */|.X.X.iop|
|00004650| 20 3d 20 49 4f 42 55 46 | 3b 0a 58 09 77 68 69 6c | = IOBUF|;.X.whil|
|00004660| 65 20 28 28 63 20 3d 20 | 2a 69 6f 70 2b 2b 29 20 |e ((c = |*iop++) |
|00004670| 21 3d 20 27 3d 27 29 0a | 58 09 09 70 75 74 63 28 |!= '=').|X..putc(|
|00004680| 63 2c 20 73 74 72 65 61 | 6d 29 3b 0a 58 09 70 75 |c, strea|m);.X.pu|
|00004690| 74 63 28 27 3d 27 2c 20 | 73 74 72 65 61 6d 29 3b |tc('=', |stream);|
|000046a0| 0a 58 09 69 66 20 28 53 | 4c 4e 55 4d 28 73 6c 69 |.X.if (S|LNUM(sli|
|000046b0| 73 74 29 20 3e 20 30 29 | 0a 58 09 09 7b 0a 58 09 |st) > 0)|.X..{.X.|
|000046c0| 09 6c 62 70 20 3d 20 73 | 6c 69 73 74 2d 3e 68 65 |.lbp = s|list->he|
|000046d0| 61 64 3b 0a 58 09 09 66 | 70 72 69 6e 74 66 28 73 |ad;.X..f|printf(s|
|000046e0| 74 72 65 61 6d 2c 20 22 | 20 25 73 22 2c 20 6c 62 |tream, "| %s", lb|
|000046f0| 70 2d 3e 6b 65 79 29 3b | 0a 58 09 09 7d 0a 58 09 |p->key);|.X..}.X.|
|00004700| 69 66 20 28 53 4c 4e 55 | 4d 28 73 6c 69 73 74 29 |if (SLNU|M(slist)|
|00004710| 20 3e 20 31 29 0a 58 09 | 09 66 6f 72 20 28 6c 62 | > 1).X.|.for (lb|
|00004720| 70 20 3d 20 6c 62 70 2d | 3e 6e 65 78 74 3b 20 6c |p = lbp-|>next; l|
|00004730| 62 70 20 21 3d 20 4e 55 | 4c 4c 3b 20 6c 62 70 20 |bp != NU|LL; lbp |
|00004740| 3d 20 6c 62 70 2d 3e 6e | 65 78 74 29 0a 58 09 09 |= lbp->n|ext).X..|
|00004750| 09 66 70 72 69 6e 74 66 | 28 73 74 72 65 61 6d 2c |.fprintf|(stream,|
|00004760| 20 22 20 5c 5c 5c 6e 5c | 74 5c 74 25 73 22 2c 20 | " \\\n\|t\t%s", |
|00004770| 6c 62 70 2d 3e 6b 65 79 | 29 3b 0a 58 09 70 75 74 |lbp->key|);.X.put|
|00004780| 63 28 27 5c 6e 27 2c 20 | 73 74 72 65 61 6d 29 3b |c('\n', |stream);|
|00004790| 0a 58 7d 0a 58 0a 58 0a | 58 0a 58 2f 2a 0a 58 20 |.X}.X.X.|X.X/*.X |
|000047a0| 2a 20 73 74 6f 72 65 6d | 61 63 72 6f 28 29 20 73 |* storem|acro() s|
|000047b0| 74 6f 72 65 73 20 61 20 | 6d 61 63 72 6f 20 64 65 |tores a |macro de|
|000047c0| 66 69 6e 69 74 69 6f 6e | 20 69 6e 20 74 68 65 20 |finition| in the |
|000047d0| 6d 61 63 72 6f 20 64 65 | 66 69 6e 69 74 69 6f 6e |macro de|finition|
|000047e0| 20 74 61 62 6c 65 2e 0a | 58 20 2a 20 52 65 74 75 | table..|X * Retu|
|000047f0| 72 6e 73 20 69 6e 74 65 | 67 65 72 20 59 45 53 20 |rns inte|ger YES |
|00004800| 69 66 20 61 20 6d 61 63 | 72 6f 20 64 65 66 69 6e |if a mac|ro defin|
|00004810| 69 74 69 6f 6e 20 28 6d | 61 63 72 6f 3d 64 65 66 |ition (m|acro=def|
|00004820| 69 6e 69 74 69 6f 6e 29 | 2c 20 6f 74 68 65 72 77 |inition)|, otherw|
|00004830| 69 73 65 0a 58 20 2a 20 | 4e 4f 2e 20 65 78 69 74 |ise.X * |NO. exit|
|00004840| 28 31 29 20 69 73 20 63 | 61 6c 6c 65 64 20 69 66 |(1) is c|alled if|
|00004850| 20 6f 75 74 20 6f 66 20 | 6d 65 6d 6f 72 79 2e 0a | out of |memory..|
|00004860| 58 20 2a 2f 0a 58 73 74 | 6f 72 65 6d 61 63 72 6f |X */.Xst|oremacro|
|00004870| 28 6d 61 63 64 65 66 29 | 0a 58 09 63 68 61 72 20 |(macdef)|.X.char |
|00004880| 2a 6d 61 63 64 65 66 3b | 09 09 09 2f 2a 20 6d 61 |*macdef;|.../* ma|
|00004890| 63 72 6f 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 73 |cro defi|nition s|
|000048a0| 74 72 69 6e 67 20 2a 2f | 0a 58 7b 0a 58 09 65 78 |tring */|.X{.X.ex|
|000048b0| 74 65 72 6e 20 48 41 53 | 48 20 2a 4d 44 45 46 54 |tern HAS|H *MDEFT|
|000048c0| 41 42 4c 45 3b 09 09 2f | 2a 20 6d 61 63 72 6f 20 |ABLE;../|* macro |
|000048d0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 74 61 62 6c 65 |definiti|on table|
|000048e0| 20 2a 2f 0a 58 09 72 65 | 67 69 73 74 65 72 20 69 | */.X.re|gister i|
|000048f0| 6e 74 20 69 3b 09 09 09 | 2f 2a 20 6d 61 63 72 6f |nt i;...|/* macro|
|00004900| 20 76 61 6c 75 65 20 69 | 6e 64 65 78 20 2a 2f 0a | value i|ndex */.|
|00004910| 58 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 6a |X.regist|er int j|
|00004920| 3b 09 09 09 2f 2a 20 6d | 61 63 72 6f 20 6e 61 6d |;.../* m|acro nam|
|00004930| 65 20 69 6e 64 65 78 20 | 2a 2f 0a 58 09 48 41 53 |e index |*/.X.HAS|
|00004940| 48 42 4c 4b 20 2a 68 74 | 69 6e 73 74 61 6c 6c 28 |HBLK *ht|install(|
|00004950| 29 3b 09 09 2f 2a 20 69 | 6e 73 74 61 6c 6c 20 68 |);../* i|nstall h|
|00004960| 61 73 68 20 74 61 62 6c | 65 20 65 6e 74 72 79 20 |ash tabl|e entry |
|00004970| 2a 2f 0a 58 0a 58 09 66 | 6f 72 20 28 69 20 3d 20 |*/.X.X.f|or (i = |
|00004980| 30 3b 20 6d 61 63 64 65 | 66 5b 69 5d 20 21 3d 20 |0; macde|f[i] != |
|00004990| 27 3d 27 3b 20 69 2b 2b | 29 0a 58 09 09 69 66 20 |'='; i++|).X..if |
|000049a0| 28 6d 61 63 64 65 66 5b | 69 5d 20 3d 3d 20 27 5c |(macdef[|i] == '\|
|000049b0| 30 27 29 0a 58 09 09 09 | 72 65 74 75 72 6e 28 4e |0').X...|return(N|
|000049c0| 4f 29 3b 0a 58 09 0a 58 | 09 2f 2a 20 72 65 6d 6f |O);.X..X|./* remo|
|000049d0| 76 69 6e 67 20 74 72 61 | 69 6c 69 6e 67 20 62 6c |ving tra|iling bl|
|000049e0| 61 6e 6b 73 20 61 6e 64 | 20 74 61 62 73 20 66 72 |anks and| tabs fr|
|000049f0| 6f 6d 20 65 6e 64 20 6f | 66 20 6d 61 63 72 6f 20 |om end o|f macro |
|00004a00| 6e 61 6d 65 20 2a 2f 0a | 58 09 66 6f 72 20 28 6a |name */.|X.for (j|
|00004a10| 20 3d 20 69 3b 20 6a 20 | 3e 20 30 3b 20 6a 2d 2d | = i; j |> 0; j--|
|00004a20| 29 0a 58 09 09 69 66 20 | 28 21 57 48 49 54 45 53 |).X..if |(!WHITES|
|00004a30| 50 41 43 45 28 6d 61 63 | 64 65 66 5b 6a 2d 31 5d |PACE(mac|def[j-1]|
|00004a40| 29 29 0a 58 09 09 09 62 | 72 65 61 6b 3b 0a 58 09 |)).X...b|reak;.X.|
|00004a50| 6d 61 63 64 65 66 5b 6a | 5d 20 3d 20 27 5c 30 27 |macdef[j|] = '\0'|
|00004a60| 3b 0a 58 0a 58 09 2f 2a | 20 72 65 6d 6f 76 65 20 |;.X.X./*| remove |
|00004a70| 6c 65 61 64 69 6e 67 20 | 62 6c 61 6e 6b 73 20 61 |leading |blanks a|
|00004a80| 6e 64 20 74 61 62 73 20 | 66 72 6f 6d 20 6d 61 63 |nd tabs |from mac|
|00004a90| 72 6f 20 76 61 6c 75 65 | 20 2a 2f 0a 58 09 66 6f |ro value| */.X.fo|
|00004aa0| 72 20 28 69 2b 2b 3b 20 | 57 48 49 54 45 53 50 41 |r (i++; |WHITESPA|
|00004ab0| 43 45 28 6d 61 63 64 65 | 66 5b 69 5d 29 3b 20 69 |CE(macde|f[i]); i|
|00004ac0| 2b 2b 29 0a 58 09 09 63 | 6f 6e 74 69 6e 75 65 3b |++).X..c|ontinue;|
|00004ad0| 0a 58 09 69 66 20 28 68 | 74 69 6e 73 74 61 6c 6c |.X.if (h|tinstall|
|00004ae0| 28 6d 61 63 64 65 66 2c | 20 6d 61 63 64 65 66 2b |(macdef,| macdef+|
|00004af0| 69 2c 20 56 52 45 41 44 | 57 52 49 54 45 2c 20 4d |i, VREAD|WRITE, M|
|00004b00| 44 45 46 54 41 42 4c 45 | 29 20 3d 3d 20 4e 55 4c |DEFTABLE|) == NUL|
|00004b10| 4c 29 0a 58 09 09 65 78 | 69 74 28 31 29 3b 0a 58 |L).X..ex|it(1);.X|
|00004b20| 09 72 65 74 75 72 6e 28 | 59 45 53 29 3b 0a 58 7d |.return(|YES);.X}|
|00004b30| 0a 40 5c 45 6e 64 5c 6f | 66 5c 46 69 6c 65 5c 0a |.@\End\o|f\File\.|
|00004b40| 65 6c 73 65 0a 20 20 65 | 63 68 6f 20 22 73 68 61 |else.  e|cho "sha|
|00004b50| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: Will |not over|
|00004b60| 20 77 72 69 74 65 20 73 | 72 63 2f 6d 61 63 72 6f | write s|rc/macro|
|00004b70| 2e 63 22 0a 66 69 0a 69 | 66 20 60 74 65 73 74 20 |.c".fi.i|f `test |
|00004b80| 21 20 2d 73 20 73 72 63 | 2f 6d 69 73 63 2e 63 60 |! -s src|/misc.c`|
|00004b90| 0a 74 68 65 6e 0a 65 63 | 68 6f 20 22 78 20 2d 20 |.then.ec|ho "x - |
|00004ba0| 73 72 63 2f 6d 69 73 63 | 2e 63 22 0a 73 65 64 20 |src/misc|.c".sed |
|00004bb0| 27 73 2f 5e 58 2f 2f 27 | 20 3e 20 73 72 63 2f 6d |'s/^X//'| > src/m|
|00004bc0| 69 73 63 2e 63 20 3c 3c | 20 27 40 5c 45 6e 64 5c |isc.c <<| '@\End\|
|00004bd0| 6f 66 5c 46 69 6c 65 5c | 27 0a 58 2f 2a 20 24 48 |of\File\|'.X/* $H|
|00004be0| 65 61 64 65 72 3a 20 6d | 69 73 63 2e 63 2c 76 20 |eader: m|isc.c,v |
|00004bf0| 31 2e 36 20 38 35 2f 30 | 36 2f 32 37 20 30 38 3a |1.6 85/0|6/27 08:|
|00004c00| 31 35 3a 35 37 20 6e 69 | 63 6b 6c 69 6e 20 45 78 |15:57 ni|cklin Ex|
|00004c10| 70 20 24 20 2a 2f 0a 58 | 0a 58 2f 2a 0a 58 20 2a |p $ */.X|.X/*.X *|
|00004c20| 20 41 75 74 68 6f 72 3a | 20 50 65 74 65 72 20 4a | Author:| Peter J|
|00004c30| 2e 20 4e 69 63 6b 6c 69 | 6e 0a 58 20 2a 2f 0a 58 |. Nickli|n.X */.X|
|00004c40| 23 69 6e 63 6c 75 64 65 | 20 3c 63 74 79 70 65 2e |#include| <ctype.|
|00004c50| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 74 |h>.X#inc|lude <st|
|00004c60| 64 69 6f 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |dio.h>.X|#include|
|00004c70| 20 22 4d 6b 6d 66 2e 68 | 22 0a 58 23 69 6e 63 6c | "Mkmf.h|".X#incl|
|00004c80| 75 64 65 20 22 68 61 73 | 68 2e 68 22 0a 58 23 69 |ude "has|h.h".X#i|
|00004c90| 6e 63 6c 75 64 65 20 22 | 6d 61 63 72 6f 2e 68 22 |nclude "|macro.h"|
|00004ca0| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 6e 75 6c 6c |.X#inclu|de "null|
|00004cb0| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 70 |.h".X#in|clude "p|
|00004cc0| 61 74 68 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |ath.h".X|#include|
|00004cd0| 20 22 74 61 72 67 65 74 | 2e 68 22 0a 58 23 69 6e | "target|.h".X#in|
|00004ce0| 63 6c 75 64 65 20 22 73 | 70 6d 73 2e 68 22 0a 58 |clude "s|pms.h".X|
|00004cf0| 23 69 6e 63 6c 75 64 65 | 20 22 73 75 66 66 69 78 |#include| "suffix|
|00004d00| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 22 73 |.h".X#in|clude "s|
|00004d10| 79 73 74 65 6d 2e 68 22 | 0a 58 23 69 6e 63 6c 75 |ystem.h"|.X#inclu|
|00004d20| 64 65 20 22 79 65 73 6e | 6f 2e 68 22 0a 58 0a 58 |de "yesn|o.h".X.X|
|00004d30| 2f 2a 0a 58 20 2a 20 61 | 6e 73 77 65 72 28 29 20 |/*.X * a|nswer() |
|00004d40| 69 6e 73 74 61 6c 6c 73 | 20 61 20 6c 69 6e 65 20 |installs| a line |
|00004d50| 66 72 6f 6d 20 73 74 64 | 69 6e 20 69 6e 20 74 68 |from std|in in th|
|00004d60| 65 20 6d 61 63 72 6f 20 | 64 65 66 69 6e 69 74 69 |e macro |definiti|
|00004d70| 6f 6e 20 74 61 62 6c 65 | 2e 0a 58 20 2a 20 65 78 |on table|..X * ex|
|00004d80| 69 74 28 31 29 20 69 73 | 20 63 61 6c 6c 65 64 20 |it(1) is| called |
|00004d90| 69 66 20 45 4f 46 2c 20 | 65 72 72 6f 72 2c 20 6f |if EOF, |error, o|
|00004da0| 72 20 6f 75 74 20 6f 66 | 20 6d 65 6d 6f 72 79 2e |r out of| memory.|
|00004db0| 0a 58 20 2a 2f 0a 58 76 | 6f 69 64 0a 58 61 6e 73 |.X */.Xv|oid.Xans|
|00004dc0| 77 65 72 28 6d 64 65 66 | 6b 65 79 2c 20 6d 64 65 |wer(mdef|key, mde|
|00004dd0| 66 76 61 6c 29 0a 58 09 | 63 68 61 72 20 2a 6d 64 |fval).X.|char *md|
|00004de0| 65 66 6b 65 79 3b 09 09 | 09 2f 2a 20 6d 61 63 72 |efkey;..|./* macr|
|00004df0| 6f 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6b 65 79 |o defini|tion key|
|00004e00| 20 2a 2f 0a 58 09 69 6e | 74 20 6d 64 65 66 76 61 | */.X.in|t mdefva|
|00004e10| 6c 3b 09 09 09 2f 2a 20 | 6d 61 63 72 6f 20 64 65 |l;.../* |macro de|
|00004e20| 66 69 6e 69 74 69 6f 6e | 20 76 61 6c 75 65 20 2a |finition| value *|
|00004e30| 2f 0a 58 7b 0a 58 09 65 | 78 74 65 72 6e 20 48 41 |/.X{.X.e|xtern HA|
|00004e40| 53 48 20 2a 4d 44 45 46 | 54 41 42 4c 45 3b 09 09 |SH *MDEF|TABLE;..|
|00004e50| 2f 2a 20 6d 61 63 72 6f | 20 64 65 66 69 6e 69 74 |/* macro| definit|
|00004e60| 69 6f 6e 20 74 61 62 6c | 65 20 2a 2f 0a 58 09 63 |ion tabl|e */.X.c|
|00004e70| 68 61 72 20 61 6e 73 77 | 65 72 62 75 66 5b 41 4e |har answ|erbuf[AN|
|00004e80| 53 57 45 52 42 55 46 53 | 49 5a 45 5d 3b 09 2f 2a |SWERBUFS|IZE];./*|
|00004e90| 20 61 6e 73 77 65 72 20 | 66 72 6f 6d 20 73 74 64 | answer |from std|
|00004ea0| 69 6e 20 2a 2f 0a 58 09 | 63 68 61 72 20 2a 67 65 |in */.X.|char *ge|
|00004eb0| 74 73 28 29 3b 09 09 09 | 2f 2a 20 67 65 74 20 61 |ts();...|/* get a|
|00004ec0| 20 6c 69 6e 65 20 66 72 | 6f 6d 20 73 74 64 69 6e | line fr|om stdin|
|00004ed0| 20 2a 2f 0a 58 09 48 41 | 53 48 42 4c 4b 20 2a 68 | */.X.HA|SHBLK *h|
|00004ee0| 74 69 6e 73 74 61 6c 6c | 28 29 3b 09 09 2f 2a 20 |tinstall|();../* |
|00004ef0| 69 6e 73 74 61 6c 6c 20 | 68 61 73 68 20 74 61 62 |install |hash tab|
|00004f00| 6c 65 20 65 6e 74 72 79 | 20 2a 2f 0a 58 0a 58 09 |le entry| */.X.X.|
|00004f10| 69 66 20 28 67 65 74 73 | 28 61 6e 73 77 65 72 62 |if (gets|(answerb|
|00004f20| 75 66 29 20 3d 3d 20 4e | 55 4c 4c 29 0a 58 09 09 |uf) == N|ULL).X..|
|00004f30| 65 78 69 74 28 31 29 3b | 0a 58 09 69 66 20 28 2a |exit(1);|.X.if (*|
|00004f40| 61 6e 73 77 65 72 62 75 | 66 20 21 3d 20 27 5c 30 |answerbu|f != '\0|
|00004f50| 27 29 0a 58 09 09 69 66 | 20 28 68 74 69 6e 73 74 |').X..if| (htinst|
|00004f60| 61 6c 6c 28 6d 64 65 66 | 6b 65 79 2c 20 61 6e 73 |all(mdef|key, ans|
|00004f70| 77 65 72 62 75 66 2c 20 | 6d 64 65 66 76 61 6c 2c |werbuf, |mdefval,|
|00004f80| 20 4d 44 45 46 54 41 42 | 4c 45 29 20 3d 3d 20 4e | MDEFTAB|LE) == N|
|00004f90| 55 4c 4c 29 0a 58 09 09 | 09 65 78 69 74 28 31 29 |ULL).X..|.exit(1)|
|00004fa0| 3b 0a 58 7d 0a 58 0a 58 | 0a 58 0a 58 2f 2a 0a 58 |;.X}.X.X|.X.X/*.X|
|00004fb0| 20 2a 20 66 61 73 74 63 | 6f 70 79 28 29 20 63 6f | * fastc|opy() co|
|00004fc0| 70 69 65 73 20 66 69 6c | 65 20 74 6f 20 73 74 72 |pies fil|e to str|
|00004fd0| 65 61 6d 20 66 70 2e 20 | 52 65 74 75 72 6e 73 20 |eam fp. |Returns |
|00004fe0| 69 6e 74 65 67 65 72 20 | 59 45 53 20 69 66 20 73 |integer |YES if s|
|00004ff0| 75 63 63 65 73 73 66 75 | 6c 2c 0a 58 20 2a 20 6f |uccessfu|l,.X * o|
|00005000| 74 68 65 72 77 69 73 65 | 20 4e 4f 2e 0a 58 20 2a |therwise| NO..X *|
|00005010| 2f 0a 58 66 61 73 74 63 | 6f 70 79 28 66 69 6c 65 |/.Xfastc|opy(file|
|00005020| 6e 61 6d 65 2c 20 6f 66 | 70 29 0a 58 09 63 68 61 |name, of|p).X.cha|
|00005030| 72 20 2a 66 69 6c 65 6e | 61 6d 65 3b 09 09 09 2f |r *filen|ame;.../|
|00005040| 2a 20 66 69 6c 65 20 74 | 6f 20 62 65 20 63 6f 70 |* file t|o be cop|
|00005050| 69 65 64 20 2a 2f 0a 58 | 09 72 65 67 69 73 74 65 |ied */.X|.registe|
|00005060| 72 20 46 49 4c 45 20 2a | 6f 66 70 3b 09 09 2f 2a |r FILE *|ofp;../*|
|00005070| 20 6f 75 74 70 75 74 20 | 73 74 72 65 61 6d 20 2a | output |stream *|
|00005080| 2f 0a 58 7b 0a 58 09 72 | 65 67 69 73 74 65 72 20 |/.X{.X.r|egister |
|00005090| 69 6e 74 20 69 66 64 3b | 09 09 2f 2a 20 69 6e 70 |int ifd;|../* inp|
|000050a0| 75 74 20 66 69 6c 65 20 | 64 65 73 63 72 69 70 74 |ut file |descript|
|000050b0| 6f 72 20 2a 2f 0a 58 09 | 72 65 67 69 73 74 65 72 |or */.X.|register|
|000050c0| 20 69 6e 74 20 6e 3b 09 | 09 09 2f 2a 20 62 79 74 | int n;.|../* byt|
|000050d0| 65 20 63 6f 75 6e 74 20 | 2a 2f 0a 58 09 63 68 61 |e count |*/.X.cha|
|000050e0| 72 20 62 75 66 5b 42 55 | 46 53 49 5a 5d 3b 09 09 |r buf[BU|FSIZ];..|
|000050f0| 2f 2a 20 49 2f 4f 20 62 | 75 66 66 65 72 20 2a 2f |/* I/O b|uffer */|
|00005100| 0a 58 0a 58 09 69 66 20 | 28 28 69 66 64 20 3d 20 |.X.X.if |((ifd = |
|00005110| 4f 50 45 4e 28 66 69 6c | 65 6e 61 6d 65 2c 20 30 |OPEN(fil|ename, 0|
|00005120| 2c 20 30 36 34 34 29 29 | 20 3d 3d 20 2d 31 29 0a |, 0644))| == -1).|
|00005130| 58 09 09 7b 0a 58 09 09 | 70 70 65 72 72 6f 72 28 |X..{.X..|pperror(|
|00005140| 22 22 29 3b 0a 58 09 09 | 72 65 74 75 72 6e 28 4e |"");.X..|return(N|
|00005150| 4f 29 3b 0a 58 09 09 7d | 0a 58 09 77 68 69 6c 65 |O);.X..}|.X.while|
|00005160| 20 28 28 6e 20 3d 20 72 | 65 61 64 28 69 66 64 2c | ((n = r|ead(ifd,|
|00005170| 20 62 75 66 2c 20 42 55 | 46 53 49 5a 29 29 20 3e | buf, BU|FSIZ)) >|
|00005180| 20 30 29 0a 58 09 09 77 | 72 69 74 65 28 66 69 6c | 0).X..w|rite(fil|
|00005190| 65 6e 6f 28 6f 66 70 29 | 2c 20 62 75 66 2c 20 6e |eno(ofp)|, buf, n|
|000051a0| 29 3b 0a 58 09 63 6c 6f | 73 65 28 69 66 64 29 3b |);.X.clo|se(ifd);|
|000051b0| 0a 58 09 72 65 74 75 72 | 6e 28 59 45 53 29 3b 0a |.X.retur|n(YES);.|
|000051c0| 58 7d 0a 58 0a 58 0a 58 | 0a 58 2f 2a 0a 58 20 2a |X}.X.X.X|.X/*.X *|
|000051d0| 20 66 69 6e 64 6d 66 28 | 29 20 6c 6f 63 61 74 65 | findmf(|) locate|
|000051e0| 73 20 74 68 65 20 6d 61 | 6b 65 66 69 6c 65 20 74 |s the ma|kefile t|
|000051f0| 6f 20 62 65 20 65 64 69 | 74 65 64 2e 20 54 68 65 |o be edi|ted. The|
|00005200| 20 74 79 70 65 20 6f 66 | 20 6d 61 6b 65 66 69 6c | type of| makefil|
|00005210| 65 0a 58 20 2a 20 69 73 | 20 72 65 74 75 72 6e 65 |e.X * is| returne|
|00005220| 64 20 69 6e 20 74 61 72 | 67 65 74 2e 20 54 68 65 |d in tar|get. The|
|00005230| 20 70 61 74 68 6e 61 6d | 65 20 74 6f 20 74 68 65 | pathnam|e to the|
|00005240| 20 6d 61 6b 65 66 69 6c | 65 20 69 73 20 72 65 74 | makefil|e is ret|
|00005250| 75 72 6e 65 64 0a 58 20 | 2a 20 69 6e 20 6d 66 70 |urned.X |* in mfp|
|00005260| 61 74 68 2e 20 52 65 74 | 75 72 6e 73 20 59 45 53 |ath. Ret|urns YES|
|00005270| 20 69 66 20 6d 61 6b 65 | 66 69 6c 65 20 6f 72 20 | if make|file or |
|00005280| 6d 61 6b 65 66 69 6c 65 | 20 74 65 6d 70 6c 61 74 |makefile| templat|
|00005290| 65 20 63 61 6e 20 62 65 | 0a 58 20 2a 20 6f 70 65 |e can be|.X * ope|
|000052a0| 6e 65 64 2c 20 6f 74 68 | 65 72 77 69 73 65 20 4e |ned, oth|erwise N|
|000052b0| 4f 2e 0a 58 20 2a 2f 0a | 58 66 69 6e 64 6d 66 28 |O..X */.|Xfindmf(|
|000052c0| 6d 66 6e 61 6d 65 2c 20 | 6d 66 70 61 74 68 2c 20 |mfname, |mfpath, |
|000052d0| 74 61 72 67 65 74 29 0a | 58 09 63 68 61 72 20 2a |target).|X.char *|
|000052e0| 6d 66 6e 61 6d 65 3b 09 | 09 09 2f 2a 20 6e 61 6d |mfname;.|../* nam|
|000052f0| 65 20 6f 66 20 74 61 72 | 67 65 74 20 6d 61 6b 65 |e of tar|get make|
|00005300| 66 69 6c 65 20 2a 2f 0a | 58 09 63 68 61 72 20 2a |file */.|X.char *|
|00005310| 6d 66 70 61 74 68 3b 09 | 09 09 2f 2a 20 70 61 74 |mfpath;.|../* pat|
|00005320| 68 20 74 6f 20 74 61 72 | 67 65 74 20 6d 61 6b 65 |h to tar|get make|
|00005330| 66 69 6c 65 20 2a 2f 0a | 58 09 54 41 52 47 45 54 |file */.|X.TARGET|
|00005340| 20 2a 74 61 72 67 65 74 | 3b 09 09 09 2f 2a 20 74 | *target|;.../* t|
|00005350| 79 70 65 20 6f 66 20 6d | 61 6b 65 66 69 6c 65 20 |ype of m|akefile |
|00005360| 74 61 72 67 65 74 20 2a | 2f 0a 58 7b 0a 58 09 65 |target *|/.X{.X.e|
|00005370| 78 74 65 72 6e 20 69 6e | 74 20 43 46 4c 41 47 3b |xtern in|t CFLAG;|
|00005380| 09 09 2f 2a 20 6d 61 6b | 65 66 69 6c 65 20 63 72 |../* mak|efile cr|
|00005390| 65 61 74 69 6f 6e 20 6d | 65 73 73 61 67 65 20 2a |eation m|essage *|
|000053a0| 2f 0a 58 09 63 68 61 72 | 20 2a 73 74 72 63 70 79 |/.X.char| *strcpy|
|000053b0| 28 29 3b 09 09 09 2f 2a | 20 73 74 72 69 6e 67 20 |();.../*| string |
|000053c0| 63 6f 70 79 20 2a 2f 0a | 58 09 69 6e 74 20 72 65 |copy */.|X.int re|
|000053d0| 61 64 6d 66 28 29 3b 09 | 09 09 2f 2a 20 72 65 61 |admf();.|../* rea|
|000053e0| 64 20 6d 61 6b 65 66 69 | 6c 65 20 2a 2f 0a 58 09 |d makefi|le */.X.|
|000053f0| 69 6e 74 20 74 61 72 67 | 65 74 74 79 70 65 3b 09 |int targ|ettype;.|
|00005400| 09 09 2f 2a 20 74 79 70 | 65 20 6f 66 20 6d 61 6b |../* typ|e of mak|
|00005410| 65 66 69 6c 65 20 72 65 | 71 75 65 73 74 65 64 20 |efile re|quested |
|00005420| 2a 2f 0a 58 09 76 6f 69 | 64 20 66 69 6e 64 6d 66 |*/.X.voi|d findmf|
|00005430| 74 65 6d 70 6c 61 74 65 | 28 29 3b 09 09 2f 2a 20 |template|();../* |
|00005440| 66 69 6e 64 20 6d 61 6b | 65 66 69 6c 65 20 74 65 |find mak|efile te|
|00005450| 6d 70 6c 61 74 65 20 2a | 2f 0a 58 0a 58 09 74 61 |mplate *|/.X.X.ta|
|00005460| 72 67 65 74 74 79 70 65 | 20 3d 20 74 61 72 67 65 |rgettype| = targe|
|00005470| 74 2d 3e 74 79 70 65 3b | 0a 58 09 69 66 20 28 46 |t->type;|.X.if (F|
|00005480| 49 4c 45 58 49 53 54 28 | 6d 66 6e 61 6d 65 29 29 |ILEXIST(|mfname))|
|00005490| 0a 58 09 09 7b 0a 58 09 | 09 69 66 20 28 21 46 49 |.X..{.X.|.if (!FI|
|000054a0| 4c 45 57 52 49 54 45 28 | 6d 66 6e 61 6d 65 29 29 |LEWRITE(|mfname))|
|000054b0| 0a 58 09 09 09 7b 0a 58 | 09 09 09 70 70 65 72 72 |.X...{.X|...pperr|
|000054c0| 6f 72 28 6d 66 6e 61 6d | 65 29 3b 0a 58 09 09 09 |or(mfnam|e);.X...|
|000054d0| 74 61 72 67 65 74 2d 3e | 74 79 70 65 20 3d 20 56 |target->|type = V|
|000054e0| 45 52 52 4f 52 3b 0a 58 | 09 09 09 72 65 74 75 72 |ERROR;.X|...retur|
|000054f0| 6e 28 4e 4f 29 3b 0a 58 | 09 09 09 7d 0a 58 09 09 |n(NO);.X|...}.X..|
|00005500| 69 66 20 28 72 65 61 64 | 6d 66 28 6d 66 6e 61 6d |if (read|mf(mfnam|
|00005510| 65 2c 20 74 61 72 67 65 | 74 29 20 3d 3d 20 56 45 |e, targe|t) == VE|
|00005520| 52 52 4f 52 29 0a 58 09 | 09 09 72 65 74 75 72 6e |RROR).X.|..return|
|00005530| 28 4e 4f 29 3b 0a 58 09 | 09 69 66 20 28 74 61 72 |(NO);.X.|.if (tar|
|00005540| 67 65 74 74 79 70 65 20 | 3d 3d 20 56 55 4e 4b 4e |gettype |== VUNKN|
|00005550| 4f 57 4e 20 7c 7c 20 74 | 61 72 67 65 74 74 79 70 |OWN || t|argettyp|
|00005560| 65 20 3d 3d 20 74 61 72 | 67 65 74 2d 3e 74 79 70 |e == tar|get->typ|
|00005570| 65 29 0a 58 09 09 09 7b | 0a 58 09 09 09 73 74 72 |e).X...{|.X...str|
|00005580| 63 70 79 28 6d 66 70 61 | 74 68 2c 20 6d 66 6e 61 |cpy(mfpa|th, mfna|
|00005590| 6d 65 29 3b 0a 58 09 09 | 09 72 65 74 75 72 6e 28 |me);.X..|.return(|
|000055a0| 59 45 53 29 3b 0a 58 09 | 09 09 7d 0a 58 09 09 7d |YES);.X.|..}.X..}|
|000055b0| 0a 58 09 74 61 72 67 65 | 74 2d 3e 74 79 70 65 20 |.X.targe|t->type |
|000055c0| 3d 20 28 74 61 72 67 65 | 74 74 79 70 65 20 3d 3d |= (targe|ttype ==|
|000055d0| 20 56 4c 49 42 52 41 52 | 59 29 20 3f 20 56 4c 49 | VLIBRAR|Y) ? VLI|
|000055e0| 42 52 41 52 59 20 3a 20 | 56 50 52 4f 47 52 41 4d |BRARY : |VPROGRAM|
|000055f0| 3b 0a 58 09 66 69 6e 64 | 6d 66 74 65 6d 70 6c 61 |;.X.find|mftempla|
|00005600| 74 65 28 6d 66 70 61 74 | 68 2c 20 74 61 72 67 65 |te(mfpat|h, targe|
|00005610| 74 29 3b 0a 58 09 69 66 | 20 28 72 65 61 64 6d 66 |t);.X.if| (readmf|
|00005620| 28 6d 66 70 61 74 68 2c | 20 74 61 72 67 65 74 29 |(mfpath,| target)|
|00005630| 20 3d 3d 20 56 45 52 52 | 4f 52 29 0a 58 09 09 72 | == VERR|OR).X..r|
|00005640| 65 74 75 72 6e 28 4e 4f | 29 3b 0a 58 09 65 6c 73 |eturn(NO|);.X.els|
|00005650| 65 20 69 66 20 28 43 46 | 4c 41 47 20 3d 3d 20 59 |e if (CF|LAG == Y|
|00005660| 45 53 29 0a 58 09 09 77 | 61 72 6e 32 28 22 63 72 |ES).X..w|arn2("cr|
|00005670| 65 61 74 69 6e 67 20 25 | 73 20 66 72 6f 6d 20 74 |eating %|s from t|
|00005680| 65 6d 70 6c 61 74 65 20 | 25 73 22 2c 20 6d 66 6e |emplate |%s", mfn|
|00005690| 61 6d 65 2c 20 6d 66 70 | 61 74 68 29 3b 0a 58 09 |ame, mfp|ath);.X.|
|000056a0| 72 65 74 75 72 6e 28 59 | 45 53 29 3b 0a 58 7d 0a |return(Y|ES);.X}.|
|000056b0| 58 0a 58 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 66 69 |X.X.X.X/|*.X * fi|
|000056c0| 6e 64 6d 66 74 65 6d 70 | 6c 61 74 65 28 29 20 72 |ndmftemp|late() r|
|000056d0| 65 74 75 72 6e 73 20 74 | 68 65 20 70 61 74 68 6e |eturns t|he pathn|
|000056e0| 61 6d 65 20 6f 66 20 61 | 20 6d 61 6b 65 66 69 6c |ame of a| makefil|
|000056f0| 65 20 74 65 6d 70 6c 61 | 74 65 20 69 6e 20 6d 66 |e templa|te in mf|
|00005700| 70 61 74 68 2e 0a 58 20 | 2a 2f 0a 58 76 6f 69 64 |path..X |*/.Xvoid|
|00005710| 0a 58 66 69 6e 64 6d 66 | 74 65 6d 70 6c 61 74 65 |.Xfindmf|template|
|00005720| 28 6d 66 70 61 74 68 2c | 20 74 61 72 67 65 74 29 |(mfpath,| target)|
|00005730| 0a 58 09 63 68 61 72 20 | 2a 6d 66 70 61 74 68 3b |.X.char |*mfpath;|
|00005740| 09 09 09 2f 2a 20 70 61 | 74 68 20 74 6f 20 74 61 |.../* pa|th to ta|
|00005750| 72 67 65 74 20 6d 61 6b | 65 66 69 6c 65 20 2a 2f |rget mak|efile */|
|00005760| 0a 58 09 54 41 52 47 45 | 54 20 2a 74 61 72 67 65 |.X.TARGE|T *targe|
|00005770| 74 3b 09 09 09 2f 2a 20 | 74 79 70 65 20 6f 66 20 |t;.../* |type of |
|00005780| 6d 61 6b 65 66 69 6c 65 | 20 74 61 72 67 65 74 20 |makefile| target |
|00005790| 2a 2f 0a 58 7b 0a 58 09 | 65 78 74 65 72 6e 20 63 |*/.X{.X.|extern c|
|000057a0| 68 61 72 20 2a 4c 5f 4d | 41 4b 45 46 49 4c 45 3b |har *L_M|AKEFILE;|
|000057b0| 09 2f 2a 20 6c 69 62 72 | 61 72 79 20 6d 61 6b 65 |./* libr|ary make|
|000057c0| 66 69 6c 65 20 74 65 6d | 70 6c 61 74 65 20 2a 2f |file tem|plate */|
|000057d0| 0a 58 09 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a |.X.exter|n char *|
|000057e0| 50 5f 4d 41 4b 45 46 49 | 4c 45 3b 09 2f 2a 20 70 |P_MAKEFI|LE;./* p|
|000057f0| 72 6f 67 72 61 6d 20 6d | 61 6b 65 66 69 6c 65 20 |rogram m|akefile |
|00005800| 74 65 6d 70 6c 61 74 65 | 20 2a 2f 0a 58 09 63 68 |template| */.X.ch|
|00005810| 61 72 20 2a 63 77 70 3b | 09 09 09 2f 2a 20 63 75 |ar *cwp;|.../* cu|
|00005820| 72 72 65 6e 74 20 70 72 | 6f 6a 65 63 74 20 70 61 |rrent pr|oject pa|
|00005830| 74 68 6e 61 6d 65 20 70 | 6f 69 6e 74 65 72 20 2a |thname p|ointer *|
|00005840| 2f 0a 58 09 63 68 61 72 | 20 2a 67 65 74 63 77 70 |/.X.char| *getcwp|
|00005850| 28 29 3b 09 09 09 2f 2a | 20 67 65 74 20 63 75 72 |();.../*| get cur|
|00005860| 72 65 6e 74 20 70 72 6f | 6a 65 63 74 20 70 61 74 |rent pro|ject pat|
|00005870| 68 6e 61 6d 65 20 2a 2f | 0a 58 09 63 68 61 72 20 |hname */|.X.char |
|00005880| 2a 70 61 74 68 63 61 74 | 28 29 3b 09 09 2f 2a 20 |*pathcat|();../* |
|00005890| 70 61 74 68 6e 61 6d 65 | 20 63 6f 6e 63 61 74 65 |pathname| concate|
|000058a0| 6e 61 74 69 6f 6e 20 2a | 2f 0a 58 09 63 68 61 72 |nation *|/.X.char|
|000058b0| 20 2a 73 74 72 63 70 79 | 28 29 3b 09 09 09 2f 2a | *strcpy|();.../*|
|000058c0| 20 73 74 72 69 6e 67 20 | 63 6f 70 79 20 2a 2f 0a | string |copy */.|
|000058d0| 58 0a 58 09 63 77 70 20 | 3d 20 67 65 74 63 77 70 |X.X.cwp |= getcwp|
|000058e0| 28 29 3b 0a 58 09 69 66 | 20 28 74 61 72 67 65 74 |();.X.if| (target|
|000058f0| 2d 3e 74 79 70 65 20 3d | 3d 20 56 50 52 4f 47 52 |->type =|= VPROGR|
|00005900| 41 4d 29 0a 58 09 09 7b | 0a 58 09 09 69 66 20 28 |AM).X..{|.X..if (|
|00005910| 2a 50 5f 4d 41 4b 45 46 | 49 4c 45 20 3d 3d 20 5f |*P_MAKEF|ILE == _|
|00005920| 52 44 49 52 43 29 0a 58 | 09 09 09 73 74 72 63 70 |RDIRC).X|...strcp|
|00005930| 79 28 6d 66 70 61 74 68 | 2c 20 50 5f 4d 41 4b 45 |y(mfpath|, P_MAKE|
|00005940| 46 49 4c 45 29 3b 0a 58 | 09 09 65 6c 73 65 20 69 |FILE);.X|..else i|
|00005950| 66 20 28 63 77 70 20 3d | 3d 20 4e 55 4c 4c 20 7c |f (cwp =|= NULL ||
|00005960| 7c 0a 58 09 09 09 20 21 | 46 49 4c 45 58 49 53 54 ||.X... !|FILEXIST|
|00005970| 28 70 61 74 68 63 61 74 | 28 6d 66 70 61 74 68 2c |(pathcat|(mfpath,|
|00005980| 20 70 61 74 68 63 61 74 | 28 6d 66 70 61 74 68 2c | pathcat|(mfpath,|
|00005990| 20 63 77 70 2c 20 22 6c | 69 62 22 29 2c 20 50 5f | cwp, "l|ib"), P_|
|000059a0| 4d 41 4b 45 46 49 4c 45 | 29 29 29 0a 58 09 09 09 |MAKEFILE|))).X...|
|000059b0| 70 61 74 68 63 61 74 28 | 6d 66 70 61 74 68 2c 20 |pathcat(|mfpath, |
|000059c0| 53 50 4d 53 4c 49 42 2c | 20 50 5f 4d 41 4b 45 46 |SPMSLIB,| P_MAKEF|
|000059d0| 49 4c 45 29 3b 0a 58 09 | 09 7d 0a 58 09 65 6c 73 |ILE);.X.|.}.X.els|
|000059e0| 65 20 69 66 20 28 74 61 | 72 67 65 74 2d 3e 74 79 |e if (ta|rget->ty|
|000059f0| 70 65 20 3d 3d 20 56 4c | 49 42 52 41 52 59 29 0a |pe == VL|IBRARY).|
|00005a00| 58 09 09 7b 0a 58 09 09 | 69 66 20 28 2a 4c 5f 4d |X..{.X..|if (*L_M|
|00005a10| 41 4b 45 46 49 4c 45 20 | 3d 3d 20 5f 52 44 49 52 |AKEFILE |== _RDIR|
|00005a20| 43 29 0a 58 09 09 09 73 | 74 72 63 70 79 28 6d 66 |C).X...s|trcpy(mf|
|00005a30| 70 61 74 68 2c 20 4c 5f | 4d 41 4b 45 46 49 4c 45 |path, L_|MAKEFILE|
|00005a40| 29 3b 0a 58 09 09 65 6c | 73 65 20 69 66 20 28 63 |);.X..el|se if (c|
|00005a50| 77 70 20 3d 3d 20 4e 55 | 4c 4c 20 7c 7c 0a 58 09 |wp == NU|LL ||.X.|
|00005a60| 09 09 20 21 46 49 4c 45 | 58 49 53 54 28 70 61 74 |.. !FILE|XIST(pat|
|00005a70| 68 63 61 74 28 6d 66 70 | 61 74 68 2c 20 70 61 74 |hcat(mfp|ath, pat|
|00005a80| 68 63 61 74 28 6d 66 70 | 61 74 68 2c 20 63 77 70 |hcat(mfp|ath, cwp|
|00005a90| 2c 20 22 6c 69 62 22 29 | 2c 20 4c 5f 4d 41 4b 45 |, "lib")|, L_MAKE|
|00005aa0| 46 49 4c 45 29 29 29 0a | 58 09 09 09 70 61 74 68 |FILE))).|X...path|
|00005ab0| 63 61 74 28 6d 66 70 61 | 74 68 2c 20 53 50 4d 53 |cat(mfpa|th, SPMS|
|00005ac0| 4c 49 42 2c 20 4c 5f 4d | 41 4b 45 46 49 4c 45 29 |LIB, L_M|AKEFILE)|
|00005ad0| 3b 0a 58 09 09 7d 0a 58 | 09 65 6c 73 65 0a 58 09 |;.X..}.X|.else.X.|
|00005ae0| 09 77 61 72 6e 28 22 75 | 6e 6b 6e 6f 77 6e 20 74 |.warn("u|nknown t|
|00005af0| 65 6d 70 6c 61 74 65 20 | 72 65 71 75 65 73 74 22 |emplate |request"|
|00005b00| 29 3b 0a 58 7d 0a 58 0a | 58 0a 58 0a 58 2f 2a 0a |);.X}.X.|X.X.X/*.|
|00005b10| 58 20 2a 20 67 65 74 74 | 6f 6b 65 6e 28 29 20 63 |X * gett|oken() c|
|00005b20| 6f 70 69 65 73 20 74 68 | 65 20 6e 65 78 74 20 74 |opies th|e next t|
|00005b30| 6f 6b 65 6e 20 66 72 6f | 6d 20 74 6f 6b 65 6e 20 |oken fro|m token |
|00005b40| 62 75 66 66 65 72 20 74 | 6f 20 74 6f 6b 65 6e 2e |buffer t|o token.|
|00005b50| 20 52 65 74 75 72 6e 73 | 20 61 0a 58 20 2a 20 70 | Returns| a.X * p|
|00005b60| 6f 69 6e 74 65 72 20 74 | 6f 20 74 68 65 20 66 69 |ointer t|o the fi|
|00005b70| 72 73 74 20 63 68 61 72 | 61 63 74 65 72 20 61 66 |rst char|acter af|
|00005b80| 74 65 72 20 74 68 65 20 | 74 6f 6b 65 6e 2c 20 6f |ter the |token, o|
|00005b90| 72 20 6e 75 6c 6c 20 75 | 70 6f 6e 20 72 65 61 63 |r null u|pon reac|
|00005ba0| 68 69 6e 67 0a 58 20 2a | 20 74 68 65 20 65 6e 64 |hing.X *| the end|
|00005bb0| 20 6f 66 20 74 68 65 20 | 74 6f 6b 65 6e 20 62 75 | of the |token bu|
|00005bc0| 66 66 65 72 2e 0a 58 20 | 2a 2f 0a 58 63 68 61 72 |ffer..X |*/.Xchar|
|00005bd0| 20 2a 0a 58 67 65 74 74 | 6f 6b 65 6e 28 74 6f 6b | *.Xgett|oken(tok|
|00005be0| 65 6e 2c 20 74 70 29 0a | 58 09 72 65 67 69 73 74 |en, tp).|X.regist|
|00005bf0| 65 72 20 63 68 61 72 20 | 2a 74 6f 6b 65 6e 3b 09 |er char |*token;.|
|00005c00| 09 2f 2a 20 72 65 63 65 | 69 76 69 6e 67 20 74 6f |./* rece|iving to|
|00005c10| 6b 65 6e 20 2a 2f 0a 58 | 09 72 65 67 69 73 74 65 |ken */.X|.registe|
|00005c20| 72 20 63 68 61 72 20 2a | 74 70 3b 09 09 2f 2a 20 |r char *|tp;../* |
|00005c30| 74 6f 6b 65 6e 20 62 75 | 66 66 65 72 20 70 6f 69 |token bu|ffer poi|
|00005c40| 6e 74 65 72 20 2a 2f 0a | 58 7b 0a 58 09 77 68 69 |nter */.|X{.X.whi|
|00005c50| 6c 65 20 28 69 73 73 70 | 61 63 65 28 2a 74 70 29 |le (issp|ace(*tp)|
|00005c60| 20 26 26 20 2a 74 70 20 | 21 3d 20 27 5c 30 27 29 | && *tp |!= '\0')|
|00005c70| 0a 58 09 09 74 70 2b 2b | 3b 0a 58 09 69 66 20 28 |.X..tp++|;.X.if (|
|00005c80| 2a 74 70 20 3d 3d 20 27 | 5c 30 27 29 0a 58 09 09 |*tp == '|\0').X..|
|00005c90| 7b 0a 58 09 09 2a 74 6f | 6b 65 6e 20 3d 20 27 5c |{.X..*to|ken = '\|
|00005ca0| 30 27 3b 0a 58 09 09 72 | 65 74 75 72 6e 28 4e 55 |0';.X..r|eturn(NU|
|00005cb0| 4c 4c 29 3b 0a 58 09 09 | 7d 0a 58 09 77 68 69 6c |LL);.X..|}.X.whil|
|00005cc0| 65 20 28 21 69 73 73 70 | 61 63 65 28 2a 74 70 29 |e (!issp|ace(*tp)|
|00005cd0| 20 26 26 20 2a 74 70 20 | 21 3d 20 27 5c 30 27 29 | && *tp |!= '\0')|
|00005ce0| 0a 58 09 09 2a 74 6f 6b | 65 6e 2b 2b 20 3d 20 2a |.X..*tok|en++ = *|
|00005cf0| 74 70 2b 2b 3b 0a 58 09 | 2a 74 6f 6b 65 6e 20 3d |tp++;.X.|*token =|
|00005d00| 20 27 5c 30 27 3b 0a 58 | 09 72 65 74 75 72 6e 28 | '\0';.X|.return(|
|00005d10| 74 70 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 0a 58 2f |tp);.X}.|X.X.X.X/|
|00005d20| 2a 0a 58 20 2a 20 70 75 | 74 6f 62 6a 28 29 20 63 |*.X * pu|tobj() c|
|00005d30| 6f 6e 76 65 72 74 73 20 | 61 20 73 6f 75 72 63 65 |onverts |a source|
|00005d40| 20 66 69 6c 65 20 6e 61 | 6d 65 20 74 6f 20 61 6e | file na|me to an|
|00005d50| 20 6f 62 6a 65 63 74 20 | 66 69 6c 65 20 6e 61 6d | object |file nam|
|00005d60| 65 20 61 6e 64 20 74 68 | 65 6e 0a 58 20 2a 20 77 |e and th|en.X * w|
|00005d70| 72 69 74 65 73 20 74 68 | 65 20 66 69 6c 65 20 6e |rites th|e file n|
|00005d80| 61 6d 65 20 74 6f 20 73 | 74 72 65 61 6d 2e 0a 58 |ame to s|tream..X|
|00005d90| 20 2a 2f 0a 58 76 6f 69 | 64 0a 58 70 75 74 6f 62 | */.Xvoi|d.Xputob|
|00005da0| 6a 28 73 2c 20 73 74 72 | 65 61 6d 29 0a 58 09 72 |j(s, str|eam).X.r|
|00005db0| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 73 3b |egister |char *s;|
|00005dc0| 09 09 2f 2a 20 73 6f 75 | 72 63 65 20 66 69 6c 65 |../* sou|rce file|
|00005dd0| 20 6e 61 6d 65 20 2a 2f | 0a 58 09 72 65 67 69 73 | name */|.X.regis|
|00005de0| 74 65 72 20 46 49 4c 45 | 20 2a 73 74 72 65 61 6d |ter FILE| *stream|
|00005df0| 3b 09 09 2f 2a 20 6f 75 | 74 70 75 74 20 73 74 72 |;../* ou|tput str|
|00005e00| 65 61 6d 20 2a 2f 0a 58 | 7b 0a 58 09 65 78 74 65 |eam */.X|{.X.exte|
|00005e10| 72 6e 20 63 68 61 72 20 | 4f 42 4a 53 46 58 5b 5d |rn char |OBJSFX[]|
|00005e20| 3b 09 09 2f 2a 20 6f 62 | 6a 65 63 74 20 66 69 6c |;../* ob|ject fil|
|00005e30| 65 20 6e 61 6d 65 20 73 | 75 66 66 69 78 20 2a 2f |e name s|uffix */|
|00005e40| 0a 58 09 72 65 67 69 73 | 74 65 72 20 63 68 61 72 |.X.regis|ter char|
|00005e50| 20 2a 64 6f 74 3b 09 09 | 2f 2a 20 70 6f 69 6e 74 | *dot;..|/* point|
|00005e60| 65 72 20 74 6f 20 73 75 | 66 66 69 78 20 2a 2f 0a |er to su|ffix */.|
|00005e70| 58 09 63 68 61 72 20 2a | 72 69 6e 64 65 78 28 29 |X.char *|rindex()|
|00005e80| 3b 09 09 09 2f 2a 20 6c | 61 73 74 20 6f 63 63 75 |;.../* l|ast occu|
|00005e90| 72 72 65 6e 63 65 20 6f | 66 20 63 68 61 72 61 63 |rrence o|f charac|
|00005ea0| 74 65 72 20 2a 2f 0a 58 | 0a 58 09 64 6f 74 20 3d |ter */.X|.X.dot =|
|00005eb0| 20 72 69 6e 64 65 78 28 | 73 2c 20 27 2e 27 29 3b | rindex(|s, '.');|
|00005ec0| 0a 58 09 77 68 69 6c 65 | 20 28 73 20 21 3d 20 64 |.X.while| (s != d|
|00005ed0| 6f 74 29 0a 58 09 09 70 | 75 74 63 28 2a 73 2b 2b |ot).X..p|utc(*s++|
|00005ee0| 2c 20 73 74 72 65 61 6d | 29 3b 0a 58 09 66 70 72 |, stream|);.X.fpr|
|00005ef0| 69 6e 74 66 28 73 74 72 | 65 61 6d 2c 20 22 25 73 |intf(str|eam, "%s|
|00005f00| 22 2c 20 4f 42 4a 53 46 | 58 29 3b 0a 58 7d 0a 58 |", OBJSF|X);.X}.X|
|00005f10| 0a 58 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 72 65 61 |.X.X.X/*|.X * rea|
|00005f20| 64 6d 66 28 29 20 72 65 | 61 64 73 20 61 20 6d 61 |dmf() re|ads a ma|
|00005f30| 6b 65 66 69 6c 65 20 61 | 6e 64 20 6c 6f 61 64 73 |kefile a|nd loads|
|00005f40| 20 43 46 4c 41 47 53 2c | 20 46 46 4c 41 47 53 2c | CFLAGS,| FFLAGS,|
|00005f50| 20 61 6e 64 20 53 55 46 | 46 49 58 20 64 65 66 69 | and SUF|FIX defi|
|00005f60| 6e 69 74 69 6f 6e 73 0a | 58 20 2a 20 69 6e 74 6f |nitions.|X * into|
|00005f70| 20 74 68 65 20 6d 61 63 | 72 6f 20 64 65 66 69 6e | the mac|ro defin|
|00005f80| 69 74 69 6f 6e 20 74 61 | 62 6c 65 20 69 66 20 74 |ition ta|ble if t|
|00005f90| 68 65 79 20 64 6f 20 6e | 6f 74 20 61 6c 72 65 61 |hey do n|ot alrea|
|00005fa0| 64 79 20 65 78 69 73 74 | 2e 20 52 65 74 75 72 6e |dy exist|. Return|
|00005fb0| 73 0a 58 20 2a 20 69 6e | 74 65 67 65 72 20 56 4c |s.X * in|teger VL|
|00005fc0| 49 42 52 41 52 59 2c 20 | 56 50 52 4f 47 52 41 4d |IBRARY, |VPROGRAM|
|00005fd0| 2c 20 6f 72 20 56 55 4e | 4b 4e 4f 57 4e 20 61 63 |, or VUN|KNOWN ac|
|00005fe0| 63 6f 72 64 69 6e 67 20 | 74 6f 20 74 68 65 20 74 |cording |to the t|
|00005ff0| 79 70 65 20 6f 66 20 6d | 61 6b 65 66 69 6c 65 2c |ype of m|akefile,|
|00006000| 0a 58 20 2a 20 6f 72 20 | 56 45 52 52 4f 52 20 69 |.X * or |VERROR i|
|00006010| 66 20 63 61 6e 6e 6f 74 | 20 6f 70 65 6e 20 6d 61 |f cannot| open ma|
|00006020| 6b 65 66 69 6c 65 2e 0a | 58 20 2a 2f 0a 58 72 65 |kefile..|X */.Xre|
|00006030| 61 64 6d 66 28 6d 66 6e | 61 6d 65 2c 20 74 61 72 |admf(mfn|ame, tar|
|00006040| 67 65 74 29 0a 58 09 63 | 68 61 72 20 2a 6d 66 6e |get).X.c|har *mfn|
|00006050| 61 6d 65 3b 09 09 09 2f | 2a 20 6e 61 6d 65 20 6f |ame;.../|* name o|
|00006060| 66 20 6d 61 6b 65 66 69 | 6c 65 20 2a 2f 0a 58 09 |f makefi|le */.X.|
|00006070| 54 41 52 47 45 54 20 2a | 74 61 72 67 65 74 3b 09 |TARGET *|target;.|
|00006080| 09 09 2f 2a 20 74 79 70 | 65 20 6f 66 20 6d 61 6b |../* typ|e of mak|
|00006090| 65 66 69 6c 65 20 74 61 | 72 67 65 74 20 2a 2f 0a |efile ta|rget */.|
|000060a0| 58 7b 0a 58 09 72 65 67 | 69 73 74 65 72 20 63 68 |X{.X.reg|ister ch|
|000060b0| 61 72 20 2a 62 70 3b 09 | 09 2f 2a 20 62 75 66 66 |ar *bp;.|./* buff|
|000060c0| 65 72 20 70 6f 69 6e 74 | 65 72 20 2a 2f 0a 58 09 |er point|er */.X.|
|000060d0| 65 78 74 65 72 6e 20 63 | 68 61 72 20 49 4f 42 55 |extern c|har IOBU|
|000060e0| 46 5b 5d 3b 09 09 2f 2a | 20 49 2f 4f 20 62 75 66 |F[];../*| I/O buf|
|000060f0| 66 65 72 20 6c 69 6e 65 | 20 2a 2f 0a 58 09 65 78 |fer line| */.X.ex|
|00006100| 74 65 72 6e 20 48 41 53 | 48 20 2a 4d 44 45 46 54 |tern HAS|H *MDEFT|
|00006110| 41 42 4c 45 3b 09 09 2f | 2a 20 6d 61 63 72 6f 20 |ABLE;../|* macro |
|00006120| 64 65 66 69 6e 69 74 69 | 6f 6e 20 74 61 62 6c 65 |definiti|on table|
|00006130| 20 2a 2f 0a 58 09 63 68 | 61 72 20 2a 66 69 6e 64 | */.X.ch|ar *find|
|00006140| 6d 61 63 72 6f 28 29 3b | 09 09 2f 2a 20 69 73 20 |macro();|../* is |
|00006150| 74 68 65 20 6c 69 6e 65 | 20 61 20 6d 61 63 72 6f |the line| a macro|
|00006160| 20 64 65 66 69 6e 69 74 | 69 6f 6e 3f 20 2a 2f 0a | definit|ion? */.|
|00006170| 58 09 63 68 61 72 20 2a | 66 69 6e 64 72 75 6c 65 |X.char *|findrule|
|00006180| 28 29 3b 09 09 2f 2a 20 | 69 73 20 74 68 65 20 6c |();../* |is the l|
|00006190| 69 6e 65 20 61 20 72 75 | 6c 65 20 64 65 66 69 6e |ine a ru|le defin|
|000061a0| 69 74 69 6f 6e 3f 20 2a | 2f 0a 58 09 63 68 61 72 |ition? *|/.X.char|
|000061b0| 20 2a 67 65 74 6c 69 6e | 28 29 3b 09 09 09 2f 2a | *getlin|();.../*|
|000061c0| 20 67 65 74 20 61 20 6c | 69 6e 65 20 66 72 6f 6d | get a l|ine from|
|000061d0| 20 69 6e 70 75 74 20 73 | 74 72 65 61 6d 20 2a 2f | input s|tream */|
|000061e0| 0a 58 09 63 68 61 72 20 | 2a 67 65 74 6d 61 63 72 |.X.char |*getmacr|
|000061f0| 6f 28 29 3b 09 09 2f 2a | 20 67 65 74 20 6d 61 63 |o();../*| get mac|
|00006200| 72 6f 20 64 65 66 20 66 | 72 6f 6d 20 69 6e 70 75 |ro def f|rom inpu|
|00006210| 74 20 73 74 72 65 61 6d | 20 2a 2f 0a 58 09 63 68 |t stream| */.X.ch|
|00006220| 61 72 20 6d 61 63 72 6f | 64 65 66 5b 4d 41 43 52 |ar macro|def[MACR|
|00006230| 4f 44 45 46 53 49 5a 45 | 5d 3b 09 2f 2a 20 6d 61 |ODEFSIZE|];./* ma|
|00006240| 63 72 6f 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 62 |cro defi|nition b|
|00006250| 75 66 66 65 72 20 2a 2f | 0a 58 09 63 68 61 72 20 |uffer */|.X.char |
|00006260| 6d 61 63 72 6f 6e 61 6d | 65 5b 4d 41 43 52 4f 4e |macronam|e[MACRON|
|00006270| 41 4d 53 49 5a 45 5d 3b | 09 2f 2a 20 6d 61 63 72 |AMSIZE];|./* macr|
|00006280| 6f 20 6e 61 6d 65 20 62 | 75 66 66 65 72 20 2a 2f |o name b|uffer */|
|00006290| 0a 58 09 63 68 61 72 20 | 72 75 6c 65 6e 61 6d 65 |.X.char |rulename|
|000062a0| 5b 32 2a 53 55 46 46 49 | 58 53 49 5a 45 2b 33 5d |[2*SUFFI|XSIZE+3]|
|000062b0| 3b 09 2f 2a 20 74 72 61 | 6e 73 66 6f 72 6d 61 74 |;./* tra|nsformat|
|000062c0| 69 6f 6e 20 72 75 6c 65 | 20 6e 61 6d 65 20 2a 2f |ion rule| name */|
|000062d0| 0a 58 09 46 49 4c 45 20 | 2a 66 6f 70 65 6e 28 29 |.X.FILE |*fopen()|
|000062e0| 3b 09 09 09 2f 2a 20 6f | 70 65 6e 20 66 69 6c 65 |;.../* o|pen file|
|000062f0| 20 2a 2f 0a 58 09 46 49 | 4c 45 20 2a 66 70 3b 09 | */.X.FI|LE *fp;.|
|00006300| 09 09 2f 2a 20 66 69 6c | 65 20 70 6f 69 6e 74 65 |../* fil|e pointe|
|00006310| 72 20 2a 2f 0a 58 09 48 | 41 53 48 42 4c 4b 20 2a |r */.X.H|ASHBLK *|
|00006320| 68 74 69 6e 73 74 61 6c | 6c 28 29 3b 09 09 2f 2a |htinstal|l();../*|
|00006330| 20 69 6e 73 74 61 6c 6c | 20 68 61 73 68 20 74 61 | install| hash ta|
|00006340| 62 6c 65 20 65 6e 74 72 | 79 20 2a 2f 0a 58 09 48 |ble entr|y */.X.H|
|00006350| 41 53 48 42 4c 4b 20 2a | 68 74 6c 6f 6f 6b 75 70 |ASHBLK *|htlookup|
|00006360| 28 29 3b 09 09 2f 2a 20 | 66 69 6e 64 20 68 61 73 |();../* |find has|
|00006370| 68 20 74 61 62 6c 65 20 | 65 6e 74 72 79 20 2a 2f |h table |entry */|
|00006380| 0a 58 09 69 6e 74 20 73 | 74 6f 72 65 72 75 6c 65 |.X.int s|torerule|
|00006390| 28 29 3b 09 09 2f 2a 20 | 73 74 6f 72 65 20 74 72 |();../* |store tr|
|000063a0| 61 6e 73 66 6f 72 6d 61 | 74 69 6f 6e 20 72 75 6c |ansforma|tion rul|
|000063b0| 65 20 2a 2f 0a 58 0a 58 | 09 74 61 72 67 65 74 2d |e */.X.X|.target-|
|000063c0| 3e 74 79 70 65 20 3d 20 | 74 61 72 67 65 74 2d 3e |>type = |target->|
|000063d0| 64 65 73 74 20 3d 20 56 | 55 4e 4b 4e 4f 57 4e 3b |dest = V|UNKNOWN;|
|000063e0| 0a 58 09 69 66 20 28 28 | 66 70 20 3d 20 66 6f 70 |.X.if ((|fp = fop|
|000063f0| 65 6e 28 6d 66 6e 61 6d | 65 2c 20 22 72 22 29 29 |en(mfnam|e, "r"))|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.