2 * $Id: makedef.cmd,v 1.4 1998/11/22 03:14:08 tom Exp $
\r
4 * Author: Juan Jose Garcia Ripoll <worm@arrakis.es>.
\r
5 * Webpage: http://www.arrakis.es/~worm/
\r
7 * makedef.cmd - update a DLL export list using a newly created library file
\r
8 * in a.out format, plus an old .DEF file.
\r
10 * standard output gets a sorted list with all entrypoints with entrycodes.
\r
11 * This list, plus a few .def sentences (LIBRARY, DESCRIPTION and EXPORT)
\r
12 * is used to build a new .def file.
\r
14 * `_nc_*' symbols are ignored.
\r
16 * returns 1 when the old def_file is corrupted -- that is, export items are
\r
17 * not properly formatted.
\r
19 * returns 0 if everything went OK.
\r
22 parse arg lib_file def_file
\r
24 lib_file = translate(lib_file,'\','/')
\r
25 def_file = translate(def_file,'\','/')
\r
30 * `codes' is the stem that links a code to every symbol
\r
31 * `names' is the stem where symbols are stored sequentially
\r
32 * `last' is the index of the last symbol defined
\r
39 tmp_name = 'foo.tmp'
\r
42 * This sed expression cleans empty lines, comments and special .DEF
\r
43 * commands, such as LIBRARY..., EXPORTS..., etc
\r
45 tidy_up = '"/^[A-Z]/d;s/[ ][ ]*/ /g;s/;.*$//g;s/^[ ]*//g;/^[ ]*$/d"'
\r
48 * First we find all public symbols (functions and variables). Next we
\r
49 * concatenate this list with the old one, sorting it and wiping out
\r
50 * all unused data (comments, DLL directives, blanks, etc). All this
\r
51 * information is pushed into a REXX private list with the RXQUEUE
\r
55 'emxexp -u' lib_file '>' tmp_name
\r
56 'cat' tmp_name def_file '| sed' tidy_up '| sort > foo2.tmp'
\r
57 'type foo2.tmp | rxqueue'
\r
58 'del' tmp_name '1>NUL'
\r
61 * This loop runs over the queue items
\r
63 do while queued() > 0
\r
65 * We retrieve the symbol name (NEW_NAME) and its number (NEW_NUMBER)
\r
66 * When the line comes from `emximp's output, there's no number, so
\r
67 * we assign it the special value 0.
\r
69 parse pull new_symbol '@'new_code rest
\r
70 if Left(new_symbol,1) = '"' then
\r
71 parse var new_symbol '"' new_name '"' rest
\r
74 echo 'Symbol 'new_symbol' was not quoted'
\r
75 new_name = new_symbol
\r
78 if new_code = '' then
\r
81 * Here, one would place all smart checks that would kill unused symbols.
\r
82 * However, export tables are not that big, so why bothering?
\r
83 if Left(new_name,4) = '_nc_' then
\r
88 * IF (this is the 2nd time the symbol appears) THEN
\r
89 * (this symbol comes from a .DEF file)
\r
90 * it has a valid code that we store
\r
91 * we mark that code as used
\r
92 * ELIF (it has no number) THEN
\r
93 * (it's a new symbol)
\r
94 * we increase the counter of defined symbols
\r
95 * we assign it the special number 0
\r
96 * (later on it'll be assigned an unused export code)
\r
98 * this symbol was in the old DLL and it's no longer
\r
99 * here, so we skip it.
\r
102 when new_name = '' then
\r
103 'echo Warning: empty symbol found 1>&2'
\r
104 when names.last = new_name then
\r
106 codes.last = new_code
\r
109 when new_code = 0 then
\r
112 names.last = new_name
\r
116 'echo Warning: symbol "'new_name'" has disappeared 1>&2'
\r
118 end /* do while queued() */
\r
121 * Finally we scan the stem, writing out all symbols with export codes.
\r
122 * Those that did not have a valid one (just 0) are assigned a new one.
\r
126 do while inx <= last
\r
127 if codes.inx = 0 then
\r
129 do while used.new_code \= 0
\r
130 new_code = new_code + 1
\r
132 codes.inx = new_code
\r
135 say ' "'names.inx'" @'codes.inx' NONAME'
\r
138 'del foo2.tmp 1>NUL'
\r
142 * Cleans the REXX queue by pulling and forgetting every line.
\r
143 * This is needed, at least, when `makedef.cmd' starts, because an aborted
\r
144 * REXX program might have left some rubbish in.
\r
146 CleanQueue: procedure
\r
147 do while queued() > 0
\r