1/* os2 build scripts 2 3this script is used to process def results 4 5*/ 6 7lmax = 0 8smax = '' 9ordinal = 1 10 11do 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 49end 50 51say ';lmax='lmax 52say ';smax='smax 53