contrib/ncurses-5.4/misc/chkdef.cmd

   1 /*
   2  * $Id: chkdef.cmd,v 1.2 1998/08/29 21:45:58 tom Exp $
   3  *
   4  * Author:  Juan Jose Garcia Ripoll <worm@arrakis.es>.
   5  * Webpage: http://www.arrakis.es/~worm/
   6  *
   7  * chkdef.cmd - checks that a .def file has no conflicts and is properly
   8  *              formatted.
   9  *
  10  * returns nonzero if two symbols have the same code or a line has a wrong
  11  * format.
  12  *
  13  * returns 0 otherwise
  14  *
  15  * the standard output shows conflicts.
  16  */
  17 parse arg def_file
  18
  19 def_file = translate(def_file,'\','/')
  20
  21 call CleanQueue
  22
  23 /*
  24  * `cmp' is zero when the file is valid
  25  * `codes' associates a name to a code
  26  * `names' associates a code to a name
  27  */
  28 cmp    = 0
  29 codes. = 0
  30 names. = ''
  31
  32 /*
  33  * This sed expression cleans empty lines, comments and special .DEF
  34  * commands, such as LIBRARY..., EXPORTS..., etc
  35  */
  36 tidy_up  = '"s/[        ][      ]*/ /g;s/;.*//g;/^[ ]*$/d;/^[a-zA-Z]/d;"'
  37
  38 /*
  39  * First we find all public symbols from the original DLL. All this
  40  * information is pushed into a REXX private list with the RXQUEUE
  41  * utility program.
  42  */
  43 '@echo off'
  44 'type' def_file '| sed' tidy_up '| sort | rxqueue'
  45
  46 do while queued() > 0
  47    /*
  48     * We retrieve the symbol name (NEW_NAME) and its code (NEW_CODE)
  49     */
  50    parse pull '"' new_name '"' '@'new_code rest
  51    select
  52       when (new_code = '') | (new_name = '') then
  53          /* The input was not properly formatted */
  54          do
  55          say 'Error: symbol "'new_name'" has no export code or is empty'
  56          cmp = 1
  57          end
  58       when codes.new_name \= 0 then
  59          /* This symbol was already defined */
  60          if codes.new_name \= new_code then
  61             do
  62             cmp = 2
  63             say 'Symbol "'new_name'" multiply defined'
  64             end
  65       when names.new_code \= '' then
  66          /* This code was already assigned to a symbol */
  67          if names.new_code \= new_name then
  68             do
  69             cmp = 3
  70             say 'Conflict with "'names.new_code'" & "'new_name'" being @'new_code
  71             end
  72       otherwise
  73          do
  74          codes.new_name = new_code
  75          names.new_code = new_name
  76          end
  77    end  /* select */
  78 end
  79
  80 exit cmp
  81
  82 CleanQueue: procedure
  83         do while queued() > 0
  84            parse pull foo
  85         end
  86 return