|
a/UnixCalls.def |
|
b/UnixCalls.def |
1 |
DEFINITION MODULE ["C"] UnixCalls; (* XDS *)
|
1 |
DEFINITION MODULE FOR "C" UnixCalls; (* GNU M2 *)
|
2 |
|
2 |
|
3 |
(*========================================================================*)
|
3 |
(*========================================================================*)
|
4 |
(* WICHTIG: BITTE NUR DIE DATEI UnixCalls.def.m2cc EDITIEREN !!! *)
|
4 |
(* WICHTIG: BITTE NUR DIE DATEI UnixCalls.def.m2cc EDITIEREN !!! *)
|
5 |
(*========================================================================*)
|
5 |
(*========================================================================*)
|
6 |
(* Aufrufe von UNIX Prozeduren mit "C" Huelle *)
|
6 |
(* Aufrufe von UNIX Prozeduren mit "C" Huelle *)
|
|
... |
|
... |
21 |
(*------------------------------------------------------------------------*)
|
21 |
(*------------------------------------------------------------------------*)
|
22 |
(* Implementation : Michael Riedl *)
|
22 |
(* Implementation : Michael Riedl *)
|
23 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
23 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
24 |
(*------------------------------------------------------------------------*)
|
24 |
(*------------------------------------------------------------------------*)
|
25 |
|
25 |
|
26 |
(* $Id: UnixCalls.def.m2cc,v 1.3 2018/06/08 07:46:25 mriedl Exp mriedl $ *)
|
26 |
(* $Id: UnixCalls.def.m2cc,v 1.3 2018/06/08 07:46:25 mriedl Exp $ *)
|
27 |
|
27 |
|
28 |
PROCEDURE FileLength(VAR DateiLaenge : LONGCARD;
|
28 |
PROCEDURE FileLength(VAR DateiLaenge : LONGCARD;
|
29 |
VAR Fehler : INTEGER;
|
29 |
VAR Fehler : INTEGER;
|
30 |
VAR DateiName : ARRAY OF CHAR); (* Als letztes wg. HIGH *)
|
30 |
VAR DateiName : ARRAY OF CHAR); (* Als letztes wg. HIGH *)
|
31 |
|
31 |
|