Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site jade.BERKELEY.EDU
Path: utzoo!watmath!clyde!burl!ulysses!bellcore!decvax!ittatc!dcdwest!sdcsvax!ucbvax!jade!ucblapis!oster
From: oster@ucblapis.berkeley.edu (David Phillip Oster)
Newsgroups: net.lang.forth
Subject: Re: Defining a structure in FORTH?
Message-ID: <832@jade.BERKELEY.EDU>
Date: Fri, 13-Jun-86 22:52:58 EDT
Article-I.D.: jade.832
Posted: Fri Jun 13 22:52:58 1986
Date-Received: Tue, 17-Jun-86 20:55:44 EDT
References: <364@randvax.UUCP>
Sender: usenet@jade.BERKELEY.EDU
Reply-To: oster@ucblapis.UUCP (David Phillip Oster)
Distribution: net
Organization: University of California, Berkeley
Lines: 20

Two years ago I wrote such a beast in Forth-83 for the Mac. (The mac op
sys involves lots of Pascal structures.)  My version lets you say things
like
2 MakeRec: Integer:
BEGINREC
  Integer: .v
  Integer: .h
ENDREC: Point:
BEGINREC
  Point: .topLeft
  Point: .bottomRight
ENDREC: Rect:
Rect: aRect
Point: aPoint
4 aPoint.v !

The code is fairly portable, and about 2 screens of Forth-83
--- David Phillip Oster		-- "The goal of Computer Science is to
Arpa: oster@lapis.berkeley.edu  -- build something that will last at
Uucp: ucbvax!ucblapis!oster     -- least until we've finished building it."