1 /****************************************************************************
\r
2 * Copyright 2020,2021 Thomas E. Dickey *
\r
3 * Copyright 1998,2006 Free Software Foundation, Inc. *
\r
5 * Permission is hereby granted, free of charge, to any person obtaining a *
\r
6 * copy of this software and associated documentation files (the *
\r
7 * "Software"), to deal in the Software without restriction, including *
\r
8 * without limitation the rights to use, copy, modify, merge, publish, *
\r
9 * distribute, distribute with modifications, sublicense, and/or sell *
\r
10 * copies of the Software, and to permit persons to whom the Software is *
\r
11 * furnished to do so, subject to the following conditions: *
\r
13 * The above copyright notice and this permission notice shall be included *
\r
14 * in all copies or substantial portions of the Software. *
\r
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
\r
17 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
\r
18 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
\r
19 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
\r
20 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
\r
21 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
\r
22 * THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
\r
24 * Except as contained in this notice, the name(s) of the above copyright *
\r
25 * holders shall not be used in advertising or otherwise to promote the *
\r
26 * sale, use or other dealings in this Software without prior written *
\r
28 ****************************************************************************/
\r
31 * $Id: makedef.cmd,v 1.7 2021/09/04 10:52:55 tom Exp $
\r
33 * Author: Juan Jose Garcia Ripoll <worm@arrakis.es>.
\r
34 * Webpage: http://www.arrakis.es/~worm/
\r
36 * makedef.cmd - update a DLL export list using a newly created library file
\r
37 * in a.out format, plus an old .DEF file.
\r
39 * standard output gets a sorted list with all entrypoints with entrycodes.
\r
40 * This list, plus a few .def sentences (LIBRARY, DESCRIPTION and EXPORT)
\r
41 * is used to build a new .def file.
\r
43 * `_nc_*' symbols are ignored.
\r
45 * returns 1 when the old def_file is corrupted -- that is, export items are
\r
46 * not properly formatted.
\r
48 * returns 0 if everything went OK.
\r
51 parse arg lib_file def_file
\r
53 lib_file = translate(lib_file,'\','/')
\r
54 def_file = translate(def_file,'\','/')
\r
59 * `codes' is the stem that links a code to every symbol
\r
60 * `names' is the stem where symbols are stored sequentially
\r
61 * `last' is the index of the last symbol defined
\r
68 tmp_name = 'foo.tmp'
\r
71 * This sed expression cleans empty lines, comments and special .DEF
\r
72 * commands, such as LIBRARY..., EXPORTS..., etc
\r
74 tidy_up = '"/^[A-Z]/d;s/[ ][ ]*/ /g;s/;.*$//g;s/^[ ]*//g;/^[ ]*$/d"'
\r
77 * First we find all public symbols (functions and variables). Next we
\r
78 * concatenate this list with the old one, sorting it and wiping out
\r
79 * all unused data (comments, DLL directives, blanks, etc). All this
\r
80 * information is pushed into a REXX private list with the RXQUEUE
\r
84 'emxexp -u' lib_file '>' tmp_name
\r
85 'cat' tmp_name def_file '| sed' tidy_up '| sort > foo2.tmp'
\r
86 'type foo2.tmp | rxqueue'
\r
87 'del' tmp_name '1>NUL'
\r
90 * This loop runs over the queue items
\r
92 do while queued() > 0
\r
94 * We retrieve the symbol name (NEW_NAME) and its number (NEW_NUMBER)
\r
95 * When the line comes from `emximp's output, there's no number, so
\r
96 * we assign it the special value 0.
\r
98 parse pull new_symbol '@'new_code rest
\r
99 if Left(new_symbol,1) = '"' then
\r
100 parse var new_symbol '"' new_name '"' rest
\r
103 echo 'Symbol 'new_symbol' was not quoted'
\r
104 new_name = new_symbol
\r
107 if new_code = '' then
\r
110 * Here, one would place all smart checks that would kill unused symbols.
\r
111 * However, export tables are not that big, so why bothering?
\r
112 if Left(new_name,4) = '_nc_' then
\r
117 * IF (this is the 2nd time the symbol appears) THEN
\r
118 * (this symbol comes from a .DEF file)
\r
119 * it has a valid code that we store
\r
120 * we mark that code as used
\r
121 * ELIF (it has no number) THEN
\r
122 * (it is a new symbol)
\r
123 * we increase the counter of defined symbols
\r
124 * we assign it the special number 0
\r
125 * (later on it'll be assigned an unused export code)
\r
127 * this symbol was in the old DLL and it is no longer
\r
128 * here, so we skip it.
\r
131 when new_name = '' then
\r
132 'echo Warning: empty symbol found 1>&2'
\r
133 when names.last = new_name then
\r
135 codes.last = new_code
\r
138 when new_code = 0 then
\r
141 names.last = new_name
\r
145 'echo Warning: symbol "'new_name'" has disappeared 1>&2'
\r
147 end /* do while queued() */
\r
150 * Finally we scan the stem, writing out all symbols with export codes.
\r
151 * Those that did not have a valid one (just 0) are assigned a new one.
\r
155 do while inx <= last
\r
156 if codes.inx = 0 then
\r
158 do while used.new_code \= 0
\r
159 new_code = new_code + 1
\r
161 codes.inx = new_code
\r
164 say ' "'names.inx'" @'codes.inx' NONAME'
\r
167 'del foo2.tmp 1>NUL'
\r
171 * Cleans the REXX queue by pulling and forgetting every line.
\r
172 * This is needed, at least, when `makedef.cmd' starts, because an aborted
\r
173 * REXX program might have left some rubbish in.
\r
175 CleanQueue: procedure
\r
176 do while queued() > 0
\r