Changeset 4752

Timestamp:

Oct 15, 2021, 1:45:13 AM (3 years ago)

Author:

Andreas Schnellbacher

Message:

• Finally found a workaround for closing cmd windows. That's most likely an E bug. Changeset r4750 is not required and improves nothing.

File:

• trunk/src/gui/nepmdlib/macros/readfilepart.e (modified) (2 diffs)

trunk/src/gui/nepmdlib/macros/readfilepart.e ¶

@@ -145 +145 @@
    endif
 
+   -- Strange: Must check if file exists first. If NepmdReadFilePart tries
+   -- to open a non-existant file, an OS/2 window (start /win) closes
+   -- immediately and an EPM command shell fails with SYS0006. This works
+   -- around that E flaw:
+   if not Exist( Filename) then
+      rc = 2
+      return
+   endif
+
    BytesRead = 1234
 
@@ -162 +171 @@
    HelperNepmdCheckLibError( LibFile, rc)
    BytesRead = ltoa( BytesRead, 10)
-dprintf( 'NepmdReadFilePart( 'Filename', 'Bufflen'), rc = 'rc', BytesRead = 'BytesRead)
 
    if rc then