1/* os2 build scripts 2 3this script is used to process emxexp results 4 5*/ 6 7lmax = 0 8ordinal = 1 9 10do while( lines()) 11 12 l = strip(linein()) 13 if POS(';', l) > 0 then l = LEFT(l,POS(';', l)-1) 14 15 l = strip(translate(l,'','"')) 16 l = strip(l,,X2C(9)) 17 18 /* remove empty lines */ 19 if l = '_' then l = '' 20 21 /* remove component_getDescriptionFunc, since it is already added by tg_def */ 22 if l = '_component_getDescriptionFunc' then l = '' 23 if l = '_GetVersionInfo' then l = '' 24 25 26 /* remove GLOBAL symbols */ 27 if POS('_GLOBAL_', l) > 0 then l = ';'l 28/* 29 if POS('!', l) > 0 then l = ';'l 30 if POS('_ZN4_STL', l) > 0 then l = ';'l 31 if POS('_ZNK4_STL', l) > 0 then l = ';'l 32 if POS('ImplClass', l) > 0 then l = ';'l 33 if POS('ImplHelper', l) > 0 then l = ';'l 34 if POS('UsageHelper', l) > 0 then l = ';'l 35 if POS('com3sun4star3', l) > 0 then l = ';'l 36*/ 37 /* if LENGTH(l) > 254 then l = ';(>254)'left(l,100) */ 38 39 if POS(';', l) > 0 then l = LEFT(l,POS(';', l)-1) 40 41 IF LENGTH(l)>0 THEN DO 42 say l 43 ordinal = ordinal + 1 44 END 45 46 if LENGTH(l)>lmax then do 47 lmax = LENGTH(l) 48 smax = l 49 end 50 51end 52 53say ';lmax='lmax 54say ';smax='smax 55