Оберон-клуб «ВЄДАsoft»

MODULE hi;
IMPORT B := Basic;
 
PROCEDURE Main* ;
TYPE
squarepointer=POINTER TO gamesquare;
gamesquare=RECORD
hcost:SHORTINT
END;
 
VAR 
x,y:INTEGER;
gameboard:ARRAY 32,22 OF SHORTINT;
myptr:squarepointer;
 
 
BEGIN B.Init;      
NEW (myptr);
myptr.hcost:=23;
gameboard[0][0]:=1;
gameboard[31][21]:=1;
gameboard[14][14]:=1;
 
B.BORDER(B.Green);
B.PAPER(B.Black);
B.CLS;
(*
	FOR x:= 0 TO 31 BY 1 DO
	FOR y:= 0 TO 21 BY 1 DO
	B.AT(y,x);
 
		IF gameboard[x][y]=1 THEN
		B.PRSTR("y");
		ELSE
		B.PRSTR("n");
		END;
	END;
	END;
	*)
	B.PAUSE(B.WaitAKey);
	B.Quit;
 
END Main;
 
END hi.
 

 
VAR
  ptr: POINTER TO ARRAY OF CHAR;
BEGIN
  NEW(ptr, 12); (* Allocate memory. *)
  COPY("Hello World", ptr^);
  C.WriteStr(ptr^);
  Platform.DISPOSE(ptr); (* Deallocate memory. *)
  ...

(* In module Platform: *)
PROCEDURE -free (memblock: SYSTEM.PTR)	"free(memblock)";
 
PROCEDURE DISPOSE* (mem: SYSTEM.PTR);
BEGIN
  free(mem);
END DISPOSE;

/*--------------------------------- Cut here ---------------------------------*/
SYSTEM_PTR SYSTEM_NEWBLK (LONGINT size)
{
  SYSTEM_PTR new = SYSTEM_malloc(size);
  __ASSERT(new != NIL, 0xFF);
  return new;
}

VAR recPtr = POINTER TO RECORD ... END;
BEGIN NEW(recPtr);

VAR Rec = RECORD
	field1: INTEGER;
	field2: CHAR;
	...
	fieldN: BOOLEAN;
END;

#include <malloc.h>
#include "Basic.h" // Used only for print to screen
 
typedef
	struct Person *PersonPtr;
typedef
	struct Person {
		CHAR name[20];
		INTEGER age;
		CHAR sex;
		PersonPtr next;
	} Person;
 
static PersonPtr john, mike, lisa, bob, iren;
 
int main(int argc, char **argv)
{
  Basic_Init();
 
  john = malloc(sizeof(Person));
  if (john==NULL)
    {PRSTR((char*)"john=NULL ");}
  else
    {PRSTR((char*)"john=OK ");}
 
  mike = malloc(sizeof(Person));
  if (mike==NULL)
    {PRSTR((char*)"mike=NULL ");}
  else
    {PRSTR((char*)"mike=OK ");}
 
  lisa = malloc(sizeof(Person));
  if (lisa==NULL)
    {PRSTR((char*)"lisa=NULL ");}
  else
    {PRSTR((char*)"lisa=OK ");}
 
  bob = malloc(sizeof(Person));
  if (bob==NULL)
    {PRSTR((char*)"bob=NULL ");}
  else
    {PRSTR((char*)"bob=OK ");}
 
  iren = malloc(sizeof(Person));
  if (iren==NULL)
    {PRSTR((char*)"iren=NULL ");}
  else
    {PRSTR((char*)"iren=OK ");}
 
  Basic_Quit();
  return 0;
}