solenv/bin/fix_dxp_file.cmd

   1 /* os2 build scripts
   2
   3 this script is used to process dxp files produced from .map
   4
   5 */
   6
   7 do while( lines())
   8
   9         l = linein()
  10
  11         l = strip(l)
  12         l = strip(l,,X2C(9))
  13         l = strip(l,,";")
  14         if LEFT( l,4) \= 'Java' THEN l = '_'l
  15
  16         /* remove empty lines */
  17         if l = '_' then l = ''
  18
  19         /* remove component_getDescriptionFunc, since it is already added by tg_def */
  20         if l = '_component_getDescriptionFunc' then l = ''
  21         if l = '_GetVersionInfo' then l = ''
  22
  23         /* remove GLOBAL symbols */
  24 /*
  25         if WORDPOS( l, '_GLOBAL_') > 0 then l = ''
  26 */
  27
  28         say l
  29
  30 end