Changeset 308

Timestamp:

Jun 27, 2006, 2:27:28 AM (19 years ago)

Author:

root

Message:

Support tarlist.cmd install
Support archiver.tmp install
Drop tarlist.cmd support - now obsolete

File:

• trunk/install.cmd (modified) (6 diffs)

trunk/install.cmd

@@ -25 +25 @@
    For usage help, run as INSTALL /?
 
-   08 Aug 05 SHL Add JFSOPT support
+   08 Aug 05 SHL Support jfsopt.cmd install
    16 Aug 05 SHL Ensure folder icon gets updated if folder exists
+   16 Aug 05 SHL Support tarlist.cmd install
+   18 Aug 05 SHL Support archiver.tmp install
+   08 Dec 05 SHL Drop tarlist.cmd support - now obsolete
 
 */
@@ -369 +372 @@
 
 rc = stream('sysinfo.exe','c','query exists')
+/* fixme to be really gone? */
 if rc \= '' then
 /*
@@ -418 +422 @@
 end
 
+/* fixme to use newview if installed? */
 rc = stream('FM3.HLP','c','query exists')
 if rc \= '' then
@@ -528 +533 @@
 end
 'DEL HPFSOPT.TMP 1>NUL 2>NUL'
-rc = stream('JFSOPT.CMD','c','query exists')
-if rc = '' then
-do
-  rc = stream('JFSOPT.TMP','c','query exists')
-  if rc \= '' then
-  do
-    say 'Creating a sample JFSOPT.CMD file for you.'
-    'REN JFSOPT.TMP JFSOPT.CMD 1>NUL 2>NUL'
-  end
-end
-'DEL JFSOPT.TMP 1>NUL 2>NUL'
+
+call InstallFile 'JFSOPT.CMD' 'JFSOPT.TMP'
+
 rc = stream('FATOPT.CMD','c','query exists')
 if rc = '' then
@@ -550 +547 @@
 end
 'DEL FATOPT.TMP 1>NUL 2>NUL'
+
+call InstallFile 'ARCHIVER.BB2' 'ARCHIVER.TMP'
 
 rc = stream('QUICKTLS.DAT','c','query exists')
@@ -1220 +1219 @@
 say "I'm done now."
 say ''
+
+exit
+
+/* InstallFile(file, template) install one file from template */
+
+InstallFile: procedure
+
+  parse arg sFile sTemplate
+
+  rc = stream(sFile,'c','query exists')
+  if rc = '' then do
+    rc = stream(sTemplate,'c','query exists')
+    if rc \= '' then do
+      say 'Creating a sample' sFile 'file for you.'
+      'ren' sTemplate sFile '1>nul 2>nul'
+    end
+  end
+  'del' sTemplate '1>nul 2>nul'
+
+  return
+
+  /* end InstallFile */