home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / DIRECT.M < prev    next >
Encoding:
Text File  |  1989-08-13  |  4.1 KB  |  3 lines
  1. ⓪ MODULE Direct;⓪ ⓪ (* Directory-Tests *)⓪ ⓪ FROM SYSTEM IMPORT ADDRESS, ADR, TSIZE, BYTE, WORD, LONGWORD, VAL;⓪ IMPORT InOut, Strings, ADirectory, Clock;⓪ FROM InOut IMPORT WriteString, ReadString, Read, Write, WriteLn, WriteInt,⓪(ReadInt, ReadCard, WriteCard, WriteHex;⓪ ⓪ ⓪ VAR s, s2: Strings.String;⓪$sn: ARRAY [0..11] OF CHAR;⓪$fn: ARRAY [0..140] OF CHAR;⓪$p: ARRAY [0..128] OF CHAR;⓪$sfx: ARRAY [0..2] OF CHAR;⓪$pfx: ARRAY [0..7] OF CHAR;⓪$attr: ADirectory.FileAttrSet;⓪$entry: ADirectory.DirEntry;⓪$dta2, dta: ADirectory.DTA;⓪$res: INTEGER;⓪$ch: CHAR;⓪$i: INTEGER;⓪$c: CARDINAL;⓪$ok: BOOLEAN;⓪ ⓪ PROCEDURE chk;⓪"BEGIN⓪$IF res # 0 THEN⓪&WriteString ('ERROR! Result: ');⓪&WriteInt (res, 0);⓪&WriteLn⓪$END⓪"END chk;⓪ ⓪ PROCEDURE bo (b: BOOLEAN);⓪"BEGIN⓪$IF b THEN⓪&WriteString ('TRUE');⓪$ELSE⓪&WriteString ('FALSE')⓪$END;⓪$WriteLn⓪"END bo;⓪ ⓪ PROCEDURE abort (): BOOLEAN;⓪"BEGIN⓪$WriteString ('Abbruch mit ESC');⓪$Read (ch);⓪$WriteLn;⓪$RETURN ch = 33C⓪"END abort;⓪ ⓪ BEGIN⓪"REPEAT⓪ (*⓪$WriteString ('FileExists? ');⓪$ReadString (s);⓪$bo (ADirectory.FileExists (s));⓪$WriteString ('PathExists? ');⓪$ReadString (s);⓪$bo (ADirectory.PathExists (s));⓪ *)⓪ (*⓪$WriteString ('SetAttr. Name? ');⓪$ReadString (s);⓪$WriteString ('         Value? ');⓪$ReadCard (c);⓪$ADirectory.SetFileAttr (s, VAL (Directory.FileAttrSet, c), res);⓪$chk;⓪$ADirectory.GetFileAttr (s, attr, res);⓪$WriteHex (VAL (CARDINAL,attr), 3);⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('GetDirEntry? ');⓪$ReadString (s);⓪$ADirectory.GetDirEntry (s, entry, ok);⓪$IF ok THEN⓪&WriteString ('Attr '); WriteHex (VAL (CARDINAL,entry.attr), 3);⓪&WriteLn;⓪&WriteString ('Name '); WriteString (entry.name)⓪$ELSE⓪&WriteString ('not found!')⓪$END;⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('SetPath? ');⓪$ReadString (s);⓪$ADirectory.SetDefaultPath (s, res);⓪$chk;⓪$WriteString (ADirectory.DefaultPath ());⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('MakeFullPath? ');⓪$ReadString (s);⓪$ADirectory.MakeFullPath (s, res);⓪$chk;⓪$WriteString (s);⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('ValidatePath? ');⓪$ReadString (sfx);⓪$ADirectory.ValidatePath (sfx);⓪$WriteString (sfx);⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('Name? ');⓪$ReadString (s);⓪$WriteString ('Path: '); WriteString (ADirectory.FilePath (s)); WriteLn;⓪$WriteString ('Name: '); WriteString (ADirectory.FileName (s)); WriteLn;⓪$WriteString ('Pfx : '); WriteString (ADirectory.FilePrefix (s)); WriteLn;⓪$WriteString ('Sfx : '); WriteString (ADirectory.FileSuffix (s)); WriteLn;⓪ *)⓪ (*⓪$WriteString ('GetErrMsg? ');⓪$ReadInt (i);⓪$ADirectory.GetErrMsg (i, s);⓪$WriteString (s);⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('Unique? ');⓪$ReadString (s);⓪$bo (ADirectory.NameUnique (s));⓪$WriteLn;⓪ *)⓪ (*⓪$WriteString ('Matching. Filename? ');⓪$ReadString (s);⓪$WriteString ('Matching. Wildcard? ');⓪$ReadString (s2);⓪$bo (ADirectory.NameMatching (s,s2));⓪$WriteLn;⓪ *)⓪ ⓪$ADirectory.GetDTA (dta);⓪$ADirectory.GetDTAEntry (dta, entry);⓪$WriteString ('Attr '); WriteHex (VAL (CARDINAL,entry.attr), 3);⓪$WriteString (', Name '); WriteString (entry.name); WriteLn;⓪$ADirectory.SetDTA (dta);⓪$ADirectory.GetDTA (dta2);⓪$IF dta2 # dta THEN HALT END;⓪$ADirectory.SearchFirst ('*.*', ADirectory.QueryAll, res);⓪$WHILE res >= 0 DO⓪&ADirectory.GetDTAEntry (dta, entry);⓪&WriteString ('Attr '); WriteHex (VAL (CARDINAL,entry.attr), 3);⓪&WriteString (', Name '); WriteString (entry.name); WriteLn;⓪&ADirectory.SearchNext (res)⓪$END;⓪$chk;⓪ ⓪"UNTIL abort()⓪ END Direct.⓪ ə
  2. (* $FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$00000B9F$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475C$FFEE475CÇ$00000C28T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000BD6$00000DA3$00000D62$00000D75$00000BAF$00000D23$00000C15$00000C28$00000CE3$00000DCF$00000CAC$00000DBE$00000DB8$00000DF0$0000002E$00000DBEáÇé*)
  3.