version 1.12, 1999/02/16 06:32:29
|
version 1.13, 1999/06/17 15:32:13
|
Line 228 variable last-interface-offset 0 last-in
|
Line 228 variable last-interface-offset 0 last-in
|
\g @var{interface}. |
\g @var{interface}. |
end-interface-noname constant ; |
end-interface-noname constant ; |
|
|
|
\ visibility control |
|
|
|
variable public-wordlist |
|
|
|
: protected ( -- ) \ objects- objects |
|
\g Set the compilation wordlist to the current class's wordlist |
|
current-interface @ class-wordlist @ |
|
dup get-current <> |
|
if \ we are not protected already |
|
get-current public-wordlist ! |
|
then |
|
set-current ; |
|
|
|
: public ( -- ) \ objects- objects |
|
\g Restore the compilation wordlist that was in effect before the |
|
\g last @code{protected} that actually changed the compilation |
|
\g wordlist. |
|
current-interface @ class-wordlist @ get-current = |
|
if \ we are protected |
|
public-wordlist @ set-current |
|
then ; |
|
|
\ classes |
\ classes |
|
|
: add-class-order ( n1 class -- wid1 ... widn n+n1 ) |
: add-class-order ( n1 class -- wid1 ... widn n+n1 ) |
Line 272 variable last-interface-offset 0 last-in
|
Line 294 variable last-interface-offset 0 last-in
|
|
|
: end-class-noname ( align offset -- class ) \ objects- objects |
: end-class-noname ( align offset -- class ) \ objects- objects |
\g End a class definition. The resulting class is @var{class}. |
\g End a class definition. The resulting class is @var{class}. |
|
public |
current-interface @ dup drop-order class-inst-size 2! |
current-interface @ dup drop-order class-inst-size 2! |
end-interface-noname ; |
end-interface-noname ; |
|
|
Line 281 variable last-interface-offset 0 last-in
|
Line 304 variable last-interface-offset 0 last-in
|
\ name execution: ( -- class ) |
\ name execution: ( -- class ) |
end-class-noname constant ; |
end-class-noname constant ; |
|
|
\ visibility control |
|
|
|
variable public-wordlist |
|
|
|
: protected ( -- ) \ objects- objects |
|
\g Set the compilation wordlist to the current class's wordlist |
|
current-interface @ class-wordlist @ |
|
dup get-current <> |
|
if \ we are not protected already |
|
get-current public-wordlist ! |
|
then |
|
set-current ; |
|
|
|
: public ( -- ) \ objects- objects |
|
\g Restore the compilation wordlist that was in effect before the |
|
\g last @code{protected} that actually changed the compilation |
|
\g wordlist. |
|
public-wordlist @ set-current ; |
|
|
|
\ classes that implement interfaces |
\ classes that implement interfaces |
|
|
: front-extend-mem ( addr1 u1 u -- addr addr2 u2 ) |
: front-extend-mem ( addr1 u1 u -- addr addr2 u2 ) |