Changeset 4665

Timestamp:

Sep 2, 2021, 3:02:27 PM (4 years ago)

Author:

Andreas Schnellbacher

Message:

• First revision of convoldmode. It converts old user mode files from before 1.22 to the new hilite files and creates mode .cfg files ready for import to NEPMD.INI.
• Call this on installation to convert old user mode files if they exist.

Location:

trunk/src/netlabs

Files:

• bin/convoldmode.cmd (added)
• install/postwpi2.cmd (modified) (3 diffs)

trunk/src/netlabs/install/postwpi2.cmd ¶

@@ -73 +73 @@
 
 /* Defaults */
-ErrorTitle = 'Netlabs EPM Distribution Installation'
+ErrorTitle = 'netlabs.org EPM Distribution Installation'
 
 /* Parse args */
@@ -168 +168 @@
       'CALL INITREG';           IF (rc \= 0) THEN LEAVE
       'CALL EPMSP';             /* Ignore errors from here */
+      CALL '..\..\NETLABS\BIN\EPMENV.CMD'       /* Ignore errors from here */
+      OldModeDir = VALUE( 'NEPMD_USERDIR',, env)'\mode'
+      IF DirExist( OldModeDir) THEN
+         'CALL CONVOLDMODE' OldModeDir          /* Ignore errors from here */
 
       /* The following doesn't always work reliable. */
@@ -184 +188 @@
 
 EXIT( rc)
+
+/* ------------------------------------------------------------------------- */
+DirExist: PROCEDURE EXPOSE (GlobalVars)
+   rc = ERROR.NO_ERROR
+
+   PARSE ARG Dirname
+
+   Found.0 = 0
+   rcx = SysFileTree( Dirname, 'Found.', 'DO');
+
+   RETURN( Found.0 > 0)
 
 /* ----------------------------------------------------------------------- */