1
0
mirror of synced 2026-04-26 04:08:08 +00:00
Files
Interlisp.medley/docs/internal/sketches/LYRIC/SPEC/DECUSECOUNT.SKETCH
2022-07-02 22:08:47 -07:00

6 lines
5.7 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 NIL VERSION 3 PRIRANGE (42 . 0) SKETCHCONTEXT ((ROUND 1 BLACK) (MODERN 10 (MEDIUM REGULAR REGULAR)) (LEFT BASELINE) (CURVE 18.0 8) NIL NIL (CENTER CENTER) (NIL NIL NIL) T NIL NIL 1 NIL)) ((0.05 11.0 (PRI 2)) (TEXT (52.0 . 328.0) ("while(frame->flagword" "== SPOSITIVE(0))" "") 1 (CENTER BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((8.0 336.5 88 11) (19.0 325.5 66 11) (52.0 314.5 0 11)) BLACK)) ((0.028 54.0 (PRI 4)) (BOX (2.0 320.0 108.0 28.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 14.0 (PRI 5)) (WIRE ((104 . 348) (104 . 320)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 6)) (TEXT (128.0 . 332.0) ("frame->" "usecount !=0") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((128 335.0 42 12) (128 323.0 64 12)) BLACK)) ((0.0 39.0 (PRI 7)) (CLOSEDWIRE ((122 . 348) (200 . 348) (194 . 334) (200 . 322) (124 . 322) (122 . 322)) (ROUND 1 BLACK) NIL 1 NIL NIL)) ((0.05 12.0 (PRI 8)) (TEXT (216.0 . 368.0) ("frame->usecount--") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((216.0 365.0 90 12)) BLACK)) ((0.032 52.0 (PRI 9)) (BOX (212.0 348.0 104.0 32.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 12.0 (PRI 10)) (TEXT (220.0 . 354.0) ("return") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((220.0 351.0 30 12)) BLACK)) ((0.05 12.0 (PRI 11)) (TEXT (218.0 . 302.0) ("alink=frame->alink" "blink=frame->blink" "clink=frame->clink") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((218.0 311.0 100 12) (218.0 299.0 100 12) (218.0 287.0 96 12)) BLACK)) ((0.05 12.0 (PRI 12)) (TEXT (218.0 . 270.0) ("size =frame->nextblock - frame") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((218.0 267.0 154 12)) BLACK)) ((0.05 12.0 (PRI 13)) (TEXT (212.0 . 220.0) ("(frame-2)->" "residual") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((212.0 223.0 57 12) (212.0 211.0 38 12)) BLACK)) ((0.04 56.0 (PRI 14)) (BOX (212.0 284.0 112.0 40.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.02 84.0 (PRI 15)) (BOX (212.0 260.0 168.0 20.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 32.0 (PRI 16)) (CLOSEDWIRE ((212 . 236) (276 . 236) (268 . 220) (276 . 208) (212 . 208)) (ROUND 1 BLACK) NIL 1 NIL NIL)) ((0.05 12.0 (PRI 18)) (TEXT (296.0 . 240.0) ("*(frame-2)=FSB_MARK" "*(frame-1)=size +2") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((296.0 243.0 115 12) (296.0 231.0 96 12)) BLACK)) ((0.028 60.0 (PRI 19)) (BOX (292.0 228.0 120.0 28.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 12.0 (PRI 20)) (TEXT (296.0 . 204.0) ("*frame=FSB_MARK" "*(frame+1)=size") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((296.0 207.0 100 12) (296.0 195.0 85 12)) BLACK)) ((0.028 54.0 (PRI 21)) (BOX (292.0 192.0 108.0 28.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 10.0 (PRI 22)) (WIRE ((272 . 236) (292 . 236)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 12.0 (PRI 23)) (WIRE ((268 . 208) (292 . 208)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 24)) (TEXT (216.0 . 140.0) ("blink->usecnt " "==0") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((216.0 143.0 69 12) (216.0 131.0 26 12)) BLACK)) ((0.0 40.0 (PRI 25)) (CLOSEDWIRE ((212 . 160) (292 . 160) (284 . 144) (292 . 132) (212 . 132)) (ROUND 1 BLACK) NIL 1 NIL NIL)) ((0.05 12.0 (PRI 26)) (TEXT (300.0 . 164.0) ("*(blink->ivar)=FSB_MARK" "*(blink->ivar +1)=" " blink->ivar-blink +2") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((300.0 173.0 132 12) (300.0 161.0 95 12) (300.0 149.0 104 12)) BLACK)) ((0.044 70.0 (PRI 27)) (BOX (296.0 144.0 140.0 44.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 12.0 (PRI 28)) (TEXT (300.0 . 124.0) ("blink->usecnt--") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((300.0 121.0 73 12)) BLACK)) ((0.02 42.0 (PRI 29)) (BOX (296.0 116.0 84.0 20.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 6.0 (PRI 30)) (WIRE ((284 . 160) (296 . 160)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 8.0 (PRI 31)) (WIRE ((280 . 132) (296 . 132)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 32)) (TEXT (216.0 . 80.0) ("alink !=clink") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((216 77.0 62 12)) BLACK)) ((0.0 40.0 (PRI 33)) (CLOSEDWIRE ((212 . 92) (292 . 92) (284 . 80) (292 . 72) (212 . 72)) (ROUND 1 BLACK) NIL 1 NIL NIL)) ((0.05 12.0 (PRI 34)) (TEXT (304.0 . 88.0) ("decusecount(alink)") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((304 85.0 88 12)) BLACK)) ((0.02 50.0 (PRI 35)) (BOX (300.0 80.0 100.0 20.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 8.0 (PRI 36)) (WIRE ((284 . 92) (300 . 92)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 37)) (TEXT (20.0 . 400.0) ("DECUSECOUNT(FRAME)") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((20 397.0 110 12)) BLACK)) ((0.05 12.0 (PRI 38)) (TEXT (216.0 . 48.0) ("frame= clink") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((216 45.0 63 12)) BLACK)) ((0.016 36.0 (PRI 39)) (BOX (212.0 44.0 72.0 16.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 126.0 (PRI 40)) (WIRE ((212 . 304) (212 . 52)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 16.0 (PRI 41)) (WIRE ((188 . 348) (220 . 348)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 10.0 (PRI 42)) (WIRE ((192 . 320) (212 . 320)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)))
(0.0 0.0 484.0 420.0)
1.0
4
(PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((TEXT NIL NIL (0 0 612 792) NIL)))(?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
 SKIO.GETFN.2