Changeset 21468 for trunk/tools
- Timestamp:
- Sep 30, 2010, 6:00:53 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/install/odin.cmd
r21458 r21468 135 135 rc = lineout(sInstFile, '<HEAD>'); 136 136 rc = lineout(sInstFile, '<TITLE>Odin32 'sType' - 'sVer'</TITLE>'); 137 138 rc = lineout(sInstFile, '<REXX NAME="RequiresLibc">'); 139 rc = lineout(sInstFile, ' call rxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs''); 140 rc = lineout(sInstFile, ' call SysLoadFuncs'); 141 rc = lineout(sInstFile, ' dname = "libc063.dll"'); 142 rc = lineout(sInstFile, ' requires = ''REQUIRES="netlabs.org\kLIBC\LIBC 0.6 Runtime\0\6\3"'''); 143 rc = lineout(sInstFile, ' cf = SysBootDrive() || "\config.sys"'); 144 rc = lineout(sInstFile, ' lp = "LIBPATH="'); 145 rc = lineout(sInstFile, ' call SysFileSearch lp, cf, "lp."'); 146 rc = lineout(sInstFile, ' lpath = ""'); 147 rc = lineout(sInstFile, ' do i=1 to lp.0'); 148 rc = lineout(sInstFile, ' if pos(lp, lp.i) = 1 then do'); 149 rc = lineout(sInstFile, ' lpath = substr(lp.i, 9)'); 150 rc = lineout(sInstFile, ' end'); 151 rc = lineout(sInstFile, ' end'); 152 rc = lineout(sInstFile, ' cr = d2c(10)'); 153 rc = lineout(sInstFile, ' do while lpath \= ""'); 154 rc = lineout(sInstFile, ' parse var lpath ldir ";" lpath'); 155 rc = lineout(sInstFile, ' tfile = ldir || "\" || dname'); 156 rc = lineout(sInstFile, ' if stream(tfile, "c", "query exists") \= "" then do'); 157 rc = lineout(sInstFile, ' return ""'); 158 rc = lineout(sInstFile, ' end'); 159 rc = lineout(sInstFile, ' end'); 160 rc = lineout(sInstFile, ' /* file not found, return REQUIRES clause */'); 161 rc = lineout(sInstFile, ' return requires'); 162 rc = lineout(sInstFile, '</REXX>'); 163 137 164 rc = lineout(sInstFile, '<PCK INDEX=1'); 138 165 rc = lineout(sInstFile, ' PACKAGEID="Odin\Odin\Odin Core Files\'sPackVer'"'); … … 148 175 rc = lineout(sInstFile, ' CREATEOBJECT="WPProgram|Odin User''s Manual|<ODINFOLDER>|EXENAME=VIEW.EXE;PARAMETERS=$(1)\ODINUSER.INF;TITLE=Odin User''s^Manual;OBJECTID=<Odin_Users_Manual>;'); 149 176 rc = lineout(sInstFile, ' CREATEOBJECT="WPUrl|Subscribe to odinusers mailing list|<ODINFOLDER>|TITLE=Subscribe to^odinusers mailing list;URL=http://groups.yahoo.com/group/odinusers/join;OBJECTID=<Subscribe_odinusers@yahoogroups>;'); 177 rc = lineout(sInstFile, ' =("RequiresLibc")'); 150 178 rc = lineout(sInstFile, ' TARGET="C:\ODIN" BASE'); 151 179 title = " TITLE=""Odin "sType" ("date()")""";
Note:
See TracChangeset
for help on using the changeset viewer.