mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 18:02:25 +00:00
Consolidate ooc library files.
This commit is contained in:
David Brown
parent
c374e343af
commit
6a1b2f4967
13 changed files with 0 additions and 717 deletions
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,71 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = RECORD a,b : SYSTEM.BYTE END; (* 2 bytes on x64_64 *) (* short int *)
|
|
||||||
int* = INTEGER;
|
|
||||||
set* = INTEGER;(*SET;*) (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
longset* = SET; (*SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
address* = LONGINT; (*SYSTEM.ADDRESS;*)
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER (*[CSTRING]*) TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,72 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = INTEGER; (* short int *)
|
|
||||||
int* = LONGINT;
|
|
||||||
set* = SET; (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
(*longset* = SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
longset* = SET;
|
|
||||||
address* = LONGINT;
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,71 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = RECORD a,b : SYSTEM.BYTE END; (* 2 bytes on x64_64 *) (* short int *)
|
|
||||||
int* = INTEGER;
|
|
||||||
set* = INTEGER;(*SET;*) (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
longset* = SET; (*SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
address* = LONGINT; (*SYSTEM.ADDRESS;*)
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER (*[CSTRING]*) TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
|
|
@ -1,71 +0,0 @@
|
||||||
(* $Id: C.Mod,v 1.9 1999/10/03 11:46:01 ooc-devel Exp $ *)
|
|
||||||
MODULE oocC;
|
|
||||||
(* Basic data types for interfacing to C code.
|
|
||||||
Copyright (C) 1997-1998 Michael van Acken
|
|
||||||
|
|
||||||
This module is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU Lesser General Public License
|
|
||||||
as published by the Free Software Foundation; either version 2 of
|
|
||||||
the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This module is distributed in the hope that it will be useful, but
|
|
||||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
Lesser General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU Lesser General Public
|
|
||||||
License along with OOC. If not, write to the Free Software Foundation,
|
|
||||||
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
||||||
*)
|
|
||||||
|
|
||||||
IMPORT
|
|
||||||
SYSTEM;
|
|
||||||
|
|
||||||
(*
|
|
||||||
These types are intended to be equivalent to their C counterparts.
|
|
||||||
They may vary depending on your system, but as long as you stick to a 32 Bit
|
|
||||||
Unix they should be fairly safe.
|
|
||||||
*)
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
char* = CHAR;
|
|
||||||
signedchar* = SHORTINT; (* signed char *)
|
|
||||||
shortint* = RECORD a,b : SYSTEM.BYTE END; (* 2 bytes on x64_64 *) (* short int *)
|
|
||||||
int* = INTEGER;
|
|
||||||
set* = INTEGER;(*SET;*) (* unsigned int, used as set *)
|
|
||||||
longint* = LONGINT; (* long int *)
|
|
||||||
longset* = SET; (*SYSTEM.SET64; *) (* unsigned long, used as set *)
|
|
||||||
address* = LONGINT; (*SYSTEM.ADDRESS;*)
|
|
||||||
float* = REAL;
|
|
||||||
double* = LONGREAL;
|
|
||||||
|
|
||||||
enum1* = int;
|
|
||||||
enum2* = int;
|
|
||||||
enum4* = int;
|
|
||||||
|
|
||||||
(* if your C compiler uses short enumerations, you'll have to replace the
|
|
||||||
declarations above with
|
|
||||||
enum1* = SHORTINT;
|
|
||||||
enum2* = INTEGER;
|
|
||||||
enum4* = LONGINT;
|
|
||||||
*)
|
|
||||||
|
|
||||||
FILE* = address; (* this is acually a replacement for `FILE*', i.e., for a pointer type *)
|
|
||||||
sizet* = longint;
|
|
||||||
uidt* = int;
|
|
||||||
gidt* = int;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE (* some commonly used C array types *)
|
|
||||||
charPtr1d* = POINTER TO ARRAY OF char;
|
|
||||||
charPtr2d* = POINTER TO ARRAY OF charPtr1d;
|
|
||||||
intPtr1d* = POINTER TO ARRAY OF int;
|
|
||||||
|
|
||||||
TYPE (* C string type, assignment compatible with character arrays and
|
|
||||||
string constants *)
|
|
||||||
string* = POINTER (*[CSTRING]*) TO ARRAY OF char;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Proc* = PROCEDURE;
|
|
||||||
|
|
||||||
END oocC.
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue