solenv/bin/fix_def_ord.cmd


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

/* os2 build scripts

this script is used to process def results.
Adds ordinal number to every line.

*/

lmax = 0
smax = ''

ord = 1
do while( lines())

	l = linein()
	IF LENGTH(l)>0 THEN DO
  	  say l /* ' @'ord ' RESIDENTNAME' */
	  ord = ord + 1
	END
end