- Timestamp:
- Apr 29, 2002, 1:14:04 PM (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/splittup/src/win32k/configure.cmd
r8149 r8308 1 /* $Id: configure.cmd,v 1.21.2. 2 2002-03-31 20:08:45bird Exp $1 /* $Id: configure.cmd,v 1.21.2.3 2002-04-29 11:14:04 bird Exp $ 2 2 * 3 3 * Configuration script. … … 35 35 when (ch = 'W') then 36 36 fWin32k = 0; 37 when (ch = '-') then 38 do 39 parse var sArg sParm'='sOpt 40 say sParm 41 select 42 when (sParm = '-WITH-KLIB') then 43 fWithKLib = 1; 44 otherwise 45 say 'syntax error ('asArgs.i')'; 46 exit(2); 47 end 48 end 37 49 when (ch = '?' | ch = 'H' | substr(sArg, 1, 2) = '-H') then 38 50 do 39 say 'Odin32 Configure.cmd. $Revision: 1.21.2.2 $.' 40 say 'syntax: Configure.cmd [-n] [-w]' 41 say ' -n Noninteractive.' 42 say ' -w Don''t build Win32k nor kKrnlLib.' 43 say ' -h This text.' 51 say 'Odin32 Configure.cmd. $Revision: 1.21.2.3 $.' 52 say 'syntax: Configure.cmd [options]' 53 say ' -n Noninteractive.' 54 say ' -w Don''t build Win32k.' 55 say ' --with-klib Build with kLib. (Will checkout kLib for you.)' 56 say ' -h This text.' 44 57 exit(1); 45 58 end … … 123 136 exit 1; 124 137 end 138 139 /* 140 * Checkout K-Lib 141 */ 142 sDir = directory(); 143 if (chdir('kKrnlLib')) then 144 do 145 if (fInteractive) then 146 do 147 say 'Log in to the kLib cvs repository? (Y/N)'; 148 pull sAnswer 149 if (substr(sAnswer, 1, 1) = 'Y') then 150 'cvs -d:pserver:readonly@www.netlabs.org:/netlabs.cvs/ktaskmanager login' 151 end 152 'cvs -d:pserver:readonly@www.netlabs.org:/netlabs.cvs/ktaskmanager co kLibSrc kLibInclude' 153 end 154 call directory sDir; 155 125 156 exit 0; 126 157 … … 211 242 return ''; 212 243 244 245 246 /** 247 * Changes the directory. 248 * On error we will call failure. 249 * @returns success indicator. 250 */ 251 ChDir: procedure expose sStartDir; 252 parse arg sDir 253 254 'cd' sDir 255 if (rc <> 0) then 256 do 257 call failure rc, 'Failed to ChDir into' sDir '(CWD='directory()').' 258 return 0; 259 end 260 return 1; 261
Note:
See TracChangeset
for help on using the changeset viewer.