Topspeed_JPI/TS/INCLUDE/FIOR.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  FIOR.DEF - Modula-2 Redirection file interface                          *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# call(o_a_copy => off) *)

(*# module(init_code => on) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*# data(seg_name => null) *)
(*%E *)
(*# module(implementation=>off) *)
DEFINITION MODULE FIOR ;
IMPORT FIO;

TYPE
   File     = FIO.File ;
   PathStr  = FIO.PathStr ;
   PathTail = FIO.PathTail ;
   ExtStr   = ARRAY[0..2] OF CHAR ;
CONST
   Null     = MAX(CARDINAL) ;
VAR
   LastPath : PathStr ;
   TextFile : File ;

PROCEDURE ExpandPath (     path     : ARRAY OF CHAR ;
                       VAR fullpath : ARRAY OF CHAR ) ;

PROCEDURE SplitPath ( 	  path : ARRAY OF CHAR ;
                      VAR head,tail : ARRAY OF CHAR ) ;

PROCEDURE MakePath ( VAR path : ARRAY OF CHAR  ;
                         head,tail : ARRAY OF CHAR ) ;

PROCEDURE AddExtension    ( VAR s : ARRAY OF CHAR ; ext : ARRAY OF CHAR ) ;
PROCEDURE RemoveExtension ( VAR s : ARRAY OF CHAR ) ;
PROCEDURE ChangeExtension ( VAR s : ARRAY OF CHAR ; ext : ARRAY OF CHAR ) ;
PROCEDURE IsExtension     ( s : ARRAY OF CHAR ; ext : ARRAY OF CHAR ) : BOOLEAN ;

(* Redirected calls *)

PROCEDURE FindPath     (     name        : ARRAY OF CHAR ;
                         VAR fullname    : PathStr ) : BOOLEAN ;

PROCEDURE FindNewPath  (     name      : ARRAY OF CHAR ;
                         VAR fullname  : PathStr ) : BOOLEAN ;

PROCEDURE FindExePath ( path    : ARRAY OF CHAR ;
                        ovl     : BOOLEAN ;
                        VAR outpath : PathStr ) : BOOLEAN ;


PROCEDURE Open ( name    : ARRAY OF CHAR ) : File ;

PROCEDURE Create ( name    : ARRAY OF CHAR ) : File ;

PROCEDURE OpenRW ( name    : ARRAY OF CHAR ) : File ;

PROCEDURE Erase ( name    : ARRAY OF CHAR ) ;

PROCEDURE IOresult () : CARDINAL ;

PROCEDURE ReadRedirectionFile ( name : ARRAY OF CHAR ) ;

PROCEDURE Init;

END FIOR.