Remove OS/2 code.

8 files changed, 0 insertions, 168 deletions

diff --git a/solenv/bin/build.pl b/solenv/bin/build.pl
index d6664a44530a..e47d6b275e7e 100755
--- a/solenv/bin/build.pl
+++ b/solenv/bin/build.pl
@@ -2681,11 +2681,6 @@ sub do_exit {
     my $exit_code = shift;
     $build_finished++;
     generate_html_file(1);
-    if ( $^O eq 'os2' )
-    {
-        # perl 5.10 returns 'resource busy' for rmtree
-        rmdir(correct_path($tmp_dir)) if ($tmp_dir);
-    }
     rmtree(correct_path($tmp_dir), 0, 0) if ($tmp_dir);
     print STDERR "Cannot delete $tmp_dir. Please remove it manually\n" if (-d $tmp_dir);
     exit($exit_code);
diff --git a/solenv/bin/deliver.pl b/solenv/bin/deliver.pl
index 55f6a9e6f0ab..22ec376af8f7 100755
--- a/solenv/bin/deliver.pl
+++ b/solenv/bin/deliver.pl
@@ -823,10 +823,6 @@ sub copy_if_newer
             }
         }
         fix_file_permissions($$from_stat_ref[2], $temp_file);
-        if ( $^O eq 'os2' )
-        {
-            $rc = unlink($to); # YD OS/2 can't rename if $to exists!
-        }
         # Ugly hack: on windows file locking(?) sometimes prevents renaming.
         # Until we've found and fixed the real reason try it repeatedly :-(
         my $try = 0;
diff --git a/solenv/bin/fix_def_file.cmd b/solenv/bin/fix_def_file.cmd
deleted file mode 100644
index 3f303c8d0b02..000000000000
--- a/solenv/bin/fix_def_file.cmd
+++ /dev/null
@@ -1,46 +0,0 @@
-/* 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 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

diff --git a/solenv/bin/fix_def_ord.cmd b/solenv/bin/fix_def_ord.cmd
deleted file mode 100644
index a308edd43513..000000000000
--- a/solenv/bin/fix_def_ord.cmd
+++ /dev/null
@@ -1,19 +0,0 @@
-/* os2 build scripts

-

-this script is used to process def results.

-Adds ordinal number to every line.

-

-*/

-

-lmax = 0

-smax = ''

-

-ord = 1

-do while( lines())

-

-	l = linein()

-	IF LENGTH(l)>0 THEN DO

-  	  say l 

-	  ord = ord + 1

-	END

-end

diff --git a/solenv/bin/fix_dxp_file.cmd b/solenv/bin/fix_dxp_file.cmd
deleted file mode 100644
index bcad4e9b48f7..000000000000
--- a/solenv/bin/fix_dxp_file.cmd
+++ /dev/null
@@ -1,26 +0,0 @@
-/* os2 build scripts

-

-this script is used to process dxp files produced from .map

-

-*/

-

-do while( lines())

-

-	l = linein()

-

-	l = strip(l)

-	l = strip(l,,X2C(9))

-	l = strip(l,,";")

-	if LEFT( l,4) \= 'Java' THEN l = '_'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 = ''

-

-

-	say l

-

-end

diff --git a/solenv/bin/fix_exp_file.cmd b/solenv/bin/fix_exp_file.cmd
deleted file mode 100644
index fc2a6191fc2b..000000000000
--- a/solenv/bin/fix_exp_file.cmd
+++ /dev/null
@@ -1,44 +0,0 @@
-/* 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 = 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

diff --git a/solenv/bin/fix_lin_file.cmd b/solenv/bin/fix_lin_file.cmd
deleted file mode 100644
index 0d074ce9f706..000000000000
--- a/solenv/bin/fix_lin_file.cmd
+++ /dev/null
@@ -1,13 +0,0 @@
-/* os2 build scripts

-*/

-

-parse arg dir

-

-do while( lines())

-

-	l = linein()

-

-	/* skip empty lines */

-	if l \= '' then say dir || '\' || l

-

-end

diff --git a/solenv/bin/fix_shl.cmd b/solenv/bin/fix_shl.cmd
deleted file mode 100644
index ca13abb2074e..000000000000
--- a/solenv/bin/fix_shl.cmd
+++ /dev/null
@@ -1,11 +0,0 @@
-/* os2 build scripts

-

-will return a 8.3 conformant name for modname.

-

-21/02/2006 Actually this is a simple truncation, seems nothing more needed.

-

-*/

-

-parse arg modname

-if pos('.',modname)>0 then modname = left(modname, pos('.',modname)-1)

-say strip(left(modname,8))