summaryrefslogtreecommitdiff
path: root/solenv/bin/fix_def_file.cmd
diff options
context:
space:
mode:
Diffstat (limited to 'solenv/bin/fix_def_file.cmd')
-rw-r--r--solenv/bin/fix_def_file.cmd52
1 files changed, 52 insertions, 0 deletions
diff --git a/solenv/bin/fix_def_file.cmd b/solenv/bin/fix_def_file.cmd
new file mode 100644
index 000000000000..4db97f8ce435
--- /dev/null
+++ b/solenv/bin/fix_def_file.cmd
@@ -0,0 +1,52 @@
+/* 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