🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.forth
Article #2

Object-Oriented Forth (Re: Introduction to FORTH)

#2
From: Yasushi Shinjo
Date: Sat, 29 Aug 1992 17:55
88 lines
4777 bytes
$@?7>k!wC^GHBg3X$G$9!#$3$s$K$A$O!#(J
$@%*%V%8%'%/%H;X8~(J Forth $@$N7o$G$9$,!"(J

From article <UCHI.92Aug28094007@slt31.ssel.toshiba.co.jp>,
	by uchi@ssel.toshiba.co.jp (Uchihira Naoshi):
> $@FbJ?!wEl<G$G$9!#(J

> FORTH$@$N=i?4<T$G$9!#(JFORTH$@$K4X$9$kF|K\8l$N2r@b=q$G!"$*4+$a$J$b$N$r65$($F(J
> $@2<$5$$!#(J

$@2?:}$+!";}$C$F$$$k$N$G$9$,!"B_=PCf$G!":#<j85$K$"$j$^$;$s!#$A$g$C(J
$@$HBT$C$F2<$5$$!#<h$jJV$7$F$-$^$9!#(J

> $@$^$?!"(JFORTH$@$K%*%V%8%'%/%H;X8~$rF~$l$?8@8l$,$$$/$D$+$"$k$=$&$G$9$,!"$=(J
> $@$l$i$K4X$9$k>pJs$rF@$?$$$H;W$C$F$$$^$9!#E,Ev$J%K%e!<%9%=!<%9$r65$($F2<(J
> $@$5$$!#(J

$@$?$7$+!"#1#9#8#6G/!J:#$+$i#6G/A0!*!K$N(J Byte $@;o$KFC=8$,$"$j$^(J
$@$7$?!#F1$8G/$N#1#27n$4$m$K!"F|7P%P%$%H$K$b$=$NK]Lu$,$N$j$^$7(J
$@$?!#!J$9$_$^$;$s!"$3$N;qNA$b!"%9%?%C%/$NDl$KD@$s$G$$$F!"$$$^(J
$@$9$0=P$F$-$=$&$K$"$j$^$;$s!#!K(J

Forth $@$O!"$b$H$b$H%*%V%8%'%/%H;X8~$C$]$$5!G=$,$D$$$F$$$^$9!#(J
$@;d$J$I!"(JForth $@$r8+$F$+$i(J Smalltalk $@$r8+$?$N$G!"$J$s$G(J 
Smalltalk $@$,$"$s$J$KA{$,$l$F$$$k$N$+!"$h$/$o$+$j$^$;$s$G$7$?!#(J
Smalltalk $@$G$d$C$F$$$k$3$H$O!"(JForth$@$G$b4{$K$d$C$F$$$?$+!"$"(J
$@$k$$$O!"$[$s$N$A$g$C$H<j$r2C$($k$@$1$G!"$G$-$=$&$J5$$,$7$?$+(J
$@$i$G$9!#(J

$@<B:];d$b!"(JByte$@;o$N5-;v$r8+$F!"%A%g%3%A%g%3$C$H%*%V%8%'%/%H;X(J
$@8~(J Forth $@$r:n$C$?$3$H$,$"$j$^$9!#$=$NEv;~$O$o$+$i$J$+$C$?$N(J
$@$G$9$,!":#;W$&$H!"$A$c$s$H(J late binding $@$bF~$l$F$7$^$C$F$$$^(J
$@$7$?!#$3$l$O!"%a%=%C%I$K8B$i$:!"0lHL$N%k!<%A%s!J(JForth $@$G$O!"(J
$@%o!<%I!K$G$b8z$-$^$7$?!#(J

$@Gd$jJ*$G$O!"(JNeon $@$H$$$&$b$N$,M-L>$G$9!#$3$l$,%Q%V%j%C%/!&%I(J
$@%a%$%s$K$J$C$?(J Yerk $@$H$$$&$b$N$,$"$j$^$9!#(JMacintosh $@$GF0$-$^(J
$@$9!#(JYerk $@$O!"2?G/$+A0$K!"(Jcomp.lang.forth $@$KN.$l$?$H;W$$$^$7(J
$@$?!#;d$bF0$+$7$F$_$?$@$1!"$H$$$C$?$H$3$m$G$9$1$I!"%*%V%8%'%/(J
$@%H;X8~(J Forth $@$GM7$V$K$O!"$*<j$4$m$J$N$G$O$J$$$G$7$g$&$+!#$=(J
$@$N(J readme $@$rIU$1$^$9!#(J

---- $@$3$3$+$i(J

README.  

This is a public domain release of Yerk. It is an object oriented 
language based on a Forth Kernel with some major modifications.  
It was originally known as Neon, developed and sold as a product by 
Kriya Systems from 1985 to 1988.  Several of us at The University 
of Chicago have maintained Yerk since its demise as a product, and 
Kriya has now decided to release all sources of Neon into the public 
domain with the restriction that all references to the name 'Neon' 
be deleted because of possible trademark conflicts. Hence the name 
Yerk, which is at least not an acronym for anything, but rather 
stands for Yerkes Observatory, part of the Department of 
Astronomy and Astrophysics at U of C.

The manual has been updated to reflect most updates and changes 
from the last release of Neon 2.0 to the current version of Yerk 3.3.  
I'm sure that some things are not explained correctly, omitted, or 
are just plain wrong.  I would appreciate receiving any comments, 
corrections or ideas concerning the manual or the application.

In addition to the example sources that Kriya issued with Neon are 
some examples of my own, just to show how to use some of the 
additional classes of Yerk.

---- $@$3$3$^$G(J

$@05=L$7$F!"(J700k$@%P%$%H$N%U%m%C%T#2Kg$K$J$j$^$9!#%I%-%e%a%s%H$b(J
$@$?$/$5$s$D$$$F$-$F$$$^$9!#(J

$@$"$H!"(JGNU $@$H$$$C$7$g$KG[$i$l$F$$$k(J TILE Forth $@$H$$$&$b$N$,$"(J
$@$j$^$9!#:G6a!"(JTILE Forth $@$GM7$s$G$$$J$$$N$G!"$h$/$o$+$j$^$;(J
$@$s$,!"A0$K!"$K%*%V%8%'%/%H;X8~$N5!G=$,IU$/$H$$$&OC$,$"$j$^$7(J
$@$?!#$"$l$O!"$=$N8e$I$&$J$C$?$s$G$7$g$&$+!)(J

$@$=$l$+$i!"(JANNForth $@$H$$$&(J C++ $@$G=q$+$l$?(J Forth $@$H$$$&$N$b$"(J
$@$j$^$9$1$I!"$3$l$O!"0c$$$^$9$M!#(J ANNForth $@$O!"(Jalt.sources $@$K(J
1991$@G/(J9$@7n$4$mN.$l$^$7$?!#$H$3$m$G!"$=$N;~!"(Jg++ $@$G%3%s%Q%$%k(J
$@$7$h$&$H$7$F!"(J'' $@$H$$$&%3%s%9%?%s%H$N=j$G<:GT$7$^$7$?!#$@$l(J
$@$+@.8y$7$??M$O$$$^$9$+!)(J

$@!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(J
$@!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(J
PostScript
$@$=$&$+!"(JForth$@$O!"BO@Q7?8@8l$@$C$?$s$@!#(J
Technical Details
Message-ID: <1992Aug29.175551.17313@iris.is.tsukuba.ac.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!sh.wide!wnoc-tyo-news!etl.go.jp!gama!ume!is.tsukuba.ac.jp!softlab.is.tsukuba.ac.jp!yas
References: <UCHI.92Aug28094007@slt31.ssel.toshiba.co.jp>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!sh.wide!wnoc-tyo-news!etl.go.jp!gama!ume!is.tsukuba.ac.jp!softlab.is.tsukuba.ac.jp!yas
From: yas@softlab.is.tsukuba.ac.jp (Yasushi Shinjo)
Newsgroups: fj.lang.forth,fj.comp.oops,fj.sys.mac
Subject: Object-Oriented Forth (Re: Introduction to FORTH)
Message-ID: <1992Aug29.175551.17313@iris.is.tsukuba.ac.jp>
Date: 29 Aug 92 17:55:51 GMT
References: <UCHI.92Aug28094007@slt31.ssel.toshiba.co.jp>
Sender: news@iris.is.tsukuba.ac.jp (News Manager)
Followup-To: fj.lang.forth
Organization: Inst. of Info. Sci. & Elec., Univ. of Tsukuba, Ibaraki, Japan.
Lines: 88