home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
compressed
/
development
/
clusterdemo.dms
/
clusterdemo.adf
/
Modules.lha
/
modules
/
txt
/
DynamicArrays.def
< prev
next >
Wrap
Text File
|
1994-05-25
|
2KB
|
93 lines
|##########|
|#MAGIC #|CLABLNCM
|#PROJECT #|"ImportHelp"
|#PATHS #|"StdProject"
|#FLAGS #|xx-x-x--x----xx-----------------
|#USERSW #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx---xxxxx------
|##########|
DEFINITION MODULE DynamicArrays;
EXCEPTION BadSubscript : "Bad subscript";
DEFINITION MODULE DynamicArray(type : ANYPTR);
TYPE
Array = RECORD
data : ARRAY [256] OF POINTER TO ARRAY [256] OF type;
first,
last : CARDINAL;
END;
PROCEDURE Init(VAR a : Array);
PROCEDURE Destruct(VAR a : Array);
PROCEDURE Delete(VAR a : Array);
PROCEDURE Put(VAR a : Array;index : CARDINAL;data : type);
PROCEDURE Get(REF a : Array;index : CARDINAL):type;
PROCEDURE Next(REF a : Array;old : CARDINAL):CARDINAL;
PROCEDURE Prev(REF a : Array;old : CARDINAL):CARDINAL;
END DynamicArray;
DEFINITION MODULE DynamicArray2(type : ANYPTR);
TYPE
Array = RECORD
data : ARRAY [16],[16] OF POINTER TO
ARRAY [16],[16] OF POINTER TO
ARRAY [16],[16] OF POINTER TO
ARRAY [16],[16] OF type;
firstX,
firstY,
lastX,
lastY : CARDINAL;
END;
PROCEDURE Init(VAR a : Array);
PROCEDURE Destruct(VAR a : Array);
PROCEDURE Delete(VAR a : Array);
PROCEDURE Put(VAR a : Array;x,y : CARDINAL;data : type);
PROCEDURE Get(REF a : Array;x,y : CARDINAL):type;
PROCEDURE FirstXatY(REF a : Array;y : CARDINAL):CARDINAL;
PROCEDURE LastXatY(REF a : Array;y : CARDINAL):CARDINAL;
PROCEDURE FirstYatX(REF a : Array;x : CARDINAL):CARDINAL;
PROCEDURE LastYatX(REF a : Array;x : CARDINAL):CARDINAL;
PROCEDURE NextX(REF a : Array;x,y : CARDINAL):CARDINAL;
PROCEDURE NextY(REF a : Array;x,y : CARDINAL):CARDINAL;
PROCEDURE PrevX(REF a : Array;x,y : CARDINAL):CARDINAL;
PROCEDURE PrevY(REF a : Array;x,y : CARDINAL):CARDINAL;
END DynamicArray2;
END DynamicArrays.