Interlisp.medley/docs/internal/sketches/LYRIC/SPEC/INCUSECOUNT.SKETCH

((SKETCH NIL VERSION 3 PRIRANGE  (41 . 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  12.0  (PRI 2))  (TEXT  (16.0 .  736.0)  ("\INCUSECOUNT (FRAME)") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((16  733.0 112 12)) BLACK))  ((0.05  12.0  (PRI 3))  (TEXT  (32.0 .  720.0)  ("struct  frameex1 *frame") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((32  717.0 113 12)) BLACK))  ((0.05  12.0  (PRI 4))  (TEXT  (16.0 .  624.0)  ("frame->alink "  "!=0") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((16.0  627.0 68 12)  (16.0  615.0 20 12)) BLACK))  ((0.0  40.0  (PRI 5))  (CLOSEDWIRE  ((8 . 640)  (88 . 640)  (80 . 624)  (88 . 608)  (8 . 608))  (ROUND 1 BLACK) NIL 1 NIL NIL))  ((0.05  12.0  (PRI 6))  (TEXT  (108.0 .  688.0)  ("INTERRUPTABLE "  "== NIL") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((108.0  691.0 79 12)  (108.0  679.0 37 12)) BLACK))  ((0.0  48.0  (PRI 7))  (CLOSEDWIRE  ((100 . 704)  (196 . 704)  (188 . 688)  (196 . 680)  (100 . 680))  (ROUND 1 BLACK) NIL 1 NIL NIL))  ((0.05  12.0  (PRI 8))  (TEXT  (108.0 .  648.0)  ("frame->usecount ++"  " >MAXSAFEUSECOUNT") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((108.0  651.0 106 12)  (108.0  639.0 110 12)) BLACK))  ((0.0  66.0  (PRI 9))  (CLOSEDWIRE  ((100 . 664)  (232 . 664)  (224 . 652)  (232 . 636)  (100 . 636))  (ROUND 1 BLACK) NIL 1 NIL NIL))  ((0.05  12.0  (PRI 10))  (TEXT  (256.0 .  660.0)  ("MPERROR") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((256  657.0 47 12)) BLACK))  ((0.024  32.0  (PRI 11))  (BOX  (248.0  652.0  64.0  24.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.05  12.0  (PRI 12))  (TEXT  (120.0 .  608.0)  ("scanptr = frame->nextblock") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((120  605.0 136 12)) BLACK))  ((0.016  78.0  (PRI 13))  (BOX  (116.0  600.0  156.0  16.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.05  12.0  (PRI 14))  (TEXT  (124.0 .  548.0)  ("scanptr->flags") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((124.0  545.0 70 12)) BLACK))  ((0.0  52.0  (PRI 15))  (CLOSEDWIRE  ((116 . 588)  (216 . 588)  (208 . 560)  (216 . 536)  (208 . 512)  (216 . 484)  (116 . 484))  (ROUND 1 BLACK) NIL 1 NIL NIL))  ((0.05  12.0  (PRI 18))  (TEXT  (172.0 .  532.0)  ("\STK.BF") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((172.0  529.0 35 12)) BLACK))  ((0.05  12.0  (PRI 19))  (TEXT  (132.0 .  576.0)  ("\STK.NOTFLAG") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((132.0  573.0 69 12)) BLACK))  ((0.05  12.0  (PRI 20))  (TEXT  (164.0 .  496.0)  ("default") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((164.0  493.0 35 12)) BLACK))  ((0.05  12.0  (PRI 21))  (TEXT  (240.0 .  488.0)  ("return(frame)") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((240.0  485.0 65 12)) BLACK))  ((0.05  12.0  (PRI 22))  (TEXT  (244.0 .  532.0)  ("break;") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((244.0  529.0 32 12)) BLACK))  ((0.05  12.0  (PRI 23))  (TEXT  (244.0 .  576.0)  ("do{ scanptr++;}"  "  while(scanptr->flags != STKBF") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((244  579.0 82 12)  (244  567.0 150 12)) BLACK))  ((0.032  84.0  (PRI 24))  (BOX  (236.0  560.0  168.0  32.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.02  24.0  (PRI 25))  (BOX  (236.0  524.0  48.0  20.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.02  40.0  (PRI 26))  (BOX  (236.0  480.0  80.0  20.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.05  12.0  (PRI 27))  (TEXT  (120.0 .  440.0)  ("CHECK: whether"  "scanptr->residual || (scanptr ->ivar= frame->nextblock)") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((120  443.0 78 12)  (120  431.0 266 12)) BLACK))  ((0.032  138.0  (PRI 28))  (BOX  (116.0  428.0  276.0  32.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.05  12.0  (PRI 29))  (TEXT  (124.0 .  408.0)  ("scanptr+=2") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((124.0  405.0 60 12)) BLACK))  ((0.05  12.0  (PRI 30))  (TEXT  (120.0 .  380.0)  ("scanptr->flags "  "==STKFX") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((120  383.0 72 12)  (120  371.0 50 12)) BLACK))  ((0.0  42.0  (PRI 31))  (CLOSEDWIRE  ((116 . 396)  (200 . 396)  (192 . 380)  (200 . 368)  (116 . 368))  (ROUND 1 BLACK) NIL 1 NIL NIL))  ((0.05  12.0  (PRI 32))  (TEXT  (228.0 .  392.0)  ("CHECK:whether"  "(scanptr-2 == scanptr->blink ||"  "( (scanpre-2)->residual &&"  "  (scanptr-2)->ivar == (scanptr->blink)->ivar"  "") 1  (LEFT BASELINE)  (MODERN 10  (MEDIUM REGULAR REGULAR))  ((228  413.0 76 12)  (228  401.0 147 12)  (228  389.0 123 12)  (228  377.0 216 12)  (228  365.0 0 12)) BLACK))  ((0.052  112.0  (PRI 34))  (BOX  (224.0  372.0  224.0  52.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.02  38.0  (PRI 35))  (BOX  (116.0  400.0  76.0  20.0)  (ROUND 1 BLACK) NIL 1  (NIL NIL NIL)))  ((0.0  114.0  (PRI 36))  (WIRE  ((116 . 608)  (116 . 380))  (ROUND 1 BLACK) NIL NIL 1 NIL NIL))  ((0.0  20.0  (PRI 37))  (WIRE  ((100 . 696)  (100 . 656))  (ROUND 1 BLACK) NIL NIL 1 NIL NIL))  ((0.0  12.0  (PRI 38))  (WIRE  ((220 . 664)  (244 . 664))  (ROUND 1 BLACK) NIL NIL 1 NIL NIL))  ((0.0  16.0  (PRI 39))  (WIRE  ((204 . 484)  (236 . 488))  (ROUND 1 BLACK) NIL NIL 1 NIL NIL))  ((0.0  16.0  (PRI 40))  (WIRE  ((192 . 396)  (224 . 396))  (ROUND 1 BLACK) NIL NIL 1 NIL NIL))  ((0.0  14.0  (PRI 41))  (WIRE  ((208 . 588)  (236 . 588))  (ROUND 1 BLACK) NIL NIL 1 NIL NIL)))
(0.0 278.0 471.0 502.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.2zº