Changeset 48 for trunk

Timestamp:

Jun 24, 2009, 11:04:06 PM (16 years ago)

Author:

Dmitry A. Kuminov

Message:

configure.cmd: Undo temporary file rename operations we perform when building qmake if we fail and exit the script in the middle.

File:

• trunk/configure.cmd (modified) (7 diffs)

trunk/configure.cmd

@@ -732 +732 @@
      * however they are real functions in the library */
 
-    old_qconfig_h = ""
+    /* use an "at exit" slot to undo temporary file rename operations since we
+     * can fail in the middle */
+    exs = AddAtExitSlot()
+
     qconfig_h = G.OutPath"\src\corelib\global\qconfig.h"
     qmake_qconfig_h = qconfig_h".qmake"
     if (FileExists(qconfig_h)) then do
-         old_qconfig_h = qconfig_h
-         call MoveFile old_qconfig_h, old_qconfig_h".old"
+        call MoveFile qconfig_h, qconfig_h".old"
+        /* record undo Move operation */
+        call PutToAtExitSlot exs, 'call MoveFile "'qconfig_h'.old", "'qconfig_h'"'
     end
 
@@ -746 +750 @@
 
     call MoveFile qmake_qconfig_h, qconfig_h
+
+
+
     list.1 = G.OutPath"\include\QtCore\qconfig.h"
     list.2 = G.OutPath"\include\Qt\qconfig.h"
@@ -761 +768 @@
 
     /* put back original qconfig.h */
-    call MoveFile qconfig_h, qmake_qconfig_h
-    if (old_qconfig_h \== "") then
-        call MoveFile old_qconfig_h".old", old_qconfig_h
+    call RunAtExitSlot exs
 
     /* exit on failure */
@@ -2335 +2340 @@
  *  @version 1.1
  */
-/* <<< export to qt.cmd starts */
 AddPathVar: procedure expose (Globals)
     parse arg name, path, mode, environment
@@ -2385 +2389 @@
     else call value name, cur
     return
-/* >>> export to qt.cmd ends */
 
 /**
  *  Shortcut to AddPathVar(name, path, prepend, 'OS2ENVIRONMENT')
  */
-/* <<< export to qt.cmd starts */
 AddPathEnv: procedure expose (Globals)
     parse arg name, path, prepend
     call AddPathVar name, path, prepend, 'OS2ENVIRONMENT'
     return
-/* >>> export to qt.cmd ends */
 
 /**
@@ -2422 +2423 @@
     end
     return str
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
 /**
@@ -2488 +2540 @@
     call value 'G.Done_done', 1
     /* cleanup stuff goes there */
-    /* ... */
+    if (symbol('G.AtExit.0') == 'VAR') then do
+        /* run all AtExit slots */
+        do i = 1 to G.AtExit.0
+            if (symbol('G.AtExit.'i) == 'VAR') then
+                call RunAtExitSlot i
+        end
+    end
+    drop G.AtExit.
     /* finally, exit */
     exit code