ST72redux4

1
to tabin
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Enter search term:

Next

regexp

Prev

Occur

✔

X

1
to show
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Enter search term:

Next

regexp

Prev

Occur

✔

X

Log Messages

X

–

Menu

1
    at ST72Context$matchToken [as matchToken] (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:118:18)
    at ST72Context$step [as step] (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:210:25)
    at Box.doQuickStep (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:7:45)
    at Box.readFromREPL (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:21:14)
    at Image.doit (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:9:18)
    at Image.testClassof (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:7:10)
    at Box.runScript (eval at Function.evalJS.livelyLang.fun.evalJS (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:10112:16), <anonymous>:10:36)
    at callOrSetTarget (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:20809:80)
    at AttributeConnection$update [as update] (https://smalltalkzoo.thechm.org/generated/a504cf4af09a11e5d47e33b9ed43bf7a/combinedModules.js:20816:92)
[log] Running testIndex
[log] Running testClassof
[log] Running testClassof
[log] Running testClassof
[log] Running testClassof
[log] World successfully saved
[log] https://smalltalkzoo.thechm.org/core/anonymous_module_68 loaded in 1 ms
[warn] misspelled option "useElasticTabstops"
[warn] misspelled option "behaviorsEnabled"
[warn] misspelled option "behaviorsEnabled"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

follow log

clear

reattach

1
missing
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Enter search term:

Next

regexp

Prev

Occur

✔

X

1
isit
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Enter search term:

Next

regexp

Prev

Occur

✔

X

depth: 1

reset

Current state

X

–

Menu

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
Now debugging 'nshow turtle' prefatory to testing edit
    show works to print the code, but we need the header info
To do this properly, we need classes to respond to #classDict or the 
    like, and that to be a dictionary that responds to #keys and #at,
    and descriptors respond to #is, #type, and #offset
We also need a few messages from our non-existing class Object: at 
    least #class
But for now, let's use a function classOf so don't need to inherit
---> false seems to be null, but it got initted
---------
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 9000000 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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

doit

show vars

VMPanel

X

–

Menu

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
As soon as USER has been defined (ie from here on), it provides the code to 
    execute in each cycle of Smalltalk execution.'
to class x y z : classDict (
    isnew?(CODE 43)
    %classDict?(!classDict)
    %is?(ISIT eval)
    )
to classof x (:#x. CODE 44)
to descriptor x : location offset (
    %location? (!location)
    %offset? (!offset)
    )
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Restart

Step

Run

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

Run to:

1
83155
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Active

550
551
552
553
554
555
556
557
558
559
560
561
562
563
[55] t= 0
((@ is ~ ) print . )
turtle
[646] t= 0
((classof 5 is ~ ) print . )
untyped
[1289] t= 0.01
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Stop

Dict

1
83155
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Display show

Display clear

ObjectEditor -- VMPanel>>codeEscape

X

–

Menu

45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
        case 24: // to for ... (...CODE 24)
            return this.codeFor(ctxt);
        case 25: // to done x (%with?(:x. CODE 25) CODE 25)
            return this.codeDone(ctxt);
        case 28: // to GET x y (:#x. :y. CODE 28)
            return this.codeGet(ctxt);
        case 29: // atom  %_?(:x.  CODE 29)
            return this.codeAtomBind(ctxt);
        case 30: // atom  %eval?(CODE 30)
            return this.codeAtomEval(ctxt);
        case 31: // atom  %=?(:x. CODE 31)
            return this.codeAtomEq(ctxt);
        case 32: // atom  %chars?(CODE 32)
            return this.codeAtomChars(ctxt);
        case 40: // substr
            return this.codeSubstr(ctxt);
        case 44: // classof x (:#x. CODE 44)
            return this.codeClassof(ctxt);
    }
    debugger;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

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

Tag:

run

save

debug next call

past saves...

codeAtomChars

codeAtomEq

codeAtomEval

codeBind

codeClassof

codeDispGets

codeDone

codeEq

codeEscape

codeFetch

codeFor

Scripts

-

+

-

Connections

+

-- ALL --

all

1
2
3
4
5
6
7
// changed at Tue Dec 29 2020 14:23:47 GMT-0800 (Pacific Standard Time) by dan
this.addScript(function testClassof() {
this.doit(`
(@ is ~) print.
(classof 5 is ~) print.
`)
});
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

<lively.morphic.Image#965AA... - St72-test-code.png>

Tag:

run

save

debug next call

past saves...

-- ALL --

doit

getVM

testBraces

testClassof

testClassprint

testDo

testIndex

testPrint

testShow

testSpiral

testTabin

Scripts

-

+

-

Connections

+

-- ALL --

all

ObjectEditor -- St72Tests>>testClassof

X

–

Menu