| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789 |
- Listing:
- 1 MODULE DelOlder;
- 2
- 3
- 4 IMPORT Diagnostics;
- 5
- 6 IMPORT BigSets;
- 7 IMPORT Drectory;
- 8 IMPORT EnvironUtils;
- 9 IMPORT ErrorManager;
- 10 IMPORT HandleIO;
- 11 IMPORT KbdInput;
- 12 IMPORT M2Strings;
- 13 IMPORT PosUtils;
- 14 IMPORT StrConv;
- 15 IMPORT StrEdit;
- 16 IMPORT StringIO;
- 17
- 18
- 19 VAR
- 20 exiting, BatchMode : BOOLEAN;
- 21 PrimaryFileSpec, SecondaryFileSpec, PrimaryDirName, SecondaryDirName,
- 22 PrimaryFileSpecPart, SecondaryFileSpecPart: ARRAY [0..79] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 23
- 24 PrimaryDrive, SecondaryDrive: CHAR;
- 25
- 26
- 27 PROCEDURE Ask( question: ARRAY OF CHAR; VAR answer: ARRAY OF CHAR );
- ***** ^ not supported yet
- ***** ^ not supported yet
- 28 VAR
- 29 tmpstr: ARRAY [0..79] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 30 BEGIN
- 31 StringIO.WriteStr( StringIO.outp, question );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 32 IF answer[0] # 0C THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- 33 (* There is a default. *)
- 34 StringIO.WriteStr( StringIO.outp, ' <' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 35 StringIO.WriteStr( StringIO.outp, answer );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 36 StringIO.WriteStr( StringIO.outp, '> ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 37 END;
- 38 StringIO.ReadStr( StringIO.inp, tmpstr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 39 IF tmpstr[0] = 0C THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- 40 RETURN;
- 41 END;
- 42 IF (( CAP(tmpstr[0]) = 'Q' ) OR (tmpstr[0] = CHR(27)))
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 43 AND (M2Strings.Length(tmpstr) = 1) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 44 ErrorManager.StraightToDOS('');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 45 END;
- 46 M2Strings.Assign( tmpstr, answer );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 47 END Ask;
- ***** ^ not supported yet
- 48
- 49
- 50 PROCEDURE FirstIsOlder( VAR First, Second: Drectory.FileInfoRec ): BOOLEAN;
- ***** ^ not supported yet
- 51 BEGIN
- 52 IF First.year < Second.year THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 53 RETURN TRUE;
- 54 ELSIF First.year > Second.year THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 55 RETURN FALSE;
- 56 END;
- 57 IF First.month < Second.month THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 58 RETURN TRUE;
- 59 ELSIF First.month > Second.month THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 60 RETURN FALSE;
- 61 END;
- 62 IF First.day < Second.day THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 63 RETURN TRUE;
- 64 ELSIF First.day > Second.day THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 65 RETURN FALSE;
- 66 END;
- 67 IF First.hour < Second.hour THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 68 RETURN TRUE;
- 69 ELSIF First.hour > Second.hour THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 70 RETURN FALSE;
- 71 END;
- 72 IF First.minute < Second.minute THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 73 RETURN TRUE;
- 74 ELSIF First.minute > Second.minute THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 75 RETURN FALSE;
- 76 END;
- 77 IF First.second < Second.second THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 78 RETURN TRUE;
- 79 ELSE
- 80 RETURN FALSE;
- 81 END;
- 82 END FirstIsOlder;
- ***** ^ not supported yet
- 83
- 84
- 85 PROCEDURE SameTimeStamp( VAR First, Second: Drectory.FileInfoRec ): BOOLEAN;
- ***** ^ not supported yet
- 86 BEGIN
- 87 IF (First.year = Second.year) AND
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 88 (First.month = Second.month) AND
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 89 (First.day = Second.day) AND
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 90 (First.hour = Second.hour) AND
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 91 (First.minute = Second.minute) AND
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 92 (First.second = Second.second) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 93 RETURN TRUE;
- 94 ELSE
- 95 RETURN FALSE;
- 96 END;
- 97 END SameTimeStamp;
- ***** ^ not supported yet
- 98
- 99
- 100 PROCEDURE MakeInfoStr( FileInfo: Drectory.FileInfoRec; VAR TheStr: ARRAY
- ***** ^ not supported yet
- 101 OF CHAR );
- ***** ^ not supported yet
- 102 VAR
- 103 dumstr: ARRAY [0..79] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 104 BEGIN
- 105 StrEdit.AssignStr( FileInfo.name, TheStr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 106 WHILE M2Strings.Length(TheStr) < 12 DO
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 107 StrEdit.Append( TheStr, ' ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 108 END;
- 109 IF Drectory.SubdirectoryFile IN FileInfo.attribute THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 110 StrEdit.Append( TheStr, ' <DIR>' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 111 ELSE
- 112 StrConv.LongIntegerToStr( FileInfo.size, 8, dumstr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 113 StrEdit.Append( TheStr, dumstr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 114 END;
- 115 StrConv.DateToStr( FileInfo.month, FileInfo.day, FileInfo.year,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 116 dumstr );
- ***** ^ not supported yet
- 117 StrEdit.Append( TheStr, ' ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 118 StrEdit.Append( TheStr, dumstr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 119 StrConv.TimeToStr( FileInfo.hour, FileInfo.minute, FileInfo.second,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 120 FileInfo.second, dumstr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 121 M2Strings.Delete( dumstr, M2Strings.Length(dumstr) - 7, 6 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 122 StrEdit.Append( TheStr, ' ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 123 StrEdit.Append( TheStr, dumstr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 124 END MakeInfoStr;
- ***** ^ not supported yet
- 125
- 126 PROCEDURE yes() : BOOLEAN;
- 127 VAR
- 128 choice : CARDINAL;
- 129 BEGIN
- 130 (*yes*)
- 131 IF BatchMode THEN
- 132 StringIO.WriteStr( StringIO.outp, 'yes');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 133 RETURN TRUE;
- 134 END;
- 135 choice := KbdInput.KeyHit( KbdInput.YorN );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 136 IF KbdInput.CAPkey(choice) = ORD('Y') THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 137 StringIO.WriteStr( StringIO.outp, 'yes');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 138 RETURN TRUE;
- 139 ELSE
- 140 StringIO.WriteStr( StringIO.outp, 'no');
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 141 IF KbdInput.CAPkey(choice) = ORD('Q') THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 142 exiting := TRUE;
- 143 END;
- 144 RETURN FALSE;
- 145 END;
- 146 END yes;
- ***** ^ not supported yet
- 147
- 148
- 149 PROCEDURE Processor1(info : Drectory.FileInfoRec) : BOOLEAN;
- ***** ^ not supported yet
- 150 VAR
- 151 TmpPrimaryFile, TmpSecondaryFile, PrimaryInfoStr, SecondaryInfoStr:
- 152 ARRAY [0..79] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 153 DirHandle: CARDINAL;
- 154 tmpinfo: Drectory.FileInfoRec;
- ***** ^ not supported yet
- 155 BEGIN
- 156 IF PosUtils.Equal( '..', info.name ) OR
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 157 PosUtils.Equal( '.', info.name ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 158 RETURN TRUE;
- 159 END;
- 160
- 161 M2Strings.Concat( PrimaryDirName, info.name, TmpPrimaryFile );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 162 M2Strings.Concat( SecondaryDirName, info.name, TmpSecondaryFile );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 163
- 164 M2Strings.Insert( ':', TmpPrimaryFile, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 165 M2Strings.Insert( PrimaryDrive, TmpPrimaryFile, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 166 M2Strings.Insert( ':', TmpSecondaryFile, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 167 M2Strings.Insert( SecondaryDrive, TmpSecondaryFile, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 168
- 169 IF HandleIO.FileExists( TmpSecondaryFile ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 170 MakeInfoStr( info, PrimaryInfoStr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 171 DirHandle := 0FFFFH;
- 172 StringIO.PrintMessage( Drectory.FindFirstFile( TmpSecondaryFile,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 173 DirHandle, tmpinfo ) );
- ***** ^ not supported yet
- 174 MakeInfoStr( tmpinfo, SecondaryInfoStr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 175 IF ((M2Strings.CompareStr( PrimaryInfoStr, SecondaryInfoStr ) = 0) OR
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 176 FirstIsOlder( tmpinfo, info ) OR SameTimeStamp( tmpinfo, info) ) AND
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 177 (NOT PosUtils.Present('<DIR>', PrimaryInfoStr) ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 178 M2Strings.Insert( PrimaryDirName, PrimaryInfoStr, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 179 M2Strings.Insert( ':', PrimaryInfoStr, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 180 M2Strings.Insert( PrimaryDrive, PrimaryInfoStr, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 181 M2Strings.Insert( SecondaryDirName, SecondaryInfoStr, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 182 M2Strings.Insert( ':', SecondaryInfoStr, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 183 M2Strings.Insert( SecondaryDrive, SecondaryInfoStr, 0 );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 184 StrEdit.Append( SecondaryInfoStr, ' ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 185 StringIO.WriteEol( StringIO.outp, '' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 186 StringIO.WriteStr( StringIO.outp, 'Keeping ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 187 StringIO.WriteEol( StringIO.outp, PrimaryInfoStr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 188 StringIO.WriteStr( StringIO.outp, 'Delete? ' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 189 StringIO.WriteStr( StringIO.outp, SecondaryInfoStr );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 190 IF yes() THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- 191 StringIO.PrintMessage( Drectory.DeleteFile( TmpSecondaryFile ) );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 192 END;
- 193 IF exiting THEN
- 194 RETURN FALSE;
- 195 END;
- 196 END;
- 197 END;
- 198 RETURN TRUE;
- 199 END Processor1;
- ***** ^ not supported yet
- 200
- 201
- 202
- 203 BEGIN
- 204 IF NOT EnvironUtils.ParsedParam( 1, PrimaryFileSpec ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 205 StringIO.WriteEol( StringIO.outp, '' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 206 StringIO.WriteEol( StringIO.outp,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 207 'DelOlder expects two wildcard specifications of files in different' );
- ***** ^ not supported yet
- 208 StringIO.WriteEol( StringIO.outp,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 209 'directories. It deletes all files in the second directory with ' );
- ***** ^ not supported yet
- 210 StringIO.WriteEol( StringIO.outp,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 211 'names that match those of files in the first directory if the ' );
- ***** ^ not supported yet
- 212 StringIO.WriteEol( StringIO.outp,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 213 'secondary files are identical to or older than the primary files. A ' );
- ***** ^ not supported yet
- 214 StringIO.WriteEol( StringIO.outp,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 215 'trailing /p makes it pause for confirmation before deleting each file.' );
- ***** ^ not supported yet
- 216 StringIO.WriteEol( StringIO.outp, '' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 217 PrimaryFileSpec := '';
- ***** ^ not supported yet
- ***** ^ incompatible assignment
- 218 Ask( 'Primary file specification? (These files will survive.) ',
- ***** ^ not supported yet
- ***** ^ not supported yet
- 219 PrimaryFileSpec );
- ***** ^ not supported yet
- 220 END;
- 221 IF NOT EnvironUtils.ParsedParam( 2, SecondaryFileSpec ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 222 SecondaryFileSpec := '';
- ***** ^ not supported yet
- ***** ^ incompatible assignment
- 223 Ask( 'Secondary file specification? (These files may be deleted.) ',
- ***** ^ not supported yet
- ***** ^ not supported yet
- 224 SecondaryFileSpec );
- ***** ^ not supported yet
- 225 END;
- 226
- 227 StrEdit.CrunchBlanks( PrimaryFileSpec );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 228 StrEdit.CrunchBlanks( SecondaryFileSpec );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 229 IF SecondaryFileSpec[M2Strings.Length(SecondaryFileSpec)-2]='/' THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 230 IF CAP( SecondaryFileSpec[M2Strings.Length(SecondaryFileSpec)-1] ) = 'P' THEN
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 231 M2Strings.Delete(SecondaryFileSpec, M2Strings.Length(SecondaryFileSpec)-2, 2);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 232 StrEdit.CutTrailingChars( ' ', SecondaryFileSpec);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 233 BatchMode := FALSE;
- 234 ELSE
- 235 BatchMode := TRUE;
- 236 END;
- 237 ELSE
- 238 BatchMode := TRUE;
- 239 END;
- 240
- 241 BigSets.AppendSet( KbdInput.YorN, "{'q', 'Q'}" );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 242
- 243 Drectory.GetDrivePathAndName( SecondaryFileSpec, SecondaryDrive,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 244 SecondaryDirName, SecondaryFileSpecPart );
- ***** ^ not supported yet
- ***** ^ not supported yet
- 245 Drectory.GetDrivePathAndName( PrimaryFileSpec, PrimaryDrive,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 246 PrimaryDirName, PrimaryFileSpecPart );
- ***** ^ not supported yet
- ***** ^ not supported yet
- 247
- 248 IF PosUtils.Equal( PrimaryFileSpecPart, '.' ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 249 StringIO.PrintMessage( Drectory.GetCurrentDir( Drectory.GetDefaultDrive(),
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 250 PrimaryDirName ) );
- ***** ^ not supported yet
- 251 END;
- 252 IF PosUtils.Equal( SecondaryFileSpecPart, '.' ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 253 StringIO.PrintMessage( Drectory.GetCurrentDir( Drectory.GetDefaultDrive(),
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 254 SecondaryDirName ) );
- ***** ^ not supported yet
- 255 END;
- 256
- 257 IF PrimaryFileSpecPart[0] = 0C THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- 258 PrimaryFileSpecPart := '*.*';
- ***** ^ not supported yet
- ***** ^ not supported yet
- 259 END;
- 260 IF SecondaryFileSpecPart[0] = 0C THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- 261 SecondaryFileSpecPart := '*.*';
- ***** ^ not supported yet
- ***** ^ not supported yet
- 262 END;
- 263
- 264 StrEdit.CutTrailingChars( '\', PrimaryDirName );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 265 StrEdit.CutTrailingChars( '\', SecondaryDirName );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 266 StrEdit.Append( PrimaryDirName, '\' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 267 StrEdit.Append( SecondaryDirName, '\' );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 268
- 269 exiting := FALSE;
- 270
- 271 StringIO.PrintMessage(Drectory.FindFiles( PrimaryFileSpec, Processor1 ));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 272
- 273 END DelOlder.
- 510 errors
|
