55 lines
1.2 KiB
Batchfile
55 lines
1.2 KiB
Batchfile
|
/* os2 build scripts
|
||
|
|
|
||
|
|
this script is used to process emxexp results
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
lmax = 0
|
||
|
|
ordinal = 1
|
||
|
|
|
||
|
|
do while( lines())
|
||
|
|
|
||
|
|
l = strip(linein())
|
||
|
|
if POS(';', l) > 0 then l = LEFT(l,POS(';', l)-1)
|
||
|
|
|
||
|
|
l = strip(translate(l,'','"'))
|
||
|
|
l = strip(l,,X2C(9))
|
||
|
|
|
||
|
|
/* remove empty lines */
|
||
|
|
if l = '_' then l = ''
|
||
|
|
|
||
|
|
/* remove component_getDescriptionFunc, since it is already added by tg_def */
|
||
|
|
if l = '_component_getDescriptionFunc' then l = ''
|
||
|
|
if l = '_GetVersionInfo' then l = ''
|
||
|
|
|
||
|
|
|
||
|
|
/* remove GLOBAL symbols */
|
||
|
|
if POS('_GLOBAL_', l) > 0 then l = ';'l
|
||
|
|
/*
|
||
|
|
if POS('!', l) > 0 then l = ';'l
|
||
|
|
if POS('_ZN4_STL', l) > 0 then l = ';'l
|
||
|
|
if POS('_ZNK4_STL', l) > 0 then l = ';'l
|
||
|
|
if POS('ImplClass', l) > 0 then l = ';'l
|
||
|
|
if POS('ImplHelper', l) > 0 then l = ';'l
|
||
|
|
if POS('UsageHelper', l) > 0 then l = ';'l
|
||
|
|
if POS('com3sun4star3', l) > 0 then l = ';'l
|
||
|
|
*/
|
||
|
|
/* if LENGTH(l) > 254 then l = ';(>254)'left(l,100) */
|
||
|
|
|
||
|
|
if POS(';', l) > 0 then l = LEFT(l,POS(';', l)-1)
|
||
|
|
|
||
|
|
IF LENGTH(l)>0 THEN DO
|
||
|
|
say l
|
||
|
|
ordinal = ordinal + 1
|
||
|
|
END
|
||
|
|
|
||
|
|
if LENGTH(l)>lmax then do
|
||
|
|
lmax = LENGTH(l)
|
||
|
|
smax = l
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
say ';lmax='lmax
|
||
|
|
say ';smax='smax
|