xref: /trunk/main/solenv/bin/fix_dxp_file.cmd (revision cdf0e10c)
1*cdf0e10cSrcweir/* os2 build scripts
2*cdf0e10cSrcweir
3*cdf0e10cSrcweirthis script is used to process dxp files produced from .map
4*cdf0e10cSrcweir
5*cdf0e10cSrcweir*/
6*cdf0e10cSrcweir
7*cdf0e10cSrcweirdo while( lines())
8*cdf0e10cSrcweir
9*cdf0e10cSrcweir	l = linein()
10*cdf0e10cSrcweir
11*cdf0e10cSrcweir	l = strip(l)
12*cdf0e10cSrcweir	l = strip(l,,X2C(9))
13*cdf0e10cSrcweir	l = strip(l,,";")
14*cdf0e10cSrcweir	if LEFT( l,4) \= 'Java' THEN l = '_'l
15*cdf0e10cSrcweir
16*cdf0e10cSrcweir	/* remove empty lines */
17*cdf0e10cSrcweir	if l = '_' then l = ''
18*cdf0e10cSrcweir
19*cdf0e10cSrcweir	/* remove component_getDescriptionFunc, since it is already added by tg_def */
20*cdf0e10cSrcweir	if l = '_component_getDescriptionFunc' then l = ''
21*cdf0e10cSrcweir	if l = '_GetVersionInfo' then l = ''
22*cdf0e10cSrcweir
23*cdf0e10cSrcweir	/* remove GLOBAL symbols */
24*cdf0e10cSrcweir/*
25*cdf0e10cSrcweir	if WORDPOS( l, '_GLOBAL_') > 0 then l = ''
26*cdf0e10cSrcweir*/
27*cdf0e10cSrcweir
28*cdf0e10cSrcweir	say l
29*cdf0e10cSrcweir
30*cdf0e10cSrcweirend
31