home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / SCANXFER.MOD < prev    next >
Encoding:
Text File  |  1987-12-01  |  1.7 KB  |  58 lines
  1. (*----------------------------------------------------------------------*)
  2. (*          Scan_Xfer_List --- Search transfer list for file name       *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Scan_Xfer_List( File_Name : AnyStr ) : INTEGER;
  6.  
  7. VAR
  8.    SDone          : BOOLEAN;
  9.    XFer_Line      : STRING[14];
  10.    Xfer_List_File : Text_File (* File transfer list file *);
  11.    I              : INTEGER;
  12.  
  13. BEGIN (* Scan_Xfer_List *)
  14.                                    (* Open xferlist file *)
  15.  
  16.    ASSIGN( Xfer_List_File , Home_Dir + 'PIBTERM.XFR' );
  17.       (*!I-*)
  18.    RESET( Xfer_List_File );
  19.       (*!I+*)
  20.                                    (* If not there, no files to check *)
  21.    IF Int24Result = 0 THEN         (* If there, check the file        *)
  22.       BEGIN
  23.  
  24.                                    (* Assume file not found *)
  25.          Scan_Xfer_List := 0;
  26.  
  27.          SDone     := FALSE;
  28.          File_Name := UpperCase( TRIM( File_Name ) );
  29.  
  30.          REPEAT
  31.  
  32.             READLN( Xfer_List_File , Xfer_Line );
  33.  
  34.             IF ( ORD( XFer_Line[0] ) > 0 ) THEN
  35.                IF ( XFer_Line[1] <> '*' ) THEN
  36.                   BEGIN
  37.                      IF ( TRIM( Xfer_Line ) = File_Name ) THEN
  38.                         BEGIN
  39.                            SDone          := TRUE;
  40.                            Scan_Xfer_List := 1;
  41.                         END;
  42.                   END;
  43.  
  44.          UNTIL ( EOF( Xfer_List_File ) OR SDone );
  45.  
  46.       END
  47.    ELSE
  48.                                    (* No xferlist -- indicate that *)
  49.       Scan_Xfer_List := 2;
  50.  
  51.       (*!I-*)
  52.    CLOSE( Xfer_List_File );
  53.       (*!I+*)
  54.  
  55.    I := Int24Result;
  56.  
  57. END   (* Scan_Xfer_List *);
  58.