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