| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * PASPROC.DEF - Modula-2 interface to PASPROC.ITF *
- 5 * *
- 6 * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*# project("#set tspas='on'") *)
- 12 (*# call(o_a_size=>off, o_a_copy=>off) *)
- 13 (*%F _fdata *)
- 14 (*# call(seg_name => null) *)
- 15 (*# data(seg_name => null) *)
- 16 (*%E *)
- 17 (*# module(implementation=>off) *)
- 18
- 19 DEFINITION MODULE PasRed;
- 20
- 21 TYPE
- 22 PathStr = ARRAY [0..80] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 23 ExtStr = ARRAY [0..3] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 24 CONST
- 25 Null = MAX(CARDINAL);
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 26 VAR
- 27 LastPath : PathStr ;
- ***** ^ not supported yet
- 28 TextFile : CARDINAL ;
- 29
- 30 PROCEDURE ExpandPath ( psize: BYTE; path : PathStr;
- ***** ^ undeclared identifier
- 31 fsize: BYTE; VAR fullpath : PathStr);
- ***** ^ undeclared identifier
- 32
- 33 PROCEDURE SplitPath ( psize: BYTE; path : PathStr ;
- ***** ^ undeclared identifier
- 34 hsize: BYTE; VAR head : PathStr;
- ***** ^ undeclared identifier
- 35 tsize: BYTE; VAR tail : PathStr ) ;
- ***** ^ undeclared identifier
- 36
- 37 PROCEDURE MakePath ( psize: BYTE; VAR path : PathStr ;
- ***** ^ undeclared identifier
- 38 hsize: BYTE; head : PathStr;
- ***** ^ undeclared identifier
- 39 tsize: BYTE; tail : PathStr ) ;
- ***** ^ undeclared identifier
- 40
- 41 PROCEDURE AddExtension (size: BYTE; VAR s : PathStr ; esize: BYTE; ext : ExtStr ) ;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 42 PROCEDURE RemoveExtension (size: BYTE; VAR s : PathStr ) ;
- ***** ^ undeclared identifier
- 43 PROCEDURE ChangeExtension (size: BYTE; VAR s : PathStr ; esize: BYTE; ext : ExtStr ) ;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 44 PROCEDURE IsExtension (size: BYTE; s : PathStr ; esize: BYTE; ext : ExtStr ) : BOOLEAN ;
- ***** ^ undeclared identifier
- ***** ^ undeclared identifier
- 45
- 46 (* Redirected calls *)
- 47
- 48 PROCEDURE FindPath ( nsize: BYTE; name : PathStr ;
- ***** ^ undeclared identifier
- 49 fsize: BYTE; VAR fullname : PathStr ) : BOOLEAN ;
- ***** ^ undeclared identifier
- 50
- 51 PROCEDURE FindNewPath ( nsize: BYTE; name : PathStr ;
- ***** ^ undeclared identifier
- 52 fsize: BYTE; VAR fullname : PathStr ) : BOOLEAN ;
- ***** ^ undeclared identifier
- 53
- 54 PROCEDURE FindExePath ( psize: BYTE; path : PathStr ;
- ***** ^ undeclared identifier
- 55 ovl : BOOLEAN ;
- 56 osize: BYTE; VAR outpath : PathStr ) : BOOLEAN ;
- ***** ^ undeclared identifier
- 57
- 58
- 59 PROCEDURE ReadRedirectionFile ( size: BYTE; name : PathStr ) ;
- ***** ^ undeclared identifier
- 60
- 61 PROCEDURE Init;
- 62
- 63 END PasRed.
- ***** ^ not supported yet
- 30 errors
|
