ST72redux3

VMPanel

X

–

Menu

1
'This file is an annotated version of sysdefs.
Comments (by Dan Ingalls and Diana Merry) are in string-quotes like this.
The code portion of this file is copyright Xerox Corp. 1974'
'Phase I.
The bootstrap process sets up a global dictionary.  It then reads input lines, 
    looking specifically for the defining word, "to", and calling its code 
    directly.'
to to x (CODE 19)
'Now definitions can be made by evaluating "to" in ST code'
to read (CODE 2)
'Read input into a vector.  The bootstrap reader is almost identical in 
    function to the SMALLTALK read routine, except that DOIT is signalled by 
    <CR> at zero-th parenthesis level, and single-quote strings are ignored.'
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Restart

Step

Run

1
[123]17189:-/m-/g-: USER.eval: (==>ev )
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Run to:

1
95000
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Active

1
2
3
4
5
6
[55] t= 0
(@ home . for i to 400 (@ go i turn 89) )
[151244] t= 0.1
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Stop

Dict

1
95000
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Display show

Display clear

depth: 1

reset

1
@ home. for i to 400 (@go i turn 0-89)
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

doit

show vars

St-72 Workspace

X

–

Menu

Log Messages

X

–

Menu

1
[log] storing quit at 80608
[log] storing os at 84936
[log] World successfully saved
[log] https://smalltalkzoo.thechm.org/core/anonymous_module_31 loaded in 1 ms
[warn] misspelled option "useElasticTabstops"
[warn] misspelled option "behaviorsEnabled"
[warn] misspelled option "behaviorsEnabled"
[log] https://smalltalkzoo.thechm.org/core/anonymous_module_32 loaded in 1 ms
[log] https://smalltalkzoo.thechm.org/core/anonymous_module_33 loaded in 15 ms
[log] World successfully saved
[log] https://smalltalkzoo.thechm.org/core/anonymous_module_34 loaded in 1 ms
[warn] misspelled option "useElasticTabstops"
[warn] misspelled option "behaviorsEnabled"
[warn] misspelled option "behaviorsEnabled"
[log] World successfully saved
[log] https://smalltalkzoo.thechm.org/core/anonymous_module_35 loaded in 0 ms
[warn] misspelled option "useElasticTabstops"
[warn] misspelled option "behaviorsEnabled"
[warn] misspelled option "behaviorsEnabled"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

follow log

clear

reattach

depth: 1

reset

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
As of 12/6/2020...
For documentation help, get a browser on the VMPanel (cmd-click in the 
    yellow area and choose the wrench with a red dot).  Then select 
    methods with names like aboutX, or yetToDo
*How to run the test*
In the VMPAnel:
Push 'Restart'
    reads ALLDEFS through '(to USER (read eval ) )'
Push 'Run to:' with 95000 in the next cell
    reads the rest of ALLDEFS through '(" fill _ nil )'
Push Display show if the display pane is not visible
    show/hide toggles visibility of graphics area
Push Display clear to clear the graphics area
In the St-72 Workspace:
Enter (if necessary) '@ home. for i to 400 (@go i turn 89)'
Select that line with a CR, and push the 'doit' button
    should display a spiral in the graphics area
Edit that line to say  '@ home. for i to 400 (@go i turn 0-89)'
Select that line with a CR, and push the 'doit' button
    should overlay an opposing spiral in the graphics area
Note that the bottom pane of theVMPanel displays the tickCount (number 
    of interpreter cycles) in brackets, and real time as "t= 0.15"
    between each evaluation.
-----------------------
Random notes that might still be useful...
Plan for REPL - 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

doit

show vars

Current state

X

–

Menu

ObjectEditor -- VMPanel>>aboutMe

X

–

Menu

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
// changed at Sun Dec 06 2020 16:05:19 GMT-0800 (Pacific Standard Time) by 
    unknown_user
this.addScript(function aboutMe() { 
    // Smalltalk-72 redux
    // This project is a JavaScript implementation of Smalltalk-72
    // It attempts to be as close the original Smalltalk-72 as possible
    // but, when complete, it will clean up a few things, and make a
    // crucial completion by implementing Class and Context.
    // Live contexts should then allow eval to be written as Context.step
    // Thus making this a truly metacircular Smalltalk-72
    //
    // There is much more information in the companion "aboutX" methods
     // Also see the project status and plans ahead in this.yetToDo
});
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

<lively.morphic.Box#48982... - VMPanel2>

Tag:

run

save

debug next call

past saves...

-- ALL --

aboutMe

aboutTheButtons

aboutTheObjects

aboutThePanel

aboutTheTest

activate

addDisplayMorph

arithOps

codeAgain

codeAtomBind

codeAtomChars

codeAtomEq

codeBind

codeDispGets

Scripts

-

+

-

Connections

+

-- ALL --

all