solenv/bin/fix_def_file.cmd

   1 /* os2 build scripts
   2
   3 this script is used to process def results
   4
   5 */
   6
   7 lmax = 0
   8 smax = ''
   9 ordinal = 1
  10
  11 do while( lines())
  12
  13         l = strip(linein())
  14         l = strip(l,,X2C(9))
  15         l = strip(l,,";")
  16         if LEFT( l,4) \= 'Java' THEN l = '_'l
  17
  18         /* remove comments */
  19         if POS(';', l) > 0 then l = LEFT( l, POS(';', l)-1)
  20         if POS('#', l) > 0 then l = LEFT( l, POS('#', l)-1)
  21         /* remove wildcards */
  22         if POS('*', l) > 0 then l = ''
  23
  24         /* remove empty lines */
  25         if l = '_' then l = ''
  26
  27         /* remove component_getDescriptionFunc, since it is already added by tg_def */
  28         if l = '_component_getDescriptionFunc' then l = ''
  29         if l = '_GetVersionInfo' then l = ''
  30
  31         /* remove GLOBAL symbols */
  32 /*
  33         if POS('_GLOBAL_', l) > 0 then l = ';'l
  34         if POS('_ZN4_STL', l) > 0 then l = ';'l
  35         if POS('_ZNK4_STL', l) > 0 then l = ';'l
  36 */
  37         /* if LENGTH(l) > 254 then l = ';(>254)'left(l,100)*/
  38
  39         IF LENGTH(l)>0 THEN DO
  40           say l
  41           ordinal = ordinal + 1
  42         END
  43
  44         if LENGTH(l)>lmax then do
  45           lmax = LENGTH(l)
  46           smax = l
  47         end
  48
  49 end
  50
  51 say ';lmax='lmax
  52 say ';smax='smax