xref: /trunk/main/solenv/bin/fix_def_ord.cmd (revision cdf0e10c) 
1*cdf0e10cSrcweir/* os2 build scripts
2*cdf0e10cSrcweir
3*cdf0e10cSrcweirthis script is used to process def results.
4*cdf0e10cSrcweirAdds ordinal number to every line.
5*cdf0e10cSrcweir
6*cdf0e10cSrcweir*/
7*cdf0e10cSrcweir
8*cdf0e10cSrcweirlmax = 0
9*cdf0e10cSrcweirsmax = ''
10*cdf0e10cSrcweir
11*cdf0e10cSrcweirord = 1
12*cdf0e10cSrcweirdo while( lines())
13*cdf0e10cSrcweir
14*cdf0e10cSrcweir	l = linein()
15*cdf0e10cSrcweir	IF LENGTH(l)>0 THEN DO
16*cdf0e10cSrcweir  	  say l /* ' @'ord ' RESIDENTNAME' */
17*cdf0e10cSrcweir	  ord = ord + 1
18*cdf0e10cSrcweir	END
19*cdf0e10cSrcweirend
20