github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-04 23:26:25 +00:00
Code Issues Projects Releases Wiki Activity
Files
00a8f0eba3da7edc043cff5e04b06f5dadf2c4c0
Interlisp.medley/docs/internal/sketches/LYRIC/SPEC/MAKEATOM.SKETCH
Larry Masinter f86be45834 Add documents from envos/LISPCORE/internal/docs (#812)
2022-07-02 22:08:47 -07:00

2 lines
11 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
((SKETCH %{DSK%}<LISPFILES>LYRIC>SPEC>MAKEATOM.SKETCH SKETCHCONTEXT ((ROUND 1 0) (CLASSIC 10 (
MEDIUM REGULAR REGULAR)) (CENTER BASELINE) (LINE 30.0 12) NIL NIL (CENTER CENTER) (NIL NIL) T NIL
NIL 1.0)) ((.05 11.0 NIL) (TEXT (16.0 . 568.0) (
"make_atom ( char_base, length, non_numericp )" "char * char_base;" "short length;"
"short non_numericp;") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((16.0 582.0
185.0 11.0) (16.0 571.0 67.0 11.0) (16.0 560.0 48.0 11.0) (16.0 549.0 83.0 11.0)) NIL))
((0.0 44.0 NIL) (CLOSEDWIRE ((80.0 . 432.0) (144.0 . 432.0) (128.0 . 392.0) (144.0 . 344.0)
(80.0 . 344.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 11.0 NIL) (TEXT (112.0 . 408.0) ("length "
"!=0") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((99.0 411.0 26.0 11.0) (
104.5 400.0 15.0 11.0)) NIL)) ((0.0 44.0 NIL) (CLOSEDWIRE ((160.0 . 472.0) (248.0 . 472.0)
(232.0 . 456.0) (248.0 . 440.0) (160.0 . 440.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 11.0 NIL) (
TEXT (184.0 . 448.0) ("length==1") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) (
(162.0 445.5 44.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (136.0 . 488.0) (
"first_char = *char_base ;") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((86.5
485.5 99.0 11.0)) NIL)) ((0.0 44.0 NIL) (CLOSEDWIRE ((272.0 . 552.0) (360.0 . 552.0) (352.0
. 528.0) (360.0 . 512.0) (272.0 . 512.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 11.0 NIL) (TEXT
(312.0 . 528.0) ("first_char ÿ$,ÿ9ÿ$Nÿ" "ASCII code" "ÿ$hjÿBgÿ$-$ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (
MEDIUM REGULAR REGULAR)) ((273.0 535.5 78.0 11.0) (286.5 524.5 51.0 11.0) (284.5 513.5 55.0
11.0)) NIL)) ((0.0 44.0 NIL) (CLOSEDWIRE ((368.0 . 520.0) (456.0 . 520.0) (448.0 . 496.0)
(456.0 . 480.0) (368.0 . 480.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 11.0 NIL) (TEXT (408.0 .
496.0) ("first_char ÿ$,ÿ0ÿ$Nÿ" "ASCII code" "ÿ$hjÿBgÿ$-$ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM
REGULAR REGULAR)) ((369.0 503.5 78.0 11.0) (382.5 492.5 51.0 11.0) (380.5 481.5 55.0 11.0)
) NIL)) ((.05 11.0 NIL) (TEXT (408.0 . 552.0) ("return(ATOMoffset" " + (first_char -10)") 1.0
(CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((372.5 555.0 71.0 11.0) (373.5 544.0
69.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (512.0 . 520.0) ("return(S_POSITIVE "
"| (first_char - 48))") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((475.5 523.0
73.0 11.0) (478.0 512.0 68.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (536.0 . 480.0) (
"return(ATOMoffset " "+first_char)") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) (
(499.5 483.0 73.0 11.0) (511.5 472.0 49.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (608.0 .
408.0) ("10ÿ0Jÿ>eÿ$Nÿ?tÿ;zÿ$Nÿ=hÿM}ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((558.0 404.5
100.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (584.0 . 440.0) ("return(hash_entry)") 1.0 (CENTER
BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((547.5 437.5 73.0 11.0)) NIL)) ((.05 11.0 NIL)
(TEXT (192.0 . 336.0) ("hash = 0;" " first_char = 255 ;") 1.0 (CENTER BASELINE) (MODERN 8 (
MEDIUM REGULAR REGULAR)) ((174.0 339.0 36.0 11.0) (155.5 328.0 73.0 11.0)) NIL)) ((.024 36.0
NIL) (BOX (160.0 328.0 72.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.06400001 84.0 NIL) (
BOX (80.0 240.0 168.0 64.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 32.0 NIL) (WIRE ((240.0
. 304.0) (240.0 . 240.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 11.0 NIL) (TEXT (344.0 . 336.0)
("atom_index = hash_entry-1") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((289.5
333.5 109.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (280.0 . 320.0) (
"pname_base =Addr68k_from_LADDR" "( *((int *)Pnamespace +atom_index) )") 1.0 (LEFT BASELINE) (
MODERN 8 (MEDIUM REGULAR REGULAR)) ((280.0 323.0 149.0 11.0) (280.0 312.0 141.0 11.0)) NIL))
((.04 92.0 NIL) (BOX (272.0 304.0 184.0 40.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0
NIL) (TEXT (304.0 . 240.0) ("length ==" " *pname_base") 1.0 (CENTER BASELINE) (MODERN 8 (
MEDIUM REGULAR REGULAR)) ((283.0 243.0 42.0 11.0) (277.0 232.0 54.0 11.0)) NIL)) ((0.0 40.0
NIL) (CLOSEDWIRE ((272.0 . 256.0) (352.0 . 256.0) (344.0 . 240.0) (352.0 . 224.0) (272.0 .
224.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 11.0 NIL) (TEXT (160.0 . 272.0) ("for ( reprobe = "
"Atom_reprobe(hash,firstchar)" ";(hash_entry=" "*(AtomHT+hash)) !=0 ;"
" hash=(hash + reprobe) & 0xffff) ") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((
130.5 291.5 59.0 11.0) (104.0 280.5 112.0 11.0) (131.0 269.5 58.0 11.0) (115.0 258.5
90.0 11.0) (97.0 247.5 126.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (184.0 . 208.0) (
"atom_index = create_symbol(char_base,length)") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR
REGULAR)) ((91.5 205.5 185.0 11.0)) NIL)) ((.016 100.0 NIL) (BOX (80.0 200.0 200.0 16.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL) (TEXT (136.0 . 144.0) ("return(atom_index)")
1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((98.5 141.5 75.0 11.0)) NIL)) ((
.016 56.0 NIL) (BOX (80.0 136.0 112.0 16.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL)
(TEXT (376.0 . 272.0) ("if (compare_chars" "( ++pname_base, char_base,length) " "==T)") 1.0 (
LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((376.0 280.5 68.0 11.0) (376.0 269.5
144.0 11.0) (376.0 258.5 23.0 11.0)) NIL)) ((0.0 80.0 NIL) (CLOSEDWIRE ((368.0 . 288.0) (
368.0 . 256.0) (528.0 . 256.0) (520.0 . 272.0) (528.0 . 288.0)) (ROUND 1 0) NIL 1.0 NIL)) ((
.05 11.0 NIL) (TEXT (592.0 . 296.0) ("Already Exist" "return(atom_index)") 1.0 (CENTER
BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((569.0 299.0 46.0 11.0) (554.5 288.0 75.0
11.0)) NIL)) ((.032 56.0 NIL) (BOX (536.0 280.0 112.0 32.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
((.024 40.0 NIL) (BOX (368.0 544.0 80.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 16.0
NIL) (WIRE ((336.0 . 552.0) (368.0 . 552.0)) (ROUND 1 0) NIL NIL 1.0)) ((.032 52.0 NIL) (BOX
(464.0 504.0 104.0 32.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.032 64.0 NIL) (BOX (472.0
464.0 128.0 32.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 16.0 NIL) (WIRE ((432.0 . 520.0) (
464.0 . 520.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 16.0 NIL) (WIRE ((440.0 . 480.0) (472.0 .
480.0)) (ROUND 1 0) NIL NIL 1.0)) ((.024 48.0 NIL) (BOX (536.0 424.0 96.0 24.0) (ROUND 1 0)
NIL 1.0 (NIL NIL))) ((0.0 20.0 NIL) (WIRE ((120.0 . 432.0) (160.0 . 432.0)) (ROUND 1 0) NIL
NIL 1.0)) ((0.0 24.0 NIL) (WIRE ((112.0 . 344.0) (160.0 . 344.0)) (ROUND 1 0) NIL NIL 1.0))
((0.0 28.0 NIL) (WIRE ((336.0 . 256.0) (392.0 . 256.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0
12.0 NIL) (WIRE ((512.0 . 288.0) (536.0 . 288.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 12.0 NIL)
(WIRE ((248.0 . 264.0) (272.0 . 264.0)) (ROUND 1 0) NIL NIL 1.0)) ((.016 56.0 NIL) (BOX (
80.0 480.0 112.0 16.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 176.0 NIL) (WIRE ((80.0 .
496.0) (80.0 . 144.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 11.0 NIL) (TEXT (40.0 . 368.0) (
"make_atom") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((18.0 365.5 44.0 11.0)
) NIL)) ((.032 36.0 NIL) (BOX (0.0 352.0 72.0 32.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0
4.0 NIL) (WIRE ((80.0 . 376.0) (80.0 . 376.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 4.0 NIL) (
WIRE ((72.0 . 376.0) (80.0 . 376.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 4.0 NIL) (WIRE ((72.0
. 360.0) (80.0 . 360.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 11.0 NIL) (TEXT (336.0 . 408.0) (
"non_numericp ==NIL" "&&") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((292.5
411.0 87.0 11.0) (330.0 400.0 12.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (344.0 . 384.0) (
"first_char ÿ$,ÿ9ÿ$Nÿ" "ASCII code" "ÿ0Jÿ2<ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR))
((305.0 391.5 78.0 11.0) (318.5 380.5 51.0 11.0) (333.0 369.5 22.0 11.0)) NIL)) ((0.0
64.0 NIL) (CLOSEDWIRE ((272.0 . 424.0) (272.0 . 360.0) (400.0 . 360.0) (384.0 . 392.0) (
400.0 . 424.0)) (ROUND 1 0) NIL 1.0 NIL)) ((0.0 24.0 NIL) (WIRE ((224.0 . 440.0) (272.0 .
440.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 16.0 NIL) (WIRE ((336.0 . 512.0) (368.0 . 512.0)) (
ROUND 1 0) NIL NIL 1.0)) ((0.0 28.0 NIL) (WIRE ((272.0 . 528.0) (272.0 . 472.0) (232.0 .
472.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 11.0 NIL) (TEXT (456.0 . 424.0) ("hash_entry = "
"parse_number" "(char_base,length)" "!= NIL") 1.0 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR
REGULAR)) ((428.0 438.0 56.0 11.0) (428.5 427.0 55.0 11.0) (420.0 416.0 72.0 11.0) (443.5
405.0 25.0 11.0)) NIL)) ((0.0 56.0 NIL) (CLOSEDWIRE ((408.0 . 448.0) (520.0 . 448.0) (
512.0 . 424.0) (520.0 . 400.0) (408.0 . 400.0)) (ROUND 1 0) NIL 1.0 NIL)) ((0.0 20.0 NIL) (
WIRE ((368.0 . 424.0) (408.0 . 424.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 20.0 NIL) (WIRE ((
496.0 . 448.0) (536.0 . 448.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 11.0 NIL) (TEXT (624.0 .
528.0) ("0ÿ$+iÿ9ÿ$Nÿ?tÿ;zÿ$Nÿ=hÿM}ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((574.0 524.5
100.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (480.0 . 560.0) ("1ÿJ8ÿ;zÿatom") 1.0 (CENTER BASELINE)
(CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((454.0 556.5 52.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT
(632.0 . 480.0) ("1ÿJ8ÿ;zÿatom") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((606.0
476.5 52.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (168.0 . 400.0) ("hash =" " compute_hash"
"(char_base, length)") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((168.0 408.5
27.0 11.0) (168.0 397.5 59.0 11.0) (168.0 386.5 74.0 11.0)) NIL)) ((.032 52.0 NIL) (BOX (
160.0 384.0 104.0 32.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL) (TEXT (208.0 .
424.0) ("HASHÿCMÿ$Nÿ7Wÿ;;ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((171.0 420.5
74.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (328.0 . 208.0) ("ÿ?7ÿ$7$ÿATOM") 1.0 (CENTER BASELINE) (
CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((295.5 204.5 65.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (
616.0 . 320.0) ("ÿ8Eÿ$$ÿATOMÿ$rÿH/ÿ8+ÿ") 1.0 (CENTER BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((
572.5 316.5 87.0 11.0)) NIL)) ((0.0 28.0 NIL) (WIRE ((160.0 . 456.0) (160.0 . 400.0)) (
ROUND 1 0) NIL NIL 1.0)) ((0.0 44.0 NIL) (WIRE ((272.0 . 328.0) (272.0 . 240.0)) (ROUND 1 0)
NIL NIL 1.0)) ((.05 11.0 NIL) (TEXT (176.0 . 176.0) ("*(AtomHT + hash) = atom_index +1") 1.0
(CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((105.5 173.5 141.0 11.0)) NIL)) ((.016
96.0 NIL) (BOX (80.0 168.0 192.0 16.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 12.0 NIL) (
WIRE ((272.0 . 440.0) (272.0 . 416.0)) (ROUND 1 0) NIL NIL 1.0)))
(0.0 86.0 724.0 509.0)
1.0
8.0
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
,¯ SKIO.GETFN.2,¯zº
Reference in New Issue View Git Blame Copy Permalink