DEFINE-FILE-INFO with its own reader environment (#381)
* DEFINE-FILE-INFO with its own reader environment Including format. That reader environment also allows colon as a package delimiter, in addition to the funky control and upper panel character. "Function" is now a synonym for character set 2. WITH-READER-ENVIRONMENT doesn't bind EXTERNALFORMAT. * Changed *DEFAULT-MAKEFILE-ENVIRONMENT* to use Interlisp rdtbl * Store FDEV's default externalformat in the FDEV And related adjustments so that the display output stream (which is created in various places) is always created with the right (CR) EOL convention. Also a little simpler interface for creating external formats.
This commit is contained in:
rmkaplan
GitHub
@@ -1,36 +1,36 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "18-Apr-94 00:20:42" {DSK}<users>nilsson>mnw>LLDISPLAY.;7 267646
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 1-Aug-2021 23:41:37"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;5 268898
|
||||
|
||||
changes to%: (FNS \BACKCOLOR.DISPLAY DSPTEXTURE \DSPRESET.DISPLAY \MEDW.XOFFSET \MEDW.YOFFSET
|
||||
DSPXOFFSET DSPYOFFSET)
|
||||
(VARS LLDISPLAYCOMS)
|
||||
changes to%: (FNS DSPCREATE)
|
||||
|
||||
previous date%: "25-Feb-94 17:56:47" {DSK}<users>nilsson>mnw>LLDISPLAY.;6)
|
||||
previous date%: " 1-Aug-2021 23:37:06"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;4)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993, 1994 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LLDISPLAYCOMS)
|
||||
|
||||
(RPAQQ LLDISPLAYCOMS
|
||||
(RPAQQ LLDISPLAYCOMS
|
||||
[(DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE DISPLAYINFO)
|
||||
(MACROS \GETDISPLAYDATA)))
|
||||
(* ;
|
||||
"User-visible records are on ADISPLAY --- must be init'ed here")
|
||||
(* ;
|
||||
"User-visible records are on ADISPLAY --- must be init'ed here")
|
||||
(INITRECORDS BITMAP PILOTBBT REGION \DISPLAYDATA)
|
||||
[COMS (* ; "BITMASKS")
|
||||
[COMS (* ; "BITMASKS")
|
||||
(FNS \FBITMAPBIT \FBITMAPBIT.UFN \NEWPAGE.DISPLAY INITBITMASKS)
|
||||
(OPTIMIZERS \FBITMAPBIT)
|
||||
[EXPORT (DECLARE%: DONTCOPY (MACROS \BITMASK \4BITMASK \NOTBITMASK \NOT4BITMASK)
|
||||
(GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY)
|
||||
(CONSTANTS (WORDMASK 65535]
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITBITMASKS]
|
||||
[COMS (* ; "init cursor")
|
||||
[COMS (* ; "init cursor")
|
||||
(FNS \CreateCursorBitMap)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CursorBitMap (\CreateCursorBitMap]
|
||||
[COMS (* ; "bitmap functions.")
|
||||
[COMS (* ; "bitmap functions.")
|
||||
(FNS BITBLT BLTSHADE \BITBLTSUB \GETPILOTBBTSCRATCHBM BITMAPCOPY BITMAPCREATE BITMAPBIT
|
||||
BLTCHAR \BLTCHAR \MEDW.BLTCHAR \CHANGECHARSET.DISPLAY \INDICATESTRING \SLOWBLTCHAR
|
||||
TEXTUREP INVERT.TEXTURE INVERT.TEXTURE.BITMAP BITMAPWIDTH READBITMAP
|
||||
@@ -45,15 +45,15 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(FNS BITMAPBIT.EXPANDER)
|
||||
(FNS \BITBLT.DISPLAY \BITBLT.BITMAP \BITBLT.MERGE \BLTSHADE.DISPLAY \BLTSHADE.BITMAP)
|
||||
(FNS
|
||||
(* ;; "For SunLoadup")
|
||||
(* ;; "For SunLoadup")
|
||||
|
||||
\BITBLT.BITMAP.SLOW)
|
||||
(FNS
|
||||
(* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap")
|
||||
(* ;; " punt case for C funcs.bitblt_bitmap,bitshade.bitmap")
|
||||
|
||||
\PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP)
|
||||
(FNS
|
||||
(* ;; "from SUMEX-AIM")
|
||||
(* ;; "from SUMEX-AIM")
|
||||
|
||||
\SCALEDBITBLT.DISPLAY \BACKCOLOR.DISPLAY)
|
||||
(DECLARE%: DONTCOPY (CONSTANTS (\DisplayWordAlign 16)
|
||||
@@ -66,11 +66,11 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(VARS (\BBSCRATCHTEXTURE)
|
||||
(\PILOTBBTSCRATCHBM))
|
||||
[DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? 'BITBLT 'BKBITBLT]
|
||||
(* ;
|
||||
"macro for this file so that BITBLT can be broken by users")
|
||||
(* ;
|
||||
"macro for this file so that BITBLT can be broken by users")
|
||||
(EXPORT (DECLARE%: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE
|
||||
(P (PUTPROP 'BITBLT 'MACRO '(= . BKBITBLT]
|
||||
(COMS (* ; "display stream functions")
|
||||
(COMS (* ; "display stream functions")
|
||||
(FNS DISPLAYSTREAMP DSPSOURCETYPE DSPXOFFSET DSPYOFFSET)
|
||||
(FNS DSPCREATE DSPDESTINATION DSPTEXTURE \DISPLAYSTREAMINCRXPOSITION \SFFixDestination
|
||||
\SFFixClippingRegion \SFFixFont \SFFIXLINELENGTH
|
||||
@@ -86,14 +86,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(INITVARS (PROMPTWINDOW T)
|
||||
(\WINDOWWORLD NIL)
|
||||
(\MAINSCREEN NIL)))
|
||||
[COMS (* ; "Stub for window package")
|
||||
[COMS (* ; "Stub for window package")
|
||||
(INITVARS (\TOPWDS)
|
||||
(\SCREENBITMAPS))
|
||||
(P (MOVD? 'NILL '\TOTOPWDS))
|
||||
(DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (MACROS \INSURETOPWDS .WHILE.TOP.DS.
|
||||
.WHILE.CURSOR.DOWN.)
|
||||
(ADDVARS (GLOBALVARS \TOPWDS]
|
||||
(COMS (* ; "DisplayStream TTY functions")
|
||||
(COMS (* ; "DisplayStream TTY functions")
|
||||
(FNS TTYDISPLAYSTREAM)
|
||||
(EXPORT (OPTIMIZERS TTYDISPLAYSTREAM))
|
||||
(FNS DSPSCROLL PAGEHEIGHT)
|
||||
@@ -114,13 +114,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(EXPORT (GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout
|
||||
\CARET.UP)
|
||||
(MACROS \CHECKCARET)))
|
||||
[COMS (* ;
|
||||
"transformation related functions.")
|
||||
[COMS (* ;
|
||||
"transformation related functions.")
|
||||
(FNS \DSPCLIPTRANSFORMX \DSPCLIPTRANSFORMY \DSPTRANSFORMREGION \DSPUNTRANSFORMY
|
||||
\DSPUNTRANSFORMX \OFFSETCLIPPINGREGION)
|
||||
(DECLARE%: DONTCOPY (EXPORT (MACROS \DSPTRANSFORMX \DSPTRANSFORMY \OFFSETBOTTOM
|
||||
\OFFSETLEFT]
|
||||
[COMS (* ; "screen related functions")
|
||||
[COMS (* ; "screen related functions")
|
||||
(FNS UPDATESCREENDIMENSIONS \CreateScreenBitMap)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (UPDATESCREENDIMENSIONS))
|
||||
(INITVARS (SCREENHEIGHT 808)
|
||||
@@ -132,7 +132,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(ColorScreenBitMap NIL)))
|
||||
(GLOBALVARS \OLDSCREENHEIGHT \OLDSCREENWIDTH \MaxScreenPage ScreenBitMap)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (CURSOR.INIT]
|
||||
[COMS (* ; "initialization")
|
||||
[COMS (* ; "initialization")
|
||||
(INITVARS (\DISPLAYINFOALIST))
|
||||
(FNS \CoerceToDisplayDevice \CREATEDISPLAY DISPLAYSTREAMINIT \STARTDISPLAY
|
||||
\MOVE.WINDOWS.ONTO.SCREEN \UPDATE.PBT.RASTERWIDTHS \STOPDISPLAY \DEFINEDISPLAYINFO
|
||||
@@ -301,19 +301,19 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
'68)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS \GETDISPLAYDATA MACRO (ARGS (COND
|
||||
[(CADR ARGS)
|
||||
(SUBPAIR '(STRM STRMVAR)
|
||||
ARGS
|
||||
'(\DTEST (fetch (STREAM IMAGEDATA)
|
||||
of (SETQ STRMVAR (\OUTSTREAMARG
|
||||
STRM)))
|
||||
'\DISPLAYDATA]
|
||||
(T (SUBST (CAR ARGS)
|
||||
'STRM
|
||||
'(\DTEST (fetch (STREAM IMAGEDATA)
|
||||
of (\OUTSTREAMARG STRM))
|
||||
'\DISPLAYDATA]
|
||||
(PUTPROPS \GETDISPLAYDATA MACRO [ARGS (COND
|
||||
[(CADR ARGS)
|
||||
(SUBPAIR '(STRM STRMVAR)
|
||||
ARGS
|
||||
'(\DTEST (fetch (STREAM IMAGEDATA)
|
||||
of (SETQ STRMVAR
|
||||
(\OUTSTREAMARG STRM)))
|
||||
'\DISPLAYDATA]
|
||||
(T (SUBST (CAR ARGS)
|
||||
'STRM
|
||||
'(\DTEST (fetch (STREAM IMAGEDATA)
|
||||
of (\OUTSTREAMARG STRM))
|
||||
'\DISPLAYDATA])
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -490,18 +490,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS \BITMASK MACRO ((N)
|
||||
(\WORDELT BITMASKARRAY (LOGAND N 15]
|
||||
(PUTPROPS \BITMASK MACRO ((N)
|
||||
(\WORDELT BITMASKARRAY (LOGAND N 15))))
|
||||
|
||||
[PUTPROPS \4BITMASK MACRO ((N)
|
||||
(\WORDELT 4BITMASKARRAY (LOGAND N 3]
|
||||
(PUTPROPS \4BITMASK MACRO ((N)
|
||||
(\WORDELT 4BITMASKARRAY (LOGAND N 3))))
|
||||
|
||||
[PUTPROPS \NOTBITMASK MACRO ((N)
|
||||
(DECLARE (GLOBALVARS NOTBITMASKARRAY))
|
||||
(\WORDELT NOTBITMASKARRAY (LOGAND N 15]
|
||||
(PUTPROPS \NOTBITMASK MACRO ((N)
|
||||
(DECLARE (GLOBALVARS NOTBITMASKARRAY))
|
||||
(\WORDELT NOTBITMASKARRAY (LOGAND N 15))))
|
||||
|
||||
[PUTPROPS \NOT4BITMASK MACRO ((N)
|
||||
(\WORDELT NOT4BITMASKARRAY (LOGAND N 3]
|
||||
(PUTPROPS \NOT4BITMASK MACRO ((N)
|
||||
(\WORDELT NOT4BITMASKARRAY (LOGAND N 3))))
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -1482,14 +1482,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
|
||||
(CL:DEFUN FINISH-READING-BITMAP (STREAM)
|
||||
|
||||
(* ;;; "The syntax for bitmaps is")
|
||||
(* ;;; "The syntax for bitmaps is")
|
||||
|
||||
(* ;; "#*(width height [bits-per-pixel])XXXXXX...")
|
||||
(* ;; "#*(width height [bits-per-pixel])XXXXXX...")
|
||||
|
||||
(* ;;; "where WIDTH and HEIGHT are the dimensions of the bitmap, BITS-PER-PIXEL can be omitted if it is equal to one, and the X's are single characters between @ and O (in ASCII), each representing four bits. There will be exactly (* (ceiling (* WIDTH BITS-PER-PIXEL) 16) 4) characters for each row of the bitmap and exactly HEIGHT rows. Note that there are no spaces allowed between the * and the (, between the ) and the first X, or anywhere inside the string of X's. Also, the character after the last X must not be of type OTHER.")
|
||||
(* ;;; "where WIDTH and HEIGHT are the dimensions of the bitmap, BITS-PER-PIXEL can be omitted if it is equal to one, and the X's are single characters between @ and O (in ASCII), each representing four bits. There will be exactly (* (ceiling (* WIDTH BITS-PER-PIXEL) 16) 4) characters for each row of the bitmap and exactly HEIGHT rows. Note that there are no spaces allowed between the * and the (, between the ) and the first X, or anywhere inside the string of X's. Also, the character after the last X must not be of type OTHER.")
|
||||
|
||||
(* ;;;
|
||||
"When we enter this function, called from HASH-STAR, the stream should be pointing at the (.")
|
||||
(* ;;;
|
||||
"When we enter this function, called from HASH-STAR, the stream should be pointing at the (.")
|
||||
|
||||
(LET
|
||||
((DIMENSIONS (READ STREAM)))
|
||||
@@ -1499,7 +1499,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DESTRUCTURING-BIND
|
||||
(WIDTH HEIGHT &OPTIONAL (BITS-PER-PIXEL 1)
|
||||
&REST EXTRAS)
|
||||
DIMENSIONS (* ; "Parsing the dimensions.")
|
||||
DIMENSIONS (* ; "Parsing the dimensions.")
|
||||
(IF (OR (NOT (FIXP WIDTH))
|
||||
(NOT (FIXP HEIGHT))
|
||||
(NOT (FIXP BITS-PER-PIXEL))
|
||||
@@ -1518,7 +1518,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(LET [(STREAM (\GETSTREAM STREAM 'INPUT]
|
||||
(CL:DOTIMES (ROW HEIGHT)
|
||||
[IF (ZEROP (FETCH (STREAM CHARSET) OF STREAM))
|
||||
THEN (* ; "Do it the quicker way")
|
||||
THEN (* ; "Do it the quicker way")
|
||||
(CL:DOTIMES (QUAD QUAD-CHARS-PER-ROW)
|
||||
(LET [(NIB00 (- (\BIN STREAM)
|
||||
(CHARCODE @)))
|
||||
@@ -1540,7 +1540,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(\PUTBASEBYTE BASE 1 (LOGOR (LLSH NIB10 4)
|
||||
NIB11)))
|
||||
(SETQ BASE (\ADDBASE BASE 1)))
|
||||
ELSE (* ; "Somewhat slower...")
|
||||
ELSE (* ; "Somewhat slower...")
|
||||
(CL:DOTIMES (QUAD QUAD-CHARS-PER-ROW)
|
||||
(LET [(NIB00 (- (READCCODE STREAM)
|
||||
(CHARCODE @)))
|
||||
@@ -1578,16 +1578,16 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA)
|
||||
(PUTPROPS \INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA)
|
||||
|
||||
(* This marks the character-printing caches of the displaystream as invalid.
|
||||
Needed when the font or Y position changes)
|
||||
(* This marks the character-printing caches of the displaystream as invalid.
|
||||
Needed when the font or Y position changes)
|
||||
|
||||
(freplace (\DISPLAYDATA DDCHARSET) of DISPLAYDATA
|
||||
with MAX.SMALLP)
|
||||
(freplace (\DISPLAYDATA DDCHARSETASCENT) of
|
||||
(freplace (\DISPLAYDATA DDCHARSET) of
|
||||
DISPLAYDATA
|
||||
with MAX.SMALLP)))
|
||||
with MAX.SMALLP)
|
||||
(freplace (\DISPLAYDATA DDCHARSETASCENT)
|
||||
of DISPLAYDATA with MAX.SMALLP)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -1599,8 +1599,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
|
||||
(DEFOPTIMIZER BITMAPP (Y)
|
||||
`((OPENLAMBDA (X)
|
||||
(AND (type? BITMAP X)
|
||||
X))
|
||||
(AND (type? BITMAP X)
|
||||
X))
|
||||
,Y))
|
||||
(DEFINEQ
|
||||
|
||||
@@ -2759,59 +2759,62 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \DSPGETCHARWIDTH MACRO ((CHARCODE DD)
|
||||
(\FGETWIDTH (ffetch (\DISPLAYDATA DDWIDTHSCACHE) of DD)
|
||||
CHARCODE)))
|
||||
(PUTPROPS \DSPGETCHARWIDTH MACRO ((CHARCODE DD)
|
||||
(\FGETWIDTH (ffetch (\DISPLAYDATA DDWIDTHSCACHE)
|
||||
of DD)
|
||||
CHARCODE)))
|
||||
|
||||
(PUTPROPS \DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD)
|
||||
(\FGETIMAGEWIDTH (ffetch (\DISPLAYDATA DDCHARIMAGEWIDTHS)
|
||||
of DD)
|
||||
CHARCODE)))
|
||||
(PUTPROPS \DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD)
|
||||
(\FGETIMAGEWIDTH (ffetch (\DISPLAYDATA
|
||||
DDCHARIMAGEWIDTHS)
|
||||
of DD)
|
||||
CHARCODE)))
|
||||
|
||||
(PUTPROPS \DSPGETCHAROFFSET MACRO ((CHARCODE DD)
|
||||
(\GETBASE (ffetch (\DISPLAYDATA DDOFFSETSCACHE) of DD)
|
||||
CHARCODE)))
|
||||
(PUTPROPS \DSPGETCHAROFFSET MACRO ((CHARCODE DD)
|
||||
(\GETBASE (ffetch (\DISPLAYDATA DDOFFSETSCACHE)
|
||||
of DD)
|
||||
CHARCODE)))
|
||||
|
||||
(PUTPROPS \CONVERTOP MACRO ((OP) (* rrb "14-NOV-80 11:14")
|
||||
(* Only for alto bitblt !!)
|
||||
(SELECTQ OP
|
||||
(replace 0 of NIL with NIL)
|
||||
(PAINT 1)
|
||||
(INVERT 2)
|
||||
(ERASE 3)
|
||||
0)))
|
||||
(PUTPROPS \CONVERTOP MACRO ((OP) (* rrb "14-NOV-80 11:14")
|
||||
(* Only for alto bitblt !!)
|
||||
(SELECTQ OP
|
||||
(replace 0 of NIL with NIL)
|
||||
(PAINT 1)
|
||||
(INVERT 2)
|
||||
(ERASE 3)
|
||||
0)))
|
||||
|
||||
(PUTPROPS \SFInvert MACRO ((BitMap y)
|
||||
(PUTPROPS \SFInvert MACRO ((BitMap y)
|
||||
|
||||
(* corrects for the fact that alto bitmaps are stored with 0,0 as upper left
|
||||
while lisp bitmaps have 0,0 as lower left.
|
||||
The correction is actually off by one (greater) because a majority of the
|
||||
places that it is called actually need one more than corrected Y value.)
|
||||
(* corrects for the fact that alto bitmaps are stored with 0,0 as upper left
|
||||
while lisp bitmaps have 0,0 as lower left.
|
||||
The correction is actually off by one (greater) because a majority of the
|
||||
places that it is called actually need one more than corrected Y value.)
|
||||
|
||||
(IDIFFERENCE (fetch (BITMAP BITMAPHEIGHT) of BitMap)
|
||||
y)))
|
||||
(IDIFFERENCE (fetch (BITMAP BITMAPHEIGHT) of BitMap)
|
||||
y)))
|
||||
|
||||
[PUTPROPS \SFReplicate MACRO (LAMBDA (pattern)
|
||||
(LOGOR pattern (LLSH pattern 8)
|
||||
(SETQ pattern (LLSH pattern 4))
|
||||
(LLSH pattern 8]
|
||||
(PUTPROPS \SFReplicate MACRO [LAMBDA (pattern)
|
||||
(LOGOR pattern (LLSH pattern 8)
|
||||
(SETQ pattern (LLSH pattern 4))
|
||||
(LLSH pattern 8])
|
||||
|
||||
[PUTPROPS \SETPBTFUNCTION MACRO (OPENLAMBDA (BBT SourceType Operation)
|
||||
(PROGN (replace (PILOTBBT PBTOPERATION) of BBT
|
||||
with (SELECTQ Operation
|
||||
(ERASE 1)
|
||||
(PAINT 2)
|
||||
(INVERT 3)
|
||||
0))
|
||||
(replace (PILOTBBT PBTSOURCETYPE) of BBT
|
||||
with (COND
|
||||
((EQ (EQ SourceType 'INVERT)
|
||||
(EQ Operation 'ERASE))
|
||||
0)
|
||||
(T 1]
|
||||
(PUTPROPS \SETPBTFUNCTION MACRO [OPENLAMBDA (BBT SourceType Operation)
|
||||
(PROGN (replace (PILOTBBT PBTOPERATION) of BBT
|
||||
with (SELECTQ Operation
|
||||
(ERASE 1)
|
||||
(PAINT 2)
|
||||
(INVERT 3)
|
||||
0))
|
||||
(replace (PILOTBBT PBTSOURCETYPE) of BBT
|
||||
with (COND
|
||||
((EQ (EQ SourceType 'INVERT)
|
||||
(EQ Operation 'ERASE))
|
||||
0)
|
||||
(T 1])
|
||||
|
||||
(PUTPROPS \BITBLT1 MACRO ((bbt)
|
||||
(BitBltSUBR bbt)))
|
||||
(PUTPROPS \BITBLT1 MACRO ((bbt)
|
||||
(BitBltSUBR bbt)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -2897,9 +2900,9 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DEFINEQ
|
||||
|
||||
(DSPCREATE
|
||||
[LAMBDA (DESTINATION) (* ; "Edited 16-Nov-87 17:32 by jop")
|
||||
[LAMBDA (DESTINATION) (* ; "Edited 1-Aug-2021 23:41 by rmk:")
|
||||
|
||||
(* ;; "Creates a stream-of-type-display on the DESTINATION bitmap or display device")
|
||||
(* ;; "Creates a stream-of-type-display on the DESTINATION bitmap or display device")
|
||||
|
||||
(LET (DSTRM)
|
||||
[COND
|
||||
@@ -2909,24 +2912,25 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(SETQ DSTRM (create STREAM
|
||||
USERCLOSEABLE _ NIL
|
||||
OUTCHARFN _ (FUNCTION \DSPPRINTCHAR)
|
||||
EOLCONVENTION _ CR.EOLC
|
||||
IMAGEDATA _ (create \DISPLAYDATA)
|
||||
IMAGEOPS _ \DISPLAYIMAGEOPS
|
||||
DEVICE _ DisplayFDEV
|
||||
ACCESS _ 'OUTPUT)) (* ;
|
||||
"initial x and y positions are 0 when the data is created.")
|
||||
(DSPFONT DEFAULTFONT DSTRM) (* ;
|
||||
"dspfont can win since the (default) display imageops are filled in the stream")
|
||||
(DSPDESTINATION DESTINATION DSTRM) (* ;
|
||||
"dspdestination calls \SFFixFont, which presumes there is a font present.")
|
||||
ACCESS _ 'OUTPUT)) (* ;
|
||||
"initial x and y positions are 0 when the data is created.")
|
||||
(DSPFONT DEFAULTFONT DSTRM) (* ;
|
||||
"dspfont can win since the (default) display imageops are filled in the stream")
|
||||
(DSPDESTINATION DESTINATION DSTRM) (* ;
|
||||
"dspdestination calls \SFFixFont, which presumes there is a font present.")
|
||||
(DSPFONT DEFAULTFONT DSTRM)
|
||||
|
||||
(* ;; "the reference to SCREENWIDTH here is for historic reasons: until 3-feb-86 the default right margin was always SCREENWIDTH. It should be the width of the destination and for any destination larger than the screen this is a serious bug and was fixed. The MAX of the right value and SCREENWIDTH was left in because existing code might be assumine a large right margin for small bitmaps and auto-CR in without it. rrb")
|
||||
(* ;; "the reference to SCREENWIDTH here is for historic reasons: until 3-feb-86 the default right margin was always SCREENWIDTH. It should be the width of the destination and for any destination larger than the screen this is a serious bug and was fixed. The MAX of the right value and SCREENWIDTH was left in because existing code might be assumine a large right margin for small bitmaps and auto-CR in without it. rrb")
|
||||
|
||||
(DSPRIGHTMARGIN (MAX SCREENWIDTH (fetch (BITMAP BITMAPWIDTH) of DESTINATION))
|
||||
DSTRM)
|
||||
(DSPSOURCETYPE 'INPUT DSTRM)
|
||||
(DSPOPERATION 'REPLACE DSTRM) (* ;
|
||||
"called to cause the updating of the bitblt table from the fields initialized earlier.")
|
||||
(DSPOPERATION 'REPLACE DSTRM) (* ;
|
||||
"called to cause the updating of the bitblt table from the fields initialized earlier.")
|
||||
DSTRM])
|
||||
|
||||
(DSPDESTINATION
|
||||
@@ -3347,61 +3351,66 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DECLARE%: DONTCOPY EVAL@COMPILE
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PROGN [PUTPROPS \INSURETOPWDS DMACRO (OPENLAMBDA (DS)
|
||||
(OR (EQ DS \TOPWDS)
|
||||
(COND
|
||||
((FMEMB (DSPDESTINATION NIL DS)
|
||||
\SCREENBITMAPS)
|
||||
(\TOTOPWDS DS]
|
||||
(PUTPROPS \INSURETOPWDS MACRO ((DS) (* For non-window implementations)
|
||||
(PROGN]
|
||||
[PROGN (PUTPROPS \INSURETOPWDS DMACRO [OPENLAMBDA (DS)
|
||||
(OR (EQ DS \TOPWDS)
|
||||
(COND
|
||||
((FMEMB (DSPDESTINATION NIL DS)
|
||||
\SCREENBITMAPS)
|
||||
(\TOTOPWDS DS])
|
||||
(PUTPROPS \INSURETOPWDS MACRO ((DS) (* For non-window implementations)
|
||||
(PROGN)))]
|
||||
|
||||
[PUTPROPS .WHILE.TOP.DS. MACRO ((FIRST . REST)
|
||||
(PROG (DISPINTERRUPT SOFTCURSORUP)
|
||||
(PUTPROPS .WHILE.TOP.DS. MACRO [(FIRST . REST)
|
||||
(PROG (DISPINTERRUPT SOFTCURSORUP)
|
||||
|
||||
(* FIRST should be a displaystream and a variable.
|
||||
This macro may also take a soft cursor down, similar to the way
|
||||
.WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the
|
||||
soft cursor's destination. *)
|
||||
(* FIRST should be a displaystream and a variable.
|
||||
This macro may also take a soft cursor down, similar to the way
|
||||
.WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the
|
||||
soft cursor's destination. *)
|
||||
|
||||
[COND
|
||||
(\SOFTCURSORP (SETQ SOFTCURSORUP
|
||||
(AND \SOFTCURSORUPP (EQ (DSPDESTINATION
|
||||
NIL FIRST)
|
||||
\CURSORDESTINATION)))
|
||||
(COND
|
||||
(SOFTCURSORUP (SETQ DISPINTERRUPT (\GETBASE
|
||||
[COND
|
||||
(\SOFTCURSORP (SETQ SOFTCURSORUP
|
||||
(AND \SOFTCURSORUPP
|
||||
(EQ (DSPDESTINATION NIL
|
||||
FIRST)
|
||||
\CURSORDESTINATION)))
|
||||
(COND
|
||||
(SOFTCURSORUP (SETQ DISPINTERRUPT
|
||||
(\GETBASE \EM.DISPINTERRUPT
|
||||
0))
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0 0)
|
||||
(\SOFTCURSORDOWN]
|
||||
(\INSURETOPWDS FIRST)
|
||||
(PROGN . REST)
|
||||
(COND
|
||||
(SOFTCURSORUP (\SOFTCURSORUPCURRENT)
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT])
|
||||
|
||||
(PUTPROPS .WHILE.CURSOR.DOWN. MACRO [(FIRST . REST)
|
||||
(PROG (DISPINTERRUPT SOFTCURSORUP)
|
||||
|
||||
(* This macro should wrap around any code that draws or bitblts directly from
|
||||
or to a screen bitmap. E.g. DRAWGRAYBOX in HLDISPLAY which puts up a shadow box
|
||||
during GETREGION. The purpose of this macro is that a soft
|
||||
(e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST
|
||||
are done. *)
|
||||
|
||||
[COND
|
||||
(\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP
|
||||
)
|
||||
(COND
|
||||
(SOFTCURSORUP (SETQ DISPINTERRUPT
|
||||
(\GETBASE
|
||||
\EM.DISPINTERRUPT
|
||||
0))
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0 0)
|
||||
(\SOFTCURSORDOWN]
|
||||
(\INSURETOPWDS FIRST)
|
||||
(PROGN . REST)
|
||||
(COND
|
||||
(SOFTCURSORUP (\SOFTCURSORUPCURRENT)
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT]
|
||||
|
||||
[PUTPROPS .WHILE.CURSOR.DOWN. MACRO ((FIRST . REST)
|
||||
(PROG (DISPINTERRUPT SOFTCURSORUP)
|
||||
|
||||
(* This macro should wrap around any code that draws or bitblts directly from
|
||||
or to a screen bitmap. E.g. DRAWGRAYBOX in HLDISPLAY which puts up a shadow box
|
||||
during GETREGION. The purpose of this macro is that a soft
|
||||
(e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST
|
||||
are done. *)
|
||||
|
||||
[COND
|
||||
(\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP)
|
||||
(COND
|
||||
(SOFTCURSORUP (SETQ DISPINTERRUPT
|
||||
(\GETBASE \EM.DISPINTERRUPT 0)
|
||||
)
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0 0)
|
||||
(\SOFTCURSORDOWN]
|
||||
(PROGN FIRST . REST)
|
||||
(COND
|
||||
(SOFTCURSORUP (\SOFTCURSORUPCURRENT)
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT]
|
||||
0))
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0
|
||||
0)
|
||||
(\SOFTCURSORDOWN]
|
||||
(PROGN FIRST . REST)
|
||||
(COND
|
||||
(SOFTCURSORUP (\SOFTCURSORUPCURRENT)
|
||||
(\PUTBASE \EM.DISPINTERRUPT 0
|
||||
DISPINTERRUPT])
|
||||
)
|
||||
|
||||
(ADDTOVAR GLOBALVARS \TOPWDS)
|
||||
@@ -3592,9 +3601,9 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DEFMACRO \MAYBE-DRIBBLE-CHAR (DISPLAY-STREAM CHARCODE)
|
||||
"if we are dribbling, then dribble this character"
|
||||
|
||||
(* ;; "*DRIBBLE-OUTPUT* is a per-process special.")
|
||||
(* ;; "*DRIBBLE-OUTPUT* is a per-process special.")
|
||||
|
||||
(* ;; "Only dribble if *DRIBBLE-OUTPUT* is not NIL, and IS a stream; the NIL check is for speed, since the STREAMP is something like 30 of the time spent printing to the exec window!!")
|
||||
(* ;; "Only dribble if *DRIBBLE-OUTPUT* is not NIL, and IS a stream; the NIL check is for speed, since the STREAMP is something like 30 of the time spent printing to the exec window!!")
|
||||
|
||||
`(AND *DRIBBLE-OUTPUT* (STREAMP *DRIBBLE-OUTPUT*)
|
||||
(EQ ,DISPLAY-STREAM (TTYDISPLAYSTREAM))
|
||||
@@ -4019,8 +4028,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS \CHECKCARET MACRO ((X)
|
||||
(AND \CARET.UP (\CARET.DOWN X]
|
||||
(PUTPROPS \CHECKCARET MACRO ((X)
|
||||
(AND \CARET.UP (\CARET.DOWN X))))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -4120,21 +4129,21 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS \DSPTRANSFORMX MACRO ((X DD) (* transforms an x coordinate into
|
||||
the destination coordinate.)
|
||||
(IPLUS X (fetch (\DISPLAYDATA DDXOFFSET) of DD]
|
||||
(PUTPROPS \DSPTRANSFORMX MACRO ((X DD) (* transforms an x coordinate into
|
||||
the destination coordinate.)
|
||||
(IPLUS X (fetch (\DISPLAYDATA DDXOFFSET) of DD))))
|
||||
|
||||
[PUTPROPS \DSPTRANSFORMY MACRO ((Y DD) (* transforms an y coordinate into
|
||||
the destination coordinate.)
|
||||
(IPLUS Y (fetch (\DISPLAYDATA DDYOFFSET) of DD]
|
||||
(PUTPROPS \DSPTRANSFORMY MACRO ((Y DD) (* transforms an y coordinate into
|
||||
the destination coordinate.)
|
||||
(IPLUS Y (fetch (\DISPLAYDATA DDYOFFSET) of DD))))
|
||||
|
||||
(PUTPROPS \OFFSETBOTTOM MACRO ((X) (* gives the destination coordinate
|
||||
address of the origin.)
|
||||
(fetch (\DISPLAYDATA DDYOFFSET) of X)))
|
||||
(PUTPROPS \OFFSETBOTTOM MACRO ((X) (* gives the destination coordinate
|
||||
address of the origin.)
|
||||
(fetch (\DISPLAYDATA DDYOFFSET) of X)))
|
||||
|
||||
(PUTPROPS \OFFSETLEFT MACRO ((DD) (* returns the x origin of display
|
||||
data destination coordinates.)
|
||||
(fetch (\DISPLAYDATA DDXOFFSET) of DD)))
|
||||
(PUTPROPS \OFFSETLEFT MACRO ((DD) (* returns the x origin of display
|
||||
data destination coordinates.)
|
||||
(fetch (\DISPLAYDATA DDXOFFSET) of DD)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -4467,10 +4476,10 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
)
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now)
|
||||
T))
|
||||
(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now)
|
||||
T))
|
||||
|
||||
(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
|
||||
(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
@@ -4507,7 +4516,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(DISPLAYSTREAMINIT 1000)
|
||||
)
|
||||
|
||||
(PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE)
|
||||
(PUTPROPS LLDISPLAY FILETYPE COMPILE-FILE)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA )
|
||||
@@ -4517,44 +4526,44 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1993,
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988
|
||||
1989 1990 1993 1994))
|
||||
1989 1990 1993 1994 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (20593 23261 (\FBITMAPBIT 20603 . 21063) (\FBITMAPBIT.UFN 21065 . 22084) (
|
||||
\NEWPAGE.DISPLAY 22086 . 22221) (INITBITMASKS 22223 . 23259)) (25222 25731 (\CreateCursorBitMap 25232
|
||||
. 25729)) (25848 84908 (BITBLT 25858 . 36248) (BLTSHADE 36250 . 37028) (\BITBLTSUB 37030 . 47165) (
|
||||
\GETPILOTBBTSCRATCHBM 47167 . 47782) (BITMAPCOPY 47784 . 48360) (BITMAPCREATE 48362 . 49922) (
|
||||
BITMAPBIT 49924 . 58311) (BLTCHAR 58313 . 58929) (\BLTCHAR 58931 . 59433) (\MEDW.BLTCHAR 59435 . 64313
|
||||
) (\CHANGECHARSET.DISPLAY 64315 . 67273) (\INDICATESTRING 67275 . 68471) (\SLOWBLTCHAR 68473 . 75569)
|
||||
(TEXTUREP 75571 . 75841) (INVERT.TEXTURE 75843 . 76117) (INVERT.TEXTURE.BITMAP 76119 . 77654) (
|
||||
BITMAPWIDTH 77656 . 78028) (READBITMAP 78030 . 80512) (\INSUREBITSPERPIXEL 80514 . 80809) (
|
||||
MAXIMUMCOLOR 80811 . 80952) (OPPOSITECOLOR 80954 . 81133) (MAXIMUMSHADE 81135 . 81346) (OPPOSITESHADE
|
||||
81348 . 81527) (\MEDW.BITBLT 81529 . 84906)) (91458 91939 (BITMAPBIT.EXPANDER 91468 . 91937)) (91940
|
||||
140474 (\BITBLT.DISPLAY 91950 . 115189) (\BITBLT.BITMAP 115191 . 124290) (\BITBLT.MERGE 124292 .
|
||||
126545) (\BLTSHADE.DISPLAY 126547 . 133647) (\BLTSHADE.BITMAP 133649 . 140472)) (140475 149795 (
|
||||
\BITBLT.BITMAP.SLOW 140485 . 149793)) (149796 166177 (\PUNT.BLTSHADE.BITMAP 149806 . 156902) (
|
||||
\PUNT.BITBLT.BITMAP 156904 . 166175)) (166178 169618 (\SCALEDBITBLT.DISPLAY 166188 . 167821) (
|
||||
\BACKCOLOR.DISPLAY 167823 . 169616)) (173493 175766 (DISPLAYSTREAMP 173503 . 174111) (DSPSOURCETYPE
|
||||
174113 . 175122) (DSPXOFFSET 175124 . 175443) (DSPYOFFSET 175445 . 175764)) (175767 192014 (DSPCREATE
|
||||
175777 . 177827) (DSPDESTINATION 177829 . 180932) (DSPTEXTURE 180934 . 181096) (
|
||||
\DISPLAYSTREAMINCRXPOSITION 181098 . 181385) (\SFFixDestination 181387 . 182565) (\SFFixClippingRegion
|
||||
182567 . 184739) (\SFFixFont 184741 . 185791) (\SFFIXLINELENGTH 185793 . 187289) (
|
||||
\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187291 . 189104) (\SFFixY 189106 . 192012)) (192015 194209 (
|
||||
\MEDW.XOFFSET 192025 . 193166) (\MEDW.YOFFSET 193168 . 194207)) (194210 202136 (
|
||||
\DSPCLIPPINGREGION.DISPLAY 194220 . 194966) (\DSPFONT.DISPLAY 194968 . 197338) (\DISPLAY.PILOTBITBLT
|
||||
197340 . 197489) (\DSPLINEFEED.DISPLAY 197491 . 198062) (\DSPLEFTMARGIN.DISPLAY 198064 . 198795) (
|
||||
\DSPOPERATION.DISPLAY 198797 . 199821) (\DSPRIGHTMARGIN.DISPLAY 199823 . 200668) (
|
||||
\DSPXPOSITION.DISPLAY 200670 . 201527) (\DSPYPOSITION.DISPLAY 201529 . 202134)) (206297 211333 (
|
||||
TTYDISPLAYSTREAM 206307 . 211331)) (211652 212682 (DSPSCROLL 211662 . 212362) (PAGEHEIGHT 212364 .
|
||||
212680)) (212727 215749 (\DSPRESET.DISPLAY 212737 . 215747)) (216309 236947 (\DSPPRINTCHAR 216319 .
|
||||
224157) (\DSPPRINTCR/LF 224159 . 236945)) (236948 237540 (\TTYBACKGROUND 236958 . 237538)) (237541
|
||||
240828 (DSPBACKUP 237551 . 240826)) (241012 241268 (COLORDISPLAYP 241022 . 241266)) (241269 243340 (
|
||||
DISPLAYBEFOREEXIT 241279 . 242105) (DISPLAYAFTERENTRY 242107 . 243338)) (243701 248233 (
|
||||
\DSPCLIPTRANSFORMX 243711 . 244300) (\DSPCLIPTRANSFORMY 244302 . 245027) (\DSPTRANSFORMREGION 245029
|
||||
. 245561) (\DSPUNTRANSFORMY 245563 . 245823) (\DSPUNTRANSFORMX 245825 . 246085) (
|
||||
\OFFSETCLIPPINGREGION 246087 . 248231)) (249501 252088 (UPDATESCREENDIMENSIONS 249511 . 250140) (
|
||||
\CreateScreenBitMap 250142 . 252086)) (252647 265806 (\CoerceToDisplayDevice 252657 . 253070) (
|
||||
\CREATEDISPLAY 253072 . 254912) (DISPLAYSTREAMINIT 254914 . 258058) (\STARTDISPLAY 258060 . 260971) (
|
||||
\MOVE.WINDOWS.ONTO.SCREEN 260973 . 263165) (\UPDATE.PBT.RASTERWIDTHS 263167 . 264949) (\STOPDISPLAY
|
||||
264951 . 265443) (\DEFINEDISPLAYINFO 265445 . 265804)) (266398 267159 (INITIALIZEDISPLAYSTREAMS 266408
|
||||
. 267157)))))
|
||||
(FILEMAP (NIL (20543 23211 (\FBITMAPBIT 20553 . 21013) (\FBITMAPBIT.UFN 21015 . 22034) (
|
||||
\NEWPAGE.DISPLAY 22036 . 22171) (INITBITMASKS 22173 . 23209)) (25256 25765 (\CreateCursorBitMap 25266
|
||||
. 25763)) (25882 84942 (BITBLT 25892 . 36282) (BLTSHADE 36284 . 37062) (\BITBLTSUB 37064 . 47199) (
|
||||
\GETPILOTBBTSCRATCHBM 47201 . 47816) (BITMAPCOPY 47818 . 48394) (BITMAPCREATE 48396 . 49956) (
|
||||
BITMAPBIT 49958 . 58345) (BLTCHAR 58347 . 58963) (\BLTCHAR 58965 . 59467) (\MEDW.BLTCHAR 59469 . 64347
|
||||
) (\CHANGECHARSET.DISPLAY 64349 . 67307) (\INDICATESTRING 67309 . 68505) (\SLOWBLTCHAR 68507 . 75603)
|
||||
(TEXTUREP 75605 . 75875) (INVERT.TEXTURE 75877 . 76151) (INVERT.TEXTURE.BITMAP 76153 . 77688) (
|
||||
BITMAPWIDTH 77690 . 78062) (READBITMAP 78064 . 80546) (\INSUREBITSPERPIXEL 80548 . 80843) (
|
||||
MAXIMUMCOLOR 80845 . 80986) (OPPOSITECOLOR 80988 . 81167) (MAXIMUMSHADE 81169 . 81380) (OPPOSITESHADE
|
||||
81382 . 81561) (\MEDW.BITBLT 81563 . 84940)) (84944 90259 (FINISH-READING-BITMAP 84944 . 90259)) (
|
||||
91522 92003 (BITMAPBIT.EXPANDER 91532 . 92001)) (92004 140538 (\BITBLT.DISPLAY 92014 . 115253) (
|
||||
\BITBLT.BITMAP 115255 . 124354) (\BITBLT.MERGE 124356 . 126609) (\BLTSHADE.DISPLAY 126611 . 133711) (
|
||||
\BLTSHADE.BITMAP 133713 . 140536)) (140539 149859 (\BITBLT.BITMAP.SLOW 140549 . 149857)) (149860
|
||||
166241 (\PUNT.BLTSHADE.BITMAP 149870 . 156966) (\PUNT.BITBLT.BITMAP 156968 . 166239)) (166242 169682 (
|
||||
\SCALEDBITBLT.DISPLAY 166252 . 167885) (\BACKCOLOR.DISPLAY 167887 . 169680)) (174000 176273 (
|
||||
DISPLAYSTREAMP 174010 . 174618) (DSPSOURCETYPE 174620 . 175629) (DSPXOFFSET 175631 . 175950) (
|
||||
DSPYOFFSET 175952 . 176271)) (176274 192575 (DSPCREATE 176284 . 178388) (DSPDESTINATION 178390 .
|
||||
181493) (DSPTEXTURE 181495 . 181657) (\DISPLAYSTREAMINCRXPOSITION 181659 . 181946) (\SFFixDestination
|
||||
181948 . 183126) (\SFFixClippingRegion 183128 . 185300) (\SFFixFont 185302 . 186352) (\SFFIXLINELENGTH
|
||||
186354 . 187850) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187852 . 189665) (\SFFixY 189667 . 192573))
|
||||
(192576 194770 (\MEDW.XOFFSET 192586 . 193727) (\MEDW.YOFFSET 193729 . 194768)) (194771 202697 (
|
||||
\DSPCLIPPINGREGION.DISPLAY 194781 . 195527) (\DSPFONT.DISPLAY 195529 . 197899) (\DISPLAY.PILOTBITBLT
|
||||
197901 . 198050) (\DSPLINEFEED.DISPLAY 198052 . 198623) (\DSPLEFTMARGIN.DISPLAY 198625 . 199356) (
|
||||
\DSPOPERATION.DISPLAY 199358 . 200382) (\DSPRIGHTMARGIN.DISPLAY 200384 . 201229) (
|
||||
\DSPXPOSITION.DISPLAY 201231 . 202088) (\DSPYPOSITION.DISPLAY 202090 . 202695)) (207467 212503 (
|
||||
TTYDISPLAYSTREAM 207477 . 212501)) (212822 213852 (DSPSCROLL 212832 . 213532) (PAGEHEIGHT 213534 .
|
||||
213850)) (213897 216919 (\DSPRESET.DISPLAY 213907 . 216917)) (217479 238117 (\DSPPRINTCHAR 217489 .
|
||||
225327) (\DSPPRINTCR/LF 225329 . 238115)) (238118 238710 (\TTYBACKGROUND 238128 . 238708)) (238711
|
||||
241998 (DSPBACKUP 238721 . 241996)) (242182 242438 (COLORDISPLAYP 242192 . 242436)) (242439 244510 (
|
||||
DISPLAYBEFOREEXIT 242449 . 243275) (DISPLAYAFTERENTRY 243277 . 244508)) (244890 249422 (
|
||||
\DSPCLIPTRANSFORMX 244900 . 245489) (\DSPCLIPTRANSFORMY 245491 . 246216) (\DSPTRANSFORMREGION 246218
|
||||
. 246750) (\DSPUNTRANSFORMY 246752 . 247012) (\DSPUNTRANSFORMX 247014 . 247274) (
|
||||
\OFFSETCLIPPINGREGION 247276 . 249420)) (250728 253315 (UPDATESCREENDIMENSIONS 250738 . 251367) (
|
||||
\CreateScreenBitMap 251369 . 253313)) (253874 267033 (\CoerceToDisplayDevice 253884 . 254297) (
|
||||
\CREATEDISPLAY 254299 . 256139) (DISPLAYSTREAMINIT 256141 . 259285) (\STARTDISPLAY 259287 . 262198) (
|
||||
\MOVE.WINDOWS.ONTO.SCREEN 262200 . 264392) (\UPDATE.PBT.RASTERWIDTHS 264394 . 266176) (\STOPDISPLAY
|
||||
266178 . 266670) (\DEFINEDISPLAYINFO 266672 . 267031)) (267641 268402 (INITIALIZEDISPLAYSTREAMS 267651
|
||||
. 268400)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user