Changeset 2774 for trunk/tools

Timestamp:

Feb 14, 2000, 3:31:35 PM (26 years ago)

Author:

bird

Message:

msvcrt directory contains tree dlls.
wnetap32 fix is now here.

File:

• trunk/tools/bin/APIImport.cmd (modified) (3 diffs)

trunk/tools/bin/APIImport.cmd

@@ -1 @@
-/* $Id: APIImport.cmd,v 1.1 2000-02-11 14:21:19 bird Exp $
+/* $Id: APIImport.cmd,v 1.2 2000-02-14 14:31:35 bird Exp $
  *
  * Helper script which invokes APIImport.exe with the correct .def file.
@@ -11 +11 @@
 
     sDllName = filespec('name', directory());
-    call MakeTempDeffile sDllName, 'APIImport.def';
 
     parse source sD1 sD2 sSrc;
 
     sSrc = filespec('drive', sSrc) || filespec('path', sSrc);
-    sSrc||'APIImport.exe APIImport.def';
-
+    sAPIImport= sSrc||'APIImport.exe';
+    if (sDllName = 'msvcrt') then
+    do
+        call MakeTempDeffile sDllName, 'APIImport.def';
+        sAPIImport || ' APIImport.def';
+        call MakeTempDeffile sDllName||'20', 'APIImport20.def';
+        sAPIImport || ' APIImport20.def';
+        call MakeTempDeffile sDllName||'40', 'APIImport40.def';
+        sAPIImport || ' APIImport40.def';
+    end
+    else
+    do
+        if (translate(sDllName) = 'WNETAP32') then
+            sDllName = 'netapi32';
+        call MakeTempDeffile sDllName, 'APIImport.def';
+        sAPIImport || ' APIImport.def';
+    end
     exit(rc);
 
@@ -30 +44 @@
     do
         rc = SysFileTree('*.def', 'asFiles', 'FO');
-        if rc == 0 then
+        if rc = 0 then
         do
             do i = 1 to asFiles.0