office-gobmx/solenv/bin/fix_def_file.cmd
Rüdiger Timm 7006253eeb CWS-TOOLING: integrate CWS os2port04
2008-11-27 13:22:38 +0100 ydario  r264480 : #i96439#: fix build for unix platforms.
2008-11-26 18:32:42 +0100 ydario  r264433 : #i96439#: os2 systemshell code (dummy code).
2008-11-26 16:33:48 +0100 ydario  r264421 : #i96439#: vcl fix for pdf export of truetype fonts.
2008-11-26 15:04:44 +0100 ydario  r264399 : #i96439#: build macros fix scripts, gcc specific flags.
2008-11-26 15:00:15 +0100 ydario  r264398 : #i96439#: vcl source code updates.
2008-11-26 13:21:37 +0100 ydario  r264378 : #i96439#: os2 build system fixes.
2008-11-26 13:20:27 +0100 ydario  r264377 : #i96439#: configuration and build macros updates.
2008-11-26 13:16:35 +0100 ydario  r264375 : #i96439#: new launcher code, build system updates.
2008-11-26 13:12:49 +0100 ydario  r264373 : #i96439#: use OSL endian macro.
2008-11-26 12:54:50 +0100 ydario  r264371 : #i96439#: os2 build system fixes.
2008-11-26 12:30:46 +0100 ydario  r264367 : #i96439#: os2 build system fixes.
2008-11-26 12:09:33 +0100 ydario  r264365 : #i96439#: _Export is a reserved keyword under gcc for os2.
2008-11-26 12:08:12 +0100 ydario  r264364 : #i96439#: new libpath handling.
2008-11-26 11:57:51 +0100 ydario  r264363 : #i96439#: use C call, generates proper stabs; fix rtti names.
2008-12-09 08:43:20 +00:00

52 lines
1.1 KiB
Batchfile

/* os2 build scripts
this script is used to process def results
*/
lmax = 0
smax = ''
ordinal = 1
do while( lines())
l = strip(linein())
l = strip(l,,X2C(9))
l = strip(l,,";")
if LEFT( l,4) \= 'Java' THEN l = '_'l
/* remove comments */
if POS(';', l) > 0 then l = LEFT( l, POS(';', l)-1)
if POS('#', l) > 0 then l = LEFT( l, POS('#', l)-1)
/* remove wildcards */
if POS('*', l) > 0 then l = ''
/* 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('_ZN4_STL', l) > 0 then l = ';'l
if POS('_ZNK4_STL', l) > 0 then l = ';'l
*/
/* if LENGTH(l) > 254 then l = ';(>254)'left(l,100)*/
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