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, ' ' ); ***** ^ 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('', 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