1 files changed, 54 insertions, 0 deletions
diff --git a/solenv/bin/fix_exp_file.cmd b/solenv/bin/fix_exp_file.cmd
new file mode 100644
index 000000000000..bec416c06e05
--- /dev/null
+++ b/solenv/bin/fix_exp_file.cmd
@@ -0,0 +1,54 @@
+/* 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