Changeset 3399

Timestamp:

Jan 6, 2019, 7:25:12 PM (6 years ago)

Author:

Andreas Schnellbacher

Message:

• Added proc QuitSameFile that is used in r3398.

File:

• trunk/src/netlabs/macros/file.e (modified) (1 diff)

trunk/src/netlabs/macros/file.e ¶

@@ -218 +218 @@
    enddo
    return rc
+
+; ---------------------------------------------------------------------------
+; This can be executed before a file with Filename is created or, when a
+; file has a temporary name, before it was renamed to Filename.
+; This is used to keep virtual filenames unique.
+defc QuitSameFile
+   Filename = arg( 1)
+
+   do once = 1 to 1
+      if Filename = '' then
+         leave
+      endif
+
+      -- Check if old file with the same name is already in ring
+      getfileid OldFid, Filename
+      if OldFid = '' then
+         leave
+      endif
+
+      -- Discard previously loaded file from ring
+      getfileid CurFid
+      if CurFid = OldFid then
+         -- Quit current file
+         'xcom quit'
+      else
+         -- Temporarily switch to old file and quit it
+         activatefile OldFid
+         'xcom quit'
+         activatefile CurFid
+      endif
+   enddo
 
 ; ---------------------------------------------------------------------------