home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
BEEHIVE
/
TESERACT
/
TESS-025.ZIP
/
PCWINDOW.OBJ
< prev
next >
Wrap
Text File
|
1989-01-22
|
22KB
|
88 lines
{DEBUG}
s_string := s_string+chr(0);
ax := $3B00; {CHDIR}
ds := seg(s_string[1]);
dx := ofs(s_string[1]);
msdos(param);
recurse; {recursive decent into next directory}
{writeln('going back');}
{DEBUG}
ax := $3B00; {go back}
s_string := '..'#0;
rm := '';
for i := 1 to length(parmline) do begin
inchar := parmline[i];
case state of
leading_ws: begin
if inchar = '''' then state := quoted
else if inchar <> ' ' then begin
newparm := newparm+inchar;
state := non_quote;
end;
end;
non_quote: begin
if inchar = ' ' then begin
arameters. If the
parameter is enclosed in quotes ('), then any characters can appear.
If you want a quote, put two in the command line parameter.
Example
cmd 'this is the first' and 'this is the ''third'' argument'
This will return argc=3.
You can retrieve the arguments by calling argv(#)
Example
if the above was the command line, then the program
for i := 1 to argc do
writeln('argv(',i,') =<',argv(i),'>');
would print
argv(1) =<this is the first>
{go back to `parent'}
ds := seg(s_string[1]);
dx := ofs(s_string[1]);
msdos(param);
end
else begin
r1 := file_size[1];
r2 := file_size[2];
if r1 < 0 then r1 := r1+65536.0;
{take care of extension of}
if r2 < 0 then r2 := r2+65536.0;
{data i saveparm;
state := leading_ws;
end
else newparm := newparm+inchar;
end;
quoted: begin
if inchar = '''' then state := end_quote
else newparm := newparm+inchar;
end;
end_quote: begin
if inchar = '''' then begin
newparm := newparm+inchar;
44A J 0754B K 0764C L 0774D M 0784E N 0794F O 08050 P 08151 Q 08252 R 08353 S 08454 T 08555 U 08656 V 08757 W 08858 X 08959 Y 0905A Z 0915B [ 0925C \ 0935D ] 0945E ^ 0955F _ 09660 ` 09761 a 09862 b 09963 c 10064 d 10165 e 10266 f 10367 g 10468 h 10569 i 1066A j 1076B k 1086C l 1096D m 1106E n 1116F o 11270 p 11371 q 11472 r 11573 s 11674 t 11775 u 11876 v 11977 w 12078 x 12179 y 1227A z 1237B { 1247C | 1257D } 1267E ~ 1277F 12880 Ç 12981 ü 13082 é 13183 â 13284 ä 13385 à 13486 å 13587 ç 13688 ê 13789 ë 1388A è 1398B ï 1408C î 1418D ì 1428E Ä 1438F Å 14490 É 14591 æ 14692 Æ 14793 ô 14894 ö 14995 ò 15096 û 15197 ù 15298 ÿ 15399 Ö 1549A Ü 1559B ¢ 1569C £ 1579D ¥ 1589E ₧ 1599F ƒ 160A0 á 161A1 í 162A2 ó 163A3 ú 164A4 ñ 165A5 Ñ 166A6 ª 167A7 º 168A8 ¿ 169A9 ⌐ 170AA ¬ 171AB ½ 172AC ¡ 173AD « 174AE « 175AF » 176B0 ░ 177B1 ▒ 178B2 ▓ 179B3 │ 180B4 ┤ 181B5 ╡ 182B6 ╢ 183B7 ╖ 184B8 ╕ 185B9 ╣ 186BA ║ 187BB ╗ 188BC ╝ 189BD ╜ 190BE ╛ 191BF ┐ 192C0 └ 193C1 ┴ 194C2 ┬ 195C3 ├ 196C4 ─ 197C5 ┼ 198C6 ╞ 199C7 ╟ 200C8 ╚ 201C9 ╔ 202CA ╩ 203CB ╦ 204CC ╠ 205CD ═ 206CE ╬ 207CF ╧ 208D0 ╨ 209D1 ╤ 210D2 ╥ 211D3 ╙ 212D4 ╘ 213D5 ╒ 214D6 ╓ 215D7 ╫ 216D8 ╪ 217D9 ┘ 218DA ┌ 219DB █ 220DC ▄ 221DD ▌ 222DE ▐ 223DF ▀ 224E0 α 225E1 ß 226E2 Γ 227E3 π 228E4 Σ 229E5 σ 230E6 µ 231E7 τ 232E8 Φ 233E9 Θ 234EA Ω 235EB δ 236EC ∞ 237ED φ 238EE ε 239EF ∩ 240F0 ≡ 241F1 ± 242F2 ≥ 243F3 ≤ 244F4 ⌠ 245F5 ⌡ 246F6 ÷ 247F7 ≈ 248F8 ° 249F9 ∙ 250FA · 251FB √ 252FC ⁿ 253FD ² 254FE ■ 255FF FF $$$$≡≡Home≡End≡≡≡PgUp≡PgDn≡≡ ALT-6 :Exit ON NOTE PAD ╠══════════════════════════════════════════════════════════════════════════════╣ ╠══════════════════════════════════════════════════════════════════════════════╣ Filename: ALT-R:Read File ALT-W:Write File ALT-D:Date ALT-T:Time ESC:Exit File Proc. ALT-7:Exit Editing Keys [Home:End:Bs::Ctrl-End:Ins:Del]