(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  PASPROC.DEF - Modula-2 interface to PASPROC.ITF                         *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# project("#set tspas='on'") *)
(*# call(o_a_size=>off, o_a_copy=>off) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*# data(seg_name => null) *)
(*%E *)
(*# module(implementation=>off) *)

DEFINITION MODULE PasRed;

TYPE
   PathStr  = ARRAY [0..80] OF CHAR;
   ExtStr   = ARRAY [0..3] OF CHAR;
CONST
   Null     = MAX(CARDINAL);
VAR
   LastPath : PathStr ;
   TextFile : CARDINAL ;

PROCEDURE ExpandPath ( psize: BYTE;     path     : PathStr;
                       fsize: BYTE; VAR fullpath : PathStr);

PROCEDURE SplitPath ( psize: BYTE; path : PathStr ;
                      hsize: BYTE; VAR head : PathStr;
                      tsize: BYTE; VAR tail : PathStr ) ;

PROCEDURE MakePath ( psize: BYTE; VAR path : PathStr ;
                     hsize: BYTE; head : PathStr;
                     tsize: BYTE; tail : PathStr ) ;

PROCEDURE AddExtension    (size: BYTE;  VAR s : PathStr ; esize: BYTE; ext : ExtStr ) ;
PROCEDURE RemoveExtension (size: BYTE;  VAR s : PathStr ) ;
PROCEDURE ChangeExtension (size: BYTE;  VAR s : PathStr ; esize: BYTE; ext : ExtStr ) ;
PROCEDURE IsExtension     (size: BYTE;  s : PathStr ; esize: BYTE; ext : ExtStr ) : BOOLEAN ;

(* Redirected calls *)

PROCEDURE FindPath     ( nsize: BYTE;     name        : PathStr ;
                         fsize: BYTE; VAR fullname    : PathStr ) : BOOLEAN ;

PROCEDURE FindNewPath  ( nsize: BYTE;     name      : PathStr ;
                         fsize: BYTE; VAR fullname  : PathStr ) : BOOLEAN ;

PROCEDURE FindExePath ( psize: BYTE; path    : PathStr ;
                        ovl     : BOOLEAN ;
                        osize: BYTE; VAR outpath : PathStr ) : BOOLEAN ;


PROCEDURE ReadRedirectionFile ( size: BYTE; name : PathStr ) ;

PROCEDURE Init;

END PasRed.