Changeset 4556

Timestamp:

Jul 11, 2021, 12:54:20 PM (4 years ago)

Author:

Andreas Schnellbacher

Message:

• Warn if epm.ex or recompile.ex is linked from outside of %NEPMD_ROOTDIR%\netlabs\ex;%NEPMD_USERDIR%\ex;

File:

• trunk/src/netlabs/macros/main.e (modified) (2 diffs)

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

@@ -67 +67 @@
    'InitConfig'
 
+   -- Check if myepm.ex and recompile.ex are linked from outside of NEPMD dirs
+   call CheckLinkedExFilesOutside()
+
    PassedArgs = arg( 1)
    ProcessLoaderStartArgs( PassedArgs)
@@ -335 +338 @@
       'PostMe PostMe ProcessJustInstalled'
    endif
+
+; ---------------------------------------------------------------------------
+; Checks if myepm.ex and recompile.ex are linked from outside of NEPMD dirs.
+; The link statement unfortunately prefers linking .ex files from current
+; dir, which is the work dir.
+defproc CheckLinkedExFilesOutside
+   fEpmExOutside       = 0
+   fRecompileExOutside = 0
+   EpmExDir       = ''
+   RecompileExDir = ''
+   NepmdRootDir = Get_Env( 'NEPMD_ROOTDIR')
+   NepmdUserDir = Get_Env( 'NEPMD_USERDIR')
+   LastLinkNum = GetAVar( 'linknum.last')
+   if LastLinkNum = '' then
+      LastLinkNum = 0
+   endif
+   do LinkNum = 0 to LastLinkNum
+      ExFile = GetAVar( 'linkfilename.'LinkNum)
+      Name = lowcase( GetFileSpec( ExFile, 'N'))
+      if not wordpos( Name, 'epm.ex recompile.ex') then
+         iterate
+      endif
+
+      Dir = NepmdQueryFullName( ExFile'\..')
+      if EpmExDir = '' & Name = 'epm.ex' then
+         EpmExDir = Dir
+      elseif RecompileExDir = '' & Name = 'recompile.ex' then
+         RecompileExDir = Dir
+      endif
+
+      if not pos( ';'upcase( Dir)';',
+                  ';'upcase( NepmdRootDir'\netlabs\ex;'NepmdUserDir'\ex;')) then
+         if Name = 'epm.ex' then
+            fEpmExOutside = 1
+         elseif Name = 'recompile.ex' then
+            fRecompileExOutside = 1
+         endif
+      endif
+
+      if EpmExDir <> '' & RecompileExDir <> '' then
+         leave
+      endif
+   enddo
+   if fEpmExOutside | fRecompileExOutside then
+      e = 0
+      Title = 'Wrong .ex files linked'
+      Text = ''
+      if fEpmExOutside then
+         Text = Text || 'epm.ex is linked from'\n\n
+         Text = Text || EpmExDir\n\n
+         e = e + 1
+      endif
+      if fRecompileExOutside then
+         Text = Text || 'recompile.ex is linked from'\n\n
+         Text = Text || RecompileExDir\n\n
+         e = e + 1
+      endif
+      if e = 1 then
+         Text = Text || 'This dir is outside of NEPMD.'
+      elseif e = 2 then
+         Text = Text || 'These dirs are outside of NEPMD.'
+      endif
+      rcx = WinMessageBox( Title, Text,
+                           MB_ENTER + MB_WARNING + MB_DEFBUTTON1 + MB_MOVEABLE)
+   endif
+
+   return
 
 ; ---------------------------------------------------------------------------