Changeset 4936 for trunk/tools/DailyBuild

Timestamp:

Jan 12, 2001, 4:05:50 PM (25 years ago)

Author:

bird

Message:

Added odincrt.dll to debug release (to make wgss50.dll happy).

File:

• trunk/tools/DailyBuild/odin32pack.cmd (modified) (6 diffs)

trunk/tools/DailyBuild/odin32pack.cmd

@@ -1 @@
-/* $Id: odin32pack.cmd,v 1.11 2001-01-11 07:57:56 bird Exp $
+/* $Id: odin32pack.cmd,v 1.12 2001-01-12 15:05:50 bird Exp $
  *
  * Make the two zip files.
@@ -12 +12 @@
     sStartDir = directory();
 
+if (0) then do
     /*
      * Make .WPI files.
@@ -23 +24 @@
     if (RC <> 0) then call failure rc, 'failed to move the *.wpi ->' sStartDir;
     call ChDir '..\..';
-
+end
 
     /*
@@ -69 +70 @@
     /* Copy root files into the pack directory. */
     call copy sRoot'\bin\odin.ini'
-    call copy sRoot'\doc\odin.ini.txt'
+/*    call copy sRoot'\doc\odin.ini.txt' */
     call copy sRoot'\LICENSE.txt';
     call copy sRoot'\ChangeLog';
@@ -88 +89 @@
     do
         rc2 = rc;
-        'ren .\system32' sRoot'\'sDir
+        call backout sDir, sType, sRoot;
         call failure rc2, 'renaming system32\glide -> ..\glide_tmp failed';
     end
 
     call copy sRoot'\bin\wgss50.dll', 'system32\wgss50.dll';
+    if (pos('debug', sType) > 0) then
+    do
+        call copy sRoot'\bin\release\odincrt.dll', 'system32\odincrt.dll'
+        call copy sRoot'\bin\release\odincrt.sym', 'system32\odincrt.sym'
+    end
 
     say 'zip -9 -R' sZipFile '* -xCVS';
@@ -99 +105 @@
     do
         rc2 = rc;
-        'ren ..\glide_tmp .\system32\glide'
-        'ren .\system32' sRoot'\'sDir
+        call backout sDir, sType, sRoot;
         call failure rc2, 'zip...';
     end
-    'ren ..\glide_tmp .\system32\glide'
-    if (RC <> 0) then call failure rc, 'renaming glide_tmp failed';
-    'ren .\system32' sRoot'\'sDir
-    if (RC <> 0) then call failure rc, 'renaming' sDir'->system32 failed';
+
+    /* resotre */
+    call backout sDir, sType, sRoot;
 
     /* restore directory */
     call directory(sRoot);
+    return;
+
+/* backout procedure for packdir */
+backout: procedure;
+    parse arg sDir, sType, sRoot
+    if (pos('debug', sType) > 0) then
+    do
+        'del system32\odincrt.dll'
+        'del system32\odincrt.sym'
+    end
+    'ren ..\glide_tmp .\system32\glide'
+    'ren .\system32' sRoot'\'sDir
     return;