solenv/bin/fix_def_ord.cmd

   1 /* os2 build scripts
   2
   3 this script is used to process def results.
   4 Adds ordinal number to every line.
   5
   6 */
   7
   8 lmax = 0
   9 smax = ''
  10
  11 ord = 1
  12 do while( lines())
  13
  14         l = linein()
  15         IF LENGTH(l)>0 THEN DO
  16           say l /* ' @'ord ' RESIDENTNAME' */
  17           ord = ord + 1
  18         END
  19 end