Compare commits
11 Commits
medley-210
...
medley-210
| Author | SHA1 | Date | |
|---|---|---|---|
|
2615140ede | ||
|
77d772ae45 | ||
|
|
995c321f59 | ||
|
|
9d4a8796dd | ||
|
|
185ee4db70 | ||
|
|
f5205e23c6 | ||
|
|
b57438983b | ||
|
|
f4951abf4d | ||
|
d1fb141fa1 | ||
|
|
66624477f9 | ||
|
|
c810d2860b |
4
.gitignore
vendored
4
.gitignore
vendored
@@ -11,6 +11,10 @@ loadups/full.sysout
|
||||
loadups/*.dribble
|
||||
loadups/whereis.hash
|
||||
|
||||
# manual cross-reference files
|
||||
|
||||
*.IMPTR
|
||||
|
||||
#compiled code -- leave in for now
|
||||
|
||||
# *.lcom
|
||||
|
||||
133
internal/library/MAKE-PS
Normal file
133
internal/library/MAKE-PS
Normal file
@@ -0,0 +1,133 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 1-Sep-2021 21:13:57" {DSK}<home>larry>medley>internal>library>MAKE-PS.;6 5503
|
||||
|
||||
changes to%: (VARS MAKE-PSCOMS)
|
||||
(FNS MAKE-PS-INIT)
|
||||
|
||||
previous date%: "31-Aug-2021 22:30:13" {DSK}<home>larry>medley>internal>library>MAKE-PS.;4)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MAKE-PSCOMS)
|
||||
|
||||
(RPAQQ MAKE-PSCOMS
|
||||
[(FNS MAKE-PS MAKE-PS-INIT BADFILE)
|
||||
|
||||
(* ;; " Load known used image object types")
|
||||
|
||||
(FILES DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
|
||||
(ADVISE TEDIT.PROMPTPRINT)
|
||||
(INITVARS (BADFILESFILE)
|
||||
(BADFS)
|
||||
(BADFILES))
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAKE-PS-INIT])
|
||||
(DEFINEQ
|
||||
|
||||
(MAKE-PS
|
||||
[LAMBDA (TFILE PREFIX DEST REDOFLG TOPDIRLEN) (* ; "Edited 21-Aug-2021 20:56 by larry")
|
||||
(DECLARE (SPECVARS TFILE))
|
||||
(COND
|
||||
((DIRECTORYNAMEP TFILE)
|
||||
(SETQ TFILE (DIRECTORYNAME TFILE))
|
||||
[OR TOPDIRLEN (SETQ TOPDIRLEN (IPLUS 1 (CL:LENGTH (MKSTRING (FILENAMEFIELD TFILE 'DIRECTORY]
|
||||
[OR DEST (PROGN (ShellCommand (CONCAT "mkdir -p " (UNIX-GETENV "MEDLEYDIR")
|
||||
"/tmp/psfiles"))
|
||||
(SETQ DEST (MEDLEYDIR "tmp/psfiles"]
|
||||
|
||||
(* ;; "first deal with files in this directory")
|
||||
|
||||
(for X in (IF (EQ REDOFLG 'REV)
|
||||
THEN (REVERSE (DIRECTORY (CONCAT TFILE "*.TED*;")))
|
||||
ELSE (DIRECTORY (CONCAT TFILE "*.TED*;")))
|
||||
when (NOT (MEMB X BADFILES)) do (MAKE-PS X PREFIX DEST REDOFLG TOPDIRLEN))
|
||||
|
||||
(* ;; " then deal with subdirs ")
|
||||
|
||||
(for X in (IF (EQ REDOFLG 'REV)
|
||||
THEN (REVERSE (DIRECTORY (CONCAT TFILE "*")))
|
||||
ELSE (DIRECTORY (CONCAT TFILE "*")))
|
||||
when [for SKIP in '(">." ">internal>test" ">dinfo>")
|
||||
always (NOT (STRPOS SKIP (L-CASE X] when (DIRECTORYNAMEP X)
|
||||
do (MAKE-PS X PREFIX DEST REDOFLG TOPDIRLEN)))
|
||||
[(SETQ TFILE (INFILEP TFILE))
|
||||
(PROG ((PSFILE (PACKFILENAME.STRING 'EXTENSION (if (EQ REDOFLG 'IP)
|
||||
then 'IP
|
||||
else "PS")
|
||||
'NAME
|
||||
(CONCAT (OR PREFIX "")
|
||||
(if PREFIX
|
||||
then "-"
|
||||
else "")
|
||||
[PACK (SUBST '- '> (UNPACK (SUBSTRING (FILENAMEFIELD
|
||||
TFILE
|
||||
'DIRECTORY)
|
||||
(IPLUS 1 TOPDIRLEN)
|
||||
-1]
|
||||
"-"
|
||||
(FILENAMEFIELD TFILE 'NAME))
|
||||
'DIRECTORY DEST))
|
||||
(TEXTSTREAM))
|
||||
(if (MEMB TFILE BADFILES)
|
||||
then (RETURN))
|
||||
(if (AND (NOT REDOFLG)
|
||||
(INFILEP PSFILE))
|
||||
then (* ; " do nothing")
|
||||
(PRINTOUT T PSFILE " already there" T)
|
||||
elseif (EQ REDOFLG 'TEST)
|
||||
then (PRINTOUT T "TESTING " TFILE)
|
||||
(CLOSEF (OPENTEXTSTREAM TFILE))
|
||||
else (PRINTOUT T "Converting " TFILE "...")
|
||||
(TEDIT.FORMAT.HARDCOPY (SETQ TEXTSTREAM (OPENTEXTSTREAM TFILE))
|
||||
PSFILE T NIL NIL NIL (if (EQ REDOFLG 'IP)
|
||||
then 'INTERPRESS
|
||||
else 'POSTSCRIPT))
|
||||
(printout T " DONE" T)
|
||||
(CLOSEF? TEXTSTREAM]
|
||||
(T (PRINTOUT T "no such file " T])
|
||||
|
||||
(MAKE-PS-INIT
|
||||
[LAMBDA NIL (* ; "Edited 1-Sep-2021 16:27 by larry")
|
||||
(* ; " initialize")
|
||||
(SETQ BADFILESFILE (MEDLEYDIR "tmp" "badfiles.txt" T))
|
||||
(SETQ BADFS (OPENSTREAM BADFILESFILE 'APPEND))
|
||||
(POSTSCRIPT.INIT)
|
||||
(SETQ BADFILES (SUBSET (READFILE BADFILESFILE)
|
||||
(FUNCTION INFILEP])
|
||||
|
||||
(BADFILE
|
||||
[LAMBDA (X) (* ; "Edited 16-Aug-2021 13:14 by larry")
|
||||
([LAMBDA ($$1)
|
||||
(COND
|
||||
((FMEMB $$1 BADFILES)
|
||||
BADFILES)
|
||||
(T (NCONC1 BADFILES $$1]
|
||||
(OR X TFILE))
|
||||
(PRINT (OR X TFILE)
|
||||
BADFS)
|
||||
(FLUSHOUTPUT BADFS)
|
||||
(CLOSEF? TEXTSTREAM)
|
||||
(RETFROM 'MAKE-PS NIL])
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ;; " Load known used image object types")
|
||||
|
||||
|
||||
(FILESLOAD DOC-OBJECTS EQUATIONS IMINDEX IMNAME IMTEDIT IMTOOLS IMTRAN MATHTONS SKETCH)
|
||||
|
||||
[XCL:REINSTALL-ADVICE 'TEDIT.PROMPTPRINT :BEFORE '((:LAST (PRIN1 MSG T]
|
||||
|
||||
(READVISE TEDIT.PROMPTPRINT)
|
||||
|
||||
(RPAQ? BADFILESFILE )
|
||||
|
||||
(RPAQ? BADFS )
|
||||
|
||||
(RPAQ? BADFILES )
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(MAKE-PS-INIT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (786 5110 (MAKE-PS 796 . 4293) (MAKE-PS-INIT 4295 . 4731) (BADFILE 4733 . 5108)))))
|
||||
STOP
|
||||
BIN
internal/library/MAKE-PS.LCOM
Normal file
BIN
internal/library/MAKE-PS.LCOM
Normal file
Binary file not shown.
@@ -1,9 +1,9 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 6-Aug-2021 07:35:16" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2 1183
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "30-Aug-2021 16:04:42" {DSK}<home>larry>medley>library>SYSEDIT.;3 1146
|
||||
|
||||
changes to%: (VARS SYSEDITCOMS)
|
||||
|
||||
previous date%: " 6-May-2021 16:22:01" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
|
||||
previous date%: " 6-Aug-2021 07:35:16" {DSK}<home>larry>medley>library>SYSEDIT.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -14,19 +14,17 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(RPAQQ SYSEDITCOMS
|
||||
[(VARS (CLISPIFYPRETTYFLG)
|
||||
(MSRECORDTRANFLG T)
|
||||
(RECOMPILEDEFAULT 'CHANGES)
|
||||
(CLEANUPOPTIONS '(RC F))
|
||||
(GLOBALVARFLG T)
|
||||
(CLISPIFTRANFLG T)
|
||||
(CROSSCOMPILING 'ASK))
|
||||
(CROSSCOMPILING 'ASK)
|
||||
(DFNFLG 'PROP))
|
||||
(P (RESETVARS ((CROSSCOMPILING T))
|
||||
(LOAD? 'EXPORTS.ALL])
|
||||
|
||||
(RPAQQ CLISPIFYPRETTYFLG NIL)
|
||||
|
||||
(RPAQQ MSRECORDTRANFLG T)
|
||||
|
||||
(RPAQQ RECOMPILEDEFAULT CHANGES)
|
||||
|
||||
(RPAQQ CLEANUPOPTIONS (RC F))
|
||||
@@ -37,6 +35,8 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(RPAQQ CROSSCOMPILING ASK)
|
||||
|
||||
(RPAQQ DFNFLG PROP)
|
||||
|
||||
(RESETVARS ((CROSSCOMPILING T))
|
||||
(LOAD? 'EXPORTS.ALL))
|
||||
(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
|
||||
|
||||
@@ -1,20 +0,0 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 6-Aug-2021 07:36:12" ("compiled on " {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2)
|
||||
" 6-Aug-2021 07:14:33" bcompl'd in "FULL 5-Aug-2021 ..." dated " 5-Aug-2021 22:24:43")
|
||||
(FILECREATED " 6-Aug-2021 07:35:16" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;2 1183 changes to%:
|
||||
(VARS SYSEDITCOMS) previous date%: " 6-May-2021 16:22:01"
|
||||
{DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
|
||||
(PRETTYCOMPRINT SYSEDITCOMS)
|
||||
(RPAQQ SYSEDITCOMS ((VARS (CLISPIFYPRETTYFLG) (MSRECORDTRANFLG T) (RECOMPILEDEFAULT (QUOTE CHANGES)) (
|
||||
CLEANUPOPTIONS (QUOTE (RC F))) (GLOBALVARFLG T) (CLISPIFTRANFLG T) (CROSSCOMPILING (QUOTE ASK))) (P (
|
||||
RESETVARS ((CROSSCOMPILING T)) (LOAD? (QUOTE EXPORTS.ALL))))))
|
||||
(RPAQQ CLISPIFYPRETTYFLG NIL)
|
||||
(RPAQQ MSRECORDTRANFLG T)
|
||||
(RPAQQ RECOMPILEDEFAULT CHANGES)
|
||||
(RPAQQ CLEANUPOPTIONS (RC F))
|
||||
(RPAQQ GLOBALVARFLG T)
|
||||
(RPAQQ CLISPIFTRANFLG T)
|
||||
(RPAQQ CROSSCOMPILING ASK)
|
||||
(RESETVARS ((CROSSCOMPILING T)) (LOAD? (QUOTE EXPORTS.ALL)))
|
||||
(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
|
||||
NIL
|
||||
@@ -1,446 +0,0 @@
|
||||
(FILECREATED "15-Aug-85 19:44:58" {ERIS}<LISPCORE>LIBRARY>DICOLOR.;2 15766
|
||||
|
||||
changes to: (VARS DICOLORCOMS)
|
||||
|
||||
previous date: " 9-Aug-85 05:58:26" {ERIS}<LISPCORE>LIBRARY>DICOLOR.;1)
|
||||
|
||||
|
||||
(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
|
||||
|
||||
(PRETTYCOMPRINT DICOLORCOMS)
|
||||
|
||||
(RPAQQ DICOLORCOMS ((FNS CNSMENUINIT CNSTOCSL CNSTORGB CSLTOCNS DICOLOR.FROM.USER GETCNS HLSTOCSL
|
||||
CSLTOHLS RGBTOCNS)
|
||||
(VARS DICOLOR.hueMapping DICOLOR.lightnessMapping DICOLOR.saturationMapping
|
||||
NEWCOLORITEM)
|
||||
(INITVARS (COLORNAMEMENU))
|
||||
(FNS DICOLOR.hueN DICOLOR.hueNvalue DICOLOR.hueNname DICOLOR.lightnessN
|
||||
DICOLOR.lightnessNvalue DICOLOR.lightnessNname DICOLOR.saturationN
|
||||
DICOLOR.saturationNvalue DICOLOR.saturationNname)
|
||||
(DECLARE: DONTCOPY (*)
|
||||
(RECORDS hueRecord lightnessRecord saturationRecord)
|
||||
(CONSTANTS * DICOLOR.hueConstants)
|
||||
(CONSTANTS * DICOLOR.saturationConstants)
|
||||
(CONSTANTS * DICOLOR.lightnessConstants))))
|
||||
(DEFINEQ
|
||||
|
||||
(CNSMENUINIT
|
||||
[LAMBDA NIL (* gbn " 9-Aug-85 03:11")
|
||||
[SETQ CNSHUEMENU (create MENU
|
||||
ITEMS _(for I in DICOLOR.hueMapping collect (CAR I]
|
||||
[SETQ CNSSATURATIONMENU (create MENU
|
||||
ITEMS _(for I in DICOLOR.saturationMapping collect (CAR I]
|
||||
(SETQ CNSLIGHTNESSMENU (create MENU
|
||||
ITEMS _(for I in DICOLOR.lightnessMapping collect (CAR I])
|
||||
|
||||
(CNSTOCSL
|
||||
[LAMBDA (hue saturation lightness) (* hdj "12-Apr-85 19:01")
|
||||
(PROG ((hueAtom (MKATOM hue))
|
||||
(saturationAtom (MKATOM saturation))
|
||||
(lightnessAtom (MKATOM lightness))
|
||||
c s l)
|
||||
(if [NOT (SETQ c (fetch (hueRecord ordering) of (ASSOC hueAtom DICOLOR.hueMapping]
|
||||
then (SETQ c DICOLOR.achromatic))
|
||||
(if (EQ c DICOLOR.achromatic)
|
||||
then (SETQ s DICOLOR.noSaturation)
|
||||
else (if [NOT (SETQ s (fetch (saturationRecord ordering) of (ASSOC saturationAtom
|
||||
DICOLOR.saturationMapping]
|
||||
then (SETQ s DICOLOR.vivid)))
|
||||
(SELECTQ hueAtom
|
||||
(Black (SETQ l DICOLOR.black))
|
||||
(White (SETQ l DICOLOR.white))
|
||||
(if [NOT (SETQ l (fetch (lightnessRecord ordering) of (ASSOC lightnessAtom
|
||||
DICOLOR.lightnessMapping]
|
||||
then (SETQ l DICOLOR.medium)))
|
||||
(RETURN (LIST c s l])
|
||||
|
||||
(CNSTORGB
|
||||
[LAMBDA (saturation lightness hue) (* hdj "15-Jul-85 12:33")
|
||||
(LET ((CSL (CNSTOCSL hue saturation lightness)))
|
||||
(HLSTORGB (APPLY (FUNCTION CSLTOHLS)
|
||||
CSL])
|
||||
|
||||
(CSLTOCNS
|
||||
[LAMBDA (c s l) (* hdj "15-Jul-85 12:37")
|
||||
(PROG (hue saturation lightness)
|
||||
[if (EQ c DICOLOR.achromatic)
|
||||
then (SETQ saturation "")
|
||||
[SELECTC l
|
||||
(DICOLOR.black (SETQ hue "Black")
|
||||
(SETQ lightness ""))
|
||||
(DICOLOR.white (SETQ hue "White")
|
||||
(SETQ lightness ""))
|
||||
(PROGN (SETQ hue "Gray")
|
||||
(SETQ lightness (MKSTRING (fetch (lightnessRecord name)
|
||||
of (DICOLOR.lightnessN l]
|
||||
else (SETQ hue (fetch (hueRecord name) of (DICOLOR.hueN c)))
|
||||
(SETQ saturation (fetch (saturationRecord name) of (DICOLOR.saturationN s)))
|
||||
(SETQ lightness (fetch (lightnessRecord name) of (DICOLOR.lightnessN l]
|
||||
(RETURN (LIST saturation lightness hue])
|
||||
|
||||
(DICOLOR.FROM.USER
|
||||
[LAMBDA (NAMES?) (* gbn " 9-Aug-85 04:51")
|
||||
|
||||
(* * returns an RGB triple. If NAMES? prompts the user first with the global color name menu.
|
||||
She can then choose NEWCOLOR which can be specified as RGB or CNS)
|
||||
|
||||
|
||||
(PROG (NAME RGB)
|
||||
(if NAMES?
|
||||
then (* first try to get a color name)
|
||||
[SETQ NAME (MENU (OR COLORNAMEMENU (SETQ COLORNAMEMENU
|
||||
(CREATE MENU
|
||||
ITEMS _(CONS NEWCOLORITEM
|
||||
(FOR ENTRY IN COLORNAMES
|
||||
COLLECT (CAR ENTRY]
|
||||
(if (NOT NAME)
|
||||
then (* the user clicked outside the menu)
|
||||
(RETURN))
|
||||
[SETQ RGB (SELECTQ NAME
|
||||
(RGB (READCOLOR1 "specify new color"))
|
||||
(CNS (APPLY (FUNCTION CNSTORGB)
|
||||
(GETCNS)))
|
||||
(RETURN (CDR (ASSOC NAME COLORNAMES]
|
||||
(if (NOT (SETQ NAME (TTYIN "New color name? ")))
|
||||
then (* user must have decided that she didn't want to keep
|
||||
(name) the color)
|
||||
(RETURN))
|
||||
(push COLORNAMES (CONS (CAR NAME)
|
||||
RGB))
|
||||
(SETQ COLORNAMEMENU NIL) (* invalidate the menu)
|
||||
(RETURN RGB])
|
||||
|
||||
(GETCNS
|
||||
[LAMBDA NIL (* gbn " 9-Aug-85 03:13")
|
||||
(LIST (MENU CNSLIGHTNESSMENU)
|
||||
(MENU CNSSATURATIONMENU)
|
||||
(MENU CNSHUEMENU])
|
||||
|
||||
(HLSTOCSL
|
||||
[LAMBDA (hue lightness saturation) (* hdj "15-Jul-85 12:14")
|
||||
(LET ((ISLHue (FQUOTIENT (MOD (PLUS hue 240)
|
||||
360)
|
||||
360)))
|
||||
(PROG (c s l)
|
||||
(for old s from DICOLOR.noSaturation to DICOLOR.vivid
|
||||
do (if (EQ s DICOLOR.vivid)
|
||||
then (RETURN))
|
||||
(if (LEQ saturation (PLUS (DICOLOR.saturationNvalue s)
|
||||
(QUOTIENT (DIFFERENCE (DICOLOR.saturationNvalue
|
||||
(ADD1 s))
|
||||
(DICOLOR.saturationNvalue s))
|
||||
2)))
|
||||
then (RETURN)))
|
||||
[if (EQ s DICOLOR.noSaturation)
|
||||
then (SETQ c DICOLOR.achromatic)
|
||||
(for old l from DICOLOR.black to DICOLOR.white
|
||||
do (if (EQ l DICOLOR.white)
|
||||
then (RETURN))
|
||||
(if (LEQ lightness (PLUS (DICOLOR.lightnessNvalue l)
|
||||
(QUOTIENT (DIFFERENCE (DICOLOR.lightnessNvalue
|
||||
(ADD1 l))
|
||||
(DICOLOR.lightnessNvalue
|
||||
l))
|
||||
2)))
|
||||
then (RETURN)))
|
||||
else (for old c from DICOLOR.red to DICOLOR.purplishRed
|
||||
do (* (HELP c))
|
||||
(if (EQ c DICOLOR.purplishRed)
|
||||
then (if (GREATERP ISLHue (PLUS (DICOLOR.hueNvalue c)
|
||||
(QUOTIENT (DIFFERENCE 1 (
|
||||
DICOLOR.hueNvalue
|
||||
c))
|
||||
2)))
|
||||
then (SETQ c DICOLOR.red))
|
||||
(RETURN))
|
||||
(if (LEQ ISLHue (PLUS (DICOLOR.hueNvalue c)
|
||||
(QUOTIENT (DIFFERENCE (DICOLOR.hueNvalue
|
||||
(ADD1 c))
|
||||
(DICOLOR.hueNvalue c))
|
||||
2)))
|
||||
then (RETURN)))
|
||||
(for old l from DICOLOR.veryDark to DICOLOR.veryLight
|
||||
do (if (EQ l DICOLOR.veryLight)
|
||||
then (RETURN))
|
||||
(if (LEQ lightness (PLUS (DICOLOR.lightnessNvalue l)
|
||||
(QUOTIENT (DIFFERENCE (DICOLOR.lightnessNvalue
|
||||
(ADD1 l))
|
||||
(DICOLOR.lightnessNvalue
|
||||
l))
|
||||
2)))
|
||||
then (RETURN]
|
||||
(RETURN (LIST c s l])
|
||||
|
||||
(CSLTOHLS
|
||||
[LAMBDA (c s l) (* hdj "15-Jul-85 12:23")
|
||||
(PROG (hue saturation lightness)
|
||||
(if (EQ c DICOLOR.achromatic)
|
||||
then (SETQ hue 0.0)
|
||||
(SETQ saturation 0.0)
|
||||
(SETQ lightness (DICOLOR.lightnessNvalue l))
|
||||
else (SETQ hue (DICOLOR.hueNvalue c))
|
||||
(SETQ saturation (DICOLOR.saturationNvalue s))
|
||||
(SETQ lightness (DICOLOR.lightnessNvalue l)))
|
||||
(RETURN (LIST (MOD (FPLUS 120 (FTIMES hue 360))
|
||||
360)
|
||||
lightness saturation])
|
||||
|
||||
(RGBTOCNS
|
||||
[LAMBDA (Red Green Blue) (* hdj "15-Jul-85 12:36")
|
||||
(APPLY (FUNCTION CSLTOCNS)
|
||||
(APPLY (FUNCTION HLSTOCSL)
|
||||
(RGBTOHLS Red Green Blue])
|
||||
)
|
||||
|
||||
(RPAQQ DICOLOR.hueMapping ((Achromatic 0.0 -1)
|
||||
(Red 0.0 0)
|
||||
(OrangishRed .01 1)
|
||||
(RedOrange .02 2)
|
||||
(ReddishOrange .03 3)
|
||||
(Orange .04 4)
|
||||
(YellowishOrange .07 5)
|
||||
(OrangeYellow .1 6)
|
||||
(OrangishYellow .13 7)
|
||||
(Yellow .1673 8)
|
||||
(GreenishYellow .2073 9)
|
||||
(YellowGreen .2473 10)
|
||||
(YellowishGreen .2873 11)
|
||||
(Green .3333 12)
|
||||
(BluishGreen .4133 13)
|
||||
(GreenBlue .4933 14)
|
||||
(GreenishBlue .5733 15)
|
||||
(Blue .6666 16)
|
||||
(PurplishBlue .6816 17)
|
||||
(BluePurple .6966 18)
|
||||
(BluishPurple .7116 19)
|
||||
(Purple .73 20)
|
||||
(ReddishPurple .8 21)
|
||||
(PurpleRed .87 22)
|
||||
(PurplishRed .94 23)
|
||||
(BrownishRed .01 24)
|
||||
(RedBrown .02 25)
|
||||
(ReddishBrown .03 26)
|
||||
(Brown .04 27)
|
||||
(YellowishBrown .07 28)
|
||||
(BrownYellow .1 29)
|
||||
(BrownishYellow .13 30)))
|
||||
|
||||
(RPAQQ DICOLOR.lightnessMapping ((Black 0.0 0)
|
||||
(VeryDark .1666 1)
|
||||
(Dark .3333 2)
|
||||
(Medium .5 3)
|
||||
(Light .6666 4)
|
||||
(VeryLight .8333 5)
|
||||
(White 1.0 6)))
|
||||
|
||||
(RPAQQ DICOLOR.saturationMapping ((NoSaturation 0.0 0)
|
||||
(Grayish .25 1)
|
||||
(Moderate .5 2)
|
||||
(Strong .75 3)
|
||||
(Vivid 1.0 4)))
|
||||
|
||||
(RPAQQ NEWCOLORITEM (New% Color (QUOTE CNS)
|
||||
"Allows specification of a new color"
|
||||
(SUBITEMS (RGB (QUOTE RGB)
|
||||
"Specify a new color using Red, Green, Blue sliders")
|
||||
(CNS (QUOTE CNS)
|
||||
"Specify a new color using English"))))
|
||||
|
||||
(RPAQ? COLORNAMEMENU )
|
||||
(DEFINEQ
|
||||
|
||||
(DICOLOR.hueN
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 13:38")
|
||||
(DECLARE (GLOBALVARS DICOLOR.hueMapping))
|
||||
(for ELT in DICOLOR.hueMapping suchthat (EQ (fetch (hueRecord ordering) of ELT)
|
||||
N])
|
||||
|
||||
(DICOLOR.hueNvalue
|
||||
[LAMBDA (N) (* hdj "18-Apr-85 09:58")
|
||||
(fetch (hueRecord value) of (DICOLOR.hueN N])
|
||||
|
||||
(DICOLOR.hueNname
|
||||
[LAMBDA (N) (* hdj "18-Apr-85 10:07")
|
||||
(fetch (hueRecord name) of (DICOLOR.hueN N])
|
||||
|
||||
(DICOLOR.lightnessN
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 13:40")
|
||||
(DECLARE (GLOBALVARS DICOLOR.lightnessMapping))
|
||||
(for ELT in DICOLOR.lightnessMapping suchthat (EQ (fetch (lightnessRecord ordering) of ELT)
|
||||
N])
|
||||
|
||||
(DICOLOR.lightnessNvalue
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 13:36")
|
||||
(fetch (lightnessRecord value) of (DICOLOR.lightnessN N])
|
||||
|
||||
(DICOLOR.lightnessNname
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 14:02")
|
||||
(fetch (lightnessRecord name) of (DICOLOR.lightnessN N])
|
||||
|
||||
(DICOLOR.saturationN
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 13:39")
|
||||
(DECLARE (GLOBALVARS DICOLOR.saturationMapping))
|
||||
(for ELT in DICOLOR.saturationMapping suchthat (EQ (fetch (saturationRecord ordering)
|
||||
of ELT)
|
||||
N])
|
||||
|
||||
(DICOLOR.saturationNvalue
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 13:36")
|
||||
(fetch (saturationRecord value) of (DICOLOR.saturationN N])
|
||||
|
||||
(DICOLOR.saturationNname
|
||||
[LAMBDA (N) (* hdj "17-Apr-85 14:02")
|
||||
(fetch (saturationRecord name) of (DICOLOR.saturationN N])
|
||||
)
|
||||
(DECLARE: DONTCOPY
|
||||
[DECLARE: EVAL@COMPILE
|
||||
|
||||
(RECORD hueRecord (name value ordering))
|
||||
|
||||
(RECORD lightnessRecord (name value ordering))
|
||||
|
||||
(RECORD saturationRecord (name value ordering))
|
||||
]
|
||||
|
||||
|
||||
(RPAQQ DICOLOR.hueConstants (DICOLOR.achromatic DICOLOR.blue DICOLOR.bluePurple DICOLOR.bluishGreen
|
||||
DICOLOR.bluishPurple DICOLOR.brown
|
||||
DICOLOR.brownYellow DICOLOR.brownishRed
|
||||
DICOLOR.brownishYellow DICOLOR.green
|
||||
DICOLOR.greenBlue DICOLOR.greenishBlue
|
||||
DICOLOR.greenishYellow DICOLOR.orange
|
||||
DICOLOR.orangeYellow DICOLOR.orangishRed
|
||||
DICOLOR.orangishYellow DICOLOR.purple
|
||||
DICOLOR.purpleRed DICOLOR.purplishBlue
|
||||
DICOLOR.purplishRed DICOLOR.red DICOLOR.redBrown
|
||||
DICOLOR.redOrange DICOLOR.reddishBrown
|
||||
DICOLOR.reddishOrange DICOLOR.reddishPurple
|
||||
DICOLOR.yellow DICOLOR.yellowGreen
|
||||
DICOLOR.yellowishBrown DICOLOR.yellowishGreen
|
||||
DICOLOR.yellowishOrange))
|
||||
(DECLARE: EVAL@COMPILE
|
||||
|
||||
(RPAQQ DICOLOR.achromatic -1)
|
||||
|
||||
(RPAQQ DICOLOR.blue 16)
|
||||
|
||||
(RPAQQ DICOLOR.bluePurple 18)
|
||||
|
||||
(RPAQQ DICOLOR.bluishGreen 13)
|
||||
|
||||
(RPAQQ DICOLOR.bluishPurple 19)
|
||||
|
||||
(RPAQQ DICOLOR.brown 27)
|
||||
|
||||
(RPAQQ DICOLOR.brownYellow 29)
|
||||
|
||||
(RPAQQ DICOLOR.brownishRed 24)
|
||||
|
||||
(RPAQQ DICOLOR.brownishYellow 30)
|
||||
|
||||
(RPAQQ DICOLOR.green 12)
|
||||
|
||||
(RPAQQ DICOLOR.greenBlue 14)
|
||||
|
||||
(RPAQQ DICOLOR.greenishBlue 15)
|
||||
|
||||
(RPAQQ DICOLOR.greenishYellow 9)
|
||||
|
||||
(RPAQQ DICOLOR.orange 4)
|
||||
|
||||
(RPAQQ DICOLOR.orangeYellow 6)
|
||||
|
||||
(RPAQQ DICOLOR.orangishRed 1)
|
||||
|
||||
(RPAQQ DICOLOR.orangishYellow 7)
|
||||
|
||||
(RPAQQ DICOLOR.purple 20)
|
||||
|
||||
(RPAQQ DICOLOR.purpleRed 22)
|
||||
|
||||
(RPAQQ DICOLOR.purplishBlue 17)
|
||||
|
||||
(RPAQQ DICOLOR.purplishRed 23)
|
||||
|
||||
(RPAQQ DICOLOR.red 0)
|
||||
|
||||
(RPAQQ DICOLOR.redBrown 25)
|
||||
|
||||
(RPAQQ DICOLOR.redOrange 2)
|
||||
|
||||
(RPAQQ DICOLOR.reddishBrown 26)
|
||||
|
||||
(RPAQQ DICOLOR.reddishOrange 3)
|
||||
|
||||
(RPAQQ DICOLOR.reddishPurple 21)
|
||||
|
||||
(RPAQQ DICOLOR.yellow 8)
|
||||
|
||||
(RPAQQ DICOLOR.yellowGreen 10)
|
||||
|
||||
(RPAQQ DICOLOR.yellowishBrown 28)
|
||||
|
||||
(RPAQQ DICOLOR.yellowishGreen 11)
|
||||
|
||||
(RPAQQ DICOLOR.yellowishOrange 5)
|
||||
|
||||
(CONSTANTS DICOLOR.achromatic DICOLOR.blue DICOLOR.bluePurple DICOLOR.bluishGreen
|
||||
DICOLOR.bluishPurple DICOLOR.brown DICOLOR.brownYellow DICOLOR.brownishRed
|
||||
DICOLOR.brownishYellow DICOLOR.green DICOLOR.greenBlue DICOLOR.greenishBlue
|
||||
DICOLOR.greenishYellow DICOLOR.orange DICOLOR.orangeYellow DICOLOR.orangishRed
|
||||
DICOLOR.orangishYellow DICOLOR.purple DICOLOR.purpleRed DICOLOR.purplishBlue
|
||||
DICOLOR.purplishRed DICOLOR.red DICOLOR.redBrown DICOLOR.redOrange DICOLOR.reddishBrown
|
||||
DICOLOR.reddishOrange DICOLOR.reddishPurple DICOLOR.yellow DICOLOR.yellowGreen
|
||||
DICOLOR.yellowishBrown DICOLOR.yellowishGreen DICOLOR.yellowishOrange)
|
||||
)
|
||||
|
||||
|
||||
(RPAQQ DICOLOR.saturationConstants (DICOLOR.noSaturation DICOLOR.grayish DICOLOR.moderate
|
||||
DICOLOR.strong DICOLOR.vivid))
|
||||
(DECLARE: EVAL@COMPILE
|
||||
|
||||
(RPAQQ DICOLOR.noSaturation 0)
|
||||
|
||||
(RPAQQ DICOLOR.grayish 1)
|
||||
|
||||
(RPAQQ DICOLOR.moderate 2)
|
||||
|
||||
(RPAQQ DICOLOR.strong 3)
|
||||
|
||||
(RPAQQ DICOLOR.vivid 4)
|
||||
|
||||
(CONSTANTS DICOLOR.noSaturation DICOLOR.grayish DICOLOR.moderate DICOLOR.strong DICOLOR.vivid)
|
||||
)
|
||||
|
||||
|
||||
(RPAQQ DICOLOR.lightnessConstants (DICOLOR.black DICOLOR.veryDark DICOLOR.dark DICOLOR.medium
|
||||
DICOLOR.light DICOLOR.veryLight DICOLOR.white))
|
||||
(DECLARE: EVAL@COMPILE
|
||||
|
||||
(RPAQQ DICOLOR.black 0)
|
||||
|
||||
(RPAQQ DICOLOR.veryDark 1)
|
||||
|
||||
(RPAQQ DICOLOR.dark 2)
|
||||
|
||||
(RPAQQ DICOLOR.medium 3)
|
||||
|
||||
(RPAQQ DICOLOR.light 4)
|
||||
|
||||
(RPAQQ DICOLOR.veryLight 5)
|
||||
|
||||
(RPAQQ DICOLOR.white 6)
|
||||
|
||||
(CONSTANTS DICOLOR.black DICOLOR.veryDark DICOLOR.dark DICOLOR.medium DICOLOR.light DICOLOR.veryLight
|
||||
DICOLOR.white)
|
||||
)
|
||||
)
|
||||
(PUTPROPS DICOLOR COPYRIGHT ("Xerox Corporation" 1985))
|
||||
(DECLARE: DONTCOPY
|
||||
(FILEMAP (NIL (1005 8438 (CNSMENUINIT 1015 . 1502) (CNSTOCSL 1504 . 2550) (CNSTORGB 2552 . 2782) (
|
||||
CSLTOCNS 2784 . 3683) (DICOLOR.FROM.USER 3685 . 5118) (GETCNS 5120 . 5322) (HLSTOCSL 5324 . 7615) (
|
||||
CSLTOHLS 7617 . 8217) (RGBTOCNS 8219 . 8436)) (9938 12002 (DICOLOR.hueN 9948 . 10228) (
|
||||
DICOLOR.hueNvalue 10230 . 10405) (DICOLOR.hueNname 10407 . 10580) (DICOLOR.lightnessN 10582 . 10892) (
|
||||
DICOLOR.lightnessNvalue 10894 . 11087) (DICOLOR.lightnessNname 11089 . 11280) (DICOLOR.saturationN
|
||||
11282 . 11606) (DICOLOR.saturationNvalue 11608 . 11804) (DICOLOR.saturationNname 11806 . 12000)))))
|
||||
STOP
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@@ -1 +0,0 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
@@ -1 +0,0 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
@@ -1,29 +1,29 @@
|
||||
Each release should have a subset of the medley repo in a file
|
||||
`medley-`releasename`.tgz`
|
||||
There are separate releases of medley and maiko.
|
||||
Just get the latest version of each.
|
||||
|
||||
and at least one
|
||||
`maiko-`releasename`.`osname`.`arch`.tgz`
|
||||
|
||||
e.g.,
|
||||
`maiko-$tag.linux.x86_64.tgz`
|
||||
Alternatively, you can pick up the medley release, and build your own maiko.
|
||||
|
||||
for each os/arch pair for which we have GitHub "action" runners.
|
||||
Get the Maiko release [here](https://github.com/Interlisp/maiko/releases).
|
||||
|
||||
To use (from a shell/terminal window):
|
||||
|
||||
1. Unpack the medley tar file
|
||||
```
|
||||
tar -xvfz medley-$tag.tgz
|
||||
tar -xvfz $tag.tgz
|
||||
```
|
||||
and the maiko file for your os.arch
|
||||
```
|
||||
tar -xvfz maiko-$tag.linux.x86_64.tgz
|
||||
```
|
||||
this should leave you with two new directories, `medley` and `maiko`.
|
||||
|
||||
2. Unpack the maiko file for your operating system and CPU type,e.g.,
|
||||
|
||||
```
|
||||
tar -xvfz maiko-210823.linux.x86_64.tgz
|
||||
```
|
||||
|
||||
3. This should leave you with two directories, `medley` and `maiko`.
|
||||
Then you can
|
||||
```
|
||||
cd medley
|
||||
./run-medley -full
|
||||
```
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
13
scripts/loadup-and-release.sh
Executable file
13
scripts/loadup-and-release.sh
Executable file
@@ -0,0 +1,13 @@
|
||||
#!/bin/sh
|
||||
|
||||
export MEDLEYDIR=`pwd`
|
||||
|
||||
if [ ! -x run-medley ] ; then
|
||||
echo run from MEDLEYDIR
|
||||
exit 1
|
||||
fi
|
||||
|
||||
./scripts/loadup-all.sh && \
|
||||
./scripts/copy-all.sh && \
|
||||
./scripts/release-medley.sh
|
||||
|
||||
@@ -17,5 +17,4 @@ tr '\r' '\n' < $1 | \
|
||||
-e 's//[33m/g'\
|
||||
-e 's//[32m/g'\
|
||||
-e 's/ /[35m:[0m/g' \
|
||||
| more
|
||||
|
||||
| less -R
|
||||
|
||||
@@ -8,26 +8,30 @@ fi
|
||||
tag=$1
|
||||
|
||||
if [ -z "$tag" ] ; then
|
||||
tag=nightly-`date +%y%m%d`
|
||||
tag=medley-`date +%y%m%d`
|
||||
fi
|
||||
|
||||
cd ..
|
||||
|
||||
echo making medley zip
|
||||
echo making medley zip $tag
|
||||
|
||||
tar cfz medley/tmp/medley-$tag.tgz \
|
||||
--exclude-backups --exclude="*.PDF" \
|
||||
tar cfz medley/tmp/$tag.tgz \
|
||||
--exclude "*~" --exclude "*#*" \
|
||||
medley/docs/dinfo \
|
||||
medley/docs/Documentation\ Tools \
|
||||
medley/greetfiles/SIMPLE-INIT \
|
||||
medley/run-medley \
|
||||
medley/scripts \
|
||||
medley/loadups \
|
||||
medley/loadups/lisp.sysout \
|
||||
medley/loadups/full.sysout \
|
||||
medley/loadups/whereis.hash \
|
||||
medley/fonts/displayfonts medley/fonts/altofonts \
|
||||
medley/fonts/postscriptfonts medley/fonts/ipfonts \
|
||||
medley/fonts/postscriptfonts \
|
||||
medley/library/ \
|
||||
medley/internal/library \
|
||||
medley/lispusers/ \
|
||||
medley/sources/
|
||||
medley/fonts/big medley/fonts/other \
|
||||
medley/sources/ \
|
||||
medley/internal/library \
|
||||
|
||||
cd medley
|
||||
|
||||
@@ -35,7 +39,6 @@ echo making release
|
||||
sed s/'$tag'/$tag/g < release-notes.md > tmp/release-notes.md
|
||||
gh release create $tag -F tmp/release-notes.md -p -t $tag
|
||||
|
||||
echo uploaded tmp/medley-$tag.tgz
|
||||
gh release upload $tag tmp/medley-$tag.tgz --clobber
|
||||
echo uploaded $tag.tgz
|
||||
gh release upload $tag tmp/$tag.tgz --clobber
|
||||
|
||||
./scripts/release-one.sh $tag
|
||||
@@ -1,31 +0,0 @@
|
||||
#!/bin/sh
|
||||
export MEDLEYDIR=`pwd`
|
||||
|
||||
if [ ! -x run-medley ] ; then
|
||||
echo "run from MEDLEYDIR (with MAIKODIR ../maiko)"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
tag=$1
|
||||
if [ -z "$tag" ] ; then
|
||||
tag=nightly-`date +%y%m%d`
|
||||
fi
|
||||
|
||||
cd ../maiko/bin
|
||||
export PATH=.:"$PATH"
|
||||
osarch=`osversion`.`machinetype`
|
||||
|
||||
cd ../..
|
||||
|
||||
echo making maiko-$tag-$osarch.tgz
|
||||
|
||||
tar cfz medley/tmp/maiko-$tag-$osarch.tgz \
|
||||
--exclude "make*" --exclude legacy \
|
||||
maiko/bin \
|
||||
maiko/$osarch/lde*
|
||||
|
||||
cd medley
|
||||
|
||||
echo uploading
|
||||
|
||||
gh release upload --clobber $tag tmp/maiko-$tag-$osarch.tgz
|
||||
35
sources/AOFD
35
sources/AOFD
@@ -1,11 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 9-Aug-2021 23:30:19" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;5 38301
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:26:16" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;7 38270
|
||||
|
||||
changes to%: (VARS AOFDCOMS)
|
||||
(FNS \STRINGSTREAM.INIT)
|
||||
changes to%: (FNS \BASEBYTES.IO.INIT \STRINGSTREAM.INIT)
|
||||
|
||||
previous date%: " 8-Aug-2021 00:11:00"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;4)
|
||||
previous date%: " 9-Aug-2021 23:30:19"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;6)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -804,16 +803,16 @@ Copyright (c) 1981-1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS AOFD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2615 3722 (\ADD-OPEN-STREAM 2625 . 2902) (\GENERIC-UNREGISTER-STREAM 2904 . 3720)) (
|
||||
3763 11020 (CLOSEALL 3773 . 4478) (CLOSEF 4480 . 5676) (EOFCLOSEF 5678 . 5974) (INPUT 5976 . 6748) (
|
||||
OPENP 6750 . 7149) (OUTPUT 7151 . 7925) (POSITION 7927 . 8739) (RANDACCESSP 8741 . 9216) (\IOMODEP
|
||||
9218 . 9855) (WHENCLOSE 9857 . 11018)) (11021 11143 (STREAMADDPROP 11031 . 11141)) (12307 25188 (
|
||||
\BASEBYTES.IO.INIT 12317 . 15513) (\MAKEBASEBYTESTREAM 15515 . 18827) (\MBS.OUTCHARFN 18829 . 19217) (
|
||||
\BASEBYTES.NAME.FROM.STREAM 19219 . 19682) (\BASEBYTES.BOUT 19684 . 20401) (\BASEBYTES.SETFILEPTR
|
||||
20403 . 21024) (\BASEBYTES.READP 21026 . 21662) (\BASEBYTES.BIN 21664 . 22195) (\BASEBYTES.PEEKBIN
|
||||
22197 . 23028) (\BASEBYTES.TRUNCATEFN 23030 . 23534) (\BASEBYTES.OPENFN 23536 . 24026) (
|
||||
\BASEBYTES.BLOCKIO 24028 . 25186)) (25311 28620 (OPENSTRINGSTREAM 25321 . 27038) (MAKE-STRING-FORMAT
|
||||
27040 . 28618)) (28892 33553 (\STRINGSTREAM.INIT 28902 . 33551)) (33630 37202 (GETSTREAM 33640 . 33863
|
||||
) (\ADDOFD 33865 . 34152) (\CLEAROFD 34154 . 34435) (\DELETEOFD 34437 . 34588) (\GETSTREAM 34590 .
|
||||
36754) (\SEARCHOPENFILES 36756 . 37200)))))
|
||||
(FILEMAP (NIL (2584 3691 (\ADD-OPEN-STREAM 2594 . 2871) (\GENERIC-UNREGISTER-STREAM 2873 . 3689)) (
|
||||
3732 10989 (CLOSEALL 3742 . 4447) (CLOSEF 4449 . 5645) (EOFCLOSEF 5647 . 5943) (INPUT 5945 . 6717) (
|
||||
OPENP 6719 . 7118) (OUTPUT 7120 . 7894) (POSITION 7896 . 8708) (RANDACCESSP 8710 . 9185) (\IOMODEP
|
||||
9187 . 9824) (WHENCLOSE 9826 . 10987)) (10990 11112 (STREAMADDPROP 11000 . 11110)) (12276 25157 (
|
||||
\BASEBYTES.IO.INIT 12286 . 15482) (\MAKEBASEBYTESTREAM 15484 . 18796) (\MBS.OUTCHARFN 18798 . 19186) (
|
||||
\BASEBYTES.NAME.FROM.STREAM 19188 . 19651) (\BASEBYTES.BOUT 19653 . 20370) (\BASEBYTES.SETFILEPTR
|
||||
20372 . 20993) (\BASEBYTES.READP 20995 . 21631) (\BASEBYTES.BIN 21633 . 22164) (\BASEBYTES.PEEKBIN
|
||||
22166 . 22997) (\BASEBYTES.TRUNCATEFN 22999 . 23503) (\BASEBYTES.OPENFN 23505 . 23995) (
|
||||
\BASEBYTES.BLOCKIO 23997 . 25155)) (25280 28589 (OPENSTRINGSTREAM 25290 . 27007) (MAKE-STRING-FORMAT
|
||||
27009 . 28587)) (28861 33522 (\STRINGSTREAM.INIT 28871 . 33520)) (33599 37171 (GETSTREAM 33609 . 33832
|
||||
) (\ADDOFD 33834 . 34121) (\CLEAROFD 34123 . 34404) (\DELETEOFD 34406 . 34557) (\GETSTREAM 34559 .
|
||||
36723) (\SEARCHOPENFILES 36725 . 37169)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,10 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 7-Aug-2021 12:47:09" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;3 57513
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:25:38" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;5 57504
|
||||
|
||||
changes to%: (FNS \FILLBUFFER)
|
||||
changes to%: (FNS \INITBCPLDISPLAY)
|
||||
|
||||
previous date%: "23-Jun-2021 12:31:16"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;2)
|
||||
previous date%: " 7-Aug-2021 12:47:09"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;4)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1142,18 +1142,18 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2992 31949 (BKLINBUF 3002 . 3477) (CLEARBUF 3479 . 4811) (LINBUF 4813 . 4999) (
|
||||
PAGEFULLFN 5001 . 6482) (SETLINELENGTH 6484 . 6680) (SYSBUF 6682 . 6868) (TERMCHARWIDTH 6870 . 7287) (
|
||||
TERMINAL-INPUT 7289 . 7857) (TERMINAL-OUTPUT 7859 . 8445) (\CHDEL1 8447 . 8716) (\CLOSELINE 8718 .
|
||||
9007) (\DECPARENCOUNT 9009 . 10592) (\ECHOCHAR 10594 . 11286) (\FILLBUFFER 11288 . 24279) (
|
||||
\FILLBUFFER.WORDSEPRP 24281 . 24526) (\FILLBUFFER.BACKUP 24528 . 24707) (\GETCHAR 24709 . 25098) (
|
||||
\INCPARENCOUNT 25100 . 27712) (\RESETLINE 27714 . 28038) (\RESETTERMINAL 28040 . 28804) (\SAVELINEBUF
|
||||
28806 . 30777) (\STOPSCROLL? 30779 . 31947)) (32160 36016 (\DSCCOUT 32170 . 35310) (\INITBCPLDISPLAY
|
||||
35312 . 36014)) (36209 37459 (VIDEOCOLOR 36219 . 37457)) (38291 44145 (\PEEKREFILL 38301 . 42412) (
|
||||
\READREFILL 42414 . 43008) (\RATOM/RSTRING-REFILL 43010 . 43588) (\READCREFILL 43590 . 44143)) (44146
|
||||
45975 (DRIBBLE 44156 . 45757) (DRIBBLEFILE 45759 . 45973)) (45976 52651 (\SETUP.DEFAULT.LINEBUF 45986
|
||||
. 48443) (\CREATELINEBUFFER 48445 . 50867) (\LINEBUF.READP 50869 . 51218) (\LINEBUF.EOFP 51220 .
|
||||
51559) (\LINEBUF.PEEKBIN 51561 . 51768) (\OPENLINEBUF 51770 . 52649)) (52726 53965 (LINEBUFFER-EOFP
|
||||
52736 . 53194) (LINEBUFFER-SKIPSEPRS 53196 . 53963)) (54322 54596 (\INTERMP 54332 . 54463) (\OUTTERMP
|
||||
54465 . 54594)))))
|
||||
(FILEMAP (NIL (2983 31940 (BKLINBUF 2993 . 3468) (CLEARBUF 3470 . 4802) (LINBUF 4804 . 4990) (
|
||||
PAGEFULLFN 4992 . 6473) (SETLINELENGTH 6475 . 6671) (SYSBUF 6673 . 6859) (TERMCHARWIDTH 6861 . 7278) (
|
||||
TERMINAL-INPUT 7280 . 7848) (TERMINAL-OUTPUT 7850 . 8436) (\CHDEL1 8438 . 8707) (\CLOSELINE 8709 .
|
||||
8998) (\DECPARENCOUNT 9000 . 10583) (\ECHOCHAR 10585 . 11277) (\FILLBUFFER 11279 . 24270) (
|
||||
\FILLBUFFER.WORDSEPRP 24272 . 24517) (\FILLBUFFER.BACKUP 24519 . 24698) (\GETCHAR 24700 . 25089) (
|
||||
\INCPARENCOUNT 25091 . 27703) (\RESETLINE 27705 . 28029) (\RESETTERMINAL 28031 . 28795) (\SAVELINEBUF
|
||||
28797 . 30768) (\STOPSCROLL? 30770 . 31938)) (32151 36007 (\DSCCOUT 32161 . 35301) (\INITBCPLDISPLAY
|
||||
35303 . 36005)) (36200 37450 (VIDEOCOLOR 36210 . 37448)) (38282 44136 (\PEEKREFILL 38292 . 42403) (
|
||||
\READREFILL 42405 . 42999) (\RATOM/RSTRING-REFILL 43001 . 43579) (\READCREFILL 43581 . 44134)) (44137
|
||||
45966 (DRIBBLE 44147 . 45748) (DRIBBLEFILE 45750 . 45964)) (45967 52642 (\SETUP.DEFAULT.LINEBUF 45977
|
||||
. 48434) (\CREATELINEBUFFER 48436 . 50858) (\LINEBUF.READP 50860 . 51209) (\LINEBUF.EOFP 51211 .
|
||||
51550) (\LINEBUF.PEEKBIN 51552 . 51759) (\OPENLINEBUF 51761 . 52640)) (52717 53956 (LINEBUFFER-EOFP
|
||||
52727 . 53185) (LINEBUFFER-SKIPSEPRS 53187 . 53954)) (54313 54587 (\INTERMP 54323 . 54454) (\OUTTERMP
|
||||
54456 . 54585)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
346
sources/BSP
346
sources/BSP
@@ -1,58 +1,59 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED "19-Jan-93 10:23:19" {DSK}<python>lde>lispcore>sources>BSP.;3 149048
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:26:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;2 149423
|
||||
|
||||
changes to%: (RECORDS BSPSOC ACKPUP BSPSTREAM)
|
||||
changes to%: (FNS \BSPINIT)
|
||||
|
||||
previous date%: " 4-Jan-93 17:24:25" {DSK}<python>lde>lispcore>sources>BSP.;2)
|
||||
previous date%: "19-Jan-93 10:23:19"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT BSPCOMS)
|
||||
|
||||
(RPAQQ BSPCOMS
|
||||
((DECLARE%: EVAL@COMPILE DONTCOPY (* ;
|
||||
"This socket record has both RTP and BSP state info")
|
||||
(RPAQQ BSPCOMS
|
||||
((DECLARE%: EVAL@COMPILE DONTCOPY (* ;
|
||||
"This socket record has both RTP and BSP state info")
|
||||
(RECORDS BSPSOC ACKPUP BSPSTREAM)
|
||||
(CONSTANTS * RTPSTATES)
|
||||
(CONSTANTS * RTPEVENTS)
|
||||
(CONSTANTS (WORDSPERPORT 3))
|
||||
(MACROS RTP.OTHERFN BSP.OTHERFN BSP.INPUT.ERROR BSP.OUTPUT.ERROR \BSPINCFILEPTR))
|
||||
(COMS (* ;
|
||||
"User-level RTP socket manipulation")
|
||||
(COMS (* ;
|
||||
"User-level RTP socket manipulation")
|
||||
(FNS OPENRTPSOCKET CLOSERTPSOCKET \INIT.RTPPROCESS))
|
||||
(COMS (* ; "RTP process")
|
||||
(COMS (* ; "RTP process")
|
||||
(FNS \RTP.SOCKET.PROCESS \RTP.HANDLE.INPUT \RTP.HANDLE.PUP \RTP.HANDLE.RFC \RTP.CLEANUP
|
||||
\RTP.ACTION \RTP.ERROR \RTP.SHOW.FAILURE \RTP.FILTER \SEND.ABORT
|
||||
\SEND.ANSWERING.RFC \SEND.END \SEND.ENDREPLY \SEND.RFC \FILLRTPPUP \SETRTPPORTS)
|
||||
(FNS \BSPINIT \BSPEVENTFN \BSP.CLOSE.OPEN.SOCKETS))
|
||||
(COMS (* ; "Creating BSP stream")
|
||||
(COMS (* ; "Creating BSP stream")
|
||||
(FNS OPENBSPSTREAM \SMASHBSPSTREAM BSPOUTPUTSTREAM BSPINPUTSTREAM BSPFRNADDRESS
|
||||
CLOSEBSPSTREAM \BSP.FLUSHINPUT BSPOPENP GETBSPUSERINFO SETBSPUSERINFO)
|
||||
(FNS CREATEBSPSTREAM ENDBSPSTREAM))
|
||||
(COMS (* ; "BSP stream functions")
|
||||
(COMS (* ; "BSP stream functions")
|
||||
(FNS BSPBIN \BSP.GETNEXTBUFFER BSPPEEKBIN BSPREADP BSPEOFP \BSPBACKFILEPTR
|
||||
\BSP.PREPARE.INPUT \BSP.GETFILEPTR \BSP.DECLARE.FILEPTR \BSP.SETFILEPTR
|
||||
\BSP.SKIPBYTES \BSP.CLEANUP.INPUT BSPBOUT \BSP.OTHERBOUT \BSPWRITEBLOCK
|
||||
BSPFORCEOUTPUT \BSP.SENDBUFFER \BSP.PREPARE.OUTPUT BSPGETMARK BSPPUTMARK
|
||||
BSP.PUTINTERRUPT))
|
||||
(COMS (* ; "BSP pup handler")
|
||||
(COMS (* ; "BSP pup handler")
|
||||
(FNS \BSP.HANDLE.INPUT \BSP.HANDLE.ACK \BSP.HANDLE.DATA \BSP.HANDLE.ERROR
|
||||
\BSP.HANDLE.INTERRUPT \BSP.HANDLE.INTERRUPTREPLY \SEND.ACK \SEARCH.OUTPUTQ
|
||||
\SETBSPTIMEOUT \TRANSMIT.STRATEGY))
|
||||
(COMS (* ; "BSP utilities")
|
||||
(COMS (* ; "BSP utilities")
|
||||
(FNS \BSP.DEFAULT.ERROR.HANDLER \BSP.TIMERFN \BSP.FLUSH.SOCKET.QUEUES \FILLBSPPUP
|
||||
BSPHELP))
|
||||
[COMS (* ; "debugging")
|
||||
[COMS (* ; "debugging")
|
||||
(FNS PPSOC PPSOC.CURRENT PRINTTIMER PRINTPUPQUEUE BSPPRINTPUP \RTP.INFO.HOOK)
|
||||
(DECLARE%: DONTCOPY (ALISTS (PUPPRINTMACROS 8 9 16 17 18 20]
|
||||
(INITRECORDS BSPSOC)
|
||||
(SYSRECORDS BSPSOC)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\BSPINIT)))
|
||||
(COMS (* ;
|
||||
"Some of these may want to be constants")
|
||||
(COMS (* ;
|
||||
"Some of these may want to be constants")
|
||||
(INITVARS (\BSPSOCKETS)
|
||||
(\RFC.TIMEOUT 2000)
|
||||
(\RTP.DALLY.TIMEOUT 5000)
|
||||
@@ -78,84 +79,84 @@ Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xe
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(DATATYPE BSPSOC ((FRNPORT WORD)
|
||||
(FRNSOCKET FIXP) (* ; "Net,host,socket of partner")
|
||||
(FRNSOCKET FIXP) (* ; "Net,host,socket of partner")
|
||||
(LCLPORT WORD)
|
||||
(LCLSOCKET FIXP) (* ; "Net,host,socket of us")
|
||||
(RTPSTATE BYTE) (* ;
|
||||
"The current state of the RTP connection, see RTPSTATES")
|
||||
(RTPPROCESS POINTER) (* ; "Process handle for RTP demon")
|
||||
(RTPEVENT POINTER) (* ; "Notified when RTPSTATE changes")
|
||||
(PUPSOC POINTER) (* ;
|
||||
"The packet-level socket used by us")
|
||||
(CONNID POINTER) (* ;
|
||||
"A large integer, the connection ID")
|
||||
(RTPTIMER POINTER) (* ;
|
||||
"Timer used for timing out some RTP steps")
|
||||
(RTPTIMEOUT WORD) (* ;
|
||||
"Timeout for current RTP op, or zero if none")
|
||||
(BSPINPUTHANDLER POINTER) (* ;
|
||||
"Function that is the top-level loop of the watcher process")
|
||||
(LCLSOCKET FIXP) (* ; "Net,host,socket of us")
|
||||
(RTPSTATE BYTE) (* ;
|
||||
"The current state of the RTP connection, see RTPSTATES")
|
||||
(RTPPROCESS POINTER) (* ; "Process handle for RTP demon")
|
||||
(RTPEVENT POINTER) (* ; "Notified when RTPSTATE changes")
|
||||
(PUPSOC POINTER) (* ;
|
||||
"The packet-level socket used by us")
|
||||
(CONNID POINTER) (* ;
|
||||
"A large integer, the connection ID")
|
||||
(RTPTIMER POINTER) (* ;
|
||||
"Timer used for timing out some RTP steps")
|
||||
(RTPTIMEOUT WORD) (* ;
|
||||
"Timeout for current RTP op, or zero if none")
|
||||
(BSPINPUTHANDLER POINTER) (* ;
|
||||
"Function that is the top-level loop of the watcher process")
|
||||
|
||||
(* ;; "The rest of this structure is dedicated to handling the BSP")
|
||||
(* ;; "The rest of this structure is dedicated to handling the BSP")
|
||||
|
||||
(BSPINPUTSTREAM POINTER) (* ; "Pointer back to STREAM object")
|
||||
(BSPTIMER POINTER) (* ; "Timer for BSP use")
|
||||
(BSPINPUTSTREAM POINTER) (* ; "Pointer back to STREAM object")
|
||||
(BSPTIMER POINTER) (* ; "Timer for BSP use")
|
||||
(BSPTIMEOUT WORD)
|
||||
(BSPFAILUREREASON POINTER) (* ;
|
||||
"Why connection was broken or not opened")
|
||||
(BSPOTHERPUPFN POINTER) (* ;
|
||||
"Called on error, interrupt and non-bsp pups")
|
||||
(BSPERRORHANDLER POINTER) (* ; "Called for bsp errors")
|
||||
(BSPIOTIMEOUT POINTER) (* ;
|
||||
"if non-zero will cause prepare.output and prepare.input to timeout")
|
||||
(RCVBYTEID POINTER) (* ; "ID of as far as we have acked")
|
||||
(RCVINTERRUPTID POINTER) (* ; "ID of next incoming interrupt")
|
||||
(BSPINPUTQ POINTER) (* ;
|
||||
"Queue of all pups we have received")
|
||||
(%#UNREADPUPS WORD) (* ;
|
||||
"How many pups do we have before first hole in input")
|
||||
(XMITBYTEID POINTER) (* ; "Id of next outgoing pup")
|
||||
(XMITINTERRUPTID POINTER) (* ; "id of next outgoing interrupt")
|
||||
(LASTACKID POINTER) (* ;
|
||||
"Id of last ack, i.e. how far our partner has read us")
|
||||
(BSPFAILUREREASON POINTER) (* ;
|
||||
"Why connection was broken or not opened")
|
||||
(BSPOTHERPUPFN POINTER) (* ;
|
||||
"Called on error, interrupt and non-bsp pups")
|
||||
(BSPERRORHANDLER POINTER) (* ; "Called for bsp errors")
|
||||
(BSPIOTIMEOUT POINTER) (* ;
|
||||
"if non-zero will cause prepare.output and prepare.input to timeout")
|
||||
(RCVBYTEID POINTER) (* ; "ID of as far as we have acked")
|
||||
(RCVINTERRUPTID POINTER) (* ; "ID of next incoming interrupt")
|
||||
(BSPINPUTQ POINTER) (* ;
|
||||
"Queue of all pups we have received")
|
||||
(%#UNREADPUPS WORD) (* ;
|
||||
"How many pups do we have before first hole in input")
|
||||
(XMITBYTEID POINTER) (* ; "Id of next outgoing pup")
|
||||
(XMITINTERRUPTID POINTER) (* ; "id of next outgoing interrupt")
|
||||
(LASTACKID POINTER) (* ;
|
||||
"Id of last ack, i.e. how far our partner has read us")
|
||||
(%#UNACKEDPUPS WORD)
|
||||
(%#UNACKEDBYTES WORD) (* ;
|
||||
"how many pups/bytes have we sent that haven't been acked")
|
||||
(BSPOUTPUTQ POINTER) (* ;
|
||||
"Queue of sent but not acked pups")
|
||||
(BYTESPERPUP WORD) (* ;
|
||||
"Maximum size we are allowed to grow pups")
|
||||
(PUPALLOC WORD) (* ;
|
||||
"Remaining outgoing pup allocation, i.e. partner's allocation less #UNACKEDPUPS")
|
||||
(BYTEALLOC WORD) (* ;
|
||||
"Remaining outgoing byte allocation")
|
||||
(%#UNACKEDBYTES WORD) (* ;
|
||||
"how many pups/bytes have we sent that haven't been acked")
|
||||
(BSPOUTPUTQ POINTER) (* ;
|
||||
"Queue of sent but not acked pups")
|
||||
(BYTESPERPUP WORD) (* ;
|
||||
"Maximum size we are allowed to grow pups")
|
||||
(PUPALLOC WORD) (* ;
|
||||
"Remaining outgoing pup allocation, i.e. partner's allocation less #UNACKEDPUPS")
|
||||
(BYTEALLOC WORD) (* ;
|
||||
"Remaining outgoing byte allocation")
|
||||
(MAXPUPALLOC WORD)
|
||||
(PUPALLOCCOUNT WORD)
|
||||
(ADATACOUNT WORD) (* ; "incremented once per AData sent")
|
||||
(LASTADATATIME POINTER) (* ; "Time last ADATA was sent")
|
||||
(ADATATIMEOUT WORD) (* ;
|
||||
"Timeout currently in use for AData")
|
||||
(INACTIVITYTIMER POINTER) (* ;
|
||||
"Time of last incoming pup on this connection")
|
||||
(LISTENING FLAG) (* ;
|
||||
"if socket was opened as a server rather than user")
|
||||
(INTERRUPTOUT FLAG) (* ;
|
||||
"an unacked interrupt is outstanding")
|
||||
(INTERRUPTIN FLAG) (* ; "an interrupt has been received")
|
||||
(ACKPENDING FLAG) (* ;
|
||||
"Adata was received, we need to ack")
|
||||
(ACKREQUESTED FLAG) (* ;
|
||||
"We have sent an Adata, are waiting for ack")
|
||||
(SENTZEROALLOC FLAG) (* ; "Need to send gratuitous ack")
|
||||
(BSPNOACTIVITY FLAG) (* ;
|
||||
"True if BSPINACTIVITYTIMEOUT has passed with no sign of life from other side")
|
||||
(BSPUSERSTATE POINTER) (* ;
|
||||
"For applications use to do as it pleases")
|
||||
(NIL WORD) (* ; "No longer used")
|
||||
(IOTIMEOUTFN POINTER) (* ;
|
||||
"function to be called when prepare.* timeout")
|
||||
(BSPWHENCLOSEDFN POINTER) (* ;
|
||||
"Called when connection is closed")
|
||||
(ADATACOUNT WORD) (* ; "incremented once per AData sent")
|
||||
(LASTADATATIME POINTER) (* ; "Time last ADATA was sent")
|
||||
(ADATATIMEOUT WORD) (* ;
|
||||
"Timeout currently in use for AData")
|
||||
(INACTIVITYTIMER POINTER) (* ;
|
||||
"Time of last incoming pup on this connection")
|
||||
(LISTENING FLAG) (* ;
|
||||
"if socket was opened as a server rather than user")
|
||||
(INTERRUPTOUT FLAG) (* ;
|
||||
"an unacked interrupt is outstanding")
|
||||
(INTERRUPTIN FLAG) (* ; "an interrupt has been received")
|
||||
(ACKPENDING FLAG) (* ;
|
||||
"Adata was received, we need to ack")
|
||||
(ACKREQUESTED FLAG) (* ;
|
||||
"We have sent an Adata, are waiting for ack")
|
||||
(SENTZEROALLOC FLAG) (* ; "Need to send gratuitous ack")
|
||||
(BSPNOACTIVITY FLAG) (* ;
|
||||
"True if BSPINACTIVITYTIMEOUT has passed with no sign of life from other side")
|
||||
(BSPUSERSTATE POINTER) (* ;
|
||||
"For applications use to do as it pleases")
|
||||
(NIL WORD) (* ; "No longer used")
|
||||
(IOTIMEOUTFN POINTER) (* ;
|
||||
"function to be called when prepare.* timeout")
|
||||
(BSPWHENCLOSEDFN POINTER) (* ;
|
||||
"Called when connection is closed")
|
||||
(BSPINPUTEVENT POINTER)
|
||||
(BSPLOCK POINTER)
|
||||
(BSPINITTIMER POINTER)
|
||||
@@ -174,7 +175,7 @@ Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xe
|
||||
(LCLPUPADDRESS (CONS (fetch LCLPORT of DATUM)
|
||||
(fetch LCLSOCKET of DATUM]
|
||||
|
||||
(* ;; "Note: I assume record pkg does not break up the first six words (the two ports). I hope I don't have to force it")
|
||||
(* ;; "Note: I assume record pkg does not break up the first six words (the two ports). I hope I don't have to force it")
|
||||
|
||||
RTPTIMER _ (CREATECELL \FIXP)
|
||||
BSPTIMER _ (CREATECELL \FIXP)
|
||||
@@ -185,25 +186,25 @@ Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xe
|
||||
|
||||
(BLOCKRECORD ACKPUP ((ACKBYTESPERPUP WORD)
|
||||
(ACKPUPS WORD)
|
||||
(ACKBYTES WORD)) (* ;
|
||||
"body of ACK pup, giving partner's allocation")
|
||||
(ACKBYTES WORD)) (* ;
|
||||
"body of ACK pup, giving partner's allocation")
|
||||
)
|
||||
|
||||
(ACCESSFNS BSPSTREAM [(BSPSOC (fetch F1 of DATUM)
|
||||
(replace F1 of DATUM with NEWVALUE))
|
||||
(* ; "BSPSOC object")
|
||||
(* ; "BSPSOC object")
|
||||
(BSPOUTPUTSTREAM (fetch F2 of DATUM)
|
||||
(replace F2 of DATUM with NEWVALUE))
|
||||
(* ;
|
||||
"If this stream is the input side, gives output side")
|
||||
(* ;
|
||||
"If this stream is the input side, gives output side")
|
||||
(BSPCURRENTPUP (fetch F3 of DATUM)
|
||||
(replace F3 of DATUM with NEWVALUE))
|
||||
(* ;
|
||||
"PUP whose body is the current buffer. Could be redundant")
|
||||
(* ;
|
||||
"PUP whose body is the current buffer. Could be redundant")
|
||||
(MARKPENDING (fetch F4 of DATUM)
|
||||
(replace F4 of DATUM with NEWVALUE))
|
||||
(* ;
|
||||
"On input, true if next byte is a mark")
|
||||
(* ;
|
||||
"On input, true if next byte is a mark")
|
||||
(BSPFILEPTRHI (fetch FW6 of DATUM)
|
||||
(replace FW6 of DATUM with NEWVALUE))
|
||||
(BSPFILEPTRLO (fetch FW7 of DATUM)
|
||||
@@ -317,16 +318,17 @@ Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xe
|
||||
)
|
||||
|
||||
|
||||
(RPAQQ RTPEVENTS ((\EVENT.OPEN 0)
|
||||
(\EVENT.OPENLISTENING 1)
|
||||
(\EVENT.OPENIMMEDIATE 2)
|
||||
(\EVENT.CLOSE 3)
|
||||
(\EVENT.FORCECLOSE 4)
|
||||
(\EVENT.RFC 5)
|
||||
(\EVENT.ABORT 6)
|
||||
(\EVENT.END 7)
|
||||
(\EVENT.ENDREPLY 8)
|
||||
(\EVENT.TIMEOUT 9)))
|
||||
(RPAQQ RTPEVENTS
|
||||
((\EVENT.OPEN 0)
|
||||
(\EVENT.OPENLISTENING 1)
|
||||
(\EVENT.OPENIMMEDIATE 2)
|
||||
(\EVENT.CLOSE 3)
|
||||
(\EVENT.FORCECLOSE 4)
|
||||
(\EVENT.RFC 5)
|
||||
(\EVENT.ABORT 6)
|
||||
(\EVENT.END 7)
|
||||
(\EVENT.ENDREPLY 8)
|
||||
(\EVENT.TIMEOUT 9)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \EVENT.OPEN 0)
|
||||
@@ -372,44 +374,47 @@ Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xe
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS RTP.OTHERFN MACRO ((PUP SOCKET)
|
||||
(SELECTQ (fetch OTHERPUPFN of SOCKET)
|
||||
(RELEASE.PUP (RELEASE.PUP PUP))
|
||||
(\BSP.PUPHANDLER
|
||||
(\BSP.PUPHANDLER PUP SOCKET))
|
||||
(APPLY* (fetch OTHERPUPFN of SOCKET)
|
||||
PUP SOCKET]
|
||||
(PUTPROPS RTP.OTHERFN MACRO ((PUP SOCKET)
|
||||
(SELECTQ (fetch OTHERPUPFN of SOCKET)
|
||||
(RELEASE.PUP (RELEASE.PUP PUP))
|
||||
(\BSP.PUPHANDLER
|
||||
(\BSP.PUPHANDLER PUP SOCKET))
|
||||
(APPLY* (fetch OTHERPUPFN of SOCKET)
|
||||
PUP SOCKET))))
|
||||
|
||||
[PUTPROPS BSP.OTHERFN MACRO ((PUP SOCKET)
|
||||
(SELECTQ (fetch BSPOTHERPUPFN of SOCKET)
|
||||
(RELEASE.PUP (RELEASE.PUP PUP))
|
||||
(APPLY* (fetch BSPOTHERPUPFN of SOCKET)
|
||||
PUP
|
||||
(fetch BSPINPUTSTREAM of SOCKET]
|
||||
(PUTPROPS BSP.OTHERFN MACRO [(PUP SOCKET)
|
||||
(SELECTQ (fetch BSPOTHERPUPFN of SOCKET)
|
||||
(RELEASE.PUP (RELEASE.PUP PUP))
|
||||
(APPLY* (fetch BSPOTHERPUPFN of SOCKET)
|
||||
PUP
|
||||
(fetch BSPINPUTSTREAM of SOCKET])
|
||||
|
||||
(PUTPROPS BSP.INPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
||||
(APPLY* (fetch BSPERRORHANDLER
|
||||
of (fetch BSPSOC of STREAM))
|
||||
STREAM ERRCODE)))
|
||||
(PUTPROPS BSP.INPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
||||
(APPLY* (fetch BSPERRORHANDLER
|
||||
of (fetch BSPSOC of STREAM))
|
||||
STREAM ERRCODE)))
|
||||
|
||||
(PUTPROPS BSP.OUTPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
||||
(APPLY* (fetch BSPERRORHANDLER
|
||||
of (fetch BSPSOC of STREAM))
|
||||
STREAM ERRCODE)))
|
||||
(PUTPROPS BSP.OUTPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
||||
(APPLY* (fetch BSPERRORHANDLER
|
||||
of (fetch BSPSOC of STREAM))
|
||||
STREAM ERRCODE)))
|
||||
|
||||
[PUTPROPS \BSPINCFILEPTR MACRO ((STREAM N)
|
||||
(PROG (NEWLO)
|
||||
(replace BSPFILEPTRLO of STREAM
|
||||
with (COND
|
||||
((IGREATERP (SETQ NEWLO
|
||||
(IPLUS (fetch BSPFILEPTRLO
|
||||
of STREAM)
|
||||
N))
|
||||
MAX.SMALL.INTEGER)
|
||||
(add (fetch BSPFILEPTRHI of STREAM)
|
||||
1)
|
||||
(SUB1 (IDIFFERENCE NEWLO MAX.SMALL.INTEGER)))
|
||||
(T NEWLO]
|
||||
(PUTPROPS \BSPINCFILEPTR MACRO [(STREAM N)
|
||||
(PROG (NEWLO)
|
||||
(replace BSPFILEPTRLO of STREAM
|
||||
with (COND
|
||||
((IGREATERP (SETQ NEWLO
|
||||
(IPLUS (fetch
|
||||
BSPFILEPTRLO
|
||||
of STREAM)
|
||||
N))
|
||||
MAX.SMALL.INTEGER)
|
||||
(add (fetch BSPFILEPTRHI
|
||||
of STREAM)
|
||||
1)
|
||||
(SUB1 (IDIFFERENCE NEWLO
|
||||
MAX.SMALL.INTEGER)))
|
||||
(T NEWLO])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -2662,33 +2667,34 @@ Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xe
|
||||
\BSP.MIN.ADATA.TIMEOUT \BSP.MAX.ADATA.TIMEOUT \BSP.INACTIVITY.TIMEOUT
|
||||
\BSP.NO.INACTIVITY.TIMEOUT)
|
||||
)
|
||||
(PUTPROPS BSP COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1900 1984 1985 1986 1987 1990 1993))
|
||||
(PUTPROPS BSP COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1900 1984 1985 1986 1987 1990 1993 2021
|
||||
))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (21817 29985 (OPENRTPSOCKET 21827 . 27095) (CLOSERTPSOCKET 27097 . 29287) (
|
||||
\INIT.RTPPROCESS 29289 . 29983)) (30014 56369 (\RTP.SOCKET.PROCESS 30024 . 30875) (\RTP.HANDLE.INPUT
|
||||
30877 . 31862) (\RTP.HANDLE.PUP 31864 . 33396) (\RTP.HANDLE.RFC 33398 . 35890) (\RTP.CLEANUP 35892 .
|
||||
36936) (\RTP.ACTION 36938 . 47410) (\RTP.ERROR 47412 . 47878) (\RTP.SHOW.FAILURE 47880 . 49317) (
|
||||
\RTP.FILTER 49319 . 50784) (\SEND.ABORT 50786 . 51704) (\SEND.ANSWERING.RFC 51706 . 53451) (\SEND.END
|
||||
53453 . 53665) (\SEND.ENDREPLY 53667 . 53889) (\SEND.RFC 53891 . 55263) (\FILLRTPPUP 55265 . 55948) (
|
||||
\SETRTPPORTS 55950 . 56367)) (56370 59627 (\BSPINIT 56380 . 58219) (\BSPEVENTFN 58221 . 58560) (
|
||||
\BSP.CLOSE.OPEN.SOCKETS 58562 . 59625)) (59664 73949 (OPENBSPSTREAM 59674 . 66650) (\SMASHBSPSTREAM
|
||||
66652 . 68023) (BSPOUTPUTSTREAM 68025 . 68381) (BSPINPUTSTREAM 68383 . 68617) (BSPFRNADDRESS 68619 .
|
||||
68836) (CLOSEBSPSTREAM 68838 . 71542) (\BSP.FLUSHINPUT 71544 . 72095) (BSPOPENP 72097 . 73376) (
|
||||
GETBSPUSERINFO 73378 . 73638) (SETBSPUSERINFO 73640 . 73947)) (73950 74411 (CREATEBSPSTREAM 73960 .
|
||||
74256) (ENDBSPSTREAM 74258 . 74409)) (74449 99242 (BSPBIN 74459 . 74591) (\BSP.GETNEXTBUFFER 74593 .
|
||||
76270) (BSPPEEKBIN 76272 . 76423) (BSPREADP 76425 . 77625) (BSPEOFP 77627 . 78407) (\BSPBACKFILEPTR
|
||||
78409 . 78843) (\BSP.PREPARE.INPUT 78845 . 83265) (\BSP.GETFILEPTR 83267 . 83563) (
|
||||
\BSP.DECLARE.FILEPTR 83565 . 83740) (\BSP.SETFILEPTR 83742 . 84359) (\BSP.SKIPBYTES 84361 . 85149) (
|
||||
\BSP.CLEANUP.INPUT 85151 . 86185) (BSPBOUT 86187 . 86408) (\BSP.OTHERBOUT 86410 . 86666) (
|
||||
\BSPWRITEBLOCK 86668 . 86927) (BSPFORCEOUTPUT 86929 . 87966) (\BSP.SENDBUFFER 87968 . 90804) (
|
||||
\BSP.PREPARE.OUTPUT 90806 . 94683) (BSPGETMARK 94685 . 95162) (BSPPUTMARK 95164 . 96773) (
|
||||
BSP.PUTINTERRUPT 96775 . 99240)) (99275 128762 (\BSP.HANDLE.INPUT 99285 . 102146) (\BSP.HANDLE.ACK
|
||||
102148 . 111276) (\BSP.HANDLE.DATA 111278 . 116210) (\BSP.HANDLE.ERROR 116212 . 117412) (
|
||||
\BSP.HANDLE.INTERRUPT 117414 . 118924) (\BSP.HANDLE.INTERRUPTREPLY 118926 . 120387) (\SEND.ACK 120389
|
||||
. 122309) (\SEARCH.OUTPUTQ 122311 . 123790) (\SETBSPTIMEOUT 123792 . 125676) (\TRANSMIT.STRATEGY
|
||||
125678 . 128760)) (128793 133197 (\BSP.DEFAULT.ERROR.HANDLER 128803 . 129217) (\BSP.TIMERFN 129219 .
|
||||
131655) (\BSP.FLUSH.SOCKET.QUEUES 131657 . 132536) (\FILLBSPPUP 132538 . 133059) (BSPHELP 133061 .
|
||||
133195)) (133224 143039 (PPSOC 133234 . 138530) (PPSOC.CURRENT 138532 . 138871) (PRINTTIMER 138873 .
|
||||
139355) (PRINTPUPQUEUE 139357 . 141632) (BSPPRINTPUP 141634 . 142306) (\RTP.INFO.HOOK 142308 . 143037)
|
||||
(FILEMAP (NIL (22186 30354 (OPENRTPSOCKET 22196 . 27464) (CLOSERTPSOCKET 27466 . 29656) (
|
||||
\INIT.RTPPROCESS 29658 . 30352)) (30383 56738 (\RTP.SOCKET.PROCESS 30393 . 31244) (\RTP.HANDLE.INPUT
|
||||
31246 . 32231) (\RTP.HANDLE.PUP 32233 . 33765) (\RTP.HANDLE.RFC 33767 . 36259) (\RTP.CLEANUP 36261 .
|
||||
37305) (\RTP.ACTION 37307 . 47779) (\RTP.ERROR 47781 . 48247) (\RTP.SHOW.FAILURE 48249 . 49686) (
|
||||
\RTP.FILTER 49688 . 51153) (\SEND.ABORT 51155 . 52073) (\SEND.ANSWERING.RFC 52075 . 53820) (\SEND.END
|
||||
53822 . 54034) (\SEND.ENDREPLY 54036 . 54258) (\SEND.RFC 54260 . 55632) (\FILLRTPPUP 55634 . 56317) (
|
||||
\SETRTPPORTS 56319 . 56736)) (56739 59996 (\BSPINIT 56749 . 58588) (\BSPEVENTFN 58590 . 58929) (
|
||||
\BSP.CLOSE.OPEN.SOCKETS 58931 . 59994)) (60033 74318 (OPENBSPSTREAM 60043 . 67019) (\SMASHBSPSTREAM
|
||||
67021 . 68392) (BSPOUTPUTSTREAM 68394 . 68750) (BSPINPUTSTREAM 68752 . 68986) (BSPFRNADDRESS 68988 .
|
||||
69205) (CLOSEBSPSTREAM 69207 . 71911) (\BSP.FLUSHINPUT 71913 . 72464) (BSPOPENP 72466 . 73745) (
|
||||
GETBSPUSERINFO 73747 . 74007) (SETBSPUSERINFO 74009 . 74316)) (74319 74780 (CREATEBSPSTREAM 74329 .
|
||||
74625) (ENDBSPSTREAM 74627 . 74778)) (74818 99611 (BSPBIN 74828 . 74960) (\BSP.GETNEXTBUFFER 74962 .
|
||||
76639) (BSPPEEKBIN 76641 . 76792) (BSPREADP 76794 . 77994) (BSPEOFP 77996 . 78776) (\BSPBACKFILEPTR
|
||||
78778 . 79212) (\BSP.PREPARE.INPUT 79214 . 83634) (\BSP.GETFILEPTR 83636 . 83932) (
|
||||
\BSP.DECLARE.FILEPTR 83934 . 84109) (\BSP.SETFILEPTR 84111 . 84728) (\BSP.SKIPBYTES 84730 . 85518) (
|
||||
\BSP.CLEANUP.INPUT 85520 . 86554) (BSPBOUT 86556 . 86777) (\BSP.OTHERBOUT 86779 . 87035) (
|
||||
\BSPWRITEBLOCK 87037 . 87296) (BSPFORCEOUTPUT 87298 . 88335) (\BSP.SENDBUFFER 88337 . 91173) (
|
||||
\BSP.PREPARE.OUTPUT 91175 . 95052) (BSPGETMARK 95054 . 95531) (BSPPUTMARK 95533 . 97142) (
|
||||
BSP.PUTINTERRUPT 97144 . 99609)) (99644 129131 (\BSP.HANDLE.INPUT 99654 . 102515) (\BSP.HANDLE.ACK
|
||||
102517 . 111645) (\BSP.HANDLE.DATA 111647 . 116579) (\BSP.HANDLE.ERROR 116581 . 117781) (
|
||||
\BSP.HANDLE.INTERRUPT 117783 . 119293) (\BSP.HANDLE.INTERRUPTREPLY 119295 . 120756) (\SEND.ACK 120758
|
||||
. 122678) (\SEARCH.OUTPUTQ 122680 . 124159) (\SETBSPTIMEOUT 124161 . 126045) (\TRANSMIT.STRATEGY
|
||||
126047 . 129129)) (129162 133566 (\BSP.DEFAULT.ERROR.HANDLER 129172 . 129586) (\BSP.TIMERFN 129588 .
|
||||
132024) (\BSP.FLUSH.SOCKET.QUEUES 132026 . 132905) (\FILLBSPPUP 132907 . 133428) (BSPHELP 133430 .
|
||||
133564)) (133593 143408 (PPSOC 133603 . 138899) (PPSOC.CURRENT 138901 . 139240) (PRINTTIMER 139242 .
|
||||
139724) (PRINTPUPQUEUE 139726 . 142001) (BSPPRINTPUP 142003 . 142675) (\RTP.INFO.HOOK 142677 . 143406)
|
||||
))))
|
||||
STOP
|
||||
|
||||
BIN
sources/BSP.LCOM
BIN
sources/BSP.LCOM
Binary file not shown.
@@ -1,104 +1,95 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
(FILECREATED " 3-Apr-91 15:11:53" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>CLSTREAMS.;4| 54013
|
||||
(FILECREATED " 5-Sep-2021 08:24:05"
|
||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;2| 52344
|
||||
|
||||
|changes| |to:| (FUNCTIONS CL:WITH-INPUT-FROM-STRING)
|
||||
|changes| |to:| (FNS %INITIALIZE-CLSTREAM-TYPES)
|
||||
|
||||
|previous| |date:| "27-Feb-91 20:05:55" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>CLSTREAMS.;3|)
|
||||
|previous| |date:| " 3-Apr-91 15:11:53"
|
||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;1|)
|
||||
|
||||
|
||||
; Copyright (c) 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xerox Corporation. All rights reserved.
|
||||
; Copyright (c) 1985-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(PRETTYCOMPRINT CLSTREAMSCOMS)
|
||||
|
||||
(RPAQQ CLSTREAMSCOMS (
|
||||
(RPAQQ CLSTREAMSCOMS
|
||||
(
|
||||
|
||||
(* |;;;| "Implements a number of stream functions from CommonLisp. See CLtL chapter 21")
|
||||
(* |;;;| "Implements a number of stream functions from CommonLisp. See CLtL chapter 21")
|
||||
|
||||
(COMS
|
||||
(* |;;| "documented functions and macros")
|
||||
(COMS
|
||||
(* |;;| "documented functions and macros")
|
||||
|
||||
(FUNCTIONS OPEN CL:CLOSE CL:STREAM-EXTERNAL-FORMAT)
|
||||
(FUNCTIONS CL:STREAM-ELEMENT-TYPE CL:INPUT-STREAM-P
|
||||
CL:OUTPUT-STREAM-P XCL:OPEN-STREAM-P)
|
||||
(COMS (FUNCTIONS FILE-STREAM-POSITION)
|
||||
(SETFS FILE-STREAM-POSITION))
|
||||
(FUNCTIONS CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P
|
||||
XCL:SYNONYM-STREAM-SYMBOL XCL:FOLLOW-SYNONYM-STREAMS)
|
||||
(FUNCTIONS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P
|
||||
XCL:BROADCAST-STREAM-STREAMS)
|
||||
(FUNCTIONS CL:MAKE-CONCATENATED-STREAM XCL:CONCATENATED-STREAM-P
|
||||
XCL:CONCATENATED-STREAM-STREAMS)
|
||||
(FUNCTIONS CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P
|
||||
XCL:TWO-WAY-STREAM-OUTPUT-STREAM
|
||||
XCL:TWO-WAY-STREAM-INPUT-STREAM)
|
||||
(FUNCTIONS CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P
|
||||
XCL:ECHO-STREAM-INPUT-STREAM XCL:ECHO-STREAM-OUTPUT-STREAM)
|
||||
(FUNCTIONS CL:MAKE-STRING-INPUT-STREAM
|
||||
MAKE-CONCATENATED-STRING-INPUT-STREAM)
|
||||
(FUNCTIONS %MAKE-INITIAL-STRING-STREAM-CONTENTS)
|
||||
(FUNCTIONS CL:WITH-OPEN-STREAM CL:WITH-INPUT-FROM-STRING
|
||||
CL:WITH-OUTPUT-TO-STRING CL:WITH-OPEN-FILE)
|
||||
(FUNCTIONS CL:MAKE-STRING-OUTPUT-STREAM
|
||||
MAKE-FILL-POINTER-OUTPUT-STREAM CL:GET-OUTPUT-STREAM-STRING
|
||||
\\STRING-STREAM-OUTCHARFN \\ADJUSTABLE-STRING-STREAM-OUTCHARFN
|
||||
))
|
||||
(COMS
|
||||
(* |;;| "helpers")
|
||||
(FUNCTIONS OPEN CL:CLOSE CL:STREAM-EXTERNAL-FORMAT)
|
||||
(FUNCTIONS CL:STREAM-ELEMENT-TYPE CL:INPUT-STREAM-P CL:OUTPUT-STREAM-P
|
||||
XCL:OPEN-STREAM-P)
|
||||
(COMS (FUNCTIONS FILE-STREAM-POSITION)
|
||||
(SETFS FILE-STREAM-POSITION))
|
||||
(FUNCTIONS CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P XCL:SYNONYM-STREAM-SYMBOL
|
||||
XCL:FOLLOW-SYNONYM-STREAMS)
|
||||
(FUNCTIONS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P XCL:BROADCAST-STREAM-STREAMS
|
||||
)
|
||||
(FUNCTIONS CL:MAKE-CONCATENATED-STREAM XCL:CONCATENATED-STREAM-P
|
||||
XCL:CONCATENATED-STREAM-STREAMS)
|
||||
(FUNCTIONS CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P XCL:TWO-WAY-STREAM-OUTPUT-STREAM
|
||||
XCL:TWO-WAY-STREAM-INPUT-STREAM)
|
||||
(FUNCTIONS CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P XCL:ECHO-STREAM-INPUT-STREAM
|
||||
XCL:ECHO-STREAM-OUTPUT-STREAM)
|
||||
(FUNCTIONS CL:MAKE-STRING-INPUT-STREAM MAKE-CONCATENATED-STRING-INPUT-STREAM)
|
||||
(FUNCTIONS %MAKE-INITIAL-STRING-STREAM-CONTENTS)
|
||||
(FUNCTIONS CL:WITH-OPEN-STREAM CL:WITH-INPUT-FROM-STRING CL:WITH-OUTPUT-TO-STRING
|
||||
CL:WITH-OPEN-FILE)
|
||||
(FUNCTIONS CL:MAKE-STRING-OUTPUT-STREAM MAKE-FILL-POINTER-OUTPUT-STREAM
|
||||
CL:GET-OUTPUT-STREAM-STRING \\STRING-STREAM-OUTCHARFN
|
||||
\\ADJUSTABLE-STRING-STREAM-OUTCHARFN))
|
||||
(COMS
|
||||
(* |;;| "helpers")
|
||||
|
||||
(FUNCTIONS %NEW-FILE PREDICT-NAME)
|
||||
(DECLARE\: EVAL@COMPILE DONTCOPY (FUNCTIONS INTERLISP-ACCESS)))
|
||||
(COMS
|
||||
(* |;;| "methods for the special devices")
|
||||
(FUNCTIONS %NEW-FILE PREDICT-NAME)
|
||||
(DECLARE\: EVAL@COMPILE DONTCOPY (FUNCTIONS INTERLISP-ACCESS)))
|
||||
(COMS
|
||||
(* |;;| "methods for the special devices")
|
||||
|
||||
(FNS %BROADCAST-STREAM-DEVICE-BOUT %BROADCAST-STREAM-DEVICE-OUTCHARFN
|
||||
%BROADCAST-STREAM-DEVICE-CLOSEFILE
|
||||
%BROADCAST-STREAM-DEVICE-FORCEOUTPUT)
|
||||
(FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN)
|
||||
(FNS %CONCATENATED-STREAM-DEVICE-BIN
|
||||
%CONCATENATED-STREAM-DEVICE-CLOSEFILE
|
||||
%CONCATENATED-STREAM-DEVICE-EOFP
|
||||
%CONCATENATED-STREAM-DEVICE-PEEKBIN
|
||||
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR)
|
||||
(FUNCTIONS %CONCATENATED-STREAM-DEVICE-CHARSETFN)
|
||||
(FNS %ECHO-STREAM-DEVICE-BIN)
|
||||
(FUNCTIONS %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM)
|
||||
(FNS %SYNONYM-STREAM-DEVICE-BIN %SYNONYM-STREAM-DEVICE-BOUT
|
||||
%SYNONYM-STREAM-DEVICE-OUTCHARFN
|
||||
%SYNONYM-STREAM-DEVICE-CLOSEFILE %SYNONYM-STREAM-DEVICE-EOFP
|
||||
%SYNONYM-STREAM-DEVICE-FORCEOUTPUT
|
||||
%SYNONYM-STREAM-DEVICE-GETFILEINFO
|
||||
%SYNONYM-STREAM-DEVICE-PEEKBIN %SYNONYM-STREAM-DEVICE-READP
|
||||
%SYNONYM-STREAM-DEVICE-BACKFILEPTR
|
||||
%SYNONYM-STREAM-DEVICE-SETFILEINFO
|
||||
%SYNONYM-STREAM-DEVICE-CHARSETFN)
|
||||
(FNS %TWO-WAY-STREAM-DEVICE-BIN %TWO-WAY-STREAM-DEVICE-INPUTSTREAM
|
||||
%TWO-WAY-STREAM-DEVICE-BOUT %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM
|
||||
%TWO-WAY-STREAM-DEVICE-OUTCHARFN
|
||||
%TWO-WAY-STREAM-DEVICE-CLOSEFILE %TWO-WAY-STREAM-DEVICE-EOFP
|
||||
%TWO-WAY-STREAM-DEVICE-READP %TWO-WAY-STREAM-DEVICE-BACKFILEPTR
|
||||
%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT
|
||||
%TWO-WAY-STREAM-DEVICE-PEEKBIN %TWO-WAY-STREAM-DEVICE-CHARSETFN)
|
||||
(FUNCTIONS %FILL-POINTER-STREAM-DEVICE-CLOSEFILE
|
||||
%FILL-POINTER-STREAM-DEVICE-GETFILEPTR)
|
||||
(GLOBALVARS %SYNONYM-STREAM-DEVICE %BROADCAST-STREAM-DEVICE
|
||||
%CONCATENATED-STREAM-DEVICE %TWO-WAY-STREAM-DEVICE
|
||||
%ECHO-STREAM-DEVICE \\FILL-POINTER-STREAM-DEVICE))
|
||||
(COMS
|
||||
(* |;;| "helper stuff")
|
||||
(FNS %BROADCAST-STREAM-DEVICE-BOUT %BROADCAST-STREAM-DEVICE-OUTCHARFN
|
||||
%BROADCAST-STREAM-DEVICE-CLOSEFILE %BROADCAST-STREAM-DEVICE-FORCEOUTPUT)
|
||||
(FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN)
|
||||
(FNS %CONCATENATED-STREAM-DEVICE-BIN %CONCATENATED-STREAM-DEVICE-CLOSEFILE
|
||||
%CONCATENATED-STREAM-DEVICE-EOFP %CONCATENATED-STREAM-DEVICE-PEEKBIN
|
||||
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR)
|
||||
(FUNCTIONS %CONCATENATED-STREAM-DEVICE-CHARSETFN)
|
||||
(FNS %ECHO-STREAM-DEVICE-BIN)
|
||||
(FUNCTIONS %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM)
|
||||
(FNS %SYNONYM-STREAM-DEVICE-BIN %SYNONYM-STREAM-DEVICE-BOUT
|
||||
%SYNONYM-STREAM-DEVICE-OUTCHARFN %SYNONYM-STREAM-DEVICE-CLOSEFILE
|
||||
%SYNONYM-STREAM-DEVICE-EOFP %SYNONYM-STREAM-DEVICE-FORCEOUTPUT
|
||||
%SYNONYM-STREAM-DEVICE-GETFILEINFO %SYNONYM-STREAM-DEVICE-PEEKBIN
|
||||
%SYNONYM-STREAM-DEVICE-READP %SYNONYM-STREAM-DEVICE-BACKFILEPTR
|
||||
%SYNONYM-STREAM-DEVICE-SETFILEINFO %SYNONYM-STREAM-DEVICE-CHARSETFN)
|
||||
(FNS %TWO-WAY-STREAM-DEVICE-BIN %TWO-WAY-STREAM-DEVICE-INPUTSTREAM
|
||||
%TWO-WAY-STREAM-DEVICE-BOUT %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM
|
||||
%TWO-WAY-STREAM-DEVICE-OUTCHARFN %TWO-WAY-STREAM-DEVICE-CLOSEFILE
|
||||
%TWO-WAY-STREAM-DEVICE-EOFP %TWO-WAY-STREAM-DEVICE-READP
|
||||
%TWO-WAY-STREAM-DEVICE-BACKFILEPTR %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT
|
||||
%TWO-WAY-STREAM-DEVICE-PEEKBIN %TWO-WAY-STREAM-DEVICE-CHARSETFN)
|
||||
(FUNCTIONS %FILL-POINTER-STREAM-DEVICE-CLOSEFILE %FILL-POINTER-STREAM-DEVICE-GETFILEPTR
|
||||
)
|
||||
(GLOBALVARS %SYNONYM-STREAM-DEVICE %BROADCAST-STREAM-DEVICE %CONCATENATED-STREAM-DEVICE
|
||||
%TWO-WAY-STREAM-DEVICE %ECHO-STREAM-DEVICE \\FILL-POINTER-STREAM-DEVICE))
|
||||
(COMS
|
||||
(* |;;| "helper stuff")
|
||||
|
||||
(FNS %SYNONYM-STREAM-DEVICE-GET-STREAM))
|
||||
(COMS
|
||||
(* |;;| "module initialization")
|
||||
(FNS %SYNONYM-STREAM-DEVICE-GET-STREAM))
|
||||
(COMS
|
||||
(* |;;| "module initialization")
|
||||
|
||||
(VARIABLES *DEBUG-IO* *QUERY-IO* *TERMINAL-IO* *ERROR-OUTPUT*
|
||||
*STANDARD-OUTPUT* *STANDARD-INPUT*)
|
||||
(FUNCTIONS %INITIALIZE-STANDARD-STREAMS)
|
||||
(FNS %INITIALIZE-CLSTREAM-TYPES)
|
||||
(DECLARE\: DONTEVAL@LOAD DOCOPY
|
||||
(* \; "initialization")
|
||||
(P (%INITIALIZE-CLSTREAM-TYPES)
|
||||
(%INITIALIZE-STANDARD-STREAMS))))
|
||||
(PROP FILETYPE CLSTREAMS)))
|
||||
(VARIABLES *DEBUG-IO* *QUERY-IO* *TERMINAL-IO* *ERROR-OUTPUT* *STANDARD-OUTPUT*
|
||||
*STANDARD-INPUT*)
|
||||
(FUNCTIONS %INITIALIZE-STANDARD-STREAMS)
|
||||
(FNS %INITIALIZE-CLSTREAM-TYPES)
|
||||
(DECLARE\: DONTEVAL@LOAD DOCOPY (* \; "initialization")
|
||||
(P (%INITIALIZE-CLSTREAM-TYPES)
|
||||
(%INITIALIZE-STANDARD-STREAMS))))
|
||||
(PROP FILETYPE CLSTREAMS)))
|
||||
|
||||
|
||||
|
||||
@@ -116,7 +107,7 @@
|
||||
(IF-DOES-NOT-EXIST NIL DOES-NOT-EXIST-P)
|
||||
(EXTERNAL-FORMAT :DEFAULT))
|
||||
|
||||
(* |;;;| "Return a stream which reads from or writes to Filename. Defined keywords: :direction (one of :input, :output or :probe :element-type), Type of object to read or write, default String-Char, :if-exists (one of :error, :new-version, :overwrite, :append or nil), :if-does-not-exist (one of :error, :create or nil). :external-format (one of :DEFAULT, :EUC, :JIS, :W-MS, :MS or :XCCS). The specification of :external-format is based on the JEIDA proposal. See the manual for details.")
|
||||
(* |;;;| "Return a stream which reads from or writes to Filename. Defined keywords: :direction (one of :input, :output or :probe :element-type), Type of object to read or write, default String-Char, :if-exists (one of :error, :new-version, :overwrite, :append or nil), :if-does-not-exist (one of :error, :create or nil). :external-format (one of :DEFAULT, :EUC, :JIS, :W-MS, :MS or :XCCS). The specification of :external-format is based on the JEIDA proposal. See the manual for details.")
|
||||
|
||||
(CL:UNLESS (MEMQ DIRECTION '(:INPUT :OUTPUT :IO :PROBE))
|
||||
(CL:ERROR "~S isn't a valid direction for open." DIRECTION))
|
||||
@@ -142,14 +133,14 @@
|
||||
ELSE 'TEXT))
|
||||
(STREAM NIL))
|
||||
|
||||
(* |;;;| "Do hairy defaulting of :if-exists and :if-does-not-exist keywords.")
|
||||
(* |;;;| "Do hairy defaulting of :if-exists and :if-does-not-exist keywords.")
|
||||
|
||||
(CL:UNLESS EXISTS-P
|
||||
(SETQ IF-EXISTS (CL:IF (EQ (CL:PATHNAME-VERSION PATHNAME)
|
||||
:NEWEST)
|
||||
:NEW-VERSION
|
||||
:ERROR))) (* \;
|
||||
"If the file does not exist, it is OK to have :if-exists :overwrite. ")
|
||||
:ERROR))) (* \;
|
||||
"If the file does not exist, it is OK to have :if-exists :overwrite. ")
|
||||
(CL:UNLESS DOES-NOT-EXIST-P
|
||||
(SETQ IF-DOES-NOT-EXIST (COND
|
||||
((OR (EQ IF-EXISTS :APPEND)
|
||||
@@ -158,16 +149,16 @@
|
||||
((EQ DIRECTION :PROBE)
|
||||
NIL)
|
||||
(T :CREATE))))
|
||||
(CL:LOOP (* \;
|
||||
"See if the file exists and handle the existential keywords.")
|
||||
(CL:LOOP (* \;
|
||||
"See if the file exists and handle the existential keywords.")
|
||||
(LET* ((NAME (PREDICT-NAME PATHNAME))
|
||||
(CL:NAMESTRING (MKSTRING NAME)))
|
||||
(IF NAME
|
||||
THEN (* \; "file exists")
|
||||
THEN (* \; "file exists")
|
||||
(IF FOR-OUTPUT
|
||||
THEN
|
||||
|
||||
(* |;;| "open for output/both")
|
||||
(* |;;| "open for output/both")
|
||||
|
||||
(CASE IF-EXISTS
|
||||
(:ERROR
|
||||
@@ -189,15 +180,15 @@
|
||||
(RETURN NIL))
|
||||
(:APPEND
|
||||
(IF (EQ DIRECTION :OUTPUT)
|
||||
THEN (* \;
|
||||
"if the direction is output it is the same as interlisp append")
|
||||
THEN (* \;
|
||||
"if the direction is output it is the same as interlisp append")
|
||||
(SETQ STREAM (OPENSTREAM CL:NAMESTRING 'APPEND
|
||||
'OLD
|
||||
`((TYPE ,FILE-TYPE)
|
||||
(EXTERNALFORMAT
|
||||
,EXTERNAL-FORMAT))))
|
||||
ELSE (* \;
|
||||
"if direction is io it opens the file for both and goes to the end of the file")
|
||||
ELSE (* \;
|
||||
"if direction is io it opens the file for both and goes to the end of the file")
|
||||
(SETQ STREAM (OPENSTREAM CL:NAMESTRING 'BOTH
|
||||
'OLD
|
||||
`((TYPE ,FILE-TYPE)
|
||||
@@ -210,7 +201,7 @@
|
||||
|elseif| FOR-INPUT
|
||||
|then|
|
||||
|
||||
(* |;;| "open for input/both")
|
||||
(* |;;| "open for input/both")
|
||||
|
||||
(SETQ STREAM (OPENSTREAM CL:NAMESTRING ACCESS 'OLD
|
||||
`((TYPE ,FILE-TYPE)
|
||||
@@ -218,14 +209,14 @@
|
||||
(RETURN NIL)
|
||||
|else|
|
||||
|
||||
(* |;;| "open for probe")
|
||||
(* |;;| "open for probe")
|
||||
|
||||
(SETQ STREAM (|create| STREAM
|
||||
FULLFILENAME _ (FULLNAME CL:NAMESTRING)))
|
||||
(RETURN NIL))
|
||||
|else|
|
||||
|
||||
(* |;;| "file does not exist")
|
||||
(* |;;| "file does not exist")
|
||||
|
||||
(|if| FOR-OUTPUT
|
||||
|then| (CASE IF-DOES-NOT-EXIST
|
||||
@@ -253,28 +244,28 @@
|
||||
((NIL) (CL:RETURN-FROM OPEN NIL))
|
||||
(T (CL:ERROR "~S is not a valid value for :if-does-not-exist."
|
||||
IF-DOES-NOT-EXIST)))
|
||||
|else| (* \; "Open for probe.")
|
||||
|else| (* \; "Open for probe.")
|
||||
(RETURN NIL)))))
|
||||
(STREAMPROP STREAM :FILE-STREAM-P T)
|
||||
STREAM))
|
||||
|
||||
(CL:DEFUN CL:CLOSE (STREAM &KEY ABORT)
|
||||
|
||||
(* |;;;| "Close a stream. If ABORT, then don't keep the file")
|
||||
(* |;;;| "Close a stream. If ABORT, then don't keep the file")
|
||||
|
||||
(|if| (STREAMP STREAM)
|
||||
|then| (|if| (OPENP STREAM)
|
||||
|then|
|
||||
|
||||
(* |;;|
|
||||
"determine 'deletability' of stream's file before closing, as that trashes the info")
|
||||
(* |;;|
|
||||
"determine 'deletability' of stream's file before closing, as that trashes the info")
|
||||
|
||||
(LET ((ABORTABLE (AND (DIRTYABLE STREAM)
|
||||
(NOT (APPENDONLY STREAM)))))
|
||||
(CLOSEF STREAM)
|
||||
(|if| (AND ABORT ABORTABLE)
|
||||
|then| (* \;
|
||||
"eventually we will change device CLOSEF methods to take an ABORT arg. For now, simulate it.")
|
||||
|then| (* \;
|
||||
"eventually we will change device CLOSEF methods to take an ABORT arg. For now, simulate it.")
|
||||
(DELFILE (CL:NAMESTRING STREAM)))))
|
||||
|else| (ERROR "Closing a non-stream" STREAM))
|
||||
T)
|
||||
@@ -289,7 +280,7 @@
|
||||
(CL:WHEN (NOT (STREAMP STREAM))
|
||||
(\\ILLEGAL.ARG STREAM))
|
||||
|
||||
(* |;;| "we return T instead of the stream because Symbolics does")
|
||||
(* |;;| "we return T instead of the stream because Symbolics does")
|
||||
|
||||
(AND (\\IOMODEP STREAM 'INPUT T)
|
||||
T))
|
||||
@@ -298,14 +289,14 @@
|
||||
(CL:WHEN (NOT (STREAMP STREAM))
|
||||
(\\ILLEGAL.ARG STREAM))
|
||||
|
||||
(* |;;| "we return T instead of the stream because Symbolics does")
|
||||
(* |;;| "we return T instead of the stream because Symbolics does")
|
||||
|
||||
(AND (\\IOMODEP STREAM 'OUTPUT T)
|
||||
T))
|
||||
|
||||
(CL:DEFUN XCL:OPEN-STREAM-P (STREAM)
|
||||
|
||||
(* |;;| "is stream an open stream?")
|
||||
(* |;;| "is stream an open stream?")
|
||||
|
||||
(AND (STREAMP STREAM)
|
||||
(OPENED STREAM)))
|
||||
@@ -317,7 +308,7 @@
|
||||
|
||||
(CL:DEFUN CL:MAKE-SYNONYM-STREAM (CL:SYMBOL)
|
||||
|
||||
(* |;;| "A CommonLisp function for shadowing a stream. See CLtL p. 329")
|
||||
(* |;;| "A CommonLisp function for shadowing a stream. See CLtL p. 329")
|
||||
|
||||
(LET ((STREAM (|create| STREAM
|
||||
DEVICE _ %SYNONYM-STREAM-DEVICE
|
||||
@@ -328,7 +319,7 @@
|
||||
OUTCHARFN _ (FUNCTION %SYNONYM-STREAM-DEVICE-OUTCHARFN))))
|
||||
(STREAMPROP STREAM 'XCL:SYNONYM-STREAM-P T)
|
||||
|
||||
(* |;;| "save the synonym stream in the OPENFILELST field of %SYNONYM-STREAM-DEVICE")
|
||||
(* |;;| "save the synonym stream in the OPENFILELST field of %SYNONYM-STREAM-DEVICE")
|
||||
|
||||
(|replace| (FDEV OPENFILELST) |of| %SYNONYM-STREAM-DEVICE
|
||||
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %SYNONYM-STREAM-DEVICE)))
|
||||
@@ -343,7 +334,7 @@
|
||||
|
||||
(CL:DEFUN XCL:FOLLOW-SYNONYM-STREAMS (STREAM)
|
||||
|
||||
(* |;;;| "Return the non-synonym stream at the heart of STREAM.")
|
||||
(* |;;;| "Return the non-synonym stream at the heart of STREAM.")
|
||||
|
||||
(CL:IF (XCL:SYNONYM-STREAM-P STREAM)
|
||||
(XCL:FOLLOW-SYNONYM-STREAMS (CL:SYMBOL-VALUE (XCL:SYNONYM-STREAM-SYMBOL STREAM)))
|
||||
@@ -351,7 +342,7 @@
|
||||
|
||||
(CL:DEFUN CL:MAKE-BROADCAST-STREAM (&REST STREAMS)
|
||||
|
||||
(* |;;| "CommonLisp function that makes a broadcast stream. See CLtL p329")
|
||||
(* |;;| "CommonLisp function that makes a broadcast stream. See CLtL p329")
|
||||
|
||||
(IF (FOR STREAM? IN STREAMS ALWAYS (STREAMP STREAM?))
|
||||
THEN (LET ((STREAM (|create| STREAM
|
||||
@@ -366,20 +357,20 @@
|
||||
|
||||
(CL:DEFUN XCL:BROADCAST-STREAM-P (STREAM)
|
||||
|
||||
(* |;;| "is stream a broadcast stream?")
|
||||
(* |;;| "is stream a broadcast stream?")
|
||||
|
||||
(STREAMPROP STREAM 'XCL:BROADCAST-STREAM-P))
|
||||
|
||||
(CL:DEFUN XCL:BROADCAST-STREAM-STREAMS (STREAM)
|
||||
|
||||
(* |;;| "return all of the streams that STREAM broadcasts to")
|
||||
(* |;;| "return all of the streams that STREAM broadcasts to")
|
||||
|
||||
(AND (XCL:BROADCAST-STREAM-P STREAM)
|
||||
(FETCH (STREAM F1) OF STREAM)))
|
||||
|
||||
(CL:DEFUN CL:MAKE-CONCATENATED-STREAM (&REST STREAMS)
|
||||
|
||||
(* |;;| "CommonLisp function that creates a concatenated stream. See CLtL p. 329")
|
||||
(* |;;| "CommonLisp function that creates a concatenated stream. See CLtL p. 329")
|
||||
|
||||
(IF (FOR STREAM? IN STREAMS ALWAYS (STREAMP STREAM?))
|
||||
THEN (LET ((STREAM (|create| STREAM
|
||||
@@ -396,14 +387,14 @@
|
||||
|
||||
(CL:DEFUN XCL:CONCATENATED-STREAM-STREAMS (STREAM)
|
||||
|
||||
(* |;;| "return all of STREAM's concatenated streams")
|
||||
(* |;;| "return all of STREAM's concatenated streams")
|
||||
|
||||
(AND (XCL:CONCATENATED-STREAM-P STREAM)
|
||||
(FETCH (STREAM F1) OF STREAM)))
|
||||
|
||||
(CL:DEFUN CL:MAKE-TWO-WAY-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM)
|
||||
|
||||
(* |;;| "A CommonLisp function for splicing together two streams. See CLtL p. 329")
|
||||
(* |;;| "A CommonLisp function for splicing together two streams. See CLtL p. 329")
|
||||
|
||||
(CL:UNLESS (STREAMP CL::INPUT-STREAM)
|
||||
(\\ILLEGAL.ARG CL::INPUT-STREAM))
|
||||
@@ -418,7 +409,7 @@
|
||||
OUTCHARFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTCHARFN))))
|
||||
(STREAMPROP STREAM 'XCL:TWO-WAY-STREAM-P T)
|
||||
|
||||
(* |;;| "save STREAM in the OPENFILELST field of %TWO-WAY-STREAM-DEVICE")
|
||||
(* |;;| "save STREAM in the OPENFILELST field of %TWO-WAY-STREAM-DEVICE")
|
||||
|
||||
(|replace| (FDEV OPENFILELST) |of| %TWO-WAY-STREAM-DEVICE
|
||||
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %TWO-WAY-STREAM-DEVICE)))
|
||||
@@ -426,7 +417,7 @@
|
||||
|
||||
(CL:DEFUN XCL:TWO-WAY-STREAM-P (STREAM)
|
||||
|
||||
(* |;;| "is STREAM a two-way stream?")
|
||||
(* |;;| "is STREAM a two-way stream?")
|
||||
|
||||
(STREAMPROP STREAM 'XCL:TWO-WAY-STREAM-P))
|
||||
|
||||
@@ -440,7 +431,7 @@
|
||||
|
||||
(CL:DEFUN CL:MAKE-ECHO-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM)
|
||||
|
||||
(* |;;| "A CommonLisp function for making an echo stream. See CLtL p. 329")
|
||||
(* |;;| "A CommonLisp function for making an echo stream. See CLtL p. 329")
|
||||
|
||||
(CL:UNLESS (STREAMP CL::INPUT-STREAM)
|
||||
(\\ILLEGAL.ARG CL::INPUT-STREAM))
|
||||
@@ -455,7 +446,7 @@
|
||||
OUTCHARFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTCHARFN))))
|
||||
(STREAMPROP STREAM 'XCL:ECHO-STREAM-P T)
|
||||
|
||||
(* |;;| "save STREAM in the OPENFILELST field of %ECHO-STREAM-DEVICE")
|
||||
(* |;;| "save STREAM in the OPENFILELST field of %ECHO-STREAM-DEVICE")
|
||||
|
||||
(|replace| (FDEV OPENFILELST) |of| %ECHO-STREAM-DEVICE
|
||||
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %ECHO-STREAM-DEVICE)))
|
||||
@@ -463,7 +454,7 @@
|
||||
|
||||
(CL:DEFUN XCL:ECHO-STREAM-P (STREAM)
|
||||
|
||||
(* |;;| "is stream an echo stream?")
|
||||
(* |;;| "is stream an echo stream?")
|
||||
|
||||
(STREAMPROP STREAM 'XCL:ECHO-STREAM-P))
|
||||
|
||||
@@ -478,13 +469,13 @@
|
||||
(CL:DEFUN CL:MAKE-STRING-INPUT-STREAM (STRING &OPTIONAL (CL::START 0)
|
||||
(CL::END NIL))
|
||||
|
||||
(* |;;;| "A CommonLisp function for producing a stream from a string. See CLtL p. 330")
|
||||
(* |;;;| "A CommonLisp function for producing a stream from a string. See CLtL p. 330")
|
||||
|
||||
(OPENSTRINGSTREAM (|if| (OR (NOT (CL:ZEROP CL::START))
|
||||
(NOT (NULL CL::END)))
|
||||
|then|
|
||||
|
||||
(* |;;| "A displaced array is ok here because the stream's uses GETBASEBYTE directly and doesn't go through the array code at all. ")
|
||||
(* |;;| "A displaced array is ok here because the stream's uses GETBASEBYTE directly and doesn't go through the array code at all. ")
|
||||
|
||||
(SUBSTRING STRING (CL:1+ CL::START)
|
||||
CL::END)
|
||||
@@ -531,11 +522,11 @@
|
||||
,@CL::DECLS
|
||||
,@(CL:IF CL::INDEXP
|
||||
|
||||
(* |;;| "This exists as a fudge for the fat string problem. It WILL GO AWAY when STRINGSTREAMS HAVE THEIR OWN DEVICE.")
|
||||
(* |;;| "This exists as a fudge for the fat string problem. It WILL GO AWAY when STRINGSTREAMS HAVE THEIR OWN DEVICE.")
|
||||
|
||||
`((CL:MULTIPLE-VALUE-PROG1 (PROGN ,@CL::BODY)
|
||||
|
||||
(* |;;| "(IF (FASL::FAT-STRING-P $STRING$) (SETF ,INDEX (+ $START$ (IL:IQUOTIENT (IL:GETFILEPTR ,VAR) 2))) (SETF ,INDEX (+ $START$ (IL:GETFILEPTR ,VAR))))")
|
||||
(* |;;| "(IF (FASL::FAT-STRING-P $STRING$) (SETF ,INDEX (+ $START$ (IL:IQUOTIENT (IL:GETFILEPTR ,VAR) 2))) (SETF ,INDEX (+ $START$ (IL:GETFILEPTR ,VAR))))")
|
||||
|
||||
(CL:SETF ,CL::INDEX (+ CL::$START$ (GETFILEPTR ,CL::VAR)))))
|
||||
CL::BODY))))
|
||||
@@ -555,7 +546,7 @@
|
||||
&BODY
|
||||
(FORMS DECLS))
|
||||
|
||||
(* |;;;| "The file whose name is File-Name is opened using the OPEN-ARGS and bound to the variable VAR. The Forms are executed, and when they terminate, normally or otherwise, the file is closed.")
|
||||
(* |;;;| "The file whose name is File-Name is opened using the OPEN-ARGS and bound to the variable VAR. The Forms are executed, and when they terminate, normally or otherwise, the file is closed.")
|
||||
|
||||
(LET ((ABORTP (GENSYM)))
|
||||
`(LET ((,VAR (OPEN ,@OPEN-ARGS))
|
||||
@@ -568,7 +559,7 @@
|
||||
|
||||
(DEFINLINE CL:MAKE-STRING-OUTPUT-STREAM ()
|
||||
|
||||
(* |;;;| "A function for producing a string stream. See also the function get-output-stream-string. Also, see CLtL p. 330")
|
||||
(* |;;;| "A function for producing a string stream. See also the function get-output-stream-string. Also, see CLtL p. 330")
|
||||
|
||||
(MAKE-FILL-POINTER-OUTPUT-STREAM))
|
||||
|
||||
@@ -583,8 +574,8 @@
|
||||
F1 _ STRING
|
||||
ACCESS _ 'OUTPUT
|
||||
OTHERPROPS _ '(STRING-OUTPUT-STREAM T))))
|
||||
(* \;
|
||||
"give it a canned property list to save some consing.")
|
||||
(* \;
|
||||
"give it a canned property list to save some consing.")
|
||||
(|replace| (STREAM OUTCHARFN) |of| STREAM
|
||||
|with| (|if| (EXTENDABLE-ARRAY-P STRING)
|
||||
|then| (FUNCTION \\ADJUSTABLE-STRING-STREAM-OUTCHARFN)
|
||||
@@ -595,7 +586,7 @@
|
||||
|
||||
(CL:DEFUN CL:GET-OUTPUT-STREAM-STRING (STRING-OUTPUT-STREAM)
|
||||
|
||||
(* |;;;| "A CommonLisp function for getting the contents of the buffer created by a call to make-string-output-stream. See CLtL p. 330")
|
||||
(* |;;;| "A CommonLisp function for getting the contents of the buffer created by a call to make-string-output-stream. See CLtL p. 330")
|
||||
|
||||
(|if| (NOT (STREAMPROP STRING-OUTPUT-STREAM 'STRING-OUTPUT-STREAM))
|
||||
|then| (ERROR "Stream not a string-output-stream" STRING-OUTPUT-STREAM)
|
||||
@@ -624,7 +615,7 @@
|
||||
ELSE (ADD (FETCH (STREAM CHARPOSITION) OF STREAM)
|
||||
1))
|
||||
|
||||
(* |;;| "Do the equivalent of VECTOR-PUSH-EXTEND inline to save the significant! overhead of calculating the new length at each character.")
|
||||
(* |;;| "Do the equivalent of VECTOR-PUSH-EXTEND inline to save the significant! overhead of calculating the new length at each character.")
|
||||
|
||||
(CL:UNLESS (CL:VECTOR-PUSH CH STRING)
|
||||
(LET ((CURRENT-LENGTH (CL:ARRAY-TOTAL-SIZE STRING)))
|
||||
@@ -689,7 +680,7 @@
|
||||
|
||||
(CL:DEFUN %BROADCAST-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE)
|
||||
|
||||
(* |;;| "charset function for broadcast streams. Not clear what the value should be, so we arbitrarily return the value of the last stream.")
|
||||
(* |;;| "charset function for broadcast streams. Not clear what the value should be, so we arbitrarily return the value of the last stream.")
|
||||
|
||||
(FOR S IN (FETCH (STREAM F1) OF STREAM) DO (SETQ $$VAL (ACCESS-CHARSET S
|
||||
NEWVALUE))))
|
||||
@@ -718,7 +709,7 @@
|
||||
|
||||
(CL:DEFUN %CONCATENATED-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE)
|
||||
|
||||
(* |;;| "the charset method for concatenated stream devices")
|
||||
(* |;;| "the charset method for concatenated stream devices")
|
||||
|
||||
(LET ((STREAMS (FETCH (STREAM F1) OF STREAM)))
|
||||
(IF STREAMS
|
||||
@@ -734,7 +725,7 @@
|
||||
|
||||
(CL:DEFUN %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM (SYNONYM-STREAM)
|
||||
|
||||
(* |;;| "given a synonym-stream, find out what it is currently tracking")
|
||||
(* |;;| "given a synonym-stream, find out what it is currently tracking")
|
||||
|
||||
(CL:SYMBOL-VALUE (XCL:SYNONYM-STREAM-SYMBOL SYNONYM-STREAM)))
|
||||
(DEFINEQ
|
||||
@@ -889,7 +880,7 @@
|
||||
|
||||
(CL:DEFUN %FILL-POINTER-STREAM-DEVICE-CLOSEFILE (STREAM &OPTIONAL ABORTFLAG)
|
||||
|
||||
(* |;;;| "the CLOSEFILE method for the fill-pointer-string-stream device")
|
||||
(* |;;;| "the CLOSEFILE method for the fill-pointer-string-stream device")
|
||||
|
||||
(|replace| F1 |of| STREAM |with| NIL)
|
||||
STREAM)
|
||||
@@ -932,8 +923,8 @@
|
||||
|
||||
(CL:DEFUN %INITIALIZE-STANDARD-STREAMS ()
|
||||
|
||||
(* |;;|
|
||||
"Called when CLSTREAMS is loaded. Almost everything is same as *TERMINAL-IO* to start with.")
|
||||
(* |;;|
|
||||
"Called when CLSTREAMS is loaded. Almost everything is same as *TERMINAL-IO* to start with.")
|
||||
|
||||
(CL:SETQ *QUERY-IO* (CL:MAKE-TWO-WAY-STREAM (CL:MAKE-SYNONYM-STREAM '\\LINEBUF.OFD)
|
||||
(CL:MAKE-SYNONYM-STREAM '\\TERM.OFD)))
|
||||
@@ -953,27 +944,51 @@
|
||||
(%INITIALIZE-STANDARD-STREAMS)
|
||||
)
|
||||
|
||||
(PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE)
|
||||
(PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991))
|
||||
(PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE)
|
||||
(PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 2021))
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (34128 35316 (%BROADCAST-STREAM-DEVICE-BOUT 34138 . 34361) (
|
||||
%BROADCAST-STREAM-DEVICE-OUTCHARFN 34363 . 34814) (%BROADCAST-STREAM-DEVICE-CLOSEFILE 34816 . 35055) (
|
||||
%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 35057 . 35314)) (35732 37791 (%CONCATENATED-STREAM-DEVICE-BIN
|
||||
35742 . 36147) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 36149 . 36462) (%CONCATENATED-STREAM-DEVICE-EOFP
|
||||
36464 . 36828) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 36830 . 37305) (
|
||||
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 37307 . 37789)) (38129 38348 (%ECHO-STREAM-DEVICE-BIN 38139 .
|
||||
38346)) (38576 41921 (%SYNONYM-STREAM-DEVICE-BIN 38586 . 38774) (%SYNONYM-STREAM-DEVICE-BOUT 38776 .
|
||||
38977) (%SYNONYM-STREAM-DEVICE-OUTCHARFN 38979 . 39686) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 39688 .
|
||||
40272) (%SYNONYM-STREAM-DEVICE-EOFP 40274 . 40465) (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 40467 . 40705)
|
||||
(%SYNONYM-STREAM-DEVICE-GETFILEINFO 40707 . 40944) (%SYNONYM-STREAM-DEVICE-PEEKBIN 40946 . 41169) (
|
||||
%SYNONYM-STREAM-DEVICE-READP 41171 . 41282) (%SYNONYM-STREAM-DEVICE-BACKFILEPTR 41284 . 41430) (
|
||||
%SYNONYM-STREAM-DEVICE-SETFILEINFO 41432 . 41681) (%SYNONYM-STREAM-DEVICE-CHARSETFN 41683 . 41919)) (
|
||||
41922 46247 (%TWO-WAY-STREAM-DEVICE-BIN 41932 . 42105) (%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 42107 .
|
||||
42298) (%TWO-WAY-STREAM-DEVICE-BOUT 42300 . 42472) (%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 42474 . 42664)
|
||||
(%TWO-WAY-STREAM-DEVICE-OUTCHARFN 42666 . 43528) (%TWO-WAY-STREAM-DEVICE-CLOSEFILE 43530 . 44953) (
|
||||
%TWO-WAY-STREAM-DEVICE-EOFP 44955 . 45131) (%TWO-WAY-STREAM-DEVICE-READP 45133 . 45326) (
|
||||
%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 45328 . 45464) (%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 45466 . 45695) (
|
||||
%TWO-WAY-STREAM-DEVICE-PEEKBIN 45697 . 45910) (%TWO-WAY-STREAM-DEVICE-CHARSETFN 45912 . 46245)) (46835
|
||||
47074 (%SYNONYM-STREAM-DEVICE-GET-STREAM 46845 . 47072)) (47780 53743 (%INITIALIZE-CLSTREAM-TYPES
|
||||
47790 . 53741)))))
|
||||
(FILEMAP (NIL (5231 14534 (OPEN 5231 . 14534)) (14536 15482 (CL:CLOSE 14536 . 15482)) (15484 15562 (
|
||||
CL:STREAM-EXTERNAL-FORMAT 15484 . 15562)) (15564 15631 (CL:STREAM-ELEMENT-TYPE 15564 . 15631)) (15633
|
||||
15867 (CL:INPUT-STREAM-P 15633 . 15867)) (15869 16105 (CL:OUTPUT-STREAM-P 15869 . 16105)) (16107 16244
|
||||
(XCL:OPEN-STREAM-P 16107 . 16244)) (16246 16313 (FILE-STREAM-POSITION 16246 . 16313)) (16365 17285 (
|
||||
CL:MAKE-SYNONYM-STREAM 16365 . 17285)) (17287 17376 (XCL:SYNONYM-STREAM-P 17287 . 17376)) (17378 17516
|
||||
(XCL:SYNONYM-STREAM-SYMBOL 17378 . 17516)) (17518 17796 (XCL:FOLLOW-SYNONYM-STREAMS 17518 . 17796)) (
|
||||
17798 18585 (CL:MAKE-BROADCAST-STREAM 17798 . 18585)) (18587 18730 (XCL:BROADCAST-STREAM-P 18587 .
|
||||
18730)) (18732 18947 (XCL:BROADCAST-STREAM-STREAMS 18732 . 18947)) (18949 19658 (
|
||||
CL:MAKE-CONCATENATED-STREAM 18949 . 19658)) (19660 19759 (XCL:CONCATENATED-STREAM-P 19660 . 19759)) (
|
||||
19761 19974 (XCL:CONCATENATED-STREAM-STREAMS 19761 . 19974)) (19976 21057 (CL:MAKE-TWO-WAY-STREAM
|
||||
19976 . 21057)) (21059 21196 (XCL:TWO-WAY-STREAM-P 21059 . 21196)) (21198 21343 (
|
||||
XCL:TWO-WAY-STREAM-OUTPUT-STREAM 21198 . 21343)) (21345 21489 (XCL:TWO-WAY-STREAM-INPUT-STREAM 21345
|
||||
. 21489)) (21491 22547 (CL:MAKE-ECHO-STREAM 21491 . 22547)) (22549 22678 (XCL:ECHO-STREAM-P 22549 .
|
||||
22678)) (22680 22818 (XCL:ECHO-STREAM-INPUT-STREAM 22680 . 22818)) (22820 22959 (
|
||||
XCL:ECHO-STREAM-OUTPUT-STREAM 22820 . 22959)) (22961 23696 (CL:MAKE-STRING-INPUT-STREAM 22961 . 23696)
|
||||
) (23698 24147 (MAKE-CONCATENATED-STRING-INPUT-STREAM 23698 . 24147)) (24149 24309 (
|
||||
%MAKE-INITIAL-STRING-STREAM-CONTENTS 24149 . 24309)) (27401 28823 (MAKE-FILL-POINTER-OUTPUT-STREAM
|
||||
27401 . 28823)) (28825 29564 (CL:GET-OUTPUT-STREAM-STRING 28825 . 29564)) (29566 30059 (
|
||||
\\STRING-STREAM-OUTCHARFN 29566 . 30059)) (30061 31951 (\\ADJUSTABLE-STRING-STREAM-OUTCHARFN 30061 .
|
||||
31951)) (31980 32062 (%NEW-FILE 31980 . 32062)) (32064 32209 (PREDICT-NAME 32064 . 32209)) (32450
|
||||
33638 (%BROADCAST-STREAM-DEVICE-BOUT 32460 . 32683) (%BROADCAST-STREAM-DEVICE-OUTCHARFN 32685 . 33136)
|
||||
(%BROADCAST-STREAM-DEVICE-CLOSEFILE 33138 . 33377) (%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 33379 .
|
||||
33636)) (33640 34053 (%BROADCAST-STREAM-DEVICE-CHARSETFN 33640 . 34053)) (34054 36113 (
|
||||
%CONCATENATED-STREAM-DEVICE-BIN 34064 . 34469) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 34471 . 34784) (
|
||||
%CONCATENATED-STREAM-DEVICE-EOFP 34786 . 35150) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 35152 . 35627) (
|
||||
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 35629 . 36111)) (36115 36450 (
|
||||
%CONCATENATED-STREAM-DEVICE-CHARSETFN 36115 . 36450)) (36451 36670 (%ECHO-STREAM-DEVICE-BIN 36461 .
|
||||
36668)) (36672 36897 (%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 36672 . 36897)) (36898 40243 (
|
||||
%SYNONYM-STREAM-DEVICE-BIN 36908 . 37096) (%SYNONYM-STREAM-DEVICE-BOUT 37098 . 37299) (
|
||||
%SYNONYM-STREAM-DEVICE-OUTCHARFN 37301 . 38008) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 38010 . 38594) (
|
||||
%SYNONYM-STREAM-DEVICE-EOFP 38596 . 38787) (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 38789 . 39027) (
|
||||
%SYNONYM-STREAM-DEVICE-GETFILEINFO 39029 . 39266) (%SYNONYM-STREAM-DEVICE-PEEKBIN 39268 . 39491) (
|
||||
%SYNONYM-STREAM-DEVICE-READP 39493 . 39604) (%SYNONYM-STREAM-DEVICE-BACKFILEPTR 39606 . 39752) (
|
||||
%SYNONYM-STREAM-DEVICE-SETFILEINFO 39754 . 40003) (%SYNONYM-STREAM-DEVICE-CHARSETFN 40005 . 40241)) (
|
||||
40244 44569 (%TWO-WAY-STREAM-DEVICE-BIN 40254 . 40427) (%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 40429 .
|
||||
40620) (%TWO-WAY-STREAM-DEVICE-BOUT 40622 . 40794) (%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 40796 . 40986)
|
||||
(%TWO-WAY-STREAM-DEVICE-OUTCHARFN 40988 . 41850) (%TWO-WAY-STREAM-DEVICE-CLOSEFILE 41852 . 43275) (
|
||||
%TWO-WAY-STREAM-DEVICE-EOFP 43277 . 43453) (%TWO-WAY-STREAM-DEVICE-READP 43455 . 43648) (
|
||||
%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 43650 . 43786) (%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 43788 . 44017) (
|
||||
%TWO-WAY-STREAM-DEVICE-PEEKBIN 44019 . 44232) (%TWO-WAY-STREAM-DEVICE-CHARSETFN 44234 . 44567)) (44571
|
||||
44796 (%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 44571 . 44796)) (44798 44917 (
|
||||
%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 44798 . 44917)) (45157 45396 (%SYNONYM-STREAM-DEVICE-GET-STREAM
|
||||
45167 . 45394)) (45627 46101 (%INITIALIZE-STANDARD-STREAMS 45627 . 46101)) (46102 52065 (
|
||||
%INITIALIZE-CLSTREAM-TYPES 46112 . 52063)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,14 +1,15 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED " 4-Oct-2018 14:13:06" {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>COREIO.;4 55097
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:25:40"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;2 55065
|
||||
|
||||
changes to%: (FNS \CORE.GETFILEINFO)
|
||||
changes to%: (FNS \CREATECOREDEVICE)
|
||||
|
||||
previous date%: "28-Jun-99 16:15:28"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>COREIO.;3)
|
||||
previous date%: " 4-Oct-2018 14:13:06"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999, 2018 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1981-1988, 1990, 1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT COREIOCOMS)
|
||||
@@ -952,18 +953,18 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999,
|
||||
)
|
||||
)
|
||||
(PUTPROPS COREIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
|
||||
1993 1999 2018))
|
||||
1993 1999 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1755 43279 (\CORE.CLOSEFILE 1765 . 2538) (\CORE.DELETEFILE 2540 . 4526) (
|
||||
\CORE.DIRECTORYNAMEP 4528 . 4789) (\CORE.FINDPAGE 4791 . 8020) (\CORE.GENERATEFILES 8022 . 10609) (
|
||||
\CORE.NEXTFILEFN 10611 . 11110) (\CORE.FILEINFOFN 11112 . 11341) (\CORE.GETFILEHANDLE 11343 . 13497) (
|
||||
\CORE.GETFILEINFO 13499 . 14462) (\CORE.GETFILEINFO.FROM.INFOBLOCK 14464 . 16001) (\CORE.GETFILENAME
|
||||
16003 . 18292) (\CORE.GETINFOBLOCK 18294 . 20917) (\CORE.NAMESCAN 20919 . 22686) (\CORE.NAMESEGMENT
|
||||
22688 . 23125) (\CORE.OPENFILE 23127 . 26246) (\COREFILE.SETPARAMETERS 26248 . 28429) (
|
||||
\CORE.PACKFILENAME 28431 . 28826) (\CORE.RELEASEPAGES 28828 . 29429) (\CORE.SETFILEPTR 29431 . 30530)
|
||||
(\CORE.UPDATEOF 30532 . 32161) (\CORE.BACKFILEPTR 32163 . 34371) (\CORE.SETEOFPTR 34373 . 36242) (
|
||||
\CORE.SETACCESSTIME 36244 . 36869) (\CORE.SETFILEINFO 36871 . 38062) (\CORE.GETNEXTBUFFER 38064 .
|
||||
42020) (\CORE.UNPACKFILENAME 42022 . 43277)) (43280 46913 (COREDEVICE 43290 . 43461) (
|
||||
\CREATECOREDEVICE 43463 . 46911)) (46914 49215 (\NODIRCOREFDEV 46924 . 47521) (\NODIRCORE.OPENFILE
|
||||
47523 . 49213)))))
|
||||
(FILEMAP (NIL (1718 43242 (\CORE.CLOSEFILE 1728 . 2501) (\CORE.DELETEFILE 2503 . 4489) (
|
||||
\CORE.DIRECTORYNAMEP 4491 . 4752) (\CORE.FINDPAGE 4754 . 7983) (\CORE.GENERATEFILES 7985 . 10572) (
|
||||
\CORE.NEXTFILEFN 10574 . 11073) (\CORE.FILEINFOFN 11075 . 11304) (\CORE.GETFILEHANDLE 11306 . 13460) (
|
||||
\CORE.GETFILEINFO 13462 . 14425) (\CORE.GETFILEINFO.FROM.INFOBLOCK 14427 . 15964) (\CORE.GETFILENAME
|
||||
15966 . 18255) (\CORE.GETINFOBLOCK 18257 . 20880) (\CORE.NAMESCAN 20882 . 22649) (\CORE.NAMESEGMENT
|
||||
22651 . 23088) (\CORE.OPENFILE 23090 . 26209) (\COREFILE.SETPARAMETERS 26211 . 28392) (
|
||||
\CORE.PACKFILENAME 28394 . 28789) (\CORE.RELEASEPAGES 28791 . 29392) (\CORE.SETFILEPTR 29394 . 30493)
|
||||
(\CORE.UPDATEOF 30495 . 32124) (\CORE.BACKFILEPTR 32126 . 34334) (\CORE.SETEOFPTR 34336 . 36205) (
|
||||
\CORE.SETACCESSTIME 36207 . 36832) (\CORE.SETFILEINFO 36834 . 38025) (\CORE.GETNEXTBUFFER 38027 .
|
||||
41983) (\CORE.UNPACKFILENAME 41985 . 43240)) (43243 46876 (COREDEVICE 43253 . 43424) (
|
||||
\CREATECOREDEVICE 43426 . 46874)) (46877 49178 (\NODIRCOREFDEV 46887 . 47484) (\NODIRCORE.OPENFILE
|
||||
47486 . 49176)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,11 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED "13-Aug-2021 18:39:18"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;87 178368
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:26:24"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;90 178473
|
||||
|
||||
changes to%: (FNS COPYCHARS)
|
||||
changes to%: (FNS \FDEVINSTANCE \NULLDEVICE)
|
||||
(RECORDS FDEV)
|
||||
|
||||
previous date%: " 8-Aug-2021 14:53:49"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;86)
|
||||
previous date%: " 5-Sep-2021 08:17:18"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;89)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -957,7 +958,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
||||
OPENP _ (FUNCTION NILL)
|
||||
UNREGISTERFILE _ (FUNCTION NILL)
|
||||
CHARSETFN _ (FUNCTION \GENERIC.CHARSET)
|
||||
BREAKCONNECTION _ (FUNCTION NILL))
|
||||
BREAKCONNECTION _ (FUNCTION NILL)
|
||||
DEFAULTEXTERNALFORMAT _ *DEFAULT-EXTERNALFORMAT*)
|
||||
|
||||
(RECORD FILEGENOBJ (NEXTFILEFN FILEINFOFN . GENFILESTATE))
|
||||
)
|
||||
@@ -3395,44 +3397,44 @@ update the map")
|
||||
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
|
||||
1990 1991 1992 1993 1999 2020 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (28411 31901 (STREAMPROP 28421 . 28855) (GETSTREAMPROP 28857 . 29330) (PUTSTREAMPROP
|
||||
29332 . 31749) (STREAMP 31751 . 31899)) (31944 34463 (\DEFPRINT.BY.NAME 31954 . 33106) (
|
||||
\STREAM.DEFPRINT 33108 . 34156) (\FDEV.DEFPRINT 34158 . 34461)) (34721 39762 (\GETACCESS 34731 . 35185
|
||||
) (\SETACCESS 35187 . 39760)) (63079 64332 (MAKE-EXTERNALFORMAT 63089 . 64330)) (65565 73394 (
|
||||
\INSTALL.EXTERNALFORMAT 65575 . 67024) (\REMOVE.EXTERNALFORMAT 67026 . 67857) (FIND-FORMAT 67859 .
|
||||
68676) (\EXTERNALFORMAT 68678 . 73392)) (73717 75580 (\CREATE.THROUGH.EXTERNALFORMAT 73727 . 74529) (
|
||||
\THROUGHIN 74531 . 74955) (\THROUGHBACKCCODE 74957 . 75228) (\THROUGHOUTCHARFN 75230 . 75578)) (75688
|
||||
81657 (\DEFINEDEVICE 75698 . 78014) (\GETDEVICEFROMNAME 78016 . 78489) (\GETDEVICEFROMHOSTNAME 78491
|
||||
. 79535) (\REMOVEDEVICE 79537 . 80660) (\REMOVEDEVICE.NAMES 80662 . 81655)) (81697 106357 (\CLOSEFILE
|
||||
81707 . 82532) (\DELETEFILE 82534 . 82828) (\DEVICEEVENT 82830 . 84600) (\GENERATEFILES 84602 . 85080
|
||||
) (\GENERATENEXTFILE 85082 . 85733) (\GENERATEFILEINFO 85735 . 86196) (\GETFILENAME 86198 . 86587) (
|
||||
\GENERIC.OUTFILEP 86589 . 87059) (\OPENFILE 87061 . 89639) (\DO.PARAMS.AT.OPEN 89641 . 92194) (
|
||||
\RENAMEFILE 92196 . 92620) (\REVALIDATEFILE 92622 . 95224) (\PAGED.REVALIDATEFILELST 95226 . 96784) (
|
||||
\PAGED.REVALIDATEFILES 96786 . 98505) (\PAGED.REVALIDATEFILE 98507 . 100790) (\BUFFERED.REVALIDATEFILE
|
||||
100792 . 103078) (\BUFFERED.REVALIDATEFILELST 103080 . 104264) (\PRINT-REVALIDATION-RESULT 104266 .
|
||||
104681) (\TRUNCATEFILE 104683 . 105074) (\FILE-CONFLICT 105076 . 106355)) (106393 111056 (
|
||||
\GENERATENOFILES 106403 . 108499) (\NULLFILEGENERATOR 108501 . 108745) (\NOFILESNEXTFILEFN 108747 .
|
||||
110738) (\NOFILESINFOFN 110740 . 111054)) (111175 113083 (\FILE.NOT.OPEN 111185 . 111698) (
|
||||
\FILE.WONT.OPEN 111700 . 112028) (\ILLEGAL.DEVICEOP 112030 . 112312) (\IS.NOT.RANDACCESSP 112314 .
|
||||
112760) (\STREAM.NOT.OPEN 112762 . 113081)) (113218 115516 (\FDEVINSTANCE 113228 . 115514)) (117066
|
||||
124440 (CNDIR 117076 . 118381) (DIRECTORYNAME 118383 . 122566) (DIRECTORYNAMEP 122568 . 123184) (
|
||||
HOSTNAMEP 123186 . 123993) (\ADD.CONNECTED.DIR 123995 . 124438)) (124485 151872 (\BACKFILEPTR 124495
|
||||
. 124683) (\BACKPEEKBIN 124685 . 125046) (\BACKBIN 125048 . 125399) (BIN 125401 . 125618) (\BIN
|
||||
125620 . 125897) (\BINS 125899 . 126185) (BOUT 126187 . 126549) (\BOUT 126551 . 126866) (\BOUTS 126868
|
||||
. 127179) (COPYBYTES 127181 . 130513) (COPYCHARS 130515 . 134181) (COPYFILE 134183 . 134980) (
|
||||
\COPYOPENFILE 134982 . 138055) (\INFER.FILE.TYPE 138057 . 139011) (EOFP 139013 . 139310) (FORCEOUTPUT
|
||||
139312 . 139559) (\FLUSH.OPEN.STREAMS 139561 . 139917) (CHARSET 139919 . 141583) (ACCESS-CHARSET
|
||||
141585 . 141802) (GETEOFPTR 141804 . 142054) (GETFILEINFO 142056 . 145249) (\TYPE.FROM.FILETYPE 145251
|
||||
. 145721) (\FILETYPE.FROM.TYPE 145723 . 145902) (GETFILEPTR 145904 . 146156) (SETFILEINFO 146158 .
|
||||
149771) (SETFILEPTR 149773 . 151492) (BOUT16 151494 . 151679) (BIN16 151681 . 151870)) (151975 157180
|
||||
(\GENERIC.BINS 151985 . 152265) (\GENERIC.BOUTS 152267 . 152532) (\GENERIC.RENAMEFILE 152534 . 154365)
|
||||
(\GENERIC.OPENP 154367 . 155682) (\GENERIC.READP 155684 . 156725) (\GENERIC.CHARSET 156727 . 157178))
|
||||
(157181 157520 (\MAP-OPEN-STREAMS 157191 . 157518)) (159390 161470 (\EOF.ACTION 159400 . 159651) (
|
||||
\EOSERROR 159653 . 159846) (\GETEOFPTR 159848 . 160030) (\INCFILEPTR 160032 . 160382) (\PEEKBIN 160384
|
||||
. 160575) (\SETCLOSEDFILELENGTH 160577 . 160911) (\SETEOFPTR 160913 . 161101) (\SETFILEPTR 161103 .
|
||||
161468)) (161471 162013 (\FIXPOUT 161481 . 161781) (\FIXPIN 161783 . 162011)) (162014 162580 (\BOUTEOL
|
||||
162024 . 162578)) (165672 175536 (\BUFFERED.BIN 165682 . 166534) (\BUFFERED.PEEKBIN 166536 . 167318)
|
||||
(\BUFFERED.BOUT 167320 . 168180) (\BUFFERED.BINS 168182 . 171867) (\BUFFERED.BOUTS 171869 . 173670) (
|
||||
\BUFFERED.COPYBYTES 173672 . 175534)) (175565 177917 (\NULLDEVICE 175575 . 177593) (\NULL.OPENFILE
|
||||
177595 . 177915)))))
|
||||
(FILEMAP (NIL (28448 31938 (STREAMPROP 28458 . 28892) (GETSTREAMPROP 28894 . 29367) (PUTSTREAMPROP
|
||||
29369 . 31786) (STREAMP 31788 . 31936)) (31981 34500 (\DEFPRINT.BY.NAME 31991 . 33143) (
|
||||
\STREAM.DEFPRINT 33145 . 34193) (\FDEV.DEFPRINT 34195 . 34498)) (34758 39799 (\GETACCESS 34768 . 35222
|
||||
) (\SETACCESS 35224 . 39797)) (63184 64437 (MAKE-EXTERNALFORMAT 63194 . 64435)) (65670 73499 (
|
||||
\INSTALL.EXTERNALFORMAT 65680 . 67129) (\REMOVE.EXTERNALFORMAT 67131 . 67962) (FIND-FORMAT 67964 .
|
||||
68781) (\EXTERNALFORMAT 68783 . 73497)) (73822 75685 (\CREATE.THROUGH.EXTERNALFORMAT 73832 . 74634) (
|
||||
\THROUGHIN 74636 . 75060) (\THROUGHBACKCCODE 75062 . 75333) (\THROUGHOUTCHARFN 75335 . 75683)) (75793
|
||||
81762 (\DEFINEDEVICE 75803 . 78119) (\GETDEVICEFROMNAME 78121 . 78594) (\GETDEVICEFROMHOSTNAME 78596
|
||||
. 79640) (\REMOVEDEVICE 79642 . 80765) (\REMOVEDEVICE.NAMES 80767 . 81760)) (81802 106462 (\CLOSEFILE
|
||||
81812 . 82637) (\DELETEFILE 82639 . 82933) (\DEVICEEVENT 82935 . 84705) (\GENERATEFILES 84707 . 85185
|
||||
) (\GENERATENEXTFILE 85187 . 85838) (\GENERATEFILEINFO 85840 . 86301) (\GETFILENAME 86303 . 86692) (
|
||||
\GENERIC.OUTFILEP 86694 . 87164) (\OPENFILE 87166 . 89744) (\DO.PARAMS.AT.OPEN 89746 . 92299) (
|
||||
\RENAMEFILE 92301 . 92725) (\REVALIDATEFILE 92727 . 95329) (\PAGED.REVALIDATEFILELST 95331 . 96889) (
|
||||
\PAGED.REVALIDATEFILES 96891 . 98610) (\PAGED.REVALIDATEFILE 98612 . 100895) (\BUFFERED.REVALIDATEFILE
|
||||
100897 . 103183) (\BUFFERED.REVALIDATEFILELST 103185 . 104369) (\PRINT-REVALIDATION-RESULT 104371 .
|
||||
104786) (\TRUNCATEFILE 104788 . 105179) (\FILE-CONFLICT 105181 . 106460)) (106498 111161 (
|
||||
\GENERATENOFILES 106508 . 108604) (\NULLFILEGENERATOR 108606 . 108850) (\NOFILESNEXTFILEFN 108852 .
|
||||
110843) (\NOFILESINFOFN 110845 . 111159)) (111280 113188 (\FILE.NOT.OPEN 111290 . 111803) (
|
||||
\FILE.WONT.OPEN 111805 . 112133) (\ILLEGAL.DEVICEOP 112135 . 112417) (\IS.NOT.RANDACCESSP 112419 .
|
||||
112865) (\STREAM.NOT.OPEN 112867 . 113186)) (113323 115621 (\FDEVINSTANCE 113333 . 115619)) (117171
|
||||
124545 (CNDIR 117181 . 118486) (DIRECTORYNAME 118488 . 122671) (DIRECTORYNAMEP 122673 . 123289) (
|
||||
HOSTNAMEP 123291 . 124098) (\ADD.CONNECTED.DIR 124100 . 124543)) (124590 151977 (\BACKFILEPTR 124600
|
||||
. 124788) (\BACKPEEKBIN 124790 . 125151) (\BACKBIN 125153 . 125504) (BIN 125506 . 125723) (\BIN
|
||||
125725 . 126002) (\BINS 126004 . 126290) (BOUT 126292 . 126654) (\BOUT 126656 . 126971) (\BOUTS 126973
|
||||
. 127284) (COPYBYTES 127286 . 130618) (COPYCHARS 130620 . 134286) (COPYFILE 134288 . 135085) (
|
||||
\COPYOPENFILE 135087 . 138160) (\INFER.FILE.TYPE 138162 . 139116) (EOFP 139118 . 139415) (FORCEOUTPUT
|
||||
139417 . 139664) (\FLUSH.OPEN.STREAMS 139666 . 140022) (CHARSET 140024 . 141688) (ACCESS-CHARSET
|
||||
141690 . 141907) (GETEOFPTR 141909 . 142159) (GETFILEINFO 142161 . 145354) (\TYPE.FROM.FILETYPE 145356
|
||||
. 145826) (\FILETYPE.FROM.TYPE 145828 . 146007) (GETFILEPTR 146009 . 146261) (SETFILEINFO 146263 .
|
||||
149876) (SETFILEPTR 149878 . 151597) (BOUT16 151599 . 151784) (BIN16 151786 . 151975)) (152080 157285
|
||||
(\GENERIC.BINS 152090 . 152370) (\GENERIC.BOUTS 152372 . 152637) (\GENERIC.RENAMEFILE 152639 . 154470)
|
||||
(\GENERIC.OPENP 154472 . 155787) (\GENERIC.READP 155789 . 156830) (\GENERIC.CHARSET 156832 . 157283))
|
||||
(157286 157625 (\MAP-OPEN-STREAMS 157296 . 157623)) (159495 161575 (\EOF.ACTION 159505 . 159756) (
|
||||
\EOSERROR 159758 . 159951) (\GETEOFPTR 159953 . 160135) (\INCFILEPTR 160137 . 160487) (\PEEKBIN 160489
|
||||
. 160680) (\SETCLOSEDFILELENGTH 160682 . 161016) (\SETEOFPTR 161018 . 161206) (\SETFILEPTR 161208 .
|
||||
161573)) (161576 162118 (\FIXPOUT 161586 . 161886) (\FIXPIN 161888 . 162116)) (162119 162685 (\BOUTEOL
|
||||
162129 . 162683)) (165777 175641 (\BUFFERED.BIN 165787 . 166639) (\BUFFERED.PEEKBIN 166641 . 167423)
|
||||
(\BUFFERED.BOUT 167425 . 168285) (\BUFFERED.BINS 168287 . 171972) (\BUFFERED.BOUTS 171974 . 173775) (
|
||||
\BUFFERED.COPYBYTES 173777 . 175639)) (175670 178022 (\NULLDEVICE 175680 . 177698) (\NULL.OPENFILE
|
||||
177700 . 178020)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 2-Aug-2021 19:41:35"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;4 79616
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:24:49"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;6 79647
|
||||
|
||||
changes to%: (FNS \DISPLAYINIT)
|
||||
changes to%: (FNS \DISPLAYINIT \4DISPLAYINIT \8DISPLAYINIT \24DISPLAYINIT)
|
||||
|
||||
previous date%: "28-Jun-99 16:33:59"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;1)
|
||||
previous date%: " 2-Aug-2021 19:41:35"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;5)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1509,24 +1509,24 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
|
||||
(PUTPROPS IMAGEIO COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991
|
||||
1993 1994 1999 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3353 12110 (IMAGESTREAMP 3363 . 4195) (IMAGESTREAMTYPE 4197 . 4410) (IMAGESTREAMTYPEP
|
||||
4412 . 5047) (OPENIMAGESTREAM 5049 . 10003) (\GOOD.DASHLST 10005 . 12108)) (12145 14442 (
|
||||
DRAWDASHEDLINE 12155 . 14440)) (14443 21783 (DSPBACKCOLOR 14453 . 14825) (DSPBOTTOMMARGIN 14827 .
|
||||
15212) (DSPCOLOR 15214 . 15578) (DSPCLIPPINGREGION 15580 . 16285) (DSPRESET 16287 . 16567) (DSPFONT
|
||||
16569 . 16933) (DSPLEFTMARGIN 16935 . 17316) (DSPLINEFEED 17318 . 17618) (DSPOPERATION 17620 . 17997)
|
||||
(DSPRIGHTMARGIN 17999 . 18382) (DSPTOPMARGIN 18384 . 18763) (DSPSCALE 18765 . 19132) (DSPSPACEFACTOR
|
||||
19134 . 19527) (DSPXPOSITION 19529 . 19834) (DSPYPOSITION 19836 . 20141) (DSPROTATE 20143 . 20438) (
|
||||
DSPPUSHSTATE 20440 . 20686) (DSPPOPSTATE 20688 . 20931) (DSPDEFAULTSTATE 20933 . 21185) (DSPSCALE2
|
||||
21187 . 21478) (DSPTRANSLATE 21480 . 21781)) (21784 30585 (DSPNEWPAGE 21794 . 22486) (DRAWBETWEEN
|
||||
22488 . 23190) (DRAWCIRCLE 23192 . 23688) (DRAWARC 23690 . 24207) (DRAWCURVE 24209 . 24886) (
|
||||
DRAWELLIPSE 24888 . 25674) (DRAWLINE 25676 . 26066) (DRAWPOLYGON 26068 . 26523) (DRAWPOINT 26525 .
|
||||
26944) (FILLPOLYGON 26946 . 27512) (DRAWTO 27514 . 27932) (FILLCIRCLE 27934 . 28157) (MOVETO 28159 .
|
||||
28523) (RELDRAWTO 28525 . 29442) (BITMAPIMAGESIZE 29444 . 29615) (SCALEDBITBLT 29617 . 30583)) (30586
|
||||
37625 (\DRAWPOINT.GENERIC 30596 . 30943) (\DRAWPOLYGON.GENERIC 30945 . 33253) (\DRAWCIRCLE.GENERIC
|
||||
33255 . 34913) (\DRAWELLIPSE.GENERIC 34915 . 37623)) (37626 43012 (\IMAGEIOINIT 37636 . 41769) (
|
||||
\NOIMAGE.DSPFONT 41771 . 42846) (\UNIMPIMAGEOP 42848 . 43010)) (43135 46259 (INSURE.BRUSH 43145 .
|
||||
44519) (BRUSHP 44521 . 45311) (\POSSIBLECOLOR 45313 . 45864) (NEGSHADE 45866 . 46257)) (46815 47499 (
|
||||
DASHINGP 46825 . 47155) (INSURE.DASHING 47157 . 47497)) (57980 78429 (\DisplayEventFn 57990 . 58500) (
|
||||
\DISPLAYINIT 58502 . 64181) (\4DISPLAYINIT 64183 . 68820) (\8DISPLAYINIT 68822 . 73461) (
|
||||
\24DISPLAYINIT 73463 . 78170) (\DISPLAYSTREAMTYPEBPP 78172 . 78427)))))
|
||||
(FILEMAP (NIL (3384 12141 (IMAGESTREAMP 3394 . 4226) (IMAGESTREAMTYPE 4228 . 4441) (IMAGESTREAMTYPEP
|
||||
4443 . 5078) (OPENIMAGESTREAM 5080 . 10034) (\GOOD.DASHLST 10036 . 12139)) (12176 14473 (
|
||||
DRAWDASHEDLINE 12186 . 14471)) (14474 21814 (DSPBACKCOLOR 14484 . 14856) (DSPBOTTOMMARGIN 14858 .
|
||||
15243) (DSPCOLOR 15245 . 15609) (DSPCLIPPINGREGION 15611 . 16316) (DSPRESET 16318 . 16598) (DSPFONT
|
||||
16600 . 16964) (DSPLEFTMARGIN 16966 . 17347) (DSPLINEFEED 17349 . 17649) (DSPOPERATION 17651 . 18028)
|
||||
(DSPRIGHTMARGIN 18030 . 18413) (DSPTOPMARGIN 18415 . 18794) (DSPSCALE 18796 . 19163) (DSPSPACEFACTOR
|
||||
19165 . 19558) (DSPXPOSITION 19560 . 19865) (DSPYPOSITION 19867 . 20172) (DSPROTATE 20174 . 20469) (
|
||||
DSPPUSHSTATE 20471 . 20717) (DSPPOPSTATE 20719 . 20962) (DSPDEFAULTSTATE 20964 . 21216) (DSPSCALE2
|
||||
21218 . 21509) (DSPTRANSLATE 21511 . 21812)) (21815 30616 (DSPNEWPAGE 21825 . 22517) (DRAWBETWEEN
|
||||
22519 . 23221) (DRAWCIRCLE 23223 . 23719) (DRAWARC 23721 . 24238) (DRAWCURVE 24240 . 24917) (
|
||||
DRAWELLIPSE 24919 . 25705) (DRAWLINE 25707 . 26097) (DRAWPOLYGON 26099 . 26554) (DRAWPOINT 26556 .
|
||||
26975) (FILLPOLYGON 26977 . 27543) (DRAWTO 27545 . 27963) (FILLCIRCLE 27965 . 28188) (MOVETO 28190 .
|
||||
28554) (RELDRAWTO 28556 . 29473) (BITMAPIMAGESIZE 29475 . 29646) (SCALEDBITBLT 29648 . 30614)) (30617
|
||||
37656 (\DRAWPOINT.GENERIC 30627 . 30974) (\DRAWPOLYGON.GENERIC 30976 . 33284) (\DRAWCIRCLE.GENERIC
|
||||
33286 . 34944) (\DRAWELLIPSE.GENERIC 34946 . 37654)) (37657 43043 (\IMAGEIOINIT 37667 . 41800) (
|
||||
\NOIMAGE.DSPFONT 41802 . 42877) (\UNIMPIMAGEOP 42879 . 43041)) (43166 46290 (INSURE.BRUSH 43176 .
|
||||
44550) (BRUSHP 44552 . 45342) (\POSSIBLECOLOR 45344 . 45895) (NEGSHADE 45897 . 46288)) (46846 47530 (
|
||||
DASHINGP 46856 . 47186) (INSURE.DASHING 47188 . 47528)) (58011 78460 (\DisplayEventFn 58021 . 58531) (
|
||||
\DISPLAYINIT 58533 . 64212) (\4DISPLAYINIT 64214 . 68851) (\8DISPLAYINIT 68853 . 73492) (
|
||||
\24DISPLAYINIT 73494 . 78201) (\DISPLAYSTREAMTYPEBPP 78203 . 78458)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
440
sources/LEAF
440
sources/LEAF
@@ -1,26 +1,26 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "19-Jan-93 10:41:31" {DSK}<python>lde>lispcore>sources>LEAF.;2 745474Q
|
||||
(FILECREATED " 5-Sep-2021 08:25:29" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;2 744110Q
|
||||
|
||||
changes to%: (RECORDS SEQUINPACKET SEQUIN LOOKUPFILEDATA LEAFDATA LEAFERRORDATA LEAFPARAMSDATA
|
||||
LEAFPACKET LEAFINFOBLOCK LEAFSTREAM LEAFDEVICE PUPFILESERVER)
|
||||
changes to%: (FNS \LEAF.DEVICEP \LEAFINIT)
|
||||
|
||||
previous date%: " 4-Jan-93 23:36:15" {DSK}<python>lde>lispcore>sources>LEAF.;1)
|
||||
previous date%: "19-Jan-93 10:41:31"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LEAFCOMS)
|
||||
|
||||
(RPAQQ LEAFCOMS
|
||||
(RPAQQ LEAFCOMS
|
||||
(
|
||||
|
||||
(* ;;; "Support for the Leaf random-access filing protocol")
|
||||
(* ;;; "Support for the Leaf random-access filing protocol")
|
||||
|
||||
(E (RESETSAVE (RADIX 8)))
|
||||
(COMS
|
||||
(* ;; "SEQUIN protocol")
|
||||
(* ;; "SEQUIN protocol")
|
||||
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * SEQUINCOMS)
|
||||
(FILES (LOADCOMP)
|
||||
@@ -33,7 +33,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venu
|
||||
\SEQUIN.OUT.OF.THE.BLUE \SEQUIN.HANDLE.ACK \SEQUIN.RETRANSMIT
|
||||
\SEQUIN.RETRANSMITNEXT))
|
||||
(COMS
|
||||
(* ;; "LEAF device operations")
|
||||
(* ;; "LEAF device operations")
|
||||
|
||||
(FNS \LEAF.CLOSEFILE \LEAF.DELETEFILE \LEAF.DEVICEP \LEAF.RECONNECT
|
||||
\LEAF.DIRECTORYNAMEP \LEAF.GENERATEFILES \LEAF.GETFILE \PARSE.REMOTE.FILENAME
|
||||
@@ -45,18 +45,18 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venu
|
||||
\LEAF.SETFILEINFO \LEAF.SETFILETYPE \LEAF.SETVALIDATION \LEAF.TRUNCATEFILE
|
||||
\LEAF.WRITEPAGES))
|
||||
(COMS
|
||||
(* ;; "Main routing point for LEAF pups")
|
||||
(* ;; "Main routing point for LEAF pups")
|
||||
|
||||
(FNS \SENDLEAF))
|
||||
(COMS
|
||||
(* ;; "Managing LEAF connections")
|
||||
(* ;; "Managing LEAF connections")
|
||||
|
||||
(FNS \OPENLEAFCONNECTION \LEAF.BREAKCONNECTION \CLOSELEAFCONNECTION \LEAF.EVENTFN)
|
||||
(* ;
|
||||
"This generic fn ought to be on FILEIO")
|
||||
(* ;
|
||||
"This generic fn ought to be on FILEIO")
|
||||
(FNS BREAKCONNECTION))
|
||||
(COMS
|
||||
(* ;; "Functions called when various SEQUIN events occur")
|
||||
(* ;; "Functions called when various SEQUIN events occur")
|
||||
|
||||
(FNS \LEAF.ACKED \LEAF.FIX.BROKEN.SEQUIN \LEAF.REPAIR.BROKEN.PUP
|
||||
\LEAF.USE.NEW.CONNECTION \LEAF.RESENDPUPS \LEAF.HANDLE.INPUT
|
||||
@@ -65,14 +65,14 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venu
|
||||
\LEAF.MAYBE.FLUSH.CACHE \LEAF.WHENCLOSED \LEAF.IDLE?))
|
||||
(ADDVARS (NETWORKOSTYPES))
|
||||
(COMS
|
||||
(* ;; "Miscellaneous and error handling")
|
||||
(* ;; "Miscellaneous and error handling")
|
||||
|
||||
(FNS \ADDLEAFSTRING \FIXPASSWORD \GETLEAFSTRING \IFSERRORSTRING \LEAF.ERROR
|
||||
\LEAF.DIRECTORYNAMEONLY GETHOSTINFO GETOSTYPE EXPANDING-PAGEFULLFN)
|
||||
(VARS (DEFAULT.OSTYPE 'IFS))
|
||||
(GLOBALVARS DEFAULT.OSTYPE))
|
||||
(COMS
|
||||
(* ;; "LookUpFile stuff")
|
||||
(* ;; "LookUpFile stuff")
|
||||
|
||||
(FNS \IFS.LOOKUPFILE)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * LOOKUPFILECOMS)))
|
||||
@@ -111,119 +111,120 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venu
|
||||
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
|
||||
(RPAQQ SEQUINCOMS ((RECORDS SEQUINPACKET SEQUIN)
|
||||
(CONSTANTS * SEQUINOPS)
|
||||
(CONSTANTS * SEQUINSTATES)
|
||||
(CONSTANTS (\SC.EQUAL 0)
|
||||
(\SC.PREVIOUS 1)
|
||||
(\SC.DUPLICATE 2)
|
||||
(\SC.AHEAD 3)
|
||||
(\SC.OUTOFRANGE 4)
|
||||
(\PT.SEQUIN 260Q)
|
||||
(\SS.NOSOCKET 10Q)
|
||||
(\SEQUIN.DEFAULT.ALLOCATION 12Q)
|
||||
(\SEQUIN.DEFAULT.RETRANSMITMAX 5))
|
||||
(MACROS SEQUINOP)))
|
||||
(RPAQQ SEQUINCOMS
|
||||
((RECORDS SEQUINPACKET SEQUIN)
|
||||
(CONSTANTS * SEQUINOPS)
|
||||
(CONSTANTS * SEQUINSTATES)
|
||||
(CONSTANTS (\SC.EQUAL 0)
|
||||
(\SC.PREVIOUS 1)
|
||||
(\SC.DUPLICATE 2)
|
||||
(\SC.AHEAD 3)
|
||||
(\SC.OUTOFRANGE 4)
|
||||
(\PT.SEQUIN 260Q)
|
||||
(\SS.NOSOCKET 10Q)
|
||||
(\SEQUIN.DEFAULT.ALLOCATION 12Q)
|
||||
(\SEQUIN.DEFAULT.RETRANSMITMAX 5))
|
||||
(MACROS SEQUINOP)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(ACCESSFNS SEQUINPACKET ((SEQUINSTART (fetch PUPBASE of DATUM)))
|
||||
(BLOCKRECORD SEQUINSTART ((NIL 2 WORD)
|
||||
(* ; "Pup length, typeword")
|
||||
(* ; "Pup length, typeword")
|
||||
(ALLOCATE BYTE)
|
||||
(RECEIVESEQ BYTE)
|
||||
(SEQCONTROL BYTE)
|
||||
(SENDSEQ BYTE)
|
||||
(* ;
|
||||
"Sequin uses ID fields of PUP for control info")
|
||||
(* ;
|
||||
"Sequin uses ID fields of PUP for control info")
|
||||
)))
|
||||
|
||||
(DATATYPE SEQUIN (
|
||||
(* ;; "First: stuff used by SEQUIN level")
|
||||
(* ;; "First: stuff used by SEQUIN level")
|
||||
|
||||
(SEQNAME POINTER) (* ; "Name of partner")
|
||||
(SEQFRNPORT POINTER) (* ; "Foreign socket")
|
||||
(SEQSOCKET POINTER) (* ; "Local socket")
|
||||
(SEQSTATE BYTE) (* ; "Sequin connection state")
|
||||
(MYSENDSEQ BYTE) (* ;
|
||||
"Number I will next send. These must be byte fields so that they will wrap around correctly!")
|
||||
(MYRECEIVESEQ BYTE) (* ;
|
||||
"Number I next expect to receive, i.e. Partner's Send number of first unacked packet")
|
||||
(LASTACKEDSEQ BYTE) (* ;
|
||||
"Last Receive seq from partner: all packets with sequence numbers before this one have been acked")
|
||||
(SEQOUTALLOC WORD) (* ;
|
||||
"Output allocation: the number of packets I may send without their being acked")
|
||||
(SEQINALLOC WORD) (* ;
|
||||
"Input allocation: what I tell my partner")
|
||||
(SEQMAXALLOC WORD) (* ;
|
||||
"The largest I will let output allocation get")
|
||||
(%#UNACKEDSEQS WORD) (* ;
|
||||
"Number of data packets we have sent for which no acks have been received")
|
||||
(SEQINPUTQLENGTH WORD) (* ;
|
||||
"Number of packets in input (done) queue")
|
||||
(SEQTIMEOUT WORD) (* ; "Timeout before retransmission")
|
||||
(SEQBASETIMEOUT WORD) (* ;
|
||||
"Timeout for this connection in general")
|
||||
(SEQRETRANSMITMAX WORD) (* ;
|
||||
"How many times to retransmit before complaining")
|
||||
(%#SEQRESTARTS WORD) (* ; "Some statistical info...")
|
||||
(SEQNAME POINTER) (* ; "Name of partner")
|
||||
(SEQFRNPORT POINTER) (* ; "Foreign socket")
|
||||
(SEQSOCKET POINTER) (* ; "Local socket")
|
||||
(SEQSTATE BYTE) (* ; "Sequin connection state")
|
||||
(MYSENDSEQ BYTE) (* ;
|
||||
"Number I will next send. These must be byte fields so that they will wrap around correctly!")
|
||||
(MYRECEIVESEQ BYTE) (* ;
|
||||
"Number I next expect to receive, i.e. Partner's Send number of first unacked packet")
|
||||
(LASTACKEDSEQ BYTE) (* ;
|
||||
"Last Receive seq from partner: all packets with sequence numbers before this one have been acked")
|
||||
(SEQOUTALLOC WORD) (* ;
|
||||
"Output allocation: the number of packets I may send without their being acked")
|
||||
(SEQINALLOC WORD) (* ;
|
||||
"Input allocation: what I tell my partner")
|
||||
(SEQMAXALLOC WORD) (* ;
|
||||
"The largest I will let output allocation get")
|
||||
(%#UNACKEDSEQS WORD) (* ;
|
||||
"Number of data packets we have sent for which no acks have been received")
|
||||
(SEQINPUTQLENGTH WORD) (* ;
|
||||
"Number of packets in input (done) queue")
|
||||
(SEQTIMEOUT WORD) (* ; "Timeout before retransmission")
|
||||
(SEQBASETIMEOUT WORD) (* ;
|
||||
"Timeout for this connection in general")
|
||||
(SEQRETRANSMITMAX WORD) (* ;
|
||||
"How many times to retransmit before complaining")
|
||||
(%#SEQRESTARTS WORD) (* ; "Some statistical info...")
|
||||
(%#SEQRETRANSMITS WORD)
|
||||
(%#SEQDUPLICATES WORD)
|
||||
(%#SEQTIMEOUTS WORD)
|
||||
(%#SEQTURNOVERS WORD)
|
||||
(SEQRETRANSMITQ POINTER) (* ; "Sequin output queue")
|
||||
(SEQRETRANSMITQ POINTER) (* ; "Sequin output queue")
|
||||
(SEQTIMER POINTER)
|
||||
(SEQPROCESS POINTER)
|
||||
(SEQIGNOREDUPLICATES FLAG)
|
||||
(SEQRETRANSMITTING FLAG)
|
||||
(SEQCLOSEME FLAG)
|
||||
(SEQCLOSEDFORLOGOUT FLAG)
|
||||
(SEQLASTRESTARTTIMER POINTER) (* ;
|
||||
"Allows for some aging of the connection timeout")
|
||||
(SEQLASTRESTARTTIMER POINTER) (* ;
|
||||
"Allows for some aging of the connection timeout")
|
||||
(SEQLASTRESTART POINTER)
|
||||
(SEQRETRANSMITNEXT POINTER)
|
||||
(SEQEVENT POINTER) (* ;
|
||||
"Signaled when there is input, state changed, or allocation changed")
|
||||
(SEQLOCK POINTER) (* ; "Monitor lock for this structure")
|
||||
(SEQEVENT POINTER) (* ;
|
||||
"Signaled when there is input, state changed, or allocation changed")
|
||||
(SEQLOCK POINTER) (* ; "Monitor lock for this structure")
|
||||
|
||||
(* ;; "Second-level functions invoked by SEQUIN")
|
||||
(* ;; "Second-level functions invoked by SEQUIN")
|
||||
|
||||
(SEQACKED POINTER) (* ;
|
||||
"(PUP SEQUIN) called when PUP is acked")
|
||||
(SEQINPUT POINTER) (* ;
|
||||
"(PUP SEQUIN) called when PUP arrives as input data")
|
||||
(SEQBROKEN POINTER) (* ; "(SEQUIN PUP) called when a BROKEN sequin arrives (PUP = NIL) or attempt to send PUP on broken connection")
|
||||
(SEQABORTED POINTER) (* ;
|
||||
"(SEQUIN) called when PUP arrives with outlandish sequence numbers")
|
||||
(SEQTIMEDOUT POINTER) (* ;
|
||||
"(SEQUIN) called when about to retransmit SEQRETRANSMITMAX times")
|
||||
(SEQCLOSED POINTER) (* ;
|
||||
"(SEQUIN) called when a connection is flushed, but before its retransmit queue is flushed")
|
||||
(SEQIDLETIMEOUTCOMPUTER POINTER) (* ; "Computes timeout before calling SEQIDLEFN when no activity on connection. T means forever, NIL means don't")
|
||||
(SEQIDLEFN POINTER) (* ;
|
||||
"Called when nothing otherwise is happening, after timeout of SEQIDLETIMEOUT")
|
||||
(SEQACKED POINTER) (* ;
|
||||
"(PUP SEQUIN) called when PUP is acked")
|
||||
(SEQINPUT POINTER) (* ;
|
||||
"(PUP SEQUIN) called when PUP arrives as input data")
|
||||
(SEQBROKEN POINTER) (* ; "(SEQUIN PUP) called when a BROKEN sequin arrives (PUP = NIL) or attempt to send PUP on broken connection")
|
||||
(SEQABORTED POINTER) (* ;
|
||||
"(SEQUIN) called when PUP arrives with outlandish sequence numbers")
|
||||
(SEQTIMEDOUT POINTER) (* ;
|
||||
"(SEQUIN) called when about to retransmit SEQRETRANSMITMAX times")
|
||||
(SEQCLOSED POINTER) (* ;
|
||||
"(SEQUIN) called when a connection is flushed, but before its retransmit queue is flushed")
|
||||
(SEQIDLETIMEOUTCOMPUTER POINTER) (* ; "Computes timeout before calling SEQIDLEFN when no activity on connection. T means forever, NIL means don't")
|
||||
(SEQIDLEFN POINTER) (* ;
|
||||
"Called when nothing otherwise is happening, after timeout of SEQIDLETIMEOUT")
|
||||
|
||||
(* ;; "Stuff used by clients of SEQUIN, in particular, LEAF")
|
||||
(* ;; "Stuff used by clients of SEQUIN, in particular, LEAF")
|
||||
|
||||
(SEQDONEQ POINTER) (* ;
|
||||
"Sequins acked but kept around for further handling")
|
||||
(SEQDONEQ POINTER) (* ;
|
||||
"Sequins acked but kept around for further handling")
|
||||
(NIL POINTER)
|
||||
(NIL POINTER)
|
||||
(LEAFCACHEDFILE POINTER) (* ;
|
||||
"Last file accessed, to speed up repeated lookups of same name")
|
||||
(LEAFCACHETIMER POINTER) (* ; "To timeout the cache")
|
||||
(LEAFCACHEDFILE POINTER) (* ;
|
||||
"Last file accessed, to speed up repeated lookups of same name")
|
||||
(LEAFCACHETIMER POINTER) (* ; "To timeout the cache")
|
||||
(LEAFCACHEHITS WORD)
|
||||
(LEAFCACHEMISSES WORD)
|
||||
(LEAFTIMEOUTCOUNT WORD)
|
||||
(LEAFCLOSING FLAG)
|
||||
(LEAFOPENCLOSELOCK POINTER) (* ;
|
||||
"Monitor lock to keep GETFILE and CLOSEFILE from stepping on each other")
|
||||
(LEAFOPENCLOSELOCK POINTER) (* ;
|
||||
"Monitor lock to keep GETFILE and CLOSEFILE from stepping on each other")
|
||||
(LEAFABORTBUTTONWINDOW POINTER)
|
||||
(LEAFABORTSTATUS POINTER)
|
||||
(LEAFTIMEOUTSTATUS POINTER)
|
||||
(SEQTIMEDIN POINTER)
|
||||
(NIL POINTER)
|
||||
(SEQOPENERRORHANDLER POINTER) (* ;
|
||||
"(SEQUIN PUP) called on errors trying to open connection")
|
||||
(SEQOPENERRORHANDLER POINTER) (* ;
|
||||
"(SEQUIN PUP) called on errors trying to open connection")
|
||||
)
|
||||
SEQSTATE _ \SS.UNOPENED SEQOUTALLOC _ 1 SEQINALLOC _ \SEQUIN.DEFAULT.ALLOCATION
|
||||
SEQRETRANSMITMAX _ \SEQUIN.DEFAULT.RETRANSMITMAX SEQRETRANSMITQ _
|
||||
@@ -308,17 +309,18 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venu
|
||||
(SEQUIN 116Q POINTER))
|
||||
'120Q)
|
||||
|
||||
(RPAQQ SEQUINOPS ((\SEQUIN.DATA 0)
|
||||
(\SEQUIN.ACK 1)
|
||||
(\SEQUIN.NOOP 2)
|
||||
(\SEQUIN.RESTART 3)
|
||||
(\SEQUIN.OPEN 5)
|
||||
(\SEQUIN.BREAK 6)
|
||||
(\SEQUIN.OBSOLETE.CLOSE 7)
|
||||
(\SEQUIN.DESTROY 11Q)
|
||||
(\SEQUIN.DALLYING 12Q)
|
||||
(\SEQUIN.QUIT 13Q)
|
||||
(\SEQUIN.BROKEN 14Q)))
|
||||
(RPAQQ SEQUINOPS
|
||||
((\SEQUIN.DATA 0)
|
||||
(\SEQUIN.ACK 1)
|
||||
(\SEQUIN.NOOP 2)
|
||||
(\SEQUIN.RESTART 3)
|
||||
(\SEQUIN.OPEN 5)
|
||||
(\SEQUIN.BREAK 6)
|
||||
(\SEQUIN.OBSOLETE.CLOSE 7)
|
||||
(\SEQUIN.DESTROY 11Q)
|
||||
(\SEQUIN.DALLYING 12Q)
|
||||
(\SEQUIN.QUIT 13Q)
|
||||
(\SEQUIN.BROKEN 14Q)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \SEQUIN.DATA 0)
|
||||
@@ -430,8 +432,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venu
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS SEQUINOP MACRO ((SEQ OP . ARGS)
|
||||
(APPLY* (fetch (SEQUIN OP) of SEQ) . ARGS]
|
||||
(PUTPROPS SEQUINOP MACRO ((SEQ OP . ARGS)
|
||||
(APPLY* (fetch (SEQUIN OP) of SEQ) . ARGS)))
|
||||
)
|
||||
|
||||
|
||||
@@ -3853,7 +3855,7 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
(RPAQ? *UPPER-CASE-FILE-NAMES* T)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
|
||||
(RPAQQ LEAFCOMPILETIMECOMS
|
||||
(RPAQQ LEAFCOMPILETIMECOMS
|
||||
((RECORDS LEAFDATA LEAFERRORDATA LEAFPARAMSDATA LEAFPACKET LEAFINFOBLOCK LEAFSTREAM LEAFDEVICE
|
||||
PUPFILESERVER)
|
||||
(MACROS .NAMEORSTREAM. .PAGE.IS.AFTER.EOF. INCLEAFSTAT)
|
||||
@@ -3913,8 +3915,8 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
(HANDLE WORD)
|
||||
(FILEADDRESS FIXP)
|
||||
(DATALENGTH WORD)
|
||||
(LEAFFIRSTDATAWORD WORD)) (* ;
|
||||
"Format of typical file operation request.")
|
||||
(LEAFFIRSTDATAWORD WORD)) (* ;
|
||||
"Format of typical file operation request.")
|
||||
(BLOCKRECORD LEAFDATA ((LEAFOPCODE BITS 5)
|
||||
(ANSWERBIT BITS 1)
|
||||
(LEAFLENGTH BITS 12Q)
|
||||
@@ -3924,45 +3926,45 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
(NIL BITS 2)
|
||||
(JUSTHIADDR BITS 13Q)
|
||||
(LOADDR WORD))
|
||||
(* ;
|
||||
"Details of the file address format")
|
||||
(* ;
|
||||
"Details of the file address format")
|
||||
(SYNONYM LEAFOPCODE (OPCODE)))
|
||||
(BLOCKRECORD LEAFDATA ((NIL 2 WORD)
|
||||
(SIGNEXTEND BITS 5)
|
||||
(NIL BITS 33Q))
|
||||
(* ; "more details")
|
||||
(* ; "more details")
|
||||
)
|
||||
(BLOCKRECORD LEAFDATA ((NIL 2 WORD)
|
||||
(OPENMODE WORD))
|
||||
(* ; "format of OPEN file request")
|
||||
(* ; "format of OPEN file request")
|
||||
)
|
||||
(BLOCKRECORD LEAFDATA ((NIL 5 WORD)
|
||||
(LEAFFILETYPE WORD)
|
||||
(LEAFBYTESIZE WORD))
|
||||
(* ; "For accessing the file's TYPE")
|
||||
(* ; "For accessing the file's TYPE")
|
||||
)
|
||||
(BLOCKRECORD LEAFDATA ((NIL 5 WORD)
|
||||
(LEAFFILEDATE FIXP))
|
||||
(* ;
|
||||
"Format of SETFILEINFO of CREATIONDATE request")
|
||||
(* ;
|
||||
"Format of SETFILEINFO of CREATIONDATE request")
|
||||
))
|
||||
|
||||
(BLOCKRECORD LEAFERRORDATA ((NIL WORD)
|
||||
(LEAFERRORCODE WORD) (* ; "Error subcode in ERROR leafop")
|
||||
(LEAFERROROPCODE BITS 5) (* ;
|
||||
"The OPCODE in the Leaf packet provoking the error")
|
||||
(LEAFERRORCODE WORD) (* ; "Error subcode in ERROR leafop")
|
||||
(LEAFERROROPCODE BITS 5) (* ;
|
||||
"The OPCODE in the Leaf packet provoking the error")
|
||||
(NIL BITS 13Q)
|
||||
(LEAFERRORHANDLE WORD) (* ; "The handle in the provoking op")
|
||||
(LEAFERRORMSG WORD) (* ;
|
||||
"Actually IFSSTRING starting here")
|
||||
(LEAFERRORHANDLE WORD) (* ; "The handle in the provoking op")
|
||||
(LEAFERRORMSG WORD) (* ;
|
||||
"Actually IFSSTRING starting here")
|
||||
))
|
||||
|
||||
(BLOCKRECORD LEAFPARAMSDATA ((NIL WORD)
|
||||
(LEAFPMAXDATALENGTH WORD)
|
||||
(LEAFPLOCKTIMEOUT WORD) (* ;
|
||||
"File Lock timeout, in units of 5 seconds")
|
||||
(LEAFPCONNTIMEOUT WORD) (* ;
|
||||
"Overall connection timeout, same units")
|
||||
(LEAFPLOCKTIMEOUT WORD) (* ;
|
||||
"File Lock timeout, in units of 5 seconds")
|
||||
(LEAFPCONNTIMEOUT WORD) (* ;
|
||||
"Overall connection timeout, same units")
|
||||
))
|
||||
|
||||
(ACCESSFNS LEAFPACKET ((LEAFSTATUS (fetch EPUSERFIELD of DATUM)
|
||||
@@ -3978,14 +3980,14 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
|
||||
(BLOCKRECORD LEAFINFOBLOCK ((LFCREATIONDATE FIXP)
|
||||
(LFWRITEDATE FIXP)
|
||||
(LFREADDATE FIXP)) (* ; "just like leader page")
|
||||
(LFREADDATE FIXP)) (* ; "just like leader page")
|
||||
(BLOCKRECORD LEAFINFOBLOCK ((HICREATE WORD)
|
||||
(LOCREATE WORD)
|
||||
(HIWRITE WORD)
|
||||
(LOWRITE WORD)
|
||||
(HIREAD WORD)
|
||||
(LOREAD WORD))
|
||||
(* ; "for VALIDATION use")
|
||||
(* ; "for VALIDATION use")
|
||||
)
|
||||
(CREATE (\ALLOCBLOCK 3)))
|
||||
|
||||
@@ -4008,25 +4010,25 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
(replace DEVICEINFO of DATUM with NEWVALUE))))
|
||||
|
||||
(DATATYPE PUPFILESERVER (
|
||||
(* ;; "Info common to various pup protocols used on a file server, independent of whether a connection is now open")
|
||||
(* ;; "Info common to various pup protocols used on a file server, independent of whether a connection is now open")
|
||||
|
||||
(NIL BYTE)
|
||||
(PFSNAME POINTER)
|
||||
(PFSADDRESS POINTER) (* ; "Pup address")
|
||||
(PFSADDRESS POINTER) (* ; "Pup address")
|
||||
(PFSOSTYPE POINTER)
|
||||
(PFSLEAFFLG POINTER) (* ;
|
||||
"Indicates something about whether LEAF is available")
|
||||
(PFSLEAFSEQUIN POINTER) (* ;
|
||||
"Pointer to SEQUIN for open leaf connection")
|
||||
(PFSLEAFTIMER POINTER) (* ;
|
||||
"Timeout for handling dead servers")
|
||||
(PFSLOOKUPFILESOCKET POINTER) (* ;
|
||||
"The Pup socket for LookupFile requests")
|
||||
(PFSLOOKUPFILELOCK POINTER) (* ; "Lock to secure it")
|
||||
(PFSLOOKUPFAILCNT POINTER) (* ;
|
||||
"Counter used until we know the service exists")
|
||||
(PFSKNOWNDIRS POINTER) (* ;
|
||||
"List of directories known to exist on this host (for DIRECTORYNAMEP)")
|
||||
(PFSLEAFFLG POINTER) (* ;
|
||||
"Indicates something about whether LEAF is available")
|
||||
(PFSLEAFSEQUIN POINTER) (* ;
|
||||
"Pointer to SEQUIN for open leaf connection")
|
||||
(PFSLEAFTIMER POINTER) (* ;
|
||||
"Timeout for handling dead servers")
|
||||
(PFSLOOKUPFILESOCKET POINTER) (* ;
|
||||
"The Pup socket for LookupFile requests")
|
||||
(PFSLOOKUPFILELOCK POINTER) (* ; "Lock to secure it")
|
||||
(PFSLOOKUPFAILCNT POINTER) (* ;
|
||||
"Counter used until we know the service exists")
|
||||
(PFSKNOWNDIRS POINTER) (* ;
|
||||
"List of directories known to exist on this host (for DIRECTORYNAMEP)")
|
||||
(NIL POINTER)))
|
||||
)
|
||||
|
||||
@@ -4047,35 +4049,36 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
'30Q)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS .NAMEORSTREAM. MACRO (OPENLAMBDA (FILENAME)
|
||||
(COND
|
||||
((type? STREAM FILENAME)
|
||||
(fetch FULLFILENAME of FILENAME))
|
||||
(T FILENAME]
|
||||
(PUTPROPS .NAMEORSTREAM. MACRO (OPENLAMBDA (FILENAME)
|
||||
(COND
|
||||
((type? STREAM FILENAME)
|
||||
(fetch FULLFILENAME of FILENAME))
|
||||
(T FILENAME))))
|
||||
|
||||
[PUTPROPS .PAGE.IS.AFTER.EOF. MACRO (OPENLAMBDA (STREAM PAGE#)
|
||||
(AND (IGEQ PAGE# (fetch EPAGE of STREAM))
|
||||
(OR (NOT (IEQP (fetch EPAGE of STREAM)
|
||||
PAGE#))
|
||||
(EQ (fetch EOFFSET of STREAM)
|
||||
0]
|
||||
(PUTPROPS .PAGE.IS.AFTER.EOF. MACRO [OPENLAMBDA (STREAM PAGE#)
|
||||
(AND (IGEQ PAGE# (fetch EPAGE of STREAM))
|
||||
(OR (NOT (IEQP (fetch EPAGE of STREAM)
|
||||
PAGE#))
|
||||
(EQ (fetch EOFFSET of STREAM)
|
||||
0])
|
||||
|
||||
[PUTPROPS INCLEAFSTAT MACRO ((X)
|
||||
(change X (IPLUS16 DATUM 1]
|
||||
(PUTPROPS INCLEAFSTAT MACRO ((X)
|
||||
(change X (IPLUS16 DATUM 1))))
|
||||
)
|
||||
|
||||
(RPAQQ LEAFOPCODES ((\LEAFOP.ERROR 0)
|
||||
(\LEAFOP.OPEN 1)
|
||||
(\LEAFOP.CLOSE 2)
|
||||
(\LEAFOP.DELETE 3)
|
||||
(\LEAFOP.LENGTH 4)
|
||||
(\LEAFOP.TRUNCATE 5)
|
||||
(\LEAFOP.READ 6)
|
||||
(\LEAFOP.WRITE 7)
|
||||
(\LEAFOP.RESET 10Q)
|
||||
(\LEAFOP.NOOP 11Q)
|
||||
(\LEAFOP.TELNET 12Q)
|
||||
(\LEAFOP.PARAMS 13Q)))
|
||||
(RPAQQ LEAFOPCODES
|
||||
((\LEAFOP.ERROR 0)
|
||||
(\LEAFOP.OPEN 1)
|
||||
(\LEAFOP.CLOSE 2)
|
||||
(\LEAFOP.DELETE 3)
|
||||
(\LEAFOP.LENGTH 4)
|
||||
(\LEAFOP.TRUNCATE 5)
|
||||
(\LEAFOP.READ 6)
|
||||
(\LEAFOP.WRITE 7)
|
||||
(\LEAFOP.RESET 10Q)
|
||||
(\LEAFOP.NOOP 11Q)
|
||||
(\LEAFOP.TELNET 12Q)
|
||||
(\LEAFOP.PARAMS 13Q)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \LEAFOP.ERROR 0)
|
||||
@@ -4117,23 +4120,24 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
(\LEAFOP.PARAMS 13Q))
|
||||
)
|
||||
|
||||
(RPAQQ IFSERRORS ((\IFSERROR.BAD.CHARACTER 312Q)
|
||||
(\IFSERROR.MALFORMED '(311Q 312Q))
|
||||
(\IFSERROR.FILE.NOT.FOUND 317Q)
|
||||
(\IFSERROR.PROTECTION 320Q)
|
||||
(\IFSERROR.BUSY 321Q)
|
||||
(\IFSERROR.INVALID.DIRECTORY 322Q)
|
||||
(\IFSERROR.ALLOCATION 323Q)
|
||||
(\IFSERROR.USERNAME 330Q)
|
||||
(\IFSERROR.PASSWORD 331Q)
|
||||
(\IFSERROR.NO.LOGIN 332Q)
|
||||
(\PASSWORD.ERRORS '(330Q 331Q 332Q 337Q))
|
||||
(\IFSERROR.CONNECTNAME 333Q)
|
||||
(\IFSERROR.CONNECTPASSWORD 334Q)
|
||||
(\CONNECT.PASSWORD.ERRORS '(333Q 334Q))
|
||||
(\IFSERROR.NEED.USERNAME 337Q)
|
||||
(\IFS.ERROR.BROKEN.LEAF 1751Q)
|
||||
(\IFSERROR.BAD.HANDLE 1763Q)))
|
||||
(RPAQQ IFSERRORS
|
||||
((\IFSERROR.BAD.CHARACTER 312Q)
|
||||
(\IFSERROR.MALFORMED '(311Q 312Q))
|
||||
(\IFSERROR.FILE.NOT.FOUND 317Q)
|
||||
(\IFSERROR.PROTECTION 320Q)
|
||||
(\IFSERROR.BUSY 321Q)
|
||||
(\IFSERROR.INVALID.DIRECTORY 322Q)
|
||||
(\IFSERROR.ALLOCATION 323Q)
|
||||
(\IFSERROR.USERNAME 330Q)
|
||||
(\IFSERROR.PASSWORD 331Q)
|
||||
(\IFSERROR.NO.LOGIN 332Q)
|
||||
(\PASSWORD.ERRORS '(330Q 331Q 332Q 337Q))
|
||||
(\IFSERROR.CONNECTNAME 333Q)
|
||||
(\IFSERROR.CONNECTPASSWORD 334Q)
|
||||
(\CONNECT.PASSWORD.ERRORS '(333Q 334Q))
|
||||
(\IFSERROR.NEED.USERNAME 337Q)
|
||||
(\IFS.ERROR.BROKEN.LEAF 1751Q)
|
||||
(\IFSERROR.BAD.HANDLE 1763Q)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \IFSERROR.BAD.CHARACTER 312Q)
|
||||
@@ -4367,41 +4371,41 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
||||
(NIL POINTER)))
|
||||
)
|
||||
(PUTPROPS LEAF COPYRIGHT ("Venue & Xerox Corporation" 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3706Q 3707Q
|
||||
3710Q 3711Q))
|
||||
3710Q 3711Q 3745Q))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (55721Q 71017Q (CLOSESEQUIN 55733Q . 56752Q) (INITSEQUIN 56754Q . 62060Q) (GETSEQUIN
|
||||
62062Q . 63573Q) (PUTSEQUIN 63575Q . 71015Q)) (71020Q 154423Q (\SEQUIN.CONTROL 71032Q . 72303Q) (
|
||||
\SEQUIN.PUT 72305Q . 77330Q) (\SEQUIN.PROCESS 77332Q . 114606Q) (\SEQUIN.CLOSE 114610Q . 115475Q) (
|
||||
\SEQUIN.FLUSH.CONNECTION 115477Q . 117510Q) (\SEQUIN.CLEANUP 117512Q . 120643Q) (
|
||||
\SEQUIN.FLUSH.RETRANSMIT 120645Q . 122102Q) (\SEQUIN.COMPARE 122104Q . 123243Q) (\SEQUIN.HANDLE.INPUT
|
||||
123245Q . 141222Q) (\SEQUIN.OUT.OF.THE.BLUE 141224Q . 142047Q) (\SEQUIN.HANDLE.ACK 142051Q . 146303Q)
|
||||
(\SEQUIN.RETRANSMIT 146305Q . 151653Q) (\SEQUIN.RETRANSMITNEXT 151655Q . 154421Q)) (154474Q 420376Q (
|
||||
\LEAF.CLOSEFILE 154506Q . 167557Q) (\LEAF.DELETEFILE 167561Q . 173344Q) (\LEAF.DEVICEP 173346Q .
|
||||
210335Q) (\LEAF.RECONNECT 210337Q . 212254Q) (\LEAF.DIRECTORYNAMEP 212256Q . 215567Q) (
|
||||
\LEAF.GENERATEFILES 215571Q . 216203Q) (\LEAF.GETFILE 216205Q . 252644Q) (\PARSE.REMOTE.FILENAME
|
||||
252646Q . 262052Q) (\LEAF.STRIP.QUOTES 262054Q . 263545Q) (\LEAF.GETFILEDATES 263547Q . 265742Q) (
|
||||
\LEAF.GETFILEINFO 265744Q . 271321Q) (\LEAF.GETFILEINFO.OPEN 271323Q . 300142Q) (\LEAF.GETFILENAME
|
||||
300144Q . 302361Q) (\LEAF.OPENFILE 302363Q . 316434Q) (\LEAF.READFILENAME 316436Q . 322347Q) (
|
||||
\LEAF.ADD.QUOTES 322351Q . 324773Q) (\LEAF.READFILEPROP 324775Q . 330044Q) (\LEAF.READPAGES 330046Q .
|
||||
337203Q) (\LEAF.REQUESTPAGE 337205Q . 346115Q) (\LEAF.LOOKUPCACHE 346117Q . 353053Q) (CLEAR.LEAF.CACHE
|
||||
353055Q . 355025Q) (LEAF.ASSURE.FINISHED 355027Q . 362160Q) (\LEAF.FORCEOUTPUT 362162Q . 362454Q) (
|
||||
\LEAF.FLUSH.CACHE 362456Q . 363662Q) (\LEAF.RENAMEFILE 363664Q . 364636Q) (\LEAF.REOPENFILE 364640Q .
|
||||
372213Q) (\LEAF.CREATIONDATE 372215Q . 373052Q) (\LEAF.SETCREATIONDATE 373054Q . 376567Q) (
|
||||
\LEAF.SETFILEINFO 376571Q . 400453Q) (\LEAF.SETFILETYPE 400455Q . 405237Q) (\LEAF.SETVALIDATION
|
||||
405241Q . 407576Q) (\LEAF.TRUNCATEFILE 407600Q . 412773Q) (\LEAF.WRITEPAGES 412775Q . 420374Q)) (
|
||||
420461Q 426570Q (\SENDLEAF 420473Q . 426566Q)) (426644Q 457325Q (\OPENLEAFCONNECTION 426656Q . 450764Q
|
||||
) (\LEAF.BREAKCONNECTION 450766Q . 452572Q) (\CLOSELEAFCONNECTION 452574Q . 453434Q) (\LEAF.EVENTFN
|
||||
453436Q . 457323Q)) (457414Q 462177Q (BREAKCONNECTION 457426Q . 462175Q)) (462303Q 574667Q (
|
||||
\LEAF.ACKED 462315Q . 463024Q) (\LEAF.FIX.BROKEN.SEQUIN 463026Q . 502766Q) (\LEAF.REPAIR.BROKEN.PUP
|
||||
502770Q . 507062Q) (\LEAF.USE.NEW.CONNECTION 507064Q . 522707Q) (\LEAF.RESENDPUPS 522711Q . 523321Q) (
|
||||
\LEAF.HANDLE.INPUT 523323Q . 532633Q) (\LEAF.OPENERRORHANDLER 532635Q . 534260Q) (\LEAF.TIMEDIN
|
||||
534262Q . 535245Q) (\LEAF.TIMEDOUT 535247Q . 543562Q) (\LEAF.NOT.RESPONDING 543564Q . 545134Q) (
|
||||
\LEAF.TIMEDOUT.EXCESSIVE 545136Q . 557603Q) (\LEAF.ABORT.FROMMENU 557605Q . 560534Q) (
|
||||
\LEAF.STREAM.IN.QUEUE 560536Q . 565131Q) (\LEAF.IDLE 565133Q . 567173Q) (\LEAF.MAYBE.FLUSH.CACHE
|
||||
567175Q . 570266Q) (\LEAF.WHENCLOSED 570270Q . 573456Q) (\LEAF.IDLE? 573460Q . 574665Q)) (575012Q
|
||||
630625Q (\ADDLEAFSTRING 575024Q . 600672Q) (\FIXPASSWORD 600674Q . 603031Q) (\GETLEAFSTRING 603033Q .
|
||||
603563Q) (\IFSERRORSTRING 603565Q . 611752Q) (\LEAF.ERROR 611754Q . 617253Q) (\LEAF.DIRECTORYNAMEONLY
|
||||
617255Q . 617776Q) (GETHOSTINFO 620000Q . 625276Q) (GETOSTYPE 625300Q . 625517Q) (EXPANDING-PAGEFULLFN
|
||||
625521Q . 630623Q)) (631032Q 655617Q (\IFS.LOOKUPFILE 631044Q . 655615Q)) (657560Q 661707Q (\LEAFINIT
|
||||
657572Q . 661705Q)) (661765Q 675022Q (PRINTLEAF 661777Q . 675020Q)))))
|
||||
(FILEMAP (NIL (55030Q 70126Q (CLOSESEQUIN 55042Q . 56061Q) (INITSEQUIN 56063Q . 61167Q) (GETSEQUIN
|
||||
61171Q . 62702Q) (PUTSEQUIN 62704Q . 70124Q)) (70127Q 153532Q (\SEQUIN.CONTROL 70141Q . 71412Q) (
|
||||
\SEQUIN.PUT 71414Q . 76437Q) (\SEQUIN.PROCESS 76441Q . 113715Q) (\SEQUIN.CLOSE 113717Q . 114604Q) (
|
||||
\SEQUIN.FLUSH.CONNECTION 114606Q . 116617Q) (\SEQUIN.CLEANUP 116621Q . 117752Q) (
|
||||
\SEQUIN.FLUSH.RETRANSMIT 117754Q . 121211Q) (\SEQUIN.COMPARE 121213Q . 122352Q) (\SEQUIN.HANDLE.INPUT
|
||||
122354Q . 140331Q) (\SEQUIN.OUT.OF.THE.BLUE 140333Q . 141156Q) (\SEQUIN.HANDLE.ACK 141160Q . 145412Q)
|
||||
(\SEQUIN.RETRANSMIT 145414Q . 150762Q) (\SEQUIN.RETRANSMITNEXT 150764Q . 153530Q)) (153603Q 417505Q (
|
||||
\LEAF.CLOSEFILE 153615Q . 166666Q) (\LEAF.DELETEFILE 166670Q . 172453Q) (\LEAF.DEVICEP 172455Q .
|
||||
207444Q) (\LEAF.RECONNECT 207446Q . 211363Q) (\LEAF.DIRECTORYNAMEP 211365Q . 214676Q) (
|
||||
\LEAF.GENERATEFILES 214700Q . 215312Q) (\LEAF.GETFILE 215314Q . 251753Q) (\PARSE.REMOTE.FILENAME
|
||||
251755Q . 261161Q) (\LEAF.STRIP.QUOTES 261163Q . 262654Q) (\LEAF.GETFILEDATES 262656Q . 265051Q) (
|
||||
\LEAF.GETFILEINFO 265053Q . 270430Q) (\LEAF.GETFILEINFO.OPEN 270432Q . 277251Q) (\LEAF.GETFILENAME
|
||||
277253Q . 301470Q) (\LEAF.OPENFILE 301472Q . 315543Q) (\LEAF.READFILENAME 315545Q . 321456Q) (
|
||||
\LEAF.ADD.QUOTES 321460Q . 324102Q) (\LEAF.READFILEPROP 324104Q . 327153Q) (\LEAF.READPAGES 327155Q .
|
||||
336312Q) (\LEAF.REQUESTPAGE 336314Q . 345224Q) (\LEAF.LOOKUPCACHE 345226Q . 352162Q) (CLEAR.LEAF.CACHE
|
||||
352164Q . 354134Q) (LEAF.ASSURE.FINISHED 354136Q . 361267Q) (\LEAF.FORCEOUTPUT 361271Q . 361563Q) (
|
||||
\LEAF.FLUSH.CACHE 361565Q . 362771Q) (\LEAF.RENAMEFILE 362773Q . 363745Q) (\LEAF.REOPENFILE 363747Q .
|
||||
371322Q) (\LEAF.CREATIONDATE 371324Q . 372161Q) (\LEAF.SETCREATIONDATE 372163Q . 375676Q) (
|
||||
\LEAF.SETFILEINFO 375700Q . 377562Q) (\LEAF.SETFILETYPE 377564Q . 404346Q) (\LEAF.SETVALIDATION
|
||||
404350Q . 406705Q) (\LEAF.TRUNCATEFILE 406707Q . 412102Q) (\LEAF.WRITEPAGES 412104Q . 417503Q)) (
|
||||
417570Q 425677Q (\SENDLEAF 417602Q . 425675Q)) (425753Q 456434Q (\OPENLEAFCONNECTION 425765Q . 450073Q
|
||||
) (\LEAF.BREAKCONNECTION 450075Q . 451701Q) (\CLOSELEAFCONNECTION 451703Q . 452543Q) (\LEAF.EVENTFN
|
||||
452545Q . 456432Q)) (456523Q 461306Q (BREAKCONNECTION 456535Q . 461304Q)) (461412Q 573776Q (
|
||||
\LEAF.ACKED 461424Q . 462133Q) (\LEAF.FIX.BROKEN.SEQUIN 462135Q . 502075Q) (\LEAF.REPAIR.BROKEN.PUP
|
||||
502077Q . 506171Q) (\LEAF.USE.NEW.CONNECTION 506173Q . 522016Q) (\LEAF.RESENDPUPS 522020Q . 522430Q) (
|
||||
\LEAF.HANDLE.INPUT 522432Q . 531742Q) (\LEAF.OPENERRORHANDLER 531744Q . 533367Q) (\LEAF.TIMEDIN
|
||||
533371Q . 534354Q) (\LEAF.TIMEDOUT 534356Q . 542671Q) (\LEAF.NOT.RESPONDING 542673Q . 544243Q) (
|
||||
\LEAF.TIMEDOUT.EXCESSIVE 544245Q . 556712Q) (\LEAF.ABORT.FROMMENU 556714Q . 557643Q) (
|
||||
\LEAF.STREAM.IN.QUEUE 557645Q . 564240Q) (\LEAF.IDLE 564242Q . 566302Q) (\LEAF.MAYBE.FLUSH.CACHE
|
||||
566304Q . 567375Q) (\LEAF.WHENCLOSED 567377Q . 572565Q) (\LEAF.IDLE? 572567Q . 573774Q)) (574121Q
|
||||
627734Q (\ADDLEAFSTRING 574133Q . 600001Q) (\FIXPASSWORD 600003Q . 602140Q) (\GETLEAFSTRING 602142Q .
|
||||
602672Q) (\IFSERRORSTRING 602674Q . 611061Q) (\LEAF.ERROR 611063Q . 616362Q) (\LEAF.DIRECTORYNAMEONLY
|
||||
616364Q . 617105Q) (GETHOSTINFO 617107Q . 624405Q) (GETOSTYPE 624407Q . 624626Q) (EXPANDING-PAGEFULLFN
|
||||
624630Q . 627732Q)) (630141Q 654726Q (\IFS.LOOKUPFILE 630153Q . 654724Q)) (656667Q 661016Q (\LEAFINIT
|
||||
656701Q . 661014Q)) (661074Q 674131Q (PRINTLEAF 661106Q . 674127Q)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 8-Aug-2021 00:19:22"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7 268927
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:25:49"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;9 268917
|
||||
|
||||
changes to%: (FNS READBITMAP)
|
||||
changes to%: (FNS \CREATEDISPLAY)
|
||||
|
||||
previous date%: " 1-Aug-2021 23:41:37"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6)
|
||||
previous date%: " 8-Aug-2021 00:19:22"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;8)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -4528,42 +4528,42 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
|
||||
(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988
|
||||
1989 1990 1993 1994 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (20544 23212 (\FBITMAPBIT 20554 . 21014) (\FBITMAPBIT.UFN 21016 . 22035) (
|
||||
\NEWPAGE.DISPLAY 22037 . 22172) (INITBITMASKS 22174 . 23210)) (25257 25766 (\CreateCursorBitMap 25267
|
||||
. 25764)) (25883 84971 (BITBLT 25893 . 36283) (BLTSHADE 36285 . 37063) (\BITBLTSUB 37065 . 47200) (
|
||||
\GETPILOTBBTSCRATCHBM 47202 . 47817) (BITMAPCOPY 47819 . 48395) (BITMAPCREATE 48397 . 49957) (
|
||||
BITMAPBIT 49959 . 58346) (BLTCHAR 58348 . 58964) (\BLTCHAR 58966 . 59468) (\MEDW.BLTCHAR 59470 . 64348
|
||||
) (\CHANGECHARSET.DISPLAY 64350 . 67308) (\INDICATESTRING 67310 . 68506) (\SLOWBLTCHAR 68508 . 75604)
|
||||
(TEXTUREP 75606 . 75876) (INVERT.TEXTURE 75878 . 76152) (INVERT.TEXTURE.BITMAP 76154 . 77689) (
|
||||
BITMAPWIDTH 77691 . 78063) (READBITMAP 78065 . 80575) (\INSUREBITSPERPIXEL 80577 . 80872) (
|
||||
MAXIMUMCOLOR 80874 . 81015) (OPPOSITECOLOR 81017 . 81196) (MAXIMUMSHADE 81198 . 81409) (OPPOSITESHADE
|
||||
81411 . 81590) (\MEDW.BITBLT 81592 . 84969)) (84973 90288 (FINISH-READING-BITMAP 84973 . 90288)) (
|
||||
91551 92032 (BITMAPBIT.EXPANDER 91561 . 92030)) (92033 140567 (\BITBLT.DISPLAY 92043 . 115282) (
|
||||
\BITBLT.BITMAP 115284 . 124383) (\BITBLT.MERGE 124385 . 126638) (\BLTSHADE.DISPLAY 126640 . 133740) (
|
||||
\BLTSHADE.BITMAP 133742 . 140565)) (140568 149888 (\BITBLT.BITMAP.SLOW 140578 . 149886)) (149889
|
||||
166270 (\PUNT.BLTSHADE.BITMAP 149899 . 156995) (\PUNT.BITBLT.BITMAP 156997 . 166268)) (166271 169711 (
|
||||
\SCALEDBITBLT.DISPLAY 166281 . 167914) (\BACKCOLOR.DISPLAY 167916 . 169709)) (174029 176302 (
|
||||
DISPLAYSTREAMP 174039 . 174647) (DSPSOURCETYPE 174649 . 175658) (DSPXOFFSET 175660 . 175979) (
|
||||
DSPYOFFSET 175981 . 176300)) (176303 192604 (DSPCREATE 176313 . 178417) (DSPDESTINATION 178419 .
|
||||
181522) (DSPTEXTURE 181524 . 181686) (\DISPLAYSTREAMINCRXPOSITION 181688 . 181975) (\SFFixDestination
|
||||
181977 . 183155) (\SFFixClippingRegion 183157 . 185329) (\SFFixFont 185331 . 186381) (\SFFIXLINELENGTH
|
||||
186383 . 187879) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187881 . 189694) (\SFFixY 189696 . 192602))
|
||||
(192605 194799 (\MEDW.XOFFSET 192615 . 193756) (\MEDW.YOFFSET 193758 . 194797)) (194800 202726 (
|
||||
\DSPCLIPPINGREGION.DISPLAY 194810 . 195556) (\DSPFONT.DISPLAY 195558 . 197928) (\DISPLAY.PILOTBITBLT
|
||||
197930 . 198079) (\DSPLINEFEED.DISPLAY 198081 . 198652) (\DSPLEFTMARGIN.DISPLAY 198654 . 199385) (
|
||||
\DSPOPERATION.DISPLAY 199387 . 200411) (\DSPRIGHTMARGIN.DISPLAY 200413 . 201258) (
|
||||
\DSPXPOSITION.DISPLAY 201260 . 202117) (\DSPYPOSITION.DISPLAY 202119 . 202724)) (207496 212532 (
|
||||
TTYDISPLAYSTREAM 207506 . 212530)) (212851 213881 (DSPSCROLL 212861 . 213561) (PAGEHEIGHT 213563 .
|
||||
213879)) (213926 216948 (\DSPRESET.DISPLAY 213936 . 216946)) (217508 238146 (\DSPPRINTCHAR 217518 .
|
||||
225356) (\DSPPRINTCR/LF 225358 . 238144)) (238147 238739 (\TTYBACKGROUND 238157 . 238737)) (238740
|
||||
242027 (DSPBACKUP 238750 . 242025)) (242211 242467 (COLORDISPLAYP 242221 . 242465)) (242468 244539 (
|
||||
DISPLAYBEFOREEXIT 242478 . 243304) (DISPLAYAFTERENTRY 243306 . 244537)) (244919 249451 (
|
||||
\DSPCLIPTRANSFORMX 244929 . 245518) (\DSPCLIPTRANSFORMY 245520 . 246245) (\DSPTRANSFORMREGION 246247
|
||||
. 246779) (\DSPUNTRANSFORMY 246781 . 247041) (\DSPUNTRANSFORMX 247043 . 247303) (
|
||||
\OFFSETCLIPPINGREGION 247305 . 249449)) (250757 253344 (UPDATESCREENDIMENSIONS 250767 . 251396) (
|
||||
\CreateScreenBitMap 251398 . 253342)) (253903 267062 (\CoerceToDisplayDevice 253913 . 254326) (
|
||||
\CREATEDISPLAY 254328 . 256168) (DISPLAYSTREAMINIT 256170 . 259314) (\STARTDISPLAY 259316 . 262227) (
|
||||
\MOVE.WINDOWS.ONTO.SCREEN 262229 . 264421) (\UPDATE.PBT.RASTERWIDTHS 264423 . 266205) (\STOPDISPLAY
|
||||
266207 . 266699) (\DEFINEDISPLAYINFO 266701 . 267060)) (267670 268431 (INITIALIZEDISPLAYSTREAMS 267680
|
||||
. 268429)))))
|
||||
(FILEMAP (NIL (20534 23202 (\FBITMAPBIT 20544 . 21004) (\FBITMAPBIT.UFN 21006 . 22025) (
|
||||
\NEWPAGE.DISPLAY 22027 . 22162) (INITBITMASKS 22164 . 23200)) (25247 25756 (\CreateCursorBitMap 25257
|
||||
. 25754)) (25873 84961 (BITBLT 25883 . 36273) (BLTSHADE 36275 . 37053) (\BITBLTSUB 37055 . 47190) (
|
||||
\GETPILOTBBTSCRATCHBM 47192 . 47807) (BITMAPCOPY 47809 . 48385) (BITMAPCREATE 48387 . 49947) (
|
||||
BITMAPBIT 49949 . 58336) (BLTCHAR 58338 . 58954) (\BLTCHAR 58956 . 59458) (\MEDW.BLTCHAR 59460 . 64338
|
||||
) (\CHANGECHARSET.DISPLAY 64340 . 67298) (\INDICATESTRING 67300 . 68496) (\SLOWBLTCHAR 68498 . 75594)
|
||||
(TEXTUREP 75596 . 75866) (INVERT.TEXTURE 75868 . 76142) (INVERT.TEXTURE.BITMAP 76144 . 77679) (
|
||||
BITMAPWIDTH 77681 . 78053) (READBITMAP 78055 . 80565) (\INSUREBITSPERPIXEL 80567 . 80862) (
|
||||
MAXIMUMCOLOR 80864 . 81005) (OPPOSITECOLOR 81007 . 81186) (MAXIMUMSHADE 81188 . 81399) (OPPOSITESHADE
|
||||
81401 . 81580) (\MEDW.BITBLT 81582 . 84959)) (84963 90278 (FINISH-READING-BITMAP 84963 . 90278)) (
|
||||
91541 92022 (BITMAPBIT.EXPANDER 91551 . 92020)) (92023 140557 (\BITBLT.DISPLAY 92033 . 115272) (
|
||||
\BITBLT.BITMAP 115274 . 124373) (\BITBLT.MERGE 124375 . 126628) (\BLTSHADE.DISPLAY 126630 . 133730) (
|
||||
\BLTSHADE.BITMAP 133732 . 140555)) (140558 149878 (\BITBLT.BITMAP.SLOW 140568 . 149876)) (149879
|
||||
166260 (\PUNT.BLTSHADE.BITMAP 149889 . 156985) (\PUNT.BITBLT.BITMAP 156987 . 166258)) (166261 169701 (
|
||||
\SCALEDBITBLT.DISPLAY 166271 . 167904) (\BACKCOLOR.DISPLAY 167906 . 169699)) (174019 176292 (
|
||||
DISPLAYSTREAMP 174029 . 174637) (DSPSOURCETYPE 174639 . 175648) (DSPXOFFSET 175650 . 175969) (
|
||||
DSPYOFFSET 175971 . 176290)) (176293 192594 (DSPCREATE 176303 . 178407) (DSPDESTINATION 178409 .
|
||||
181512) (DSPTEXTURE 181514 . 181676) (\DISPLAYSTREAMINCRXPOSITION 181678 . 181965) (\SFFixDestination
|
||||
181967 . 183145) (\SFFixClippingRegion 183147 . 185319) (\SFFixFont 185321 . 186371) (\SFFIXLINELENGTH
|
||||
186373 . 187869) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187871 . 189684) (\SFFixY 189686 . 192592))
|
||||
(192595 194789 (\MEDW.XOFFSET 192605 . 193746) (\MEDW.YOFFSET 193748 . 194787)) (194790 202716 (
|
||||
\DSPCLIPPINGREGION.DISPLAY 194800 . 195546) (\DSPFONT.DISPLAY 195548 . 197918) (\DISPLAY.PILOTBITBLT
|
||||
197920 . 198069) (\DSPLINEFEED.DISPLAY 198071 . 198642) (\DSPLEFTMARGIN.DISPLAY 198644 . 199375) (
|
||||
\DSPOPERATION.DISPLAY 199377 . 200401) (\DSPRIGHTMARGIN.DISPLAY 200403 . 201248) (
|
||||
\DSPXPOSITION.DISPLAY 201250 . 202107) (\DSPYPOSITION.DISPLAY 202109 . 202714)) (207486 212522 (
|
||||
TTYDISPLAYSTREAM 207496 . 212520)) (212841 213871 (DSPSCROLL 212851 . 213551) (PAGEHEIGHT 213553 .
|
||||
213869)) (213916 216938 (\DSPRESET.DISPLAY 213926 . 216936)) (217498 238136 (\DSPPRINTCHAR 217508 .
|
||||
225346) (\DSPPRINTCR/LF 225348 . 238134)) (238137 238729 (\TTYBACKGROUND 238147 . 238727)) (238730
|
||||
242017 (DSPBACKUP 238740 . 242015)) (242201 242457 (COLORDISPLAYP 242211 . 242455)) (242458 244529 (
|
||||
DISPLAYBEFOREEXIT 242468 . 243294) (DISPLAYAFTERENTRY 243296 . 244527)) (244909 249441 (
|
||||
\DSPCLIPTRANSFORMX 244919 . 245508) (\DSPCLIPTRANSFORMY 245510 . 246235) (\DSPTRANSFORMREGION 246237
|
||||
. 246769) (\DSPUNTRANSFORMY 246771 . 247031) (\DSPUNTRANSFORMX 247033 . 247293) (
|
||||
\OFFSETCLIPPINGREGION 247295 . 249439)) (250747 253334 (UPDATESCREENDIMENSIONS 250757 . 251386) (
|
||||
\CreateScreenBitMap 251388 . 253332)) (253893 267052 (\CoerceToDisplayDevice 253903 . 254316) (
|
||||
\CREATEDISPLAY 254318 . 256158) (DISPLAYSTREAMINIT 256160 . 259304) (\STARTDISPLAY 259306 . 262217) (
|
||||
\MOVE.WINDOWS.ONTO.SCREEN 262219 . 264411) (\UPDATE.PBT.RASTERWIDTHS 264413 . 266195) (\STOPDISPLAY
|
||||
266197 . 266689) (\DEFINEDISPLAYINFO 266691 . 267050)) (267660 268421 (INITIALIZEDISPLAYSTREAMS 267670
|
||||
. 268419)))))
|
||||
STOP
|
||||
|
||||
@@ -1,10 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||
(FILECREATED " 8-Aug-2021 00:19:22" ("compiled on "
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7) " 6-Aug-2021 20:53:08"
|
||||
"COMPILE-FILEd" in "FULL 6-Aug-2021 ..." dated " 6-Aug-2021 20:53:13")
|
||||
(FILECREATED " 8-Aug-2021 00:19:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7
|
||||
268927 changes to%: (FNS READBITMAP) previous date%: " 1-Aug-2021 23:41:37"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:25:49" ("compiled on "
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;9) " 5-Sep-2021 08:04:36"
|
||||
"COMPILE-FILEd" in "FULL 5-Sep-2021 ..." dated " 5-Sep-2021 08:04:43")
|
||||
(FILECREATED " 5-Sep-2021 08:25:49" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;9
|
||||
268917 changes to%: (FNS \CREATEDISPLAY) previous date%: " 8-Aug-2021 00:19:22"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;8)
|
||||
(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE
|
||||
DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ;
|
||||
"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION
|
||||
@@ -120,18 +120,18 @@ NIL $ l dk
|
||||
(25 \EM.CURSORBITMAP)
|
||||
()
|
||||
(RPAQ CursorBitMap (\CreateCursorBitMap))
|
||||
BITBLT :D8
|
||||
BITBLT :D8
|
||||
(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SCREENBITMAPS) ® D£jb¿E£jb
|
||||
¿Gg ð²NCdà ²¿GCDEFGGG
|
||||
g h H É. ɹGHDEFGGGlIð@@dà ²]¿A£jb¿B£jb¿@¹AºB»Fµ3@ Èb ¿Gµ@ Èb¿± É@ ÈBÙ½dMñ²ì¿M°è@ ÈAÙ¼dLñ²É¿L°Åg h É0 X¢± …A¦HÉ
|
||||
b¿B§HÉ
|
||||
b¿H ɹAH ÉØbH È"¾dNñ¡¿NºBH ÉØbH È$_¿dOñ¢¿O»FµNH È#JÙb ¿Gµ%H È%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hH È%KÙ_¿dOñ²Ö¿O°ÑH È#JÙ_¿dOñ²¿O°¨Cdà ¢± Æ¿@ ¢± ¡h__¿W&²8W(´h@g h
|
||||
W*ð_²` È _¿` jÍ ¿ ¿@g h _` ð³hO
|
||||
W, —O ¿IABCDEFGGGGGJK
|
||||
O´‚±U ¿` OÍ ¿±AIABCDEFGGGGGJK
|
||||
g h H É. ɹGHDEFGGGlIð@@dà ²]¿A£jb¿B£jb¿@¹AºB»Fµ3@ Èb ¿Gµ@ Èb¿± É@ ÈBÙ½dMñ²ì¿M°è@ ÈAÙ¼dLñ²É¿L°Åg h É0 X¢± …A¦HÉ
|
||||
b¿B§HÉ
|
||||
b¿H ɹAH ÉØbH È"¾dNñ¡¿NºBH ÉØbH È$_¿dOñ¢¿O»FµNH È#JÙb ¿Gµ%H È%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hH È%KÙ_¿dOñ²Ö¿O°ÑH È#JÙ_¿dOñ²¿O°¨Cdà ¢± Ï¿@ ¢± ªh__¿` ²>` ´h@g h
|
||||
` ð_²` È _¿` jÍ ¿ ¿@g h _` ð³hO
|
||||
W& —O ¿IABCDEFGGGGGJK
|
||||
O´‚±^ ¿` OÍ ¿±JIABCDEFGGGGGJK
|
||||
g h _@Cð’± ð@ ¢± æC ¢± Õ@dC
|
||||
¢± Á¿h_ _ _"¿W&²8W(´h@g h
|
||||
W*ð_"²` È _ ¿` jÍ ¿ ¿@g h _ ` ð³hO
|
||||
¢± Ê¿h_ _ _"¿` ²>` ´h@g h
|
||||
` ð_"²` È _ ¿` jÍ ¿ ¿@g h _ ` ð³hO
|
||||
W& —O ¿IABFG
|
||||
_ jdFGg g
|
||||
¿O"Ÿ ¿` O Í ¿O jdODEFGGGGG
|
||||
@@ -168,7 +168,7 @@ BITMAPCREATE :D8
|
||||
()
|
||||
BITMAPCOPY :D8
|
||||
(P 0 NEWBITMAP I 0 BITMAP) 7 @ b jd@ @È@È Xjdhdg g j
|
||||
H (51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
|
||||
H (51 BKBITBLT 29 BITMAPCREATE 18 BITMAPWIDTH)
|
||||
(44 REPLACE 39 INPUT 8 BITMAP)
|
||||
()
|
||||
BITMAPCREATE :D8
|
||||
@@ -177,27 +177,27 @@ BITMAPBIT :D8
|
||||
NIL
|
||||
( 102 "bits in BITMAP -- too big" 88 131066)
|
||||
BITMAPBIT :D8
|
||||
(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS) é °
|
||||
@à ¢±+@ ÈXjAñ’± A@ Èýñ¢± üjBñ’± õB@ È\ýñ¢± åHkð²[Cdjð² ¿@ É ABkLkÙ@ Èh8³ @ É ABlLkÙ@ Èh8@ É ABlLkÙ@ Èh8@ É @ ÈBÙkÙ@ ÈÚÐ^C² jCñ¯C@ È ñ–C ¿Hdkð²c¿AââââZNJÐÈ ]` Alå_¿_ É O l
|
||||
OØÐÈ YCµ MIåjð² jjð<6A>NJÐMImÿæåÍ ¿°èNJÐMIäÍ ¿°Ýklð²mAlçYdââââZNJÐÈ ]d` Alå_¿_ É O l
|
||||
OØÐÈ å[C² NJÐMKæCllAlåÙÚ
|
||||
(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SCREENBITMAPS) ò °
|
||||
@à ¢±+@ ÈXjAñ’± A@ Èýñ¢± üjBñ’± õB@ È\ýñ¢± åHkð²[Cdjð² ¿@ É ABkLkÙ@ Èh8³ @ É ABlLkÙ@ Èh8@ É ABlLkÙ@ Èh8@ É @ ÈBÙkÙ@ ÈÚÐ^C² jCñ¯C@ È ñ–C ¿Hdkð²c¿AââââZNJÐÈ ]` Alå_¿_ É O l
|
||||
OØÐÈ YCµ MIåjð² jjð<6A>NJÐMImÿæåÍ ¿°èNJÐMIäÍ ¿°Ýklð²mAlçYdââââZNJÐÈ ]d` Alå_¿_ É O l
|
||||
OØÐÈ å[C² NJÐMKæCllAlåÙÚ
|
||||
äÍ ¿KllAlåÙÚ
|
||||
Hdlð²K¿AlçYdââââZAkåjð² NJÐÈ ]nÿ å»C›NJÐMKæCáäÍ ¿KãNJÐÈ ]lÿå»C²1NJÐMKæCäÍ ¿°$lð²!AlÚYdââââZNA
|
||||
[C—NAC Ko H
|
||||
0
|
||||
@g h b É0 _AO
|
||||
_BO
|
||||
_O¢±þºd¢±þµ W ²-W"´ h@
|
||||
_O¢±þºd¢±þµ ` ²3` ´h@
|
||||
` ð_ ²` È _ ¿` jÍ ¿ ¿@` ð³h@
|
||||
W –@ ¿O ÉOOCû_¿O ž ¿` O Í O (739 \SOFTCURSORUPCURRENT 711 \TOTOPWDS 701 DSPDESTINATION 684 \SOFTCURSORDOWN 650 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
|
||||
(745 \EM.DISPINTERRUPT 719 \DISPLAYDATA 691 \TOPWDS 675 \EM.DISPINTERRUPT 665 \EM.DISPINTERRUPT 655 \CURSORDESTINATION 641 \SOFTCURSORUPP 634 \SOFTCURSORP 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
|
||||
( 557 "unknown bits per pixel size.")
|
||||
( 557 "unknown bits per pixel size.")
|
||||
BLTCHAR :D8
|
||||
(I 1 DISPLAYSTREAM I 0 CHARCODE) 2 @d—¿j@ñ¡@…@ Adg h É0 (47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG)
|
||||
(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
|
||||
()
|
||||
\BLTCHAR :D8
|
||||
(P 0 A0140 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) ( Ag h b É. ÉZ @ABlH (11 \GETSTREAM)
|
||||
(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
|
||||
()
|
||||
\BLTCHAR :D8
|
||||
(P 0 A0276 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) ( Ag h b É. ÉZ @ABlH (11 \GETSTREAM)
|
||||
(25 IMAGEOPS 18 STREAM 5 OUTPUT)
|
||||
()
|
||||
\MEDW.BLTCHAR :D8
|
||||
@@ -215,17 +215,18 @@ BLTCHAR :D8
|
||||
ð—@È@IÈ ð©@I
|
||||
¿°#JÉ JÈ@ÉBÚлH KÒÍ¿H KÓÍh (98 \SFFixY 24 \CREATECHARSET)
|
||||
(130 PILOTBBT 119 PILOTBBT)
|
||||
()
|
||||
\INDICATESTRINGA0001 :D8
|
||||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H g d g i
|
||||
¿Pc g l hhPc g Qão Qlÿå (69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
|
||||
()
|
||||
\INDICATESTRINGA0001 :D8
|
||||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 CHARCODE) H g d g i
|
||||
¿Pc g l hhPc g Qão Qlÿå (69 CONCAT 39 RADIX 22 SETTOPVAL 10 GETTOPVAL)
|
||||
(53 %# 32 RADIX 16 PRXFLT 4 PRXFLT)
|
||||
( 60 ",")
|
||||
\INDICATESTRING :D8
|
||||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 CHARCODE F 3 LISPXHIST) _ @dlÿñ² ¿S!g ¿$lñœ@låb ¿g „o l @ñœ@l@äb ¿g „o @ (92 CONCAT 87 CHARACTER 31 SI::RESETUNWIND 26 \MVLIST 21 \INDICATESTRINGA0001)
|
||||
(75 ^ 52 %# 16 SI::RESETUNWIND)
|
||||
(75 ^ 52 %# 16 SI::RESETUNWIND)
|
||||
( 81 "" 58 "")
|
||||
\SLOWBLTCHAR :D8
|
||||
( 81 "" 58 "")
|
||||
\SLOWBLTCHAR :D8
|
||||
(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SCREENBITMAPS) T @@lÿåYAÉ0ZdÉ È Xdj𢱇€ JÉ _JÉIÐÈ Ø\JÉñ²l
|
||||
A
|
||||
¿JÉ _JÉIÐÈ Ø¼JL ¿OJ ÉØ_¿JÈ"dOñ¢¿O½JÈ#LJ ÉØ»dKñ‘¿K¾JÉ*_¿NMñ¢±OÈ jð’±
|
||||
M_¿NMÙ_¿JÉIÐÈ MØOÙ_¿JÉÈdkð³adlð²¿Oàà_¿Oàà_¿Oàà_°Ddlð² ¿Oààà_¿Oààà_¿Oààà_°$lð²lOÚ_¿lOÚ_¿lOÚ_„ ¿
|
||||
@@ -273,7 +274,7 @@ OPPOSITESHADE :D8
|
||||
MAXIMUMCOLOR :D8
|
||||
(L (0 BITSPERPIXEL)) k@çkÙ NIL
|
||||
NIL
|
||||
()
|
||||
()
|
||||
OPPOSITECOLOR :D8
|
||||
(I 1 BITSPERPIXEL I 0 COLOR)
|
||||
A @Ù (5 MAXIMUMCOLOR)
|
||||
@@ -312,28 +313,28 @@ BITMAPBIT.EXPANDER :D8
|
||||
(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0))
|
||||
(MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))
|
||||
optimize-BITMAPBIT :D8
|
||||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 BITMAPBIT.EXPANDER)
|
||||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 BITMAPBIT.EXPANDER)
|
||||
NIL
|
||||
()
|
||||
(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET
|
||||
(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
|
||||
optimize-BITMAPP :D8
|
||||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ o Hh NIL
|
||||
()
|
||||
(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPBIT) (GET
|
||||
(QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
|
||||
optimize-BITMAPP :D8
|
||||
(L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ o Hh NIL
|
||||
NIL
|
||||
( 10 (OPENLAMBDA (X) (AND (type? BITMAP X) X)))
|
||||
(PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-BITMAPP) (GET (
|
||||
QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST))))
|
||||
BITMAPBIT.EXPANDER :D8
|
||||
BITMAPBIT.EXPANDER :D8
|
||||
(P 3 NEWVALUE P 2 Y P 1 X P 0 BM I 0 ARGS) - @@@@ lð•@»o HIJKh (17 LENGTH)
|
||||
NIL
|
||||
( 32 (OPCODES MISC4 6))
|
||||
NIL
|
||||
( 32 (OPCODES MISC4 6))
|
||||
\BITBLT.DISPLAY :D8
|
||||
(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS) “0 ðð @dà ²[¿A£jb¿B£jb¿AºB»Fµ3@ Èb ¿Gµ@ Èb¿± Í@ ÈBÙ½dMñ²ì¿M°è@ ÈAÙ¼dLñ²É¿L°Åg h É0 X¢± ‰@¹A¦HÉ
|
||||
b¿B§HÉ
|
||||
b¿H Éb ¿AH ÉØbH È"¾dNñ¡¿NºBH ÉØbH È$_¿dOñ¢¿O»FµNH È#JÙb ¿Gµ%H È%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hH È%KÙ_¿dOñ²Ö¿O°ÑH È#JÙ_¿dOñ²¿O°¨Cdà ¢± Æ¿I ¢± ¡h__¿Wb²8Wd´h@g h
|
||||
Wfð_²` È _¿` jÍ ¿ ¿@g h _` ð³hO
|
||||
W` —O ¿@ABCDEFGGGGGJK
|
||||
O´‚±Ž ¿` OÍ ¿±z@ABCDEFGGGGGJK
|
||||
b¿H Éb ¿AH ÉØbH È"¾dNñ¡¿NºBH ÉØbH È$_¿dOñ¢¿O»FµNH È#JÙb ¿Gµ%H È%KÙb¿G¥HÉ6b¿Fjñ´ Gjñ³4hH È%KÙ_¿dOñ²Ö¿O°ÑH È#JÙ_¿dOñ²¿O°¨Cdà ¢± Ï¿I ¢± ªh__¿` ²>` ´h@g h
|
||||
` ð_²` È _¿` jÍ ¿ ¿@g h _` ð³hO
|
||||
W` —O ¿@ABCDEFGGGGGJK
|
||||
O´‚± ¿` OÍ ¿±Œ@ABCDEFGGGGGJK
|
||||
g h _IdCð’±" ³I¢±,Id ¢± ¿C ¢± øIdC
|
||||
¢± í¿I É É.C É É.𢱠Èh_ _ _"¿` ²>` ´hIg h
|
||||
` ð_"²` È _ ¿` jÍ ¿ ¿Ig h _ ` ð³hO
|
||||
@@ -353,13 +354,13 @@ NIL
|
||||
` ð_:²` È _8¿` jÍ ¿ ¿O` ð³hO
|
||||
W` —O ¿`/ODOFÙ_T¿OHOBÙ_V¿OL ÈODO@ØÙ_X¿OBO>Ø_Z¿@ ÈODÙ_\¿OB_^¿` OVÍ¿` OTÍ ¿Gg ð²"` @O^O\OLOZOXOVOTGG
|
||||
° ` @O^O\OLOZOXOTGGG
|
||||
° ` @O^O\OLOZOXOTGGG
|
||||
O:Ÿ ¿` O8Í ¿°.O É. É _<¿@ABODEFGGGGGJKlO<h (1877 \SOFTCURSORUPCURRENT 1868 \BITBLTSUB 1836 \BITBLT.MERGE 1701 \TOTOPWDS 1690 DSPDESTINATION 1671 \SOFTCURSORDOWN 1637 DSPDESTINATION 1576 INSURE.B&W.TEXTURE 1552 COLORTEXTUREFROMCOLOR# 1532 \ILLEGAL.ARG 1524 COLORNUMBERP 1508 INVERT.TEXTURE.BITMAP 1498 BITMAPCREATE 1450 INSURE.B&W.TEXTURE 1416 MAXIMUMSHADE 1183 UNCOLORIZEBITMAP 1178 COLORMAP 1160 COLORIZEBITMAP 1153 MAXIMUMCOLOR 927 \TOTOPWDS 916 DSPDESTINATION 869 DSPDESTINATION 861 DSPDESTINATION 850 TOTOPW 843 BKBITBLT 807 \SOFTCURSORUPCURRENT 798 BKBITBLT 775 BITMAPCREATE 763 \TOTOPWDS 752 DSPDESTINATION 734 \GETSTREAM 721 \SOFTCURSORDOWN 687 DSPDESTINATION 682 \GETSTREAM 633 \INSUREWINDOW 618 \INSUREWINDOW 607 WOVERLAPP 595 WINDOWP 584 WFROMDS 570 WINDOWP 555 \GETSTREAM 543 \BITBLT.BITMAP 504 \SOFTCURSORUPCURRENT 491 \BITBLT.BITMAP 465 \TOTOPWDS 454 DSPDESTINATION 436 \GETSTREAM 423 \SOFTCURSORDOWN 389 DSPDESTINATION 384 \GETSTREAM 347 WINDOWP 117 \GETSTREAM)
|
||||
(1905 IMAGEOPS 1898 STREAM 1883 \EM.DISPINTERRUPT 1843 \SYSPILOTBBT 1811 \SYSPILOTBBT 1803 MERGE 1791 PILOTBBT 1786 \SYSPILOTBBT 1776 PILOTBBT 1771 \SYSPILOTBBT 1753 BITMAP 1728 BITMAP 1679 \TOPWDS 1662 \EM.DISPINTERRUPT 1652 \EM.DISPINTERRUPT 1642 \CURSORDESTINATION 1627 \SOFTCURSORUPP 1620 \SOFTCURSORP 1559 TEXTURE 1503 \BBSCRATCHTEXTURE 1488 \BBSCRATCHTEXTURE 1479 BITMAP 1427 MERGE 1123 BITMAP 1050 \DISPLAYDATA 1020 \DISPLAYDATA 999 \DISPLAYDATA 987 \DISPLAYDATA 975 \DISPLAYDATA 963 \DISPLAYDATA 950 \DISPLAYDATA 936 \DISPLAYDATA 905 \TOPWDS 893 \DISPLAYDATA 884 STREAM 813 \EM.DISPINTERRUPT 792 REPLACE 787 INPUT 741 \TOPWDS 728 OUTPUT 712 \EM.DISPINTERRUPT 702 \EM.DISPINTERRUPT 692 \CURSORDESTINATION 676 OUTPUT 667 \SOFTCURSORUPP 660 \SOFTCURSORP 640 STREAM 625 STREAM 549 OUTPUT 510 \EM.DISPINTERRUPT 443 \TOPWDS 430 OUTPUT 414 \EM.DISPINTERRUPT 404 \EM.DISPINTERRUPT 394 \CURSORDESTINATION 378 OUTPUT 369 \SOFTCURSORUPP 362 \SOFTCURSORP 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP)
|
||||
()
|
||||
()
|
||||
\BITBLT.BITMAP :D8
|
||||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||||
µ.Gdà ² ¿G` µld
|
||||
\BITBLT.BITMAP :D8
|
||||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||||
µ.Gdà ² ¿G` µld
|
||||
|
||||
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
||||
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
||||
° ` @O0O.CO,O*O&GGG
|
||||
@@ -420,18 +421,18 @@ Q
|
||||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||||
µ.Gdà ² ¿G` µld
|
||||
|
||||
|
||||
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
||||
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
||||
° ` @O0O.CO,O*O&GGG
|
||||
± ”k𢱠„G²Gg ð¬o G
|
||||
± ”k𢱠„G²Gg ð¬o G
|
||||
¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdg ð² ¿@MNCO,O*O(O&jL L
|
||||
° g ð³Gdg ð«g 𥠿‰o i (795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
|
||||
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
|
||||
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
||||
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
||||
\SCALEDBITBLT.DISPLAY :D8
|
||||
(P 1 REGION P 0 BITMAP I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) © G £kb ¿@ ² h@
|
||||
¹F¦Ib ¿G³3Ib°)@Ã ² @²F¨@ b ¿G®@ b„ ¿E©hC
|
||||
¹F¦Ib ¿G³3Ib°)@Ã ² @²F¨@ b ¿G®@ b„ ¿E©hC
|
||||
b
|
||||
¿D©hC
|
||||
b¿FG
|
||||
X@ABH HG d hdCDEFG ÖGG ÖGGGG
|
||||
@@ -439,14 +440,15 @@ DSPCREATE :D8
|
||||
(53 BITMAP)
|
||||
()
|
||||
\BACKCOLOR.DISPLAY :D8
|
||||
\BACKCOLOR.DISPLAY :D8
|
||||
(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) ƒ @g h É0 Xd É6A²\Aà ² Ad² ÈkðŸA lñ¥HA6¿A3 ™HAnÿÿå6¿H É ÈYkð«HAI
|
||||
(P 1 BITSPERPIXEL P 0 DD I 1 TEXTURE I 0 DISPLAYSTREAM) ƒ @g h É0 Xd É6A²\Aà ² Ad² ÈkðŸA lñ¥HA6¿A3 ™HAnÿÿå6¿H É ÈYkð«HAI
|
||||
6¿A ¿ (127 \ILLEGAL.ARG 117 COLORNUMBERP 66 BITMAPHEIGHT 14 \GETSTREAM)
|
||||
(103 BITMAP 96 \DISPLAYDATA 55 BITMAP 44 BITMAP 33 \DISPLAYDATA 26 \DISPLAYDATA 19 STREAM 8 OUTPUT)
|
||||
()
|
||||
()
|
||||
(RPAQQ \BBSCRATCHTEXTURE NIL)
|
||||
(RPAQQ \PILOTBBTSCRATCHBM NIL)
|
||||
(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
|
||||
(RPAQQ \PILOTBBTSCRATCHBM NIL)
|
||||
(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
|
||||
DISPLAYSTREAMP :D8
|
||||
(I 0 X F 0 \DISPLAYSTREAMTYPES) : @à ´2@ É. É P ³ @ É. É …dP ¤µùh´@ NIL
|
||||
(39 IMAGEOPS 32 STREAM 20 IMAGEOPS 13 STREAM 5 STREAM)
|
||||
()
|
||||
DSPSOURCETYPE :D8
|
||||
@@ -476,8 +478,8 @@ NIL
|
||||
` @ È_¿^Oó‘N<E28098>OH
|
||||
g H
|
||||
g H
|
||||
g H
|
||||
g H
|
||||
H (359 DSPOPERATION 348 DSPSOURCETYPE 337 DSPRIGHTMARGIN 306 DSPFONT 298 DSPDESTINATION 291 DSPFONT 281 \SETACCESS)
|
||||
(353 REPLACE 342 INPUT 317 BITMAP 311 SCREENWIDTH 276 OUTPUT 225 FILELINELENGTH 217 \STREAM.NOT.OPEN 208 \STREAM.NOT.OPEN 199 \EOSERROR 182 \STREAM.DEFAULT.MAXBUFFERS 167 DisplayFDEV 158 \DISPLAYIMAGEOPS 123 ScreenBitMap 93 SCREENWIDTH 69 |PILOTBBTTYPE#| 48 |\DISPLAYDATATYPE#| 34 \DSPPRINTCHAR 18 BITMAP 10 ScreenBitMap)
|
||||
( 101 -16383)
|
||||
DSPDESTINATION :D8
|
||||
(P 4 CL::$$TYPE-VALUE P 3 CL::$$TYPE-VALUE P 2 CL::$$TYPE-VALUE P 1 \INTERRUPTABLE P 0 DD I 1 DISPLAYSTREAM I 0 DESTINATION F 5 XDisplayFDEV)
|
||||
@@ -621,20 +623,20 @@ expand-\MAYBE-DRIBBLE-CHAR :D8
|
||||
I
|
||||
HÉ
|
||||
ZH É [d È\K È djð²%¿@HÉ
|
||||
ZH É [d È\K È djð²%¿@HÉ
|
||||
¿@JJØmÿØLÙkØ
|
||||
°UdlZð²¿@JLØ
|
||||
°UdlZð²¿@JLØ
|
||||
¿@J
|
||||
°8nð²(@JJØmÿØLÙ
|
||||
¿@J
|
||||
°8nð²(@JJØmÿØLÙ
|
||||
¿@JJØmÿØ
|
||||
‰o ¿hdd@JJJJg g HÉ6
|
||||
@i
|
||||
@i
|
||||
Md²" É.]d² @ð´Mo
|
||||
h (297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
|
||||
(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
|
||||
Md²" É.]d² @ð´Mo
|
||||
h (297 PROCESS.EVAL 282 PROCESS.TTY 271 \INSUREWINDOW 259 WFROMDS 252 BKBITBLT 214 ERROR 203 \DSPYPOSITION.DISPLAY 184 \DSPXPOSITION.DISPLAY 158 \DSPYPOSITION.DISPLAY 148 \DSPXPOSITION.DISPLAY 129 \DSPYPOSITION.DISPLAY 106 \DSPXPOSITION.DISPLAY 61 WYOFFSET 55 WYOFFSET 48 WXOFFSET 42 WXOFFSET 32 WFROMDS 11 \GETSTREAM)
|
||||
(243 REPLACE 238 TEXTURE 89 FONTDESCRIPTOR 80 FONTDESCRIPTOR 71 \DISPLAYDATA 25 \DISPLAYDATA 18 STREAM 5 OUTPUT)
|
||||
( 292 (SETQ \CURRENTDISPLAYLINE 0) 209 "only supported rotations are 0, 90 and 270")
|
||||
(RPAQ? *DRIBBLE-OUTPUT* NIL)
|
||||
(RPAQ? *DRIBBLE-OUTPUT* NIL)
|
||||
expand-\MAYBE-DRIBBLE-CHAR :D8
|
||||
expand-\MAYBE-DRIBBLE-CHAR :D8
|
||||
(L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ? @!H¹Hºg g o g Io g g Jhh NIL
|
||||
(49 *DRIBBLE-OUTPUT* 44 \OUTCHAR 31 EQ 21 *DRIBBLE-OUTPUT* 16 AND)
|
||||
( 37 ((TTYDISPLAYSTREAM)) 26 (STREAMP *DRIBBLE-OUTPUT*))
|
||||
(SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE expand-\MAYBE-DRIBBLE-CHAR))
|
||||
@@ -730,10 +732,10 @@ NIL
|
||||
(32 \DISPLAYDATA 18 \DISPLAYDATA 6 \DISPLAYDATA)
|
||||
()
|
||||
\DSPTRANSFORMREGION :D8
|
||||
\DSPTRANSFORMREGION :D8
|
||||
(I 1 DS I 0 REGION) ' @A ÉØ@A ÉØ@@h NIL
|
||||
(19 \DISPLAYDATA 7 \DISPLAYDATA)
|
||||
()
|
||||
(I 1 DS I 0 REGION) ' @A ÉØ@A ÉØ@@h NIL
|
||||
(19 \DISPLAYDATA 7 \DISPLAYDATA)
|
||||
()
|
||||
\DSPUNTRANSFORMY :D8
|
||||
(I 1 DD I 0 Y) @A ÉÙ NIL
|
||||
(6 \DISPLAYDATA)
|
||||
()
|
||||
@@ -748,11 +750,10 @@ Z` S
|
||||
()
|
||||
UPDATESCREENDIMENSIONS :D8
|
||||
NIL ` ` dlðªdlð¥dlð²¿n n( dl𲿠lð²}C }D (93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
|
||||
NIL ` ` dlðªdlð¥dlð²¿n n( dl𲿠lð²}C }D (93 SHOULDNT 60 \DoveDisplay.ScreenHeight 50 \DoveDisplay.ScreenWidth)
|
||||
(87 SCREENHEIGHT 79 SCREENWIDTH 65 SCREENHEIGHT 55 SCREENWIDTH 37 SCREENHEIGHT 29 SCREENWIDTH 4 \MACHINETYPE)
|
||||
()
|
||||
()
|
||||
\CreateScreenBitMap :D8
|
||||
(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹ @lØââââHAÚlÿØãkÙY` ñ²I` kØKJó²vI ¿` à –` µ#l d` ¿dHÍ¿d@Í¿dAÍ¿dkÍ¿ ` ` @Í` HÍ` AÍ` ` KáÐid ¿KkÔ[±ÿt (175 \NEWPAGE)
|
||||
\CreateScreenBitMap :D8
|
||||
(P 3 I P 1 MAXPAGE# P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) ¹ @lØââââHAÚlÿØãkÙY` ñ²I` kØKJó²vI ¿` à –` µ#l d` ¿dHÍ¿d@Í¿dAÍ¿dkÍ¿ ` ` @Í` HÍ` AÍ` ` KáÐid ¿KkÔ[±ÿt (175 \NEWPAGE)
|
||||
(165 \DISPLAYREGION 159 ScreenBitMap 151 BITMAP 146 ScreenBitMap 138 BITMAP 133 ScreenBitMap 125 BITMAP 120 ScreenBitMap 113 \DISPLAYREGION 108 BITMAP 79 \DISPLAYREGION 68 ScreenBitMap 62 BITMAP 57 ScreenBitMap 51 \MaxScreenPage 34 \MaxScreenPage 25 \MaxScreenPage)
|
||||
()
|
||||
(UPDATESCREENDIMENSIONS)
|
||||
|
||||
241
sources/LLETHER
241
sources/LLETHER
@@ -1,10 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 3-May-2021 23:13:56" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;4 139646
|
||||
(FILECREATED " 5-Sep-2021 08:25:17"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;2 139621
|
||||
|
||||
changes to%: (FNS \ETHEREVENTFN \ETHER-AVAILABLE)
|
||||
(VARS LLETHERCOMS)
|
||||
changes to%: (FNS \ETHERINIT)
|
||||
|
||||
previous date%: " 2-May-2021 12:37:02" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;3)
|
||||
previous date%: " 3-May-2021 23:13:56"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -16,25 +17,25 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(RPAQQ LLETHERCOMS
|
||||
[(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
LLNSDECLS))
|
||||
[COMS (* ;
|
||||
"Stuff that should be somewhere else!")
|
||||
[COMS (* ;
|
||||
"Stuff that should be somewhere else!")
|
||||
(INITVARS (ERRORMESSAGESTREAM T)
|
||||
(PROMPTWINDOW T))
|
||||
(GLOBALVARS ERRORMESSAGESTREAM PROMPTWINDOW)
|
||||
(COMS (* ;
|
||||
"Queue management for data which can be chain-linked through the first cell")
|
||||
(COMS (* ;
|
||||
"Queue management for data which can be chain-linked through the first cell")
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS SYSQUEUE QABLEITEM)
|
||||
(MACROS \QUEUEHEAD)))
|
||||
(INITRECORDS SYSQUEUE)
|
||||
(SYSRECORDS SYSQUEUE)
|
||||
(FNS CANONICAL.HOSTNAME \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
|
||||
(* ;
|
||||
"Queue management constructed by TCONC")
|
||||
(* ;
|
||||
"Queue management constructed by TCONC")
|
||||
(EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC]
|
||||
(COMS (* ; "General packet management")
|
||||
(COMS (* ; "General packet management")
|
||||
(DECLARE%: DONTCOPY
|
||||
|
||||
(* ;; "Skeletal ether packet. Other users define with respect to")
|
||||
(* ;; "Skeletal ether packet. Other users define with respect to")
|
||||
|
||||
(EXPORT (RECORDS ETHERPACKET ETHERAUX)
|
||||
(CONSTANTS \EPT.PUP \EPT.XIP \3MBTYPE.XIP \10MBTYPE.XIP \EPT.10TO3
|
||||
@@ -57,7 +58,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
\NSADDRESS.DEFPRINT \NSADDRESS.PRINT.DECIMAL \LOADNSHOSTNUMBER \STORENSHOSTNUMBER
|
||||
PRINTNSHOSTNUMBER)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'NSADDRESS '\NSADDRESS.DEFPRINT]
|
||||
[COMS (* ; "Assorted Level 0")
|
||||
[COMS (* ; "Assorted Level 0")
|
||||
(FNS \ETHERINIT \ETHEREVENTFN \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS
|
||||
\FLUSH.NDB.QUEUE)
|
||||
(FNS \CHECKSUM \HANDLE.RAW.OTHER \HANDLE.RAW.PACKET \ADD.PACKET.FILTER
|
||||
@@ -70,7 +71,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\ETHERINIT)
|
||||
(MOVD? 'NILL 'BLOCK)
|
||||
(MOVD? 'NILL '\STASH.PASSWORDS]
|
||||
(COMS (* ; "Assorted routing stuff")
|
||||
(COMS (* ; "Assorted routing stuff")
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS NDB ROUTING))
|
||||
(CONSTANTS \RT.INFINITY)
|
||||
(MACROS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET BROADCASTP
|
||||
@@ -83,7 +84,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(SYSRECORDS NDB)
|
||||
(FNS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET)
|
||||
|
||||
(* ;; "Routing table management. Table is naked array of specified size (choices are 8, 16, 32, 64, based on availability of pointer hunks for those sizes). These are global vars rather than constants so you can play with them (but you'd better restart ether immediately).")
|
||||
(* ;; "Routing table management. Table is naked array of specified size (choices are 8, 16, 32, 64, based on availability of pointer hunks for those sizes). These are global vars rather than constants so you can play with them (but you'd better restart ether immediately).")
|
||||
|
||||
(FNS \AGE.ROUTING.TABLE \ADD.ROUTING.TABLE.ENTRY \CLEAR.ROUTING.TABLE
|
||||
\MAP.ROUTING.TABLE PRINTROUTINGTABLE \ROUTINGTABLE.INFOHOOK)
|
||||
@@ -102,29 +103,29 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(\LOCALNDBS)
|
||||
(\NSFLG)
|
||||
(\IPFLG)))
|
||||
(COMS (* ; "10 to 3 translation ugliness")
|
||||
(COMS (* ; "10 to 3 translation ugliness")
|
||||
(FNS \TRANSLATE.10TO3 \NOTE.10TO3 \HANDLE.RAW.10TO3)
|
||||
(DECLARE%: DONTCOPY (RECORDS ETHERTRANS)
|
||||
(CONSTANTS \TRANS.OP.REQUEST \TRANS.OP.RESPONSE \TRANS.DATALENGTH)
|
||||
|
||||
(* ;; "The \TRANS.DATALENGTH includes the space for 10TO3OPERATION and two 3-word/1-word translation pairs.")
|
||||
(* ;; "The \TRANS.DATALENGTH includes the space for 10TO3OPERATION and two 3-word/1-word translation pairs.")
|
||||
))
|
||||
(COMS (* ; "Printing routines for packets")
|
||||
(COMS (* ; "Printing routines for packets")
|
||||
(FNS PRINTPACKET \MAYBEPRINTPACKET PRINT10TO3 PRINTPACKETDATA PRINTPACKETQUEUE
|
||||
TIME.SINCE.PACKET MAKE-NETWORK-TRACE-WINDOW \CHANGE.ETHER.TRACING)
|
||||
(INITVARS (\RAWTRACING))
|
||||
(ADDVARS (\PACKET.PRINTERS (512 . PRINTPUP)
|
||||
(1537 . PRINT10TO3)))
|
||||
(GLOBALVARS \RAWTRACING \PACKET.PRINTERS PUPTRACEFILE XIPTRACEFILE \RCLKMILLISECOND))
|
||||
(COMS (* ; "For PUP/XIPTRACETIME, functions to convert time from internal ticks to decimal fractions of a second.")
|
||||
(COMS (* ; "For PUP/XIPTRACETIME, functions to convert time from internal ticks to decimal fractions of a second.")
|
||||
(FNS \CENTICLOCK)
|
||||
[VARS (\CENTICLOCKFACTOR)
|
||||
(\CENTICLOCKBOX (NCREATE 'FIXP]
|
||||
(ADDVARS (\SYSTEMCACHEVARS \CENTICLOCKFACTOR))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \CENTICLOCKFACTOR \CENTICLOCKBOX)
|
||||
(RECORDS CENTICLOCK)))
|
||||
(COMS (* ;
|
||||
"3MB stuff, which is not needed in DandeLion")
|
||||
(COMS (* ;
|
||||
"3MB stuff, which is not needed in DandeLion")
|
||||
(FNS \3MBGETPACKET \3MB.CREATENDB \3MBSENDPACKET \3MBWATCHER \3MBENCAPSULATE
|
||||
\3MB.BROADCASTP \3MBFLUSH)
|
||||
(INITVARS (\MAXWATCHERGETS 5))
|
||||
@@ -132,12 +133,12 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(EXPORT (MACROS \SERIALNUMBER))
|
||||
(CONSTANTS \3MBENCAPSULATION.WORDS \3MBTYPE.PUP)
|
||||
(GLOBALVARS \MAXWATCHERGETS *MAXIMUM-PACKET-SIZE*)))
|
||||
(COMS (* ; "Debugging")
|
||||
(COMS (* ; "Debugging")
|
||||
(FNS ASSURE.ETHER.ON INITPUPLEVEL1 TURN.ON.ETHER RESTART.ETHER TURN.OFF.ETHER
|
||||
PRINTWORDS)
|
||||
(VARS ROUTINGINFOMACRO)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)))
|
||||
(COMS (* ; "Opcodes")
|
||||
(COMS (* ; "Opcodes")
|
||||
(FNS \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO)
|
||||
(DECLARE%: DONTCOPY (CONSTANTS * D0DEVICES)
|
||||
(EXPORT (PROP DOPVAL \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO])
|
||||
@@ -173,13 +174,13 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(SYSQUEUETAIL POINTER)))
|
||||
|
||||
(BLOCKRECORD QABLEITEM ((NIL BITS 4)
|
||||
(QLINK POINTER) (* ;
|
||||
"Link to next thing in queue always in first pointer of datum, independent of what the datum is")
|
||||
(QLINK POINTER) (* ;
|
||||
"Link to next thing in queue always in first pointer of datum, independent of what the datum is")
|
||||
)
|
||||
(BLOCKRECORD QABLEITEM ((NIL BITS 4)
|
||||
(LINK POINTER)
|
||||
(* ;
|
||||
"Let's also be able to call it a LINK")
|
||||
(* ;
|
||||
"Let's also be able to call it a LINK")
|
||||
)))
|
||||
)
|
||||
|
||||
@@ -382,38 +383,38 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(DATATYPE ETHERPACKET ((NIL BYTE)
|
||||
(EPLINK POINTER) (* ; "For queue maintenence")
|
||||
(EPFLAGS BYTE) (* ;
|
||||
"optional flags for some applications")
|
||||
(EPUSERFIELD POINTER) (* ;
|
||||
"Arbitrary pointer for applications")
|
||||
(EPLINK POINTER) (* ; "For queue maintenence")
|
||||
(EPFLAGS BYTE) (* ;
|
||||
"optional flags for some applications")
|
||||
(EPUSERFIELD POINTER) (* ;
|
||||
"Arbitrary pointer for applications")
|
||||
(NIL BYTE)
|
||||
(EPPLIST POINTER) (* ;
|
||||
"Extra field for use as an A-list for properties")
|
||||
(EPTRANSMITTING FLAG) (* ;
|
||||
"True while packet is being transmitted and hence cannot be reused")
|
||||
(EPRECEIVING FLAG) (* ;
|
||||
"True when a packet has been seen at the head of the network's input queue at least once")
|
||||
(EPPLIST POINTER) (* ;
|
||||
"Extra field for use as an A-list for properties")
|
||||
(EPTRANSMITTING FLAG) (* ;
|
||||
"True while packet is being transmitted and hence cannot be reused")
|
||||
(EPRECEIVING FLAG) (* ;
|
||||
"True when a packet has been seen at the head of the network's input queue at least once")
|
||||
(NIL BITS 6)
|
||||
(EPREQUEUE POINTER) (* ;
|
||||
"Where to requeue this packet after transmission")
|
||||
(EPREQUEUE POINTER) (* ;
|
||||
"Where to requeue this packet after transmission")
|
||||
(NIL BYTE)
|
||||
(EPSOCKET POINTER)
|
||||
(NIL BYTE)
|
||||
(EPNETWORK POINTER)
|
||||
(EPTYPE WORD) (* ;
|
||||
"Type of packet to be encapsulated (PUP or XIP or 10TO3)")
|
||||
(EPTYPE WORD) (* ;
|
||||
"Type of packet to be encapsulated (PUP or XIP or 10TO3)")
|
||||
(NIL WORD)
|
||||
(EPTIMESTAMP FIXP) (* ;
|
||||
"Gets RCLK value when transmitted/received")
|
||||
(EPREQUEUEFN POINTER) (* ; "FN to perform requeueing")
|
||||
(NIL 4 WORD) (* ; "Space for expansion")
|
||||
(* ;
|
||||
"Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")
|
||||
(EPENCAPSULATION 8 WORD) (* ;
|
||||
"10mb encapsulation, or 3mb encapsulation with padding")
|
||||
(EPBODY 289 WORD) (* ;
|
||||
"Body of packet, header up to 16 words plus data up to 546 bytes")
|
||||
(EPTIMESTAMP FIXP) (* ;
|
||||
"Gets RCLK value when transmitted/received")
|
||||
(EPREQUEUEFN POINTER) (* ; "FN to perform requeueing")
|
||||
(NIL 4 WORD) (* ; "Space for expansion")
|
||||
(* ;
|
||||
"Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")
|
||||
(EPENCAPSULATION 8 WORD) (* ;
|
||||
"10mb encapsulation, or 3mb encapsulation with padding")
|
||||
(EPBODY 289 WORD) (* ;
|
||||
"Body of packet, header up to 16 words plus data up to 546 bytes")
|
||||
))
|
||||
|
||||
(ACCESSFNS ETHERAUX ((AUXPTR (CDR (ASSOC 'AUXPTR (fetch EPPLIST of DATUM)))
|
||||
@@ -1706,39 +1707,39 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(DATATYPE NDB ((NETTYPE BYTE) (* ; "10 or 3 for now")
|
||||
(NDBNEXT POINTER) (* ; "Link to next NDB")
|
||||
(NDBPUPNET# BYTE) (* ;
|
||||
"Pup number of this net. May be different from NS net number, though not in Xerox world")
|
||||
(NDBNSNET# POINTER) (* ;
|
||||
"Can be 32-bits, so might as well leave its box around")
|
||||
(NDBTASK# BYTE) (* ; "Task # of this network")
|
||||
(NDBBROADCASTP POINTER) (* ;
|
||||
"Function that returns true if packet is of broadcast type")
|
||||
(NDBPUPHOST# BYTE) (* ;
|
||||
"My pup address on this net. NS address is global to all nets, so not needed here")
|
||||
(NDBTRANSMITTER POINTER) (* ;
|
||||
"(NDB PACKET) -- fn to send a raw packet on this net. returns NIL on failure")
|
||||
(DATATYPE NDB ((NETTYPE BYTE) (* ; "10 or 3 for now")
|
||||
(NDBNEXT POINTER) (* ; "Link to next NDB")
|
||||
(NDBPUPNET# BYTE) (* ;
|
||||
"Pup number of this net. May be different from NS net number, though not in Xerox world")
|
||||
(NDBNSNET# POINTER) (* ;
|
||||
"Can be 32-bits, so might as well leave its box around")
|
||||
(NDBTASK# BYTE) (* ; "Task # of this network")
|
||||
(NDBBROADCASTP POINTER) (* ;
|
||||
"Function that returns true if packet is of broadcast type")
|
||||
(NDBPUPHOST# BYTE) (* ;
|
||||
"My pup address on this net. NS address is global to all nets, so not needed here")
|
||||
(NDBTRANSMITTER POINTER) (* ;
|
||||
"(NDB PACKET) -- fn to send a raw packet on this net. returns NIL on failure")
|
||||
(NIL BYTE)
|
||||
(NDBENCAPSULATOR POINTER) (* ;
|
||||
"(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")
|
||||
(NDBCSB POINTER) (* ; "Pointer to CSB for this network")
|
||||
(NDBENCAPSULATOR POINTER) (* ;
|
||||
"(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")
|
||||
(NDBCSB POINTER) (* ; "Pointer to CSB for this network")
|
||||
(NDBIQLENGTH BYTE)
|
||||
(NDBIQ POINTER) (* ;
|
||||
"Queue of empty packets for receiver")
|
||||
(NDBTQ POINTER) (* ; "Queue of packets to transmit")
|
||||
(NDBTRANSLATIONS POINTER) (* ;
|
||||
"Cache of translations, 3:10 or 10:3 according to network")
|
||||
(NDBETHERFLUSHER POINTER) (* ; "Turns off this ether. Args NDB")
|
||||
(NDBIQ POINTER) (* ;
|
||||
"Queue of empty packets for receiver")
|
||||
(NDBTQ POINTER) (* ; "Queue of packets to transmit")
|
||||
(NDBTRANSLATIONS POINTER) (* ;
|
||||
"Cache of translations, 3:10 or 10:3 according to network")
|
||||
(NDBETHERFLUSHER POINTER) (* ; "Turns off this ether. Args NDB")
|
||||
(NDBWATCHER POINTER)
|
||||
(NDBCANHEARSELF POINTER) (* ;
|
||||
"True if receiver can hear packets sent by transmitter")
|
||||
(NDBCANHEARSELF POINTER) (* ;
|
||||
"True if receiver can hear packets sent by transmitter")
|
||||
(NDBIPNET# POINTER)
|
||||
(NDBIPHOST# POINTER)
|
||||
(NDBPUPTYPE WORD) (* ;
|
||||
"The packet encapsulation of PUP on this net")
|
||||
(NDBPUPTYPE WORD) (* ;
|
||||
"The packet encapsulation of PUP on this net")
|
||||
(NIL WORD)
|
||||
(NIL POINTER) (* ; "Spares")
|
||||
(NIL POINTER) (* ; "Spares")
|
||||
))
|
||||
|
||||
(RECORD ROUTING (RTNET# RTHOPCOUNT RTGATEWAY# RTNDB RTTIMER RTRECENT))
|
||||
@@ -2232,14 +2233,14 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(ACCESSFNS ETHERTRANS [(TRANSBODY (LOCF (fetch (ETHERPACKET EPBODY) of DATUM]
|
||||
[BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
|
||||
(* ; "Request or response")
|
||||
(* ; "Request or response")
|
||||
(BASETRANSNSHOST 3 WORD)
|
||||
(* ; "Known or desired NS address")
|
||||
(* ; "Known or desired NS address")
|
||||
(TRANSPUPHOST BYTE)
|
||||
(* ; "Known or desired PUP address")
|
||||
(NIL BYTE) (* ; "Padding")
|
||||
(* ; "Known or desired PUP address")
|
||||
(NIL BYTE) (* ; "Padding")
|
||||
(BASETRANSSENDERNSHOST 3 WORD)
|
||||
(* ; "Sender's info")
|
||||
(* ; "Sender's info")
|
||||
(TRANSSENDERPUPHOST BYTE)
|
||||
(NIL BYTE))
|
||||
[ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER
|
||||
@@ -2252,8 +2253,8 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
NEWVALUE]
|
||||
[ACCESSFNS ETHERTRANS
|
||||
([TRANSNSADDRESS
|
||||
(PROGN (* ;
|
||||
"Kludge to get a pointer that looks like a full ns address")
|
||||
(PROGN (* ;
|
||||
"Kludge to get a pointer that looks like a full ns address")
|
||||
(\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH
|
||||
(ETHERPACKET EPBODY)
|
||||
of T))
|
||||
@@ -2760,20 +2761,20 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(ACCESSFNS 3MBENCAPSULATION [(3MBENCAPSTART (LOCF (fetch (ETHERPACKET EPENCAPSULATION)
|
||||
of DATUM]
|
||||
(BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
|
||||
(* ; "waste space")
|
||||
(* ; "waste space")
|
||||
(3MBLENGTH WORD)
|
||||
(* ;
|
||||
"Length of packet in words, starting at the next word")
|
||||
(* ;
|
||||
"Length of packet in words, starting at the next word")
|
||||
(3MBDESTHOST BYTE)
|
||||
(* ; "Immediate destination host")
|
||||
(* ; "Immediate destination host")
|
||||
(3MBSOURCEHOST BYTE)
|
||||
(* ; "Us")
|
||||
(* ; "Us")
|
||||
(3MBTYPE WORD)
|
||||
(* ;
|
||||
"Type of packet -- PUP or XIP or 10TO3")
|
||||
(* ;
|
||||
"Type of packet -- PUP or XIP or 10TO3")
|
||||
)
|
||||
[ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
|
||||
(* ; "What to hand to BCPL")
|
||||
(* ; "What to hand to BCPL")
|
||||
)
|
||||
(TYPE? (type? ETHERPACKET DATUM)))
|
||||
|
||||
@@ -2950,30 +2951,30 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
(PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||
1992 1993 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040
|
||||
. 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815
|
||||
(\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222
|
||||
) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813)
|
||||
) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS
|
||||
59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) (
|
||||
\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 .
|
||||
68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465
|
||||
. 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938
|
||||
) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574)
|
||||
(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679
|
||||
) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) (
|
||||
TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) (
|
||||
\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158
|
||||
. 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 (
|
||||
\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) (
|
||||
110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 .
|
||||
114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743
|
||||
. 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) (
|
||||
125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) (
|
||||
\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) (
|
||||
\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) (
|
||||
135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759
|
||||
. 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 .
|
||||
137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO
|
||||
138526 . 138686)))))
|
||||
(FILEMAP (NIL (10767 19223 (CANONICAL.HOSTNAME 10777 . 12366) (\ENQUEUE 12368 . 15013) (\DEQUEUE 15015
|
||||
. 16342) (\QUEUELENGTH 16344 . 16644) (\ONQUEUE 16646 . 16912) (\UNQUEUE 16914 . 19221)) (52924 56790
|
||||
(\ALLOCATE.ETHERPACKET 52934 . 53975) (\RELEASE.ETHERPACKET 53977 . 55050) (RELEASE.PUP 55052 . 55197
|
||||
) (\FLUSH.PACKET.QUEUE 55199 . 55550) (\REQUEUE.ETHERPACKET 55552 . 56066) (\EP.PUT.AUX 56068 . 56788)
|
||||
) (57364 68745 (\SETLOCALNSNUMBERS 57374 . 58759) (\LOADNSADDRESS 58761 . 59053) (\STORENSADDRESS
|
||||
59055 . 59236) (\PRINTNSADDRESS 59238 . 60321) (\NSADDRESS.DEFPRINT 60323 . 65268) (
|
||||
\NSADDRESS.PRINT.DECIMAL 65270 . 67401) (\LOADNSHOSTNUMBER 67403 . 68032) (\STORENSHOSTNUMBER 68034 .
|
||||
68438) (PRINTNSHOSTNUMBER 68440 . 68743)) (68858 74606 (\ETHERINIT 68868 . 69438) (\ETHEREVENTFN 69440
|
||||
. 71972) (\ETHER-AVAILABLE 71974 . 72132) (\TIME.NOT.SET 72134 . 72460) (\SETETHERFLAGS 72462 . 72913
|
||||
) (\FLUSHNDBS 72915 . 74093) (\FLUSH.NDB.QUEUE 74095 . 74604)) (74607 77899 (\CHECKSUM 74617 . 76549)
|
||||
(\HANDLE.RAW.OTHER 76551 . 76906) (\HANDLE.RAW.PACKET 76908 . 77420) (\ADD.PACKET.FILTER 77422 . 77654
|
||||
) (\DEL.PACKET.FILTER 77656 . 77897)) (85732 86257 (ENCAPSULATE.ETHERPACKET 85742 . 86014) (
|
||||
TRANSMIT.ETHERPACKET 86016 . 86255)) (86545 99141 (\AGE.ROUTING.TABLE 86555 . 88704) (
|
||||
\ADD.ROUTING.TABLE.ENTRY 88706 . 89402) (\CLEAR.ROUTING.TABLE 89404 . 90131) (\MAP.ROUTING.TABLE 90133
|
||||
. 90661) (PRINTROUTINGTABLE 90663 . 94288) (\ROUTINGTABLE.INFOHOOK 94290 . 99139)) (99626 106411 (
|
||||
\TRANSLATE.10TO3 99636 . 101420) (\NOTE.10TO3 101422 . 103038) (\HANDLE.RAW.10TO3 103040 . 106409)) (
|
||||
110393 125215 (PRINTPACKET 110403 . 110964) (\MAYBEPRINTPACKET 110966 . 112623) (PRINT10TO3 112625 .
|
||||
113993) (PRINTPACKETDATA 113995 . 119285) (PRINTPACKETQUEUE 119287 . 119716) (TIME.SINCE.PACKET 119718
|
||||
. 120203) (MAKE-NETWORK-TRACE-WINDOW 120205 . 123747) (\CHANGE.ETHER.TRACING 123749 . 125213)) (
|
||||
125586 126401 (\CENTICLOCK 125596 . 126399)) (126856 132956 (\3MBGETPACKET 126866 . 128286) (
|
||||
\3MB.CREATENDB 128288 . 129003) (\3MBSENDPACKET 129005 . 131188) (\3MBWATCHER 131190 . 131928) (
|
||||
\3MBENCAPSULATE 131930 . 132478) (\3MB.BROADCASTP 132480 . 132651) (\3MBFLUSH 132653 . 132954)) (
|
||||
135910 137853 (ASSURE.ETHER.ON 135920 . 136250) (INITPUPLEVEL1 136252 . 136732) (TURN.ON.ETHER 136734
|
||||
. 136879) (RESTART.ETHER 136881 . 137255) (TURN.OFF.ETHER 137257 . 137575) (PRINTWORDS 137577 .
|
||||
137851)) (138128 138663 (\DEVICE.INPUT 138138 . 138303) (\DEVICE.OUTPUT 138305 . 138499) (\D0.STARTIO
|
||||
138501 . 138661)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
185
sources/LLKEY
185
sources/LLKEY
@@ -1,10 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "24-Aug-2021 16:54:52" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;6 199507
|
||||
(FILECREATED " 5-Sep-2021 08:25:46"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;11 199942
|
||||
|
||||
changes to%: (FNS KEYACTION)
|
||||
changes to%: (FNS \INIT.KEYBOARD.STREAM)
|
||||
|
||||
previous date%: "24-Aug-2021 16:43:30"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;5)
|
||||
previous date%: "27-Aug-2021 16:18:18"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;10)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1582,29 +1583,29 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
|
||||
|
||||
(RPAQQ \ORIGKEYACTIONS
|
||||
((0 (53 "%%" NOLOCKSHIFT))
|
||||
(1 (52 "$" NOLOCKSHIFT))
|
||||
(2 (54 "~" NOLOCKSHIFT))
|
||||
((0 ("5" "%%" NOLOCKSHIFT))
|
||||
(1 ("4" "$" NOLOCKSHIFT))
|
||||
(2 ("6" "~" NOLOCKSHIFT))
|
||||
(3 ("e" "E" LOCKSHIFT))
|
||||
(4 (55 "&" NOLOCKSHIFT))
|
||||
(4 ("7" "&" NOLOCKSHIFT))
|
||||
(5 ("d" "D" LOCKSHIFT))
|
||||
(6 ("u" "U" LOCKSHIFT))
|
||||
(7 ("v" "V" LOCKSHIFT))
|
||||
(8 (48 ")" NOLOCKSHIFT))
|
||||
(8 ("0" ")" NOLOCKSHIFT))
|
||||
(9 ("k" "K" LOCKSHIFT))
|
||||
(10 ("-" "-" NOLOCKSHIFT))
|
||||
(11 ("p" "P" LOCKSHIFT))
|
||||
(12 ("/" "?" NOLOCKSHIFT))
|
||||
(13 ("\" "|" NOLOCKSHIFT))
|
||||
(14 (10 96 NOLOCKSHIFT))
|
||||
(15 (8 8 NOLOCKSHIFT))
|
||||
(16 (51 "#" NOLOCKSHIFT))
|
||||
(17 (50 "@" NOLOCKSHIFT))
|
||||
(14 ("LF" "`" NOLOCKSHIFT))
|
||||
(15 ("Bs" "Bs" NOLOCKSHIFT))
|
||||
(16 ("3" "#" NOLOCKSHIFT))
|
||||
(17 ("2" "@" NOLOCKSHIFT))
|
||||
(18 ("w" "W" LOCKSHIFT))
|
||||
(19 ("q" "Q" LOCKSHIFT))
|
||||
(20 ("s" "S" LOCKSHIFT))
|
||||
(21 ("a" "A" LOCKSHIFT))
|
||||
(22 (57 "(" NOLOCKSHIFT))
|
||||
(22 ("9" "(" NOLOCKSHIFT))
|
||||
(23 ("i" "I" LOCKSHIFT))
|
||||
(24 ("x" "X" LOCKSHIFT))
|
||||
(25 ("o" "O" LOCKSHIFT))
|
||||
@@ -1612,11 +1613,11 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(27 ("," "<" NOLOCKSHIFT))
|
||||
(28 ("'" "%"" NOLOCKSHIFT))
|
||||
(29 ("]" "}" NOLOCKSHIFT))
|
||||
(30 (194 194 NOLOCKSHIFT))
|
||||
(31 (193 193 NOLOCKSHIFT))
|
||||
(32 (49 "!" NOLOCKSHIFT))
|
||||
(33 (27 27 NOLOCKSHIFT))
|
||||
(34 (9 9 NOLOCKSHIFT))
|
||||
(30 ("#B" "#B" NOLOCKSHIFT))
|
||||
(31 ("#A" "#A" NOLOCKSHIFT))
|
||||
(32 ("1" "!" NOLOCKSHIFT))
|
||||
(33 ("Esc" "Esc" NOLOCKSHIFT))
|
||||
(34 ("Tab" "Tab" NOLOCKSHIFT))
|
||||
(35 ("f" "F" LOCKSHIFT))
|
||||
(36 CTRLDOWN . CTRLUP)
|
||||
(37 ("c" "C" LOCKSHIFT))
|
||||
@@ -1626,24 +1627,24 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(41 1SHIFTDOWN . 1SHIFTUP)
|
||||
(42 ("." ">" NOLOCKSHIFT))
|
||||
(43 (";" ":" NOLOCKSHIFT))
|
||||
(44 (13 13 NOLOCKSHIFT))
|
||||
(44 ("CR" "CR" NOLOCKSHIFT))
|
||||
(45 ("_" "^" NOLOCKSHIFT))
|
||||
(46 (127 535 NOLOCKSHIFT))
|
||||
(46 ("Del" "Function,^W" NOLOCKSHIFT))
|
||||
(47 ("(" "[" NOLOCKSHIFT))
|
||||
(48 ("r" "R" LOCKSHIFT))
|
||||
(49 ("t" "T" LOCKSHIFT))
|
||||
(50 ("g" "G" LOCKSHIFT))
|
||||
(51 ("y" "Y" LOCKSHIFT))
|
||||
(52 ("h" "H" LOCKSHIFT))
|
||||
(53 (56 "*" NOLOCKSHIFT))
|
||||
(53 ("8" "*" NOLOCKSHIFT))
|
||||
(54 ("n" "N" LOCKSHIFT))
|
||||
(55 ("m" "M" LOCKSHIFT))
|
||||
(56 LOCKDOWN . LOCKUP)
|
||||
(57 (32 32 NOLOCKSHIFT))
|
||||
(57 ("Sp" "Sp" NOLOCKSHIFT))
|
||||
(58 ("[" "{" NOLOCKSHIFT))
|
||||
(59 ("=" "+" NOLOCKSHIFT))
|
||||
(60 2SHIFTDOWN . 2SHIFTUP)
|
||||
(61 (195 195 NOLOCKSHIFT))
|
||||
(61 ("#C" "#C" NOLOCKSHIFT))
|
||||
(63 (")" "]" NOLOCKSHIFT))
|
||||
(77 EVENT . EVENT)
|
||||
(78 EVENT . EVENT)
|
||||
@@ -1792,50 +1793,50 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(105 ("\" "|" NOLOCKSHIFT))))
|
||||
|
||||
(RPAQQ \MAIKOKEYACTIONST4
|
||||
((61 ("^E" "^G" NOLOCKSHIFT))
|
||||
(91 ("2,10" "2,50" NOLOCKSHIFT))
|
||||
(92 ("2,1" "2,41" NOLOCKSHIFT))
|
||||
(30 ("2,1" "2,41" NOLOCKSHIFT))
|
||||
(109 ("2,25" "2,65" NOLOCKSHIFT))
|
||||
(63 ("2,4" "2,44" NOLOCKSHIFT))
|
||||
((61 ("^E" "Bell" NOLOCKSHIFT))
|
||||
(91 ("Function,Bs" "Function,(" NOLOCKSHIFT))
|
||||
(92 ("Function,^A" "Function,!" NOLOCKSHIFT))
|
||||
(30 ("Function,^A" "Function,!" NOLOCKSHIFT))
|
||||
(109 ("Function,^U" "Function,65" NOLOCKSHIFT))
|
||||
(63 ("Function,^D" "Function,$" NOLOCKSHIFT))
|
||||
(14 METADOWN . METAUP)
|
||||
(93 ("2,24" "2,64" NOLOCKSHIFT))
|
||||
(93 ("Function,^T" "Function,64" NOLOCKSHIFT))
|
||||
(62)
|
||||
(111 ("1,o" "1,O" NOLOCKSHIFT))
|
||||
(111 ("Meta,o" "Meta,O" NOLOCKSHIFT))
|
||||
(89)
|
||||
(90 ("2,3" "2,43" NOLOCKSHIFT))
|
||||
(73 ("2,11" "2,11" NOLOCKSHIFT))
|
||||
(74 ("2,12" "2,12" NOLOCKSHIFT))
|
||||
(90 ("Function,^C" "Function,#" NOLOCKSHIFT))
|
||||
(73 ("Function,Tab" "Function,Tab" NOLOCKSHIFT))
|
||||
(74 ("Function,LF" "Function,LF" NOLOCKSHIFT))
|
||||
(75 ("^B" "^B" NOLOCKSHIFT))
|
||||
(81 ("2,14" 55 NOLOCKSHIFT))
|
||||
(82 (173 56 NOLOCKSHIFT))
|
||||
(83 ("2,15" 57 NOLOCKSHIFT))
|
||||
(84 (172 52 NOLOCKSHIFT))
|
||||
(85 ("2,16" 53 NOLOCKSHIFT))
|
||||
(87 (174 54 NOLOCKSHIFT))
|
||||
(94 ("2,17" 49 NOLOCKSHIFT))
|
||||
(69 (175 50 NOLOCKSHIFT))
|
||||
(70 ("2,20" 51 NOLOCKSHIFT))
|
||||
(98 ("2,21" 48 NOLOCKSHIFT))
|
||||
(76 ("2,13" "2,13" NOLOCKSHIFT))
|
||||
(110 ("2,53" "2,53" NOLOCKSHIFT))
|
||||
(81 ("Function,FF" "7" NOLOCKSHIFT))
|
||||
(82 ("#-" "8" NOLOCKSHIFT))
|
||||
(83 ("Function,CR" "9" NOLOCKSHIFT))
|
||||
(84 ("#," "4" NOLOCKSHIFT))
|
||||
(85 ("Function,^N" "5" NOLOCKSHIFT))
|
||||
(87 ("#." "6" NOLOCKSHIFT))
|
||||
(94 ("Function,^O" "1" NOLOCKSHIFT))
|
||||
(69 ("#/" "2" NOLOCKSHIFT))
|
||||
(70 ("Function,^P" "3" NOLOCKSHIFT))
|
||||
(98 ("Function,^Q" "0" NOLOCKSHIFT))
|
||||
(76 ("Function,^K" "Function,^K" NOLOCKSHIFT))
|
||||
(110 ("Function,+" "Function,+" NOLOCKSHIFT))
|
||||
(72 LOCKTOGGLE)
|
||||
(97 ("2,101" "2,141" NOLOCKSHIFT))
|
||||
(99 ("2,102" "2,142" NOLOCKSHIFT))
|
||||
(100 ("2,103" "2,143" NOLOCKSHIFT))
|
||||
(67 ("2,104" "2,144" NOLOCKSHIFT))
|
||||
(68 ("2,105" "2,145" NOLOCKSHIFT))
|
||||
(101 ("2,106" "2,146" NOLOCKSHIFT))
|
||||
(66 ("2,107" "2,147" NOLOCKSHIFT))
|
||||
(104 ("2,110" "2,150" NOLOCKSHIFT))
|
||||
(80 ("2,111" "2,151" NOLOCKSHIFT))
|
||||
(106 ("2,113" "2,153" NOLOCKSHIFT))
|
||||
(107 ("2,114" "2,154" NOLOCKSHIFT))
|
||||
(108 ("2,115" "2,155" NOLOCKSHIFT))
|
||||
(97 ("Function,A" "Function,a" NOLOCKSHIFT))
|
||||
(99 ("Function,B" "Function,b" NOLOCKSHIFT))
|
||||
(100 ("Function,C" "Function,c" NOLOCKSHIFT))
|
||||
(67 ("Function,D" "Function,d" NOLOCKSHIFT))
|
||||
(68 ("Function,E" "Function,e" NOLOCKSHIFT))
|
||||
(101 ("Function,F" "Function,f" NOLOCKSHIFT))
|
||||
(66 ("Function,G" "Function,g" NOLOCKSHIFT))
|
||||
(104 ("Function,H" "Function,h" NOLOCKSHIFT))
|
||||
(80 ("Function,I" "Function,i" NOLOCKSHIFT))
|
||||
(106 ("Function,K" "Function,k" NOLOCKSHIFT))
|
||||
(107 ("Function,L" "Function,l" NOLOCKSHIFT))
|
||||
(108 ("Function,M" "Function,m" NOLOCKSHIFT))
|
||||
(13 ("^W" "^U" NOLOCKSHIFT))
|
||||
(33 ("ESC" "ESC" NOLOCKSHIFT))
|
||||
(33 ("Esc" "Esc" NOLOCKSHIFT))
|
||||
(64 IGNORE . IGNORE)
|
||||
(65 (27 27 NOLOCKSHIFT))
|
||||
(65 ("Esc" "Esc" NOLOCKSHIFT))
|
||||
(95 IGNORE . IGNORE)
|
||||
(96 IGNORE . IGNORE)
|
||||
(102 IGNORE . IGNORE)
|
||||
@@ -1845,8 +1846,8 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(56 LOCKTOGGLE . IGNORE)
|
||||
(45 ("`" "~" NOLOCKSHIFT))
|
||||
(31 METADOWN . METAUP)
|
||||
(71 (10 10 NOLOCKSHIFT))
|
||||
(47 ("2,22" "2,62" NOLOCKSHIFT))
|
||||
(71 ("LF" "LF" NOLOCKSHIFT))
|
||||
(47 ("Function,^R" "Function,62" NOLOCKSHIFT))
|
||||
(86 IGNORE . IGNORE)
|
||||
(88 IGNORE . IGNORE)
|
||||
(105 ("\" "|" NOLOCKSHIFT))))
|
||||
@@ -3924,33 +3925,33 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
||||
(PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990
|
||||
1992 1999 1920 2000 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (14733 22049 (BKSYSCHARCODE 14743 . 15092) (\CLEARSYSBUF 15094 . 15652) (\GETKEY 15654
|
||||
. 16829) (\NSYSBUFCHARS 16831 . 17573) (\SAVESYSBUF 17575 . 19184) (\SYSBUFP 19186 . 19490) (
|
||||
\GETSYSBUF 19492 . 19672) (\PUTSYSBUF 19674 . 20887) (\PEEKSYSBUF 20889 . 22047)) (23346 60180 (
|
||||
\KEYBOARDINIT 23356 . 25076) (\KEYBOARDEVENTFN 25078 . 29778) (\ALLOCLOCKED 29780 . 30370) (
|
||||
\SETIOPOINTERS 30372 . 34908) (\KEYBOARDOFF 34910 . 35324) (\KEYBOARDON 35326 . 35705) (\KEYHANDLER
|
||||
35707 . 35838) (\KEYHANDLER1 35840 . 43286) (\RESETKEYBOARD 43288 . 44936) (\DOMOUSECHORDING 44938 .
|
||||
48758) (\DOTRANSITIONS 48760 . 49437) (\DECODETRANSITION 49439 . 56128) (MOUSECHORDWAIT 56130 . 56794)
|
||||
(\TRACKCURSOR 56796 . 60178)) (95464 117014 (KEYACTION 95474 . 96327) (KEYACTIONTABLE 96329 . 97511)
|
||||
(KEYBOARDTYPE 97513 . 98615) (RESETKEYACTION 98617 . 100376) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
|
||||
100378 . 102280) (\KEYACTION1 102282 . 112398) (KEYDOWNP 112400 . 112735) (KEYNUMBERP 112737 . 112935)
|
||||
(\KEYNAMETONUMBER 112937 . 113631) (\KEYNUMBERTONAME 113633 . 113823) (MODIFY.KEYACTIONS 113825 .
|
||||
114686) (METASHIFT 114688 . 115632) (SHIFTDOWNP 115634 . 117012)) (117077 117373 (
|
||||
SETUP.OFFICE.KEYBOARD 117087 . 117371)) (120076 121788 (\INIT.KEYBOARD.STREAM 120086 . 121786)) (
|
||||
122053 138430 (\DOBUFFEREDTRANSITIONS 122063 . 137493) (\TIMER.INTERRUPTFRAME 137495 . 138220) (
|
||||
\PERIODIC.INTERRUPTFRAME 138222 . 138428)) (138684 142761 (\HARDCURSORUP 138694 . 140576) (
|
||||
\HARDCURSORPOSITION 140578 . 142614) (\HARDCURSORDOWN 142616 . 142759)) (142762 166822 (CURSOR.INIT
|
||||
142772 . 146472) (\CURSORDESTINATION 146474 . 148792) (\SOFTCURSORUP 148794 . 154048) (
|
||||
\SOFTCURSORUPCURRENT 154050 . 161086) (\SOFTCURSORPOSITION 161088 . 161853) (\SOFTCURSORDOWN 161855 .
|
||||
162563) (CURSORPROP 162565 . 162907) (GETCURSORPROP 162909 . 163097) (PUTCURSORPROP 163099 . 164254) (
|
||||
\CURSORBITSPERPIXEL 164256 . 166372) (\CURSORIMAGEPROPNAME 166374 . 166598) (\CURSORMASKPROPNAME
|
||||
166600 . 166820)) (166823 184773 (CURSORCREATE 166833 . 169508) (CURSOR 169510 . 171322) (
|
||||
\CURSOR-VALID-P 171324 . 172411) (\CURSORUP 172413 . 174128) (\CURSORPOSITION 174130 . 176658) (
|
||||
\CURSORDOWN 176660 . 176893) (ADJUSTCURSORPOSITION 176895 . 177473) (CURSORPOSITION 177475 . 179017) (
|
||||
CURSORSCREEN 179019 . 179675) (CURSOREXIT 179677 . 181068) (FLIPCURSOR 181070 . 182196) (FLIPCURSORBAR
|
||||
182198 . 183178) (LASTMOUSEX 183180 . 183434) (LASTMOUSEY 183436 . 183690) (CREATEPOSITION 183692 .
|
||||
183898) (POSITIONP 183900 . 184184) (CURSORHOTSPOT 184186 . 184771)) (186011 187559 (GETMOUSESTATE
|
||||
186021 . 186680) (\EVENTKEYS 186682 . 187557)) (193986 194782 (MACHINETYPE 193996 . 194396) (
|
||||
SETMAINTPANEL 194398 . 194780)) (194812 195951 (BEEPON 194822 . 195475) (BEEPOFF 195477 . 195949)) (
|
||||
196402 196665 (WITHOUT-INTERRUPTS 196412 . 196663)))))
|
||||
(FILEMAP (NIL (14748 22064 (BKSYSCHARCODE 14758 . 15107) (\CLEARSYSBUF 15109 . 15667) (\GETKEY 15669
|
||||
. 16844) (\NSYSBUFCHARS 16846 . 17588) (\SAVESYSBUF 17590 . 19199) (\SYSBUFP 19201 . 19505) (
|
||||
\GETSYSBUF 19507 . 19687) (\PUTSYSBUF 19689 . 20902) (\PEEKSYSBUF 20904 . 22062)) (23361 60195 (
|
||||
\KEYBOARDINIT 23371 . 25091) (\KEYBOARDEVENTFN 25093 . 29793) (\ALLOCLOCKED 29795 . 30385) (
|
||||
\SETIOPOINTERS 30387 . 34923) (\KEYBOARDOFF 34925 . 35339) (\KEYBOARDON 35341 . 35720) (\KEYHANDLER
|
||||
35722 . 35853) (\KEYHANDLER1 35855 . 43301) (\RESETKEYBOARD 43303 . 44951) (\DOMOUSECHORDING 44953 .
|
||||
48773) (\DOTRANSITIONS 48775 . 49452) (\DECODETRANSITION 49454 . 56143) (MOUSECHORDWAIT 56145 . 56809)
|
||||
(\TRACKCURSOR 56811 . 60193)) (95899 117449 (KEYACTION 95909 . 96762) (KEYACTIONTABLE 96764 . 97946)
|
||||
(KEYBOARDTYPE 97948 . 99050) (RESETKEYACTION 99052 . 100811) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
|
||||
100813 . 102715) (\KEYACTION1 102717 . 112833) (KEYDOWNP 112835 . 113170) (KEYNUMBERP 113172 . 113370)
|
||||
(\KEYNAMETONUMBER 113372 . 114066) (\KEYNUMBERTONAME 114068 . 114258) (MODIFY.KEYACTIONS 114260 .
|
||||
115121) (METASHIFT 115123 . 116067) (SHIFTDOWNP 116069 . 117447)) (117512 117808 (
|
||||
SETUP.OFFICE.KEYBOARD 117522 . 117806)) (120511 122223 (\INIT.KEYBOARD.STREAM 120521 . 122221)) (
|
||||
122488 138865 (\DOBUFFEREDTRANSITIONS 122498 . 137928) (\TIMER.INTERRUPTFRAME 137930 . 138655) (
|
||||
\PERIODIC.INTERRUPTFRAME 138657 . 138863)) (139119 143196 (\HARDCURSORUP 139129 . 141011) (
|
||||
\HARDCURSORPOSITION 141013 . 143049) (\HARDCURSORDOWN 143051 . 143194)) (143197 167257 (CURSOR.INIT
|
||||
143207 . 146907) (\CURSORDESTINATION 146909 . 149227) (\SOFTCURSORUP 149229 . 154483) (
|
||||
\SOFTCURSORUPCURRENT 154485 . 161521) (\SOFTCURSORPOSITION 161523 . 162288) (\SOFTCURSORDOWN 162290 .
|
||||
162998) (CURSORPROP 163000 . 163342) (GETCURSORPROP 163344 . 163532) (PUTCURSORPROP 163534 . 164689) (
|
||||
\CURSORBITSPERPIXEL 164691 . 166807) (\CURSORIMAGEPROPNAME 166809 . 167033) (\CURSORMASKPROPNAME
|
||||
167035 . 167255)) (167258 185208 (CURSORCREATE 167268 . 169943) (CURSOR 169945 . 171757) (
|
||||
\CURSOR-VALID-P 171759 . 172846) (\CURSORUP 172848 . 174563) (\CURSORPOSITION 174565 . 177093) (
|
||||
\CURSORDOWN 177095 . 177328) (ADJUSTCURSORPOSITION 177330 . 177908) (CURSORPOSITION 177910 . 179452) (
|
||||
CURSORSCREEN 179454 . 180110) (CURSOREXIT 180112 . 181503) (FLIPCURSOR 181505 . 182631) (FLIPCURSORBAR
|
||||
182633 . 183613) (LASTMOUSEX 183615 . 183869) (LASTMOUSEY 183871 . 184125) (CREATEPOSITION 184127 .
|
||||
184333) (POSITIONP 184335 . 184619) (CURSORHOTSPOT 184621 . 185206)) (186446 187994 (GETMOUSESTATE
|
||||
186456 . 187115) (\EVENTKEYS 187117 . 187992)) (194421 195217 (MACHINETYPE 194431 . 194831) (
|
||||
SETMAINTPANEL 194833 . 195215)) (195247 196386 (BEEPON 195257 . 195910) (BEEPOFF 195912 . 196384)) (
|
||||
196837 197100 (WITHOUT-INTERRUPTS 196847 . 197098)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
110
sources/NSFILING
110
sources/NSFILING
@@ -1,13 +1,15 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "28-Jun-99 17:07:34" {DSK}<project>medley3.5>sources>NSFILING.;2 294552
|
||||
(FILECREATED " 5-Sep-2021 08:23:45"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;2 294878
|
||||
|
||||
changes to%: (FNS \NSFILING.GENERATEFILES)
|
||||
changes to%: (FNS \NSFILING.LOGIN \NSFILING.HOSTNAMEP \NSFILING.INIT)
|
||||
|
||||
previous date%: "19-Jan-93 10:59:09" {DSK}<project>medley3.5>sources>NSFILING.;1)
|
||||
previous date%: "28-Jun-99 17:07:34"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1983-1988, 1990, 1993, 1999, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT NSFILINGCOMS)
|
||||
@@ -571,13 +573,13 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999 by Venue & Xe
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS WITHOUT.SESSION.MONITOR MACRO
|
||||
[(SESSION . FORMS)
|
||||
(LET ((LOCK (fetch FSSESSIONLOCK of SESSION)))
|
||||
(DECLARE (LOCALVARS LOCK))
|
||||
(RELEASE.MONITORLOCK LOCK)
|
||||
(PROG1 (PROGN . FORMS)
|
||||
(OBTAIN.MONITORLOCK LOCK])
|
||||
(PUTPROPS WITHOUT.SESSION.MONITOR MACRO [(SESSION . FORMS)
|
||||
(LET ((LOCK (fetch FSSESSIONLOCK of SESSION)
|
||||
))
|
||||
(DECLARE (LOCALVARS LOCK))
|
||||
(RELEASE.MONITORLOCK LOCK)
|
||||
(PROG1 (PROGN . FORMS)
|
||||
(OBTAIN.MONITORLOCK LOCK])
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -4658,48 +4660,48 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999 by Venue & Xe
|
||||
(ADDTOVAR LAMA FILING.CALL)
|
||||
)
|
||||
(PUTPROPS NSFILING COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 1999
|
||||
))
|
||||
2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (34234 35080 (\FILINGSESSION.DEFPRINT 34244 . 34758) (\FILINGHANDLE.DEFPRINT 34760 .
|
||||
35078)) (35081 38808 (\GET.FILING.ATTRIBUTE 35091 . 36404) (\PUT.FILING.ATTRIBUTE 36406 . 37604) (
|
||||
\GET.SESSION.HANDLE 37606 . 38025) (\PUT.SESSION.HANDLE 38027 . 38806)) (41840 77789 (
|
||||
\GETFILINGCONNECTION 41850 . 43745) (\NSFILING.GET.NEW.SESSION 43747 . 44232) (\NSFILING.GET.STREAM
|
||||
44234 . 46010) (\NSFILING.COURIER.OPEN 46012 . 46277) (\NSFILING.CLOSE.BULKSTREAM 46279 . 46557) (
|
||||
\NSFILING.RELEASE.BULKSTREAM 46559 . 47488) (FILING.CALL 47490 . 56089) (\NSFILING.LOGIN 56091 . 69270
|
||||
) (\NSFILING.AFTER.LOGIN 69272 . 69803) (\NSFILING.SET.CONTINUANCE 69805 . 70478) (\NSFILING.LOGOUT
|
||||
70480 . 70661) (\NSFILING.DISCARD.SESSION 70663 . 72360) (\VALID.FILING.CONNECTIONP 72362 . 73958) (
|
||||
\NSFILING.CLOSE.CONNECTIONS 73960 . 76822) (BREAK.NSFILING.CONNECTION 76824 . 77787)) (77867 91247 (
|
||||
\NSFILING.CONNECT 77877 . 80294) (\NSFILING.MAYBE.CREATE 80296 . 83335) (\NSFILING.REMOVEQUOTES 83337
|
||||
. 83962) (\NSFILING.ADDQUOTES 83964 . 86702) (\FILING.ATTRIBUTE.TYPE.SEQUENCE 86704 . 86918) (
|
||||
\FILING.ATTRIBUTE.TYPE 86920 . 87423) (\LISP.TO.NSFILING.ATTRIBUTE 87425 . 91245)) (91283 144407 (
|
||||
\NSFILING.GETFILE 91293 . 112576) (\NSFILING.LOOKUP.CACHE 112578 . 114640) (\NSFILING.ADD.TO.CACHE
|
||||
114642 . 117005) (\NSFILING.OPEN.HANDLE 117007 . 119110) (\NSFILING.CONFLICTP 119112 . 120606) (
|
||||
\NSFILING.CHECK.ACCESS 120608 . 121971) (\NSFILING.FILLIN.ATTRIBUTES 121973 . 123720) (
|
||||
\NSFILING.COMPOSE.PATHNAME 123722 . 124223) (\NSFILING.PARSE.FILENAME 124225 . 129762) (
|
||||
\NSFILING.ERRORHANDLER 129764 . 134582) (\NSFILING.WHENCLOSED 134584 . 135856) (\NSFILING.CLOSE.HANDLE
|
||||
135858 . 136151) (\NSFILING.FULLNAME 136153 . 144405)) (144440 212555 (\NSFILING.OPENFILE 144450 .
|
||||
149642) (\NSFILING.HANDLE.ERROR 149644 . 150522) (\NSFILING.CLOSEFILE 150524 . 153147) (
|
||||
\NSFILING.EVENTFN 153149 . 155907) (\NSFILING.DELETEFILE 155909 . 157577) (\NSFILING.CHILDLESS-P
|
||||
157579 . 158282) (\NSFILING.DIRECTORYNAMEP 158284 . 158691) (\NSFILING.HOSTNAMEP 158693 . 161788) (
|
||||
\NSFILING.GETFILENAME 161790 . 162050) (\NSFILING.GETFILEINFO 162052 . 165460) (
|
||||
\NSFILING.GET.ATTRIBUTES 165462 . 165858) (\NSFILING.GETFILEINFO.FROM.PLIST 165860 . 168820) (
|
||||
\NSFILING.GDATE 168822 . 169012) (\NSFILING.SETFILEINFO 169014 . 172196) (\NSFILING.GET/SETINFO 172198
|
||||
. 173662) (\NSFILING.UPDATE.ATTRIBUTES 173664 . 174635) (\NSFILING.GETEOFPTR 174637 . 175171) (
|
||||
\NSFILING.GENERATEFILES 175173 . 191035) (\NSFILING.GENERATE.STARS 191037 . 191627) (
|
||||
\NSFILING.NEXTFILE 191629 . 193207) (\NSFILING.FILEINFOFN 193209 . 193436) (\NSFILING.RENAMEFILE
|
||||
193438 . 194038) (\NSFILING.COPYFILE 194040 . 194638) (\NSFILING.COPY/RENAME 194640 . 212553)) (212594
|
||||
263202 (\NSRANDOM.CLOSEFILE 212604 . 214400) (\NSRANDOM.RELEASE.HANDLE 214402 . 215595) (
|
||||
\NSRANDOM.RELEASE.LOCK 215597 . 215936) (\NSRANDOM.RELEASE.IF.ERROR 215938 . 216138) (
|
||||
\NSRANDOM.CREATE.STREAM 216140 . 222206) (\NSRANDOM.READPAGES 222208 . 226998) (\NSRANDOM.READ.SEGMENT
|
||||
227000 . 237526) (\NSRANDOM.PREPARE.CACHE 237528 . 244860) (\NSRANDOM.FETCH.CACHE 244862 . 247035) (
|
||||
\NSRANDOM.CHECK.CACHE 247037 . 248082) (\NSRANDOM.WRITEPAGES 248084 . 253627) (\NSRANDOM.WRITE.SEGMENT
|
||||
253629 . 255223) (\NSRANDOM.WROTE.HANDLE 255225 . 257031) (\NSRANDOM.SETEOFPTR 257033 . 258562) (
|
||||
\NSRANDOM.TRUNCATEFILE 258564 . 261478) (\NSRANDOM.UPDATE.VALIDATION 261480 . 262383) (
|
||||
\NSRANDOM.OPENFILE 262385 . 263200)) (263234 277742 (\NSRANDOM.HANDLE.ERROR 263244 . 265690) (
|
||||
\NSRANDOM.PROCEEDABLE.ERROR 265692 . 266948) (\NSRANDOM.REESTABLISH 266950 . 268422) (
|
||||
\NSRANDOM.STREAM.CHANGED 268424 . 269694) (\NSRANDOM.DESTROY.STREAM 269696 . 270466) (
|
||||
\NSRANDOM.SESSION.WATCHER 270468 . 276377) (\NSRANDOM.ENSURE.WATCHER 276379 . 277740)) (277783 288993
|
||||
(GC-FILING-DIRECTORY 277793 . 285216) (\NSGC.COLLECT.DIRECTORIES 285218 . 288991)) (289043 293734 (
|
||||
\NSFILING.DESERIALIZE 289053 . 291155) (\NSFILING.DESERIALIZE1 291157 . 293732)) (293735 294222 (
|
||||
\NSFILING.INIT 293745 . 294220)))))
|
||||
(FILEMAP (NIL (34555 35401 (\FILINGSESSION.DEFPRINT 34565 . 35079) (\FILINGHANDLE.DEFPRINT 35081 .
|
||||
35399)) (35402 39129 (\GET.FILING.ATTRIBUTE 35412 . 36725) (\PUT.FILING.ATTRIBUTE 36727 . 37925) (
|
||||
\GET.SESSION.HANDLE 37927 . 38346) (\PUT.SESSION.HANDLE 38348 . 39127)) (42161 78110 (
|
||||
\GETFILINGCONNECTION 42171 . 44066) (\NSFILING.GET.NEW.SESSION 44068 . 44553) (\NSFILING.GET.STREAM
|
||||
44555 . 46331) (\NSFILING.COURIER.OPEN 46333 . 46598) (\NSFILING.CLOSE.BULKSTREAM 46600 . 46878) (
|
||||
\NSFILING.RELEASE.BULKSTREAM 46880 . 47809) (FILING.CALL 47811 . 56410) (\NSFILING.LOGIN 56412 . 69591
|
||||
) (\NSFILING.AFTER.LOGIN 69593 . 70124) (\NSFILING.SET.CONTINUANCE 70126 . 70799) (\NSFILING.LOGOUT
|
||||
70801 . 70982) (\NSFILING.DISCARD.SESSION 70984 . 72681) (\VALID.FILING.CONNECTIONP 72683 . 74279) (
|
||||
\NSFILING.CLOSE.CONNECTIONS 74281 . 77143) (BREAK.NSFILING.CONNECTION 77145 . 78108)) (78188 91568 (
|
||||
\NSFILING.CONNECT 78198 . 80615) (\NSFILING.MAYBE.CREATE 80617 . 83656) (\NSFILING.REMOVEQUOTES 83658
|
||||
. 84283) (\NSFILING.ADDQUOTES 84285 . 87023) (\FILING.ATTRIBUTE.TYPE.SEQUENCE 87025 . 87239) (
|
||||
\FILING.ATTRIBUTE.TYPE 87241 . 87744) (\LISP.TO.NSFILING.ATTRIBUTE 87746 . 91566)) (91604 144728 (
|
||||
\NSFILING.GETFILE 91614 . 112897) (\NSFILING.LOOKUP.CACHE 112899 . 114961) (\NSFILING.ADD.TO.CACHE
|
||||
114963 . 117326) (\NSFILING.OPEN.HANDLE 117328 . 119431) (\NSFILING.CONFLICTP 119433 . 120927) (
|
||||
\NSFILING.CHECK.ACCESS 120929 . 122292) (\NSFILING.FILLIN.ATTRIBUTES 122294 . 124041) (
|
||||
\NSFILING.COMPOSE.PATHNAME 124043 . 124544) (\NSFILING.PARSE.FILENAME 124546 . 130083) (
|
||||
\NSFILING.ERRORHANDLER 130085 . 134903) (\NSFILING.WHENCLOSED 134905 . 136177) (\NSFILING.CLOSE.HANDLE
|
||||
136179 . 136472) (\NSFILING.FULLNAME 136474 . 144726)) (144761 212876 (\NSFILING.OPENFILE 144771 .
|
||||
149963) (\NSFILING.HANDLE.ERROR 149965 . 150843) (\NSFILING.CLOSEFILE 150845 . 153468) (
|
||||
\NSFILING.EVENTFN 153470 . 156228) (\NSFILING.DELETEFILE 156230 . 157898) (\NSFILING.CHILDLESS-P
|
||||
157900 . 158603) (\NSFILING.DIRECTORYNAMEP 158605 . 159012) (\NSFILING.HOSTNAMEP 159014 . 162109) (
|
||||
\NSFILING.GETFILENAME 162111 . 162371) (\NSFILING.GETFILEINFO 162373 . 165781) (
|
||||
\NSFILING.GET.ATTRIBUTES 165783 . 166179) (\NSFILING.GETFILEINFO.FROM.PLIST 166181 . 169141) (
|
||||
\NSFILING.GDATE 169143 . 169333) (\NSFILING.SETFILEINFO 169335 . 172517) (\NSFILING.GET/SETINFO 172519
|
||||
. 173983) (\NSFILING.UPDATE.ATTRIBUTES 173985 . 174956) (\NSFILING.GETEOFPTR 174958 . 175492) (
|
||||
\NSFILING.GENERATEFILES 175494 . 191356) (\NSFILING.GENERATE.STARS 191358 . 191948) (
|
||||
\NSFILING.NEXTFILE 191950 . 193528) (\NSFILING.FILEINFOFN 193530 . 193757) (\NSFILING.RENAMEFILE
|
||||
193759 . 194359) (\NSFILING.COPYFILE 194361 . 194959) (\NSFILING.COPY/RENAME 194961 . 212874)) (212915
|
||||
263523 (\NSRANDOM.CLOSEFILE 212925 . 214721) (\NSRANDOM.RELEASE.HANDLE 214723 . 215916) (
|
||||
\NSRANDOM.RELEASE.LOCK 215918 . 216257) (\NSRANDOM.RELEASE.IF.ERROR 216259 . 216459) (
|
||||
\NSRANDOM.CREATE.STREAM 216461 . 222527) (\NSRANDOM.READPAGES 222529 . 227319) (\NSRANDOM.READ.SEGMENT
|
||||
227321 . 237847) (\NSRANDOM.PREPARE.CACHE 237849 . 245181) (\NSRANDOM.FETCH.CACHE 245183 . 247356) (
|
||||
\NSRANDOM.CHECK.CACHE 247358 . 248403) (\NSRANDOM.WRITEPAGES 248405 . 253948) (\NSRANDOM.WRITE.SEGMENT
|
||||
253950 . 255544) (\NSRANDOM.WROTE.HANDLE 255546 . 257352) (\NSRANDOM.SETEOFPTR 257354 . 258883) (
|
||||
\NSRANDOM.TRUNCATEFILE 258885 . 261799) (\NSRANDOM.UPDATE.VALIDATION 261801 . 262704) (
|
||||
\NSRANDOM.OPENFILE 262706 . 263521)) (263555 278063 (\NSRANDOM.HANDLE.ERROR 263565 . 266011) (
|
||||
\NSRANDOM.PROCEEDABLE.ERROR 266013 . 267269) (\NSRANDOM.REESTABLISH 267271 . 268743) (
|
||||
\NSRANDOM.STREAM.CHANGED 268745 . 270015) (\NSRANDOM.DESTROY.STREAM 270017 . 270787) (
|
||||
\NSRANDOM.SESSION.WATCHER 270789 . 276698) (\NSRANDOM.ENSURE.WATCHER 276700 . 278061)) (278104 289314
|
||||
(GC-FILING-DIRECTORY 278114 . 285537) (\NSGC.COLLECT.DIRECTORIES 285539 . 289312)) (289364 294055 (
|
||||
\NSFILING.DESERIALIZE 289374 . 291476) (\NSFILING.DESERIALIZE1 291478 . 294053)) (294056 294543 (
|
||||
\NSFILING.INIT 294066 . 294541)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
346
sources/PROC
346
sources/PROC
@@ -1,13 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "17-Jun-99 21:58:52" {DSK}<project>medley3.5>sources>PROC.;2 173526
|
||||
(FILECREATED " 5-Sep-2021 08:25:19" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;2 175702
|
||||
|
||||
changes to%: (RECORDS MONITORLOCK)
|
||||
changes to%: (FNS \PROCESS.INIT)
|
||||
|
||||
previous date%: "31-Jan-98 18:03:02" {DSK}<project>medley3.5>sources>PROC.;1)
|
||||
previous date%: "17-Jun-99 21:58:52"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, 1998, 1999 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1982-1988, 1990-1993, 1998-1999, 2021 by Venue & Xerox Corporation.
|
||||
The following program was created in 1982 but has not been published
|
||||
within the meaning of the copyright law, is furnished under license,
|
||||
and may not be used, copied and/or disclosed except in accordance
|
||||
@@ -1302,14 +1303,12 @@ with the terms of said license.
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS PROCESS.WAIT MACRO
|
||||
[(WAITCOND TIMEOUT)
|
||||
(bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT))) until (AND $$TIMEOUT (
|
||||
TIMEREXPIRED?
|
||||
$$TIMEOUT))
|
||||
do (if (SETQ $$VAL WAITCOND)
|
||||
then (RETURN $$VAL)
|
||||
else (BLOCK])
|
||||
(PUTPROPS PROCESS.WAIT MACRO [(WAITCOND TIMEOUT)
|
||||
(bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT)))
|
||||
until (AND $$TIMEOUT (TIMEREXPIRED? $$TIMEOUT))
|
||||
do (if (SETQ $$VAL WAITCOND)
|
||||
then (RETURN $$VAL)
|
||||
else (BLOCK])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -1593,17 +1592,18 @@ with the terms of said license.
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS AWAIT.CONDITION MACRO
|
||||
[(CONDITION EVNT TIMEOUT TIMERP)
|
||||
(PROG [($$TIMER TIMEOUT)
|
||||
($$EV (\DTEST EVNT 'EVENT]
|
||||
(DECLARE (LOCALVARS $$TIMER $$EV))
|
||||
LP (RETURN (OR CONDITION (COND
|
||||
((NEQ (\PROCESS.GO.TO.SLEEP $$EV $$TIMER TIMERP)
|
||||
$$EV)
|
||||
NIL)
|
||||
(T (AND $$TIMER (SETQ $$TIMER T))
|
||||
(GO LP])
|
||||
(PUTPROPS AWAIT.CONDITION MACRO [(CONDITION EVNT TIMEOUT TIMERP)
|
||||
(PROG [($$TIMER TIMEOUT)
|
||||
($$EV (\DTEST EVNT 'EVENT]
|
||||
(DECLARE (LOCALVARS $$TIMER $$EV))
|
||||
LP (RETURN (OR CONDITION (COND
|
||||
((NEQ (\PROCESS.GO.TO.SLEEP
|
||||
$$EV $$TIMER TIMERP)
|
||||
$$EV)
|
||||
NIL)
|
||||
(T (AND $$TIMER (SETQ $$TIMER
|
||||
T))
|
||||
(GO LP])
|
||||
)
|
||||
|
||||
(RPAQ? \PROCESS.AFTEREXIT.EVENT )
|
||||
@@ -1646,46 +1646,47 @@ with the terms of said license.
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS .RELEASE.LOCK. MACRO
|
||||
[(LOCK EVENIFNOTMINE)
|
||||
(UNINTERRUPTABLY
|
||||
[PROG ((OWNER (ffetch MLOCKOWNER of LOCK))
|
||||
TAIL PREV NEXTPROC)
|
||||
(COND
|
||||
((OR (NULL OWNER)
|
||||
(AND (NEQ OWNER (THIS.PROCESS))
|
||||
(NOT EVENIFNOTMINE)))
|
||||
(RETURN)))
|
||||
(freplace MLOCKOWNER of LOCK with NIL)
|
||||
(PUTPROPS .RELEASE.LOCK. MACRO
|
||||
[(LOCK EVENIFNOTMINE)
|
||||
(UNINTERRUPTABLY
|
||||
[PROG ((OWNER (ffetch MLOCKOWNER of LOCK))
|
||||
TAIL PREV NEXTPROC)
|
||||
(COND
|
||||
((OR (NULL OWNER)
|
||||
(AND (NEQ OWNER (THIS.PROCESS))
|
||||
(NOT EVENIFNOTMINE)))
|
||||
(RETURN)))
|
||||
(freplace MLOCKOWNER of LOCK with NIL)
|
||||
(* ;
|
||||
"Now remove LOCK from my list of owned locks")
|
||||
[COND
|
||||
((EQ (SETQ PREV (fetch PROCOWNEDLOCKS of OWNER))
|
||||
LOCK)
|
||||
(replace PROCOWNEDLOCKS of OWNER with (ffetch MLOCKLINK
|
||||
of LOCK)))
|
||||
(T (do (COND
|
||||
((NULL PREV)
|
||||
(RETURN (\MP.ERROR \MP.PROCERROR
|
||||
"Lock not found among owner's owned locks" LOCK)))
|
||||
[(EQ (fetch MLOCKLINK of PREV)
|
||||
LOCK)
|
||||
(RETURN (replace MLOCKLINK of PREV
|
||||
with (ffetch MLOCKLINK of LOCK]
|
||||
(T (SETQ PREV (fetch MLOCKLINK of PREV]
|
||||
(freplace MLOCKLINK of LOCK with NIL)
|
||||
(COND
|
||||
((SETQ TAIL (ffetch MLOCKQUEUETAIL of LOCK))
|
||||
(SETQ NEXTPROC (fetch PROCEVENTLINK of TAIL))
|
||||
[COND
|
||||
((EQ NEXTPROC TAIL) (* ; "Only one process in queue")
|
||||
(freplace MLOCKQUEUETAIL of LOCK with NIL))
|
||||
(T (replace PROCEVENTLINK of TAIL with (fetch PROCEVENTLINK
|
||||
of NEXTPROC]
|
||||
(replace PROCEVENTLINK of NEXTPROC with (replace PROCEVENTORLOCK
|
||||
of NEXTPROC with
|
||||
NIL))
|
||||
(\RUN.PROCESS NEXTPROC LOCK])])
|
||||
[COND
|
||||
((EQ (SETQ PREV (fetch PROCOWNEDLOCKS of OWNER))
|
||||
LOCK)
|
||||
(replace PROCOWNEDLOCKS of OWNER with (ffetch MLOCKLINK
|
||||
of LOCK)))
|
||||
(T (do (COND
|
||||
((NULL PREV)
|
||||
(RETURN (\MP.ERROR \MP.PROCERROR
|
||||
"Lock not found among owner's owned locks" LOCK
|
||||
)))
|
||||
[(EQ (fetch MLOCKLINK of PREV)
|
||||
LOCK)
|
||||
(RETURN (replace MLOCKLINK of PREV
|
||||
with (ffetch MLOCKLINK of LOCK]
|
||||
(T (SETQ PREV (fetch MLOCKLINK of PREV]
|
||||
(freplace MLOCKLINK of LOCK with NIL)
|
||||
(COND
|
||||
((SETQ TAIL (ffetch MLOCKQUEUETAIL of LOCK))
|
||||
(SETQ NEXTPROC (fetch PROCEVENTLINK of TAIL))
|
||||
[COND
|
||||
((EQ NEXTPROC TAIL) (* ; "Only one process in queue")
|
||||
(freplace MLOCKQUEUETAIL of LOCK with NIL))
|
||||
(T (replace PROCEVENTLINK of TAIL with (fetch
|
||||
PROCEVENTLINK
|
||||
of NEXTPROC]
|
||||
(replace PROCEVENTLINK of NEXTPROC
|
||||
with (replace PROCEVENTORLOCK of NEXTPROC with NIL))
|
||||
(\RUN.PROCESS NEXTPROC LOCK])])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1804,22 +1805,22 @@ with the terms of said license.
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS WITH.MONITOR MACRO
|
||||
[(LOCK . FORMS)
|
||||
(LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*)
|
||||
(DECLARE (CL:SPECIAL SI::*LOCKED-MONITOR* SI::*RESETFORMS*))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROGN (OBTAIN.MONITORLOCK LOCK NIL 'WITH.MONITOR) . FORMS)
|
||||
(SI::MONITOR-UNWIND))])
|
||||
(PUTPROPS WITH.MONITOR MACRO [(LOCK . FORMS)
|
||||
(LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*)
|
||||
(DECLARE (CL:SPECIAL SI::*LOCKED-MONITOR*
|
||||
SI::*RESETFORMS*))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROGN (OBTAIN.MONITORLOCK LOCK NIL 'WITH.MONITOR)
|
||||
. FORMS)
|
||||
(SI::MONITOR-UNWIND))])
|
||||
|
||||
(PUTPROPS WITH.FAST.MONITOR MACRO
|
||||
[(LOCK . FORMS)
|
||||
(UNINTERRUPTABLY
|
||||
([LAMBDA (UNLOCK)
|
||||
(PROG1 (PROGN . FORMS)
|
||||
(AND (NEQ UNLOCK T)
|
||||
(RELEASE.MONITORLOCK UNLOCK)))]
|
||||
(OBTAIN.MONITORLOCK LOCK)))])
|
||||
(PUTPROPS WITH.FAST.MONITOR MACRO [(LOCK . FORMS)
|
||||
(UNINTERRUPTABLY
|
||||
([LAMBDA (UNLOCK)
|
||||
(PROG1 (PROGN . FORMS)
|
||||
(AND (NEQ UNLOCK T)
|
||||
(RELEASE.MONITORLOCK UNLOCK)))]
|
||||
(OBTAIN.MONITORLOCK LOCK)))])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -2460,51 +2461,52 @@ with the terms of said license.
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \RESCHEDULE MACRO
|
||||
[LAMBDA (OLDPROC)
|
||||
(PUTPROPS \RESCHEDULE MACRO
|
||||
[LAMBDA (OLDPROC)
|
||||
|
||||
(* ;; "Causes process switch, saving current context in OLDPROC's handle, or nowhere if OLDPROC is NIL. Must be called uninterruptably!")
|
||||
(* ;; "Causes process switch, saving current context in OLDPROC's handle, or nowhere if OLDPROC is NIL. Must be called uninterruptably!")
|
||||
|
||||
(PROG (PQUEUE PROC)
|
||||
TOP
|
||||
(PROG (PQUEUE PROC)
|
||||
TOP
|
||||
|
||||
(* ;; "Maybe check for events here?")
|
||||
(* ;; "Maybe check for events here?")
|
||||
|
||||
(SETQ PQUEUE \HIGHEST.PRIORITY.QUEUE)
|
||||
LP (COND
|
||||
((SETQ PROC (fetch PQNEXT of PQUEUE))
|
||||
[COND
|
||||
((NEQ PROC OLDPROC) (* ;
|
||||
(SETQ PQUEUE \HIGHEST.PRIORITY.QUEUE)
|
||||
LP (COND
|
||||
((SETQ PROC (fetch PQNEXT of PQUEUE))
|
||||
[COND
|
||||
((NEQ PROC OLDPROC) (* ;
|
||||
"Yes, there is a process switch required here. Below is roughly the body of RESUME")
|
||||
(LET ((TOFX (fetch PROCFX of PROC))
|
||||
FROMFX)
|
||||
(COND
|
||||
((fetch (FX INVALIDP) of TOFX)
|
||||
(\MP.ERROR \MP.STACKRELEASED "Process's stack has been released!" PROC)))
|
||||
(SETQ \RUNNING.PROCESS PROC)
|
||||
(replace PROCFX of PROC with 0)
|
||||
(\PROC.RESUME TOFX (COND
|
||||
(OLDPROC (SETQ FROMFX (fetch PROCFX of OLDPROC)
|
||||
)
|
||||
(COND
|
||||
((NOT (fetch (FX INVALIDP) of FROMFX)
|
||||
)
|
||||
(LET ((TOFX (fetch PROCFX of PROC))
|
||||
FROMFX)
|
||||
(COND
|
||||
((fetch (FX INVALIDP) of TOFX)
|
||||
(\MP.ERROR \MP.STACKRELEASED "Process's stack has been released!"
|
||||
PROC)))
|
||||
(SETQ \RUNNING.PROCESS PROC)
|
||||
(replace PROCFX of PROC with 0)
|
||||
(\PROC.RESUME TOFX (COND
|
||||
(OLDPROC (SETQ FROMFX (fetch PROCFX
|
||||
of OLDPROC))
|
||||
(COND
|
||||
((NOT (fetch (FX INVALIDP)
|
||||
of FROMFX))
|
||||
(* ;
|
||||
"Release stack pointer of OLDPROC if it hasn't been yet. should never happen")
|
||||
(\DECUSECOUNT FROMFX)))
|
||||
(replace PROCFX of OLDPROC with
|
||||
(\MYALINK))
|
||||
NIL)
|
||||
(T (* ;
|
||||
(\DECUSECOUNT FROMFX)))
|
||||
(replace PROCFX of OLDPROC
|
||||
with (\MYALINK))
|
||||
NIL)
|
||||
(T (* ;
|
||||
"no OLDPROC to resume later, so jettison caller")
|
||||
(\MYALINK]
|
||||
(RETURN (fetch WAKEREASON of PROC)))
|
||||
((SETQ PQUEUE (fetch PQLOWER of PQUEUE))
|
||||
(GO LP))
|
||||
(T (* ;
|
||||
(\MYALINK]
|
||||
(RETURN (fetch WAKEREASON of PROC)))
|
||||
((SETQ PQUEUE (fetch PQLOWER of PQUEUE))
|
||||
(GO LP))
|
||||
(T (* ;
|
||||
"nobody runnable, wait for events")
|
||||
(\MP.ERROR \MP.PROCERROR "No runnable process!!" OLDPROC)
|
||||
(GO TOP])
|
||||
(\MP.ERROR \MP.PROCERROR "No runnable process!!" OLDPROC)
|
||||
(GO TOP])
|
||||
)
|
||||
)
|
||||
(DEFINEQ
|
||||
@@ -2848,22 +2850,19 @@ with the terms of said license.
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS THIS.PROCESS MACRO
|
||||
(NIL \RUNNING.PROCESS))
|
||||
(PUTPROPS THIS.PROCESS MACRO (NIL \RUNNING.PROCESS))
|
||||
|
||||
(PUTPROPS TTY.PROCESS MACRO
|
||||
[X (COND
|
||||
((CAR X)
|
||||
'IGNOREMACRO)
|
||||
(T '\TTY.PROCESS])
|
||||
(PUTPROPS TTY.PROCESS MACRO [X (COND
|
||||
((CAR X)
|
||||
'IGNOREMACRO)
|
||||
(T '\TTY.PROCESS])
|
||||
|
||||
(PUTPROPS TTY.PROCESSP MACRO
|
||||
[X (COND
|
||||
((CAR X)
|
||||
'IGNOREMACRO)
|
||||
(T '(OR (NULL (THIS.PROCESS))
|
||||
(EQ (THIS.PROCESS)
|
||||
(TTY.PROCESS])
|
||||
(PUTPROPS TTY.PROCESSP MACRO [X (COND
|
||||
((CAR X)
|
||||
'IGNOREMACRO)
|
||||
(T '(OR (NULL (THIS.PROCESS))
|
||||
(EQ (THIS.PROCESS)
|
||||
(TTY.PROCESS])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
@@ -2887,21 +2886,18 @@ with the terms of said license.
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS ALIVEPROCP MACRO
|
||||
((p)
|
||||
(NOT (DEADPROCP p))))
|
||||
(PUTPROPS ALIVEPROCP MACRO ((p)
|
||||
(NOT (DEADPROCP p))))
|
||||
|
||||
(PUTPROPS DEADPROCP MACRO
|
||||
((p)
|
||||
(fetch PROCDELETED of p)))
|
||||
(PUTPROPS DEADPROCP MACRO ((p)
|
||||
(fetch PROCDELETED of p)))
|
||||
|
||||
(PUTPROPS \COERCE.TO.PROCESS MACRO
|
||||
[OPENLAMBDA (P ERRORFLG)
|
||||
(COND
|
||||
((AND (type? PROCESS P)
|
||||
(NOT (fetch PROCDELETED of P)))
|
||||
P)
|
||||
(T (FIND.PROCESS P ERRORFLG])
|
||||
(PUTPROPS \COERCE.TO.PROCESS MACRO [OPENLAMBDA (P ERRORFLG)
|
||||
(COND
|
||||
((AND (type? PROCESS P)
|
||||
(NOT (fetch PROCDELETED of P)))
|
||||
P)
|
||||
(T (FIND.PROCESS P ERRORFLG])
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -3364,41 +3360,41 @@ with the terms of said license.
|
||||
(ADDTOVAR LAMA PROCESSPROP ADD.PROCESS)
|
||||
)
|
||||
(PUTPROPS PROC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||
1992 1993 1998 1999))
|
||||
1992 1993 1998 1999 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22392 42659 (PROCESSWORLD 22402 . 31747) (ADD.PROCESS 31749 . 35906) (DEL.PROCESS 35908
|
||||
. 36855) (PROCESS.RETURN 36857 . 37004) (FIND.PROCESS 37006 . 37640) (MAP.PROCESSES 37642 . 37968) (
|
||||
PROCESSP 37970 . 38138) (RELPROCESSP 38140 . 38322) (RESTART.PROCESS 38324 . 38893) (WAKE.PROCESS
|
||||
38895 . 39625) (SUSPEND.PROCESS 39627 . 40014) (PROCESS.RESULT 40016 . 40994) (PROCESS-STATUS 40996 .
|
||||
42391) (PROCESS.FINISHEDP 42393 . 42657)) (42660 55867 (THIS.PROCESS 42670 . 42803) (TTY.PROCESS 42805
|
||||
. 49632) (TTY.PROCESSP 49634 . 49850) (PROCESS.TTY 49852 . 50202) (GIVE.TTY.PROCESS 50204 . 51014) (
|
||||
ALLOW.BUTTON.EVENTS 51016 . 51260) (SPAWN.MOUSE 51262 . 53475) (\WAIT.FOR.TTY 53477 . 53667) (
|
||||
WAIT.FOR.TTY 53669 . 55865)) (55868 58486 (RESET 55878 . 56710) (ERROR! 56712 . 58484)) (58851 64199 (
|
||||
PROCESSPROP 58861 . 63313) (PROCESS.NAME 63315 . 63620) (PROCESS.WINDOW 63622 . 64197)) (64401 69436 (
|
||||
DISMISS 64411 . 65226) (BLOCK 65228 . 67452) (WAITFORINPUT 67454 . 68683) (\WAITFORSYSBUFP 68685 .
|
||||
69434)) (69637 70134 (EVAL.AS.PROCESS 69647 . 69870) (EVAL.IN.TTY.PROCESS 69872 . 70132)) (70768 76552
|
||||
(PROCESS.READ 70778 . 71616) (PROCESS.EVALV 71618 . 72196) (PROCESS.EVAL 72198 . 73175) (
|
||||
\PROCESS.EVAL1 73177 . 74280) (PROCESS.APPLY 74282 . 75266) (\PROCESS.APPLY1 75268 . 76550)) (78718
|
||||
84023 (CREATE.EVENT 78728 . 78890) (NOTIFY.EVENT 78892 . 80400) (AWAIT.EVENT 80402 . 81024) (
|
||||
\UNQUEUE.EVENT 81026 . 82501) (\ENQUEUE.EVENT/LOCK 82503 . 83796) (\EVENT.DEFPRINT 83798 . 84021)) (
|
||||
89263 94254 (OBTAIN.MONITORLOCK 89273 . 92137) (CREATE.MONITORLOCK 92139 . 92358) (RELEASE.MONITORLOCK
|
||||
92360 . 92694) (SI::MONITOR-UNWIND 92696 . 93282) (MONITOR.AWAIT.EVENT 93284 . 94018) (
|
||||
\MONITORLOCK.DEFPRINT 94020 . 94252)) (94863 117339 (\MAKE.PROCESS0 94873 . 102072) (\MAKE.PROCESS1
|
||||
102074 . 103638) (\PROCESS.MOVEFRAME 103640 . 108189) (\RELEASE.PROCESS 108191 . 111241) (
|
||||
\UNWIND.PROCESS 111243 . 111569) (\MAYBEBLOCK 111571 . 111726) (\BACKGROUND.PROCESS 111728 . 111969) (
|
||||
\MOUSE.PROCESS 111971 . 114520) (\TIMER.PROCESS 114522 . 115078) (\PROCESS.RELEASE.LOCKS 115080 .
|
||||
115494) (\SET.PROCESS.NAME 115496 . 117032) (\PROCESS.DEFPRINT 117034 . 117337)) (117340 131695 (
|
||||
\START.PROCESSES 117350 . 117523) (\PROCESS.GO.TO.SLEEP 117525 . 121279) (\PROC.RESUME 121281 . 121655
|
||||
) (\RUN.PROCESS 121657 . 124993) (\SUSPEND.PROCESS 124995 . 128056) (\UNQUEUE.TIMER 128058 . 128757) (
|
||||
\ENQUEUE.TIMER 128759 . 130666) (\GET.PRIORITY.QUEUE 130668 . 131693)) (134377 141599 (\PROCESS.INIT
|
||||
134387 . 135013) (\PROCESS.EVENTFN 135015 . 136751) (\PROCESS.BEFORE.LOGOUT 136753 . 138272) (
|
||||
\PROCESS.AFTER.EXIT 138274 . 138582) (\PROCESS.RESET.TIMERS 138584 . 140113) (\PROC.AFTER.WINDOWWORLD
|
||||
140115 . 140800) (\TURN.ON.PROCESSES 140802 . 141597)) (141630 142859 (\PROC.CODEFORTFRAME 141640 .
|
||||
142461) (\PROC.REPEATEDLYEVALQT 142463 . 142857)) (142893 149625 (BREAK.PROCESS 142903 . 143219) (
|
||||
\SELECTPROCESS 143221 . 145661) (\PROCESS.MAKEFRAME 145663 . 147714) (\PROCESS.MAKEFRAME0 147716 .
|
||||
149623)) (151838 153761 (\CHECK.PQUEUE 151848 . 153759)) (153762 172091 (PPROC 153772 . 155053) (
|
||||
PPROCWINDOW 155055 . 155546) (PPROCREPAINTFN 155548 . 156262) (PPROCRESHAPEFN 156264 . 156527) (
|
||||
PPROCEXTENT 156529 . 157013) (PPROC1 157015 . 159033) (PROCESS.STATUS.WINDOW 159035 . 163117) (
|
||||
\PSW.SELECTED 163119 . 163413) (\PSWOP.SELECTED 163415 . 167315) (PROCESS.BACKTRACE 167317 . 170508) (
|
||||
\INVALIDATE.PROCESS.WINDOW 170510 . 171244) (\UPDATE.PROCESS.WINDOW 171246 . 172089)))))
|
||||
(FILEMAP (NIL (22376 42643 (PROCESSWORLD 22386 . 31731) (ADD.PROCESS 31733 . 35890) (DEL.PROCESS 35892
|
||||
. 36839) (PROCESS.RETURN 36841 . 36988) (FIND.PROCESS 36990 . 37624) (MAP.PROCESSES 37626 . 37952) (
|
||||
PROCESSP 37954 . 38122) (RELPROCESSP 38124 . 38306) (RESTART.PROCESS 38308 . 38877) (WAKE.PROCESS
|
||||
38879 . 39609) (SUSPEND.PROCESS 39611 . 39998) (PROCESS.RESULT 40000 . 40978) (PROCESS-STATUS 40980 .
|
||||
42375) (PROCESS.FINISHEDP 42377 . 42641)) (42644 55851 (THIS.PROCESS 42654 . 42787) (TTY.PROCESS 42789
|
||||
. 49616) (TTY.PROCESSP 49618 . 49834) (PROCESS.TTY 49836 . 50186) (GIVE.TTY.PROCESS 50188 . 50998) (
|
||||
ALLOW.BUTTON.EVENTS 51000 . 51244) (SPAWN.MOUSE 51246 . 53459) (\WAIT.FOR.TTY 53461 . 53651) (
|
||||
WAIT.FOR.TTY 53653 . 55849)) (55852 58470 (RESET 55862 . 56694) (ERROR! 56696 . 58468)) (58835 64183 (
|
||||
PROCESSPROP 58845 . 63297) (PROCESS.NAME 63299 . 63604) (PROCESS.WINDOW 63606 . 64181)) (64385 69420 (
|
||||
DISMISS 64395 . 65210) (BLOCK 65212 . 67436) (WAITFORINPUT 67438 . 68667) (\WAITFORSYSBUFP 68669 .
|
||||
69418)) (69621 70118 (EVAL.AS.PROCESS 69631 . 69854) (EVAL.IN.TTY.PROCESS 69856 . 70116)) (70755 76539
|
||||
(PROCESS.READ 70765 . 71603) (PROCESS.EVALV 71605 . 72183) (PROCESS.EVAL 72185 . 73162) (
|
||||
\PROCESS.EVAL1 73164 . 74267) (PROCESS.APPLY 74269 . 75253) (\PROCESS.APPLY1 75255 . 76537)) (78705
|
||||
84010 (CREATE.EVENT 78715 . 78877) (NOTIFY.EVENT 78879 . 80387) (AWAIT.EVENT 80389 . 81011) (
|
||||
\UNQUEUE.EVENT 81013 . 82488) (\ENQUEUE.EVENT/LOCK 82490 . 83783) (\EVENT.DEFPRINT 83785 . 84008)) (
|
||||
90012 95003 (OBTAIN.MONITORLOCK 90022 . 92886) (CREATE.MONITORLOCK 92888 . 93107) (RELEASE.MONITORLOCK
|
||||
93109 . 93443) (SI::MONITOR-UNWIND 93445 . 94031) (MONITOR.AWAIT.EVENT 94033 . 94767) (
|
||||
\MONITORLOCK.DEFPRINT 94769 . 95001)) (96189 118665 (\MAKE.PROCESS0 96199 . 103398) (\MAKE.PROCESS1
|
||||
103400 . 104964) (\PROCESS.MOVEFRAME 104966 . 109515) (\RELEASE.PROCESS 109517 . 112567) (
|
||||
\UNWIND.PROCESS 112569 . 112895) (\MAYBEBLOCK 112897 . 113052) (\BACKGROUND.PROCESS 113054 . 113295) (
|
||||
\MOUSE.PROCESS 113297 . 115846) (\TIMER.PROCESS 115848 . 116404) (\PROCESS.RELEASE.LOCKS 116406 .
|
||||
116820) (\SET.PROCESS.NAME 116822 . 118358) (\PROCESS.DEFPRINT 118360 . 118663)) (118666 133021 (
|
||||
\START.PROCESSES 118676 . 118849) (\PROCESS.GO.TO.SLEEP 118851 . 122605) (\PROC.RESUME 122607 . 122981
|
||||
) (\RUN.PROCESS 122983 . 126319) (\SUSPEND.PROCESS 126321 . 129382) (\UNQUEUE.TIMER 129384 . 130083) (
|
||||
\ENQUEUE.TIMER 130085 . 131992) (\GET.PRIORITY.QUEUE 131994 . 133019)) (136000 143222 (\PROCESS.INIT
|
||||
136010 . 136636) (\PROCESS.EVENTFN 136638 . 138374) (\PROCESS.BEFORE.LOGOUT 138376 . 139895) (
|
||||
\PROCESS.AFTER.EXIT 139897 . 140205) (\PROCESS.RESET.TIMERS 140207 . 141736) (\PROC.AFTER.WINDOWWORLD
|
||||
141738 . 142423) (\TURN.ON.PROCESSES 142425 . 143220)) (143253 144482 (\PROC.CODEFORTFRAME 143263 .
|
||||
144084) (\PROC.REPEATEDLYEVALQT 144086 . 144480)) (144516 151248 (BREAK.PROCESS 144526 . 144842) (
|
||||
\SELECTPROCESS 144844 . 147284) (\PROCESS.MAKEFRAME 147286 . 149337) (\PROCESS.MAKEFRAME0 149339 .
|
||||
151246)) (154009 155932 (\CHECK.PQUEUE 154019 . 155930)) (155933 174262 (PPROC 155943 . 157224) (
|
||||
PPROCWINDOW 157226 . 157717) (PPROCREPAINTFN 157719 . 158433) (PPROCRESHAPEFN 158435 . 158698) (
|
||||
PPROCEXTENT 158700 . 159184) (PPROC1 159186 . 161204) (PROCESS.STATUS.WINDOW 161206 . 165288) (
|
||||
\PSW.SELECTED 165290 . 165584) (\PSWOP.SELECTED 165586 . 169486) (PROCESS.BACKTRACE 169488 . 172679) (
|
||||
\INVALIDATE.PROCESS.WINDOW 172681 . 173415) (\UPDATE.PROCESS.WINDOW 173417 . 174260)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
85
sources/SPP
85
sources/SPP
@@ -1,17 +1,20 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "19-Jan-93 11:20:29" {DSK}<python>lde>lispcore>sources>SPP.;3 107246
|
||||
(FILECREATED " 5-Sep-2021 08:25:44" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;2 107386
|
||||
|
||||
previous date%: " 5-Jan-93 02:24:51" {DSK}<python>lde>lispcore>sources>SPP.;2)
|
||||
changes to%: (FNS \CREATE.SPP.DEVICE)
|
||||
|
||||
previous date%: "19-Jan-93 11:20:29"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1983-1988, 1990-1991, 1993, 2021 by Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT SPPCOMS)
|
||||
|
||||
(RPAQQ SPPCOMS
|
||||
((COMS (* ; "Sequenced Packet Protocol.")
|
||||
(RPAQQ SPPCOMS
|
||||
((COMS (* ; "Sequenced Packet Protocol.")
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
SPPDECLS)
|
||||
(MACROS RETRANSMITINDEX SEQ.ADD1 SEQ.GREATERP SEQ.GEQ)
|
||||
@@ -29,8 +32,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Xerox Corp
|
||||
(FNS \SPPWATCHER \SPP.HANDLE.INPUT \SPP.HANDLE.DATA \SPP.HANDLE.ATTN
|
||||
\SPP.RELEASE.ACKED.PACKETS \SPP.NOT.RESPONDING \SPP.PROBE \SPP.RETRANSMIT.NEXT
|
||||
\SPP.DUPLICATE.REQUEST \SPP.ESTABLISH \SPPGETERROR \SPPSENDERROR))
|
||||
[COMS (* ;
|
||||
"Stream interface to Sequenced Packet Protocol.")
|
||||
[COMS (* ;
|
||||
"Stream interface to Sequenced Packet Protocol.")
|
||||
(FNS \INITSPP \SPP.EVENTFN \CREATE.SPP.DEVICE SPP.OPEN \SPP.CREATE.STREAM
|
||||
SPP.DESTADDRESS SPPOUTPUTSTREAM SPP.OPENP \STREAM.FROM.PACKET SPP.FORCEOUTPUT
|
||||
SPP.FLUSH.TO.EOF SPP.SENDEOM SPP.CLEAREOM SPP.SENDATTENTION SPP.CLEARATTENTION
|
||||
@@ -40,7 +43,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Xerox Corp
|
||||
SPP.DSTYPE SPP.READP SPP.EOFP)
|
||||
(FNS SPPSTREAMP)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INITSPP]
|
||||
(COMS (* ; "Debugging")
|
||||
(COMS (* ; "Debugging")
|
||||
(ALISTS (XIPPRINTMACROS 5))
|
||||
(FNS PPSPP \SPP.INFO.HOOK PPSPPSTREAM \SPP.CHECK.INPUT.QUEUE PRINTSPP)
|
||||
(INITVARS (PRINTSPPDATAFLG))
|
||||
@@ -57,20 +60,20 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Xerox Corp
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS RETRANSMITINDEX MACRO ((SEQNO)
|
||||
(IMOD SEQNO \SPP.RETRANSMITQ.SIZE)))
|
||||
(PUTPROPS RETRANSMITINDEX MACRO ((SEQNO)
|
||||
(IMOD SEQNO \SPP.RETRANSMITQ.SIZE)))
|
||||
|
||||
[PUTPROPS SEQ.ADD1 MACRO ((FORM INC)
|
||||
(\LOLOC (\ADDBASE FORM (OR INC 1]
|
||||
(PUTPROPS SEQ.ADD1 MACRO [(FORM INC)
|
||||
(\LOLOC (\ADDBASE FORM (OR INC 1])
|
||||
|
||||
(PUTPROPS SEQ.GREATERP MACRO ((X Y)
|
||||
(ILESSP (\LOLOC (IDIFFERENCE (IDIFFERENCE X Y)
|
||||
1))
|
||||
32768)))
|
||||
(PUTPROPS SEQ.GREATERP MACRO ((X Y)
|
||||
(ILESSP (\LOLOC (IDIFFERENCE (IDIFFERENCE X Y)
|
||||
1))
|
||||
32768)))
|
||||
|
||||
(PUTPROPS SEQ.GEQ MACRO ((X Y)
|
||||
(ILESSP (\LOLOC (IDIFFERENCE X Y))
|
||||
32768)))
|
||||
(PUTPROPS SEQ.GEQ MACRO ((X Y)
|
||||
(ILESSP (\LOLOC (IDIFFERENCE X Y))
|
||||
32768)))
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -1889,27 +1892,27 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Xerox Corp
|
||||
|
||||
(GLOBALVARS PRINTSPPDATAFLG)
|
||||
)
|
||||
(PUTPROPS SPP COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 1993))
|
||||
(PUTPROPS SPP COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 1993 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (8755 29124 (\SPPCONNECTION 8765 . 9948) (\SPP.CREATE.CON 9950 . 10897) (
|
||||
\SPP.CREATE.STREAMS 10899 . 11785) (\SPP.CREATE.WATCHER 11787 . 12599) (\SPP.SENDPKT 12601 . 16196) (
|
||||
\FILLINSPP 16198 . 16996) (\SPP.SYSPKT 16998 . 17948) (\GETSPP 17950 . 20259) (\SENDSPP 20261 . 23729)
|
||||
(\SPP.SEND.ENDREPLY 23731 . 24159) (\TERMINATESPP 24161 . 26417) (\SPP.CLEANUP 26419 . 29122)) (29125
|
||||
64179 (\SPPWATCHER 29135 . 36416) (\SPP.HANDLE.INPUT 36418 . 45241) (\SPP.HANDLE.DATA 45243 . 50004)
|
||||
(\SPP.HANDLE.ATTN 50006 . 51487) (\SPP.RELEASE.ACKED.PACKETS 51489 . 53022) (\SPP.NOT.RESPONDING 53024
|
||||
. 55738) (\SPP.PROBE 55740 . 56009) (\SPP.RETRANSMIT.NEXT 56011 . 58131) (\SPP.DUPLICATE.REQUEST
|
||||
58133 . 58725) (\SPP.ESTABLISH 58727 . 63362) (\SPPGETERROR 63364 . 63818) (\SPPSENDERROR 63820 .
|
||||
64177)) (64243 96114 (\INITSPP 64253 . 64888) (\SPP.EVENTFN 64890 . 65460) (\CREATE.SPP.DEVICE 65462
|
||||
. 66356) (SPP.OPEN 66358 . 71966) (\SPP.CREATE.STREAM 71968 . 72167) (SPP.DESTADDRESS 72169 . 72616)
|
||||
(SPPOUTPUTSTREAM 72618 . 72908) (SPP.OPENP 72910 . 73226) (\STREAM.FROM.PACKET 73228 . 73764) (
|
||||
SPP.FORCEOUTPUT 73766 . 75303) (SPP.FLUSH.TO.EOF 75305 . 76449) (SPP.SENDEOM 76451 . 77249) (
|
||||
SPP.CLEAREOM 77251 . 77856) (SPP.SENDATTENTION 77858 . 78484) (SPP.CLEARATTENTION 78486 . 79238) (
|
||||
SPP.CLOSE 79240 . 80306) (\SPP.CLOSE.IF.ERROR 80308 . 80480) (\SPP.RESETCLOSE 80482 . 80730) (
|
||||
SPP.BACKFILEPTR 80732 . 81033) (\SPP.GETFILEPTR 81035 . 81273) (\SPP.SETFILEPTR 81275 . 81986) (
|
||||
\SPP.SKIPBYTES 81988 . 83027) (\SPP.BOUTS 83029 . 83790) (\SPP.OTHER.BOUT 83792 . 84147) (
|
||||
\SPP.GETNEXTBUFFER 84149 . 86087) (\SPP.STREAM.LOST 86089 . 86247) (\SPP.DEFAULT.ERRORHANDLER 86249 .
|
||||
87028) (\SPP.PREPARE.INPUT 87030 . 91881) (\SPP.PREPARE.OUTPUT 91883 . 93307) (SPP.DSTYPE 93309 .
|
||||
94829) (SPP.READP 94831 . 95226) (SPP.EOFP 95228 . 96112)) (96115 96350 (SPPSTREAMP 96125 . 96348)) (
|
||||
96474 107034 (PPSPP 96484 . 101673) (\SPP.INFO.HOOK 101675 . 102548) (PPSPPSTREAM 102550 . 102919) (
|
||||
\SPP.CHECK.INPUT.QUEUE 102921 . 104221) (PRINTSPP 104223 . 107032)))))
|
||||
(FILEMAP (NIL (8890 29259 (\SPPCONNECTION 8900 . 10083) (\SPP.CREATE.CON 10085 . 11032) (
|
||||
\SPP.CREATE.STREAMS 11034 . 11920) (\SPP.CREATE.WATCHER 11922 . 12734) (\SPP.SENDPKT 12736 . 16331) (
|
||||
\FILLINSPP 16333 . 17131) (\SPP.SYSPKT 17133 . 18083) (\GETSPP 18085 . 20394) (\SENDSPP 20396 . 23864)
|
||||
(\SPP.SEND.ENDREPLY 23866 . 24294) (\TERMINATESPP 24296 . 26552) (\SPP.CLEANUP 26554 . 29257)) (29260
|
||||
64314 (\SPPWATCHER 29270 . 36551) (\SPP.HANDLE.INPUT 36553 . 45376) (\SPP.HANDLE.DATA 45378 . 50139)
|
||||
(\SPP.HANDLE.ATTN 50141 . 51622) (\SPP.RELEASE.ACKED.PACKETS 51624 . 53157) (\SPP.NOT.RESPONDING 53159
|
||||
. 55873) (\SPP.PROBE 55875 . 56144) (\SPP.RETRANSMIT.NEXT 56146 . 58266) (\SPP.DUPLICATE.REQUEST
|
||||
58268 . 58860) (\SPP.ESTABLISH 58862 . 63497) (\SPPGETERROR 63499 . 63953) (\SPPSENDERROR 63955 .
|
||||
64312)) (64378 96249 (\INITSPP 64388 . 65023) (\SPP.EVENTFN 65025 . 65595) (\CREATE.SPP.DEVICE 65597
|
||||
. 66491) (SPP.OPEN 66493 . 72101) (\SPP.CREATE.STREAM 72103 . 72302) (SPP.DESTADDRESS 72304 . 72751)
|
||||
(SPPOUTPUTSTREAM 72753 . 73043) (SPP.OPENP 73045 . 73361) (\STREAM.FROM.PACKET 73363 . 73899) (
|
||||
SPP.FORCEOUTPUT 73901 . 75438) (SPP.FLUSH.TO.EOF 75440 . 76584) (SPP.SENDEOM 76586 . 77384) (
|
||||
SPP.CLEAREOM 77386 . 77991) (SPP.SENDATTENTION 77993 . 78619) (SPP.CLEARATTENTION 78621 . 79373) (
|
||||
SPP.CLOSE 79375 . 80441) (\SPP.CLOSE.IF.ERROR 80443 . 80615) (\SPP.RESETCLOSE 80617 . 80865) (
|
||||
SPP.BACKFILEPTR 80867 . 81168) (\SPP.GETFILEPTR 81170 . 81408) (\SPP.SETFILEPTR 81410 . 82121) (
|
||||
\SPP.SKIPBYTES 82123 . 83162) (\SPP.BOUTS 83164 . 83925) (\SPP.OTHER.BOUT 83927 . 84282) (
|
||||
\SPP.GETNEXTBUFFER 84284 . 86222) (\SPP.STREAM.LOST 86224 . 86382) (\SPP.DEFAULT.ERRORHANDLER 86384 .
|
||||
87163) (\SPP.PREPARE.INPUT 87165 . 92016) (\SPP.PREPARE.OUTPUT 92018 . 93442) (SPP.DSTYPE 93444 .
|
||||
94964) (SPP.READP 94966 . 95361) (SPP.EOFP 95363 . 96247)) (96250 96485 (SPPSTREAMP 96260 . 96483)) (
|
||||
96609 107169 (PPSPP 96619 . 101808) (\SPP.INFO.HOOK 101810 . 102683) (PPSPPSTREAM 102685 . 103054) (
|
||||
\SPP.CHECK.INPUT.QUEUE 103056 . 104356) (PRINTSPP 104358 . 107167)))))
|
||||
STOP
|
||||
|
||||
BIN
sources/SPP.LCOM
BIN
sources/SPP.LCOM
Binary file not shown.
2681
sources/TEXTOFD
Normal file
2681
sources/TEXTOFD
Normal file
File diff suppressed because it is too large
Load Diff
BIN
sources/TEXTOFD.LCOM
Normal file
BIN
sources/TEXTOFD.LCOM
Normal file
Binary file not shown.
255
sources/TTYIN
255
sources/TTYIN
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "16-Aug-2021 23:40:36"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;12 329478
|
||||
(FILECREATED " 5-Sep-2021 08:25:25"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;21 329100
|
||||
|
||||
changes to%: (FNS \TTYIN.RPEOF)
|
||||
changes to%: (FNS TTYINBUFFERDEVICE)
|
||||
|
||||
previous date%: "14-Aug-2021 10:55:39"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;10)
|
||||
previous date%: "27-Aug-2021 17:02:43"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;20)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -80,8 +80,10 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
"This is so that you can (MOVD 'TTYINPROMPTFORWORD 'PROMPTFORWORD) and not die")
|
||||
(P (MOVD? 'PROMPTFORWORD 'NON-TTYIN-PROMPTFORWORD NIL T]
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY (COMS * TTCOMPILETIME))
|
||||
(INITVARS (DORADO.RESTORE.BUF.CODES '(194))
|
||||
(TTYIN.RESTORE.BUF.CODES '(516 530))
|
||||
|
||||
(* ;; " The DORADO branch is deprecated (DORADO.RESTORE.BUF.CODES (CHARCODE (%"#B%")))")
|
||||
|
||||
(INITVARS (TTYIN.RESTORE.BUF.CODES (CHARCODE ("Function,^D" "Function,^R")))
|
||||
(TTYINBUFFER)
|
||||
(?ACTIVATEFLG T)
|
||||
(EDITPREFIXCHAR)
|
||||
@@ -375,7 +377,7 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(SETQ TTYINBUFFER \TTYINSTATE])
|
||||
|
||||
(TTYIN1
|
||||
[LAMBDA NIL (* ; "Edited 13-Jun-2021 09:55 by rmk:")
|
||||
[LAMBDA NIL (* ; "Edited 27-Aug-2021 16:27 by rmk:")
|
||||
|
||||
(* ;;; "The main moby subfn of TTYIN. Is errorset protected in caller")
|
||||
|
||||
@@ -782,14 +784,17 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
((CHARCODE ^W) (* ; "^W delete last word")
|
||||
(TTDELETEWORD))
|
||||
(COND
|
||||
([MEMB CHAR (OR \RESTOREBUFCODES (SETQ \RESTOREBUFCODES
|
||||
(APPEND (AND (EQ (MACHINETYPE)
|
||||
'DORADO)
|
||||
DORADO.RESTORE.BUF.CODES)
|
||||
TTYIN.RESTORE.BUF.CODES]
|
||||
((MEMB CHAR (OR \RESTOREBUFCODES (SETQ \RESTOREBUFCODES
|
||||
TTYIN.RESTORE.BUF.CODES)))
|
||||
|
||||
(* ;; "One of the characters we interpret as %"restore last buffer%". Recomputed after exit in case we change machine. The dorado code is a perfectly good charset 0 code, so don't usually want to usurp it.")
|
||||
|
||||
(* We aren't supporting Dorado,
|
||||
whose original code maps on to the
|
||||
acute accent (SETQ \RESTOREBUFCODES
|
||||
(APPEND (AND (EQ (MACHINETYPE)
|
||||
(QUOTE DORADO))
|
||||
DORADO.RESTORE.BUF.CODES)
|
||||
TTYIN.RESTORE.BUF.CODES)))
|
||||
(RESTOREBUF))
|
||||
[(> CHAR 32) (* ; "not a control char")
|
||||
(ADDCHAR (COND
|
||||
@@ -3109,9 +3114,9 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(T (BACKWARD.DELETE.TO TAIL])
|
||||
|
||||
(TTECHO.TO.FILE
|
||||
[LAMBDA (FILE DRIBBLING) (* ; "Edited 24-May-91 11:11 by jds")
|
||||
[LAMBDA (FILE DRIBBLING) (* ; "Edited 27-Aug-2021 16:45 by rmk:")
|
||||
|
||||
(* ;;; "Echos input to FILE. If DRIBBLING is true, the prompts are also echoed")
|
||||
(* ;;; "Echos input to FILE. If DRIBBLING is true, the prompts are also echoed")
|
||||
|
||||
(for (STREAM _ (GETSTREAM FILE 'OUTPUT))
|
||||
(LINE _ \FIRSTLINE)
|
||||
@@ -3119,7 +3124,7 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
X CH END do (COND
|
||||
([AND DRIBBLING (SETQ X (COND
|
||||
(FIRSTIME
|
||||
(* ; "Print the first prompt")
|
||||
(* ; "Print the first prompt")
|
||||
(SETQ FIRSTIME NIL)
|
||||
(AND \PROMPT1
|
||||
(NOT (EQMEMB 'NOPROMPT OPTIONS))
|
||||
@@ -3130,20 +3135,20 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(SETQ X (fetch (LINE START) of LINE))
|
||||
(until (EQ X END) do [COND
|
||||
([NOT (COMPLEXCHARP (SETQ CH (CAR X]
|
||||
(BOUTCCODE STREAM CH))
|
||||
(\OUTCHAR STREAM CH))
|
||||
[(EQ (fetch (COMPLEXCHAR CPXREALCHAR)
|
||||
of CH)
|
||||
(CHARCODE SPACE))
|
||||
|
||||
(* ;; "pseudo-tab kludge: instead of printing the 'real' character, ignore it and print only its padding spaces")
|
||||
(* ;; "pseudo-tab kludge: instead of printing the 'real' character, ignore it and print only its padding spaces")
|
||||
|
||||
(FRPTQ (fetch (COMPLEXCHAR CPXNCHARS)
|
||||
of CH)
|
||||
(BOUTCCODE STREAM (CHARCODE SPACE]
|
||||
(T (BOUTCCODE STREAM (fetch
|
||||
(COMPLEXCHAR
|
||||
CPXREALCHAR)
|
||||
of CH]
|
||||
(\OUTCHAR STREAM (CHARCODE SPACE]
|
||||
(T (\OUTCHAR STREAM (fetch (COMPLEXCHAR
|
||||
CPXREALCHAR
|
||||
)
|
||||
of CH]
|
||||
(SETQ X (TTNEXTCHAR X)))
|
||||
(SETQ LINE (fetch (LINE NEXTLINE) of LINE))
|
||||
(COND
|
||||
@@ -3151,12 +3156,12 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
END))
|
||||
(NOT \PROMPTFORWORD))
|
||||
|
||||
(* ;; "Don't terpri on overflow line, since user didn't; except always do it to dribblefile, since that's what's on the screen. Promptforword-style input doesn't have terminating cr.")
|
||||
(* ;; "Don't terpri on overflow line, since user didn't; except always do it to dribblefile, since that's what's on the screen. Promptforword-style input doesn't have terminating cr.")
|
||||
|
||||
(TERPRI FILE)))
|
||||
repeatwhile (AND LINE (OR (EQ END \ENDBUFFER)
|
||||
(PROGN (* ;
|
||||
"Avoid echoing the terminating empty line, except when it is an empty overflow line")
|
||||
(PROGN (* ;
|
||||
"Avoid echoing the terminating empty line, except when it is an empty overflow line")
|
||||
(NEQ (fetch (LINE START) of LINE)
|
||||
\ENDBUFFER])
|
||||
|
||||
@@ -3243,38 +3248,34 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(RETURN LINE])
|
||||
|
||||
(TTLOADBUF
|
||||
[LAMBDA (BUF) (* ; "Edited 8-Feb-88 12:54 by bvm:")
|
||||
|
||||
(* ;; "BUF is a list, a la READBUF, which is loaded into our character buffer, using DCHCON to convert the s-expressions therein to char codes. If we are READING, then uses PRIN2 pnames, i.e. includes escape chars and such stuff. Alternatively, BUF may be a string, in which case its contents are also loaded into the buffer, a la BKSYSBUF, and the setting of \READING is irrelevant")
|
||||
[LAMBDA (BUF) (* ; "Edited 27-Aug-2021 16:47 by rmk:")
|
||||
|
||||
(* ;; "BUF is a list, a la READBUF, which is loaded into our character buffer, using DCHCON to convert the s-expressions therein to char codes. If we are READING, then uses PRIN2 pnames, i.e. includes escape chars and such stuff. Alternatively, BUF may be a string, in which case its contents are also loaded into the buffer, a la BKSYSBUF, and the setting of \READING is irrelevant")
|
||||
|
||||
(COND
|
||||
[(EQ (CAR (LISTP BUF))
|
||||
HISTSTR1) (* ;
|
||||
"read from file. BUF is (<histstr1> (file start . end))")
|
||||
|
||||
(SETQ BUF (CADR BUF))
|
||||
(SETFILEPTR (CAR BUF)
|
||||
(CADR BUF))
|
||||
(bind CHAR NEXTCH (STREAM _ (GETSTREAM (CAR BUF)
|
||||
'INPUT))
|
||||
(END _ (CDDR BUF)) while (< (GETFILEPTR STREAM)
|
||||
END)
|
||||
END)
|
||||
do (* ; "Read another character. Unfortunately, we have to go by file pointer to determine end, since stream could have ns chars in it")
|
||||
|
||||
(COND
|
||||
((NEQ (SETQ CHAR (BINCCODE STREAM))
|
||||
((NEQ (SETQ CHAR (\INCCODE.EOLC STREAM))
|
||||
(CHARCODE CR))
|
||||
(ADDNAKEDCHAR CHAR T))
|
||||
(T (* ; "eat up lf after the cr")
|
||||
|
||||
(COND
|
||||
([OR (>= (GETFILEPTR STREAM)
|
||||
END)
|
||||
(PROGN (SETQ NEXTCH (BINCCODE STREAM))
|
||||
(PROGN (SETQ NEXTCH (\INCCODE.EOLC STREAM))
|
||||
(AND (EQ NEXTCH (CHARCODE LF))
|
||||
(>= (GETFILEPTR STREAM)
|
||||
END] (* ; "Ignore final CR")
|
||||
|
||||
(RETURN)))
|
||||
(ADDNAKEDCHAR CHAR)
|
||||
(COND
|
||||
@@ -3285,25 +3286,21 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
((AND (LISTP BUF)
|
||||
(SETQ START (FMEMB HISTSTR0 BUF))) (* ;
|
||||
"HISTSTR0 is a marker used by lispx to denote end of line")
|
||||
|
||||
(FRPLACD (NLEFT BUF 1 START]
|
||||
(SETQ START (DCHCON BUF (CDR \ENDBUFFER)
|
||||
(AND (LISTP BUF)
|
||||
\READING)
|
||||
RDTBL)) (* ;
|
||||
"Use our own buffer as a scratchlist for DCHCON as long as it's lying around anyway.")
|
||||
|
||||
[COND
|
||||
((LISTP BUF) (* ;
|
||||
"Remove the surrounding parens from the outer list")
|
||||
|
||||
(SETQ END (NLEFT (SETQ START (CDR START))
|
||||
1]
|
||||
|
||||
(* ;; "now detach the result from our buffer to avoid conflict of interest. If DCHCON found our scratchlist inadequate, START will not be a tail of \ENDBUFFER so the NLEFT below comes out NIL, which is also fine")
|
||||
|
||||
(* ;; "now detach the result from our buffer to avoid conflict of interest. If DCHCON found our scratchlist inadequate, START will not be a tail of \ENDBUFFER so the NLEFT below comes out NIL, which is also fine")
|
||||
|
||||
(FRPLACD (NLEFT \ENDBUFFER 1 START)) (* ; "Now unread the CHCON list.")
|
||||
|
||||
(READFROMBUF START END])
|
||||
|
||||
(TTNEXTLINE
|
||||
@@ -3838,16 +3835,14 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(SETQ BUF (CDR BUF)) finally (RETURN BUF])
|
||||
|
||||
(TTYIN.READ
|
||||
[LAMBDA (FINALCHAR DONTREAD STREAM) (* ; "Edited 16-Jan-88 17:58 by bvm:")
|
||||
[LAMBDA (FINALCHAR DONTREAD STREAM) (* ; "Edited 27-Aug-2021 16:43 by rmk:")
|
||||
|
||||
(* ;;; "Process buffer for reading. FINALCHAR is what prompted us to terminate the call to TTYIN and is not in the buffer. If DONTREAD is true, then STREAM is the line buffer and we are acting as \FILLBUFFER -- otherwise, STREAM is our own scratch stream, with an eof fn that returns right paren; we read the buffer and return a list of expressions")
|
||||
|
||||
(LET (LASTC BUTLASTC)
|
||||
(while (NEQ \BUFFER \ENDBUFFER) do (SETQ BUTLASTC LASTC)
|
||||
(* ; "Fill the buffer")
|
||||
|
||||
(BOUTCCODE STREAM (SETQ LASTC (FIRSTCHAR \BUFFER))
|
||||
)
|
||||
(\OUTCHAR STREAM (SETQ LASTC (FIRSTCHAR \BUFFER)))
|
||||
(SETQ \BUFFER (TTNEXTCHAR \BUFFER)))
|
||||
(COND
|
||||
((AND DONTREAD (SELCHARQ FINALCHAR
|
||||
@@ -3859,45 +3854,37 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
ESCAPE.RC))
|
||||
(* ;
|
||||
"If it ended in a quoted right paren, then it's just like any other character")
|
||||
|
||||
T)
|
||||
((EQ (\SYNCODE \RDTBLSA (CHARCODE %]))
|
||||
RIGHTBRACKET.RC)
|
||||
|
||||
(* ;; "Line ended in paren. Change to right bracket so READLINE doesn't get confused. Only do this if ] really is right bracket!")
|
||||
|
||||
(\SETFILEPTR STREAM (IDIFFERENCE (\GETFILEPTR
|
||||
STREAM)
|
||||
(STREAMBYTESPERCHAR
|
||||
STREAM)))
|
||||
(BOUTCCODE STREAM (CHARCODE %]))
|
||||
(* ;; "Line ended in paren. Change to right bracket so READLINE doesn't get confused. Only do this if ] really is right bracket!")
|
||||
|
||||
(\BACKCCODE STREAM)
|
||||
(\OUTCHAR STREAM (CHARCODE %]))
|
||||
NIL)))
|
||||
T))
|
||||
((%) %])
|
||||
NIL)
|
||||
T)) (* ;
|
||||
"Print FINALCHAR unless terminator was EOL and line already ended in a closing paren or bracket")
|
||||
|
||||
(BOUTCCODE STREAM FINALCHAR)))
|
||||
(\OUTCHAR STREAM FINALCHAR)))
|
||||
(\SETEOFPTR STREAM (\GETFILEPTR STREAM))
|
||||
(\SETFILEPTR STREAM 0)
|
||||
(COND
|
||||
(DONTREAD (* ;
|
||||
"STREAM = \LINEBUF.OFD and caller will take care of reading buf")
|
||||
|
||||
(AND (EQ STREAM \LINEBUF.OFD)
|
||||
(replace (LINEBUFFER LINEBUFSTATE) of STREAM with READING.LBS))
|
||||
T)
|
||||
(T (* ;
|
||||
"Read from buffer until it's empty")
|
||||
|
||||
(PROG1 (bind TERM while [AND (SKIPSEPRS STREAM)
|
||||
(SETQ TERM (NLSETQ (READ STREAM]
|
||||
collect (CAR TERM))
|
||||
(\SETFILEPTR STREAM 0) (* ;
|
||||
(\SETFILEPTR STREAM 0) (* ;
|
||||
"Now clear the stream so nobody reads extra garbage after us")
|
||||
|
||||
(\SETEOFPTR STREAM 0])
|
||||
(\SETEOFPTR STREAM 0))])
|
||||
)
|
||||
|
||||
|
||||
@@ -5336,7 +5323,7 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(T (GIVE.TTY.PROCESS WINDOW])
|
||||
|
||||
(TTYINREADP
|
||||
[LAMBDA (FLG) (* ; "Edited 14-Apr-87 00:25 by bvm:")
|
||||
[LAMBDA (FLG) (* ; "Edited 27-Aug-2021 16:49 by rmk:")
|
||||
|
||||
(* ;;; "Intended to replace LISPXREADP. Does the right thing when READBUF has just a <cr> in it")
|
||||
|
||||
@@ -5345,7 +5332,7 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
HISTSTR0)
|
||||
FLG))
|
||||
((NOT (LINEBUFFER-EOFP \LINEBUF.OFD))
|
||||
(OR FLG (NEQ (PEEKBINCCODE \LINEBUF.OFD)
|
||||
(OR FLG (NEQ (\PEEKCCODE \LINEBUF.OFD)
|
||||
(CHARCODE EOL])
|
||||
|
||||
(TTYINREAD
|
||||
@@ -5800,8 +5787,8 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
(RPAQQ TTYINMACROS (TYPEAHEAD? AT.END.OF.BUF AT.END.OF.LINE AT.START.OF.BUF AT.START.OF.LINE
|
||||
BEFOREBUF BREAK.OR.SEPRP DISPLAYTERMP EMPTY.BUFFER EMPTY.LINE EQPOS
|
||||
NEQPOS INPART ON.FIRST.LINE ON.LAST.LINE METACHARP NONMETACHARBITS
|
||||
METACHAR COMPLEXCHARP STREAMBYTESPERCHAR SPACEP TTBOUT TTNEXTCHAR
|
||||
BOUTCCODE PEEKBINCCODE BINCCODE WORDSEPRP FCHARWIDTH FIRSTCHAR))
|
||||
METACHAR COMPLEXCHARP SPACEP TTBOUT TTNEXTCHAR WORDSEPRP FCHARWIDTH
|
||||
FIRSTCHAR))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS TYPEAHEAD? MACRO (NIL (\SYSBUFP)))
|
||||
@@ -5865,12 +5852,6 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(PUTPROPS COMPLEXCHARP MACRO (= . LISTP))
|
||||
|
||||
(PUTPROPS STREAMBYTESPERCHAR MACRO ((STREAM)
|
||||
(COND
|
||||
((\RUNCODED STREAM)
|
||||
1)
|
||||
(T 2))))
|
||||
|
||||
(PUTPROPS SPACEP MACRO [(CHAR)
|
||||
(FMEMB CHAR (CHARCODE (SPACE TAB CR])
|
||||
|
||||
@@ -5886,13 +5867,6 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(PUTPROPS TTNEXTCHAR MACRO (= . CDR))
|
||||
|
||||
(PUTPROPS BOUTCCODE MACRO (OPENLAMBDA (STREAM CHAR)
|
||||
(PRINTCCODE CHAR STREAM)))
|
||||
|
||||
(PUTPROPS PEEKBINCCODE MACRO (= . PEEKCCODE))
|
||||
|
||||
(PUTPROPS BINCCODE MACRO (= . READCCODE))
|
||||
|
||||
(PUTPROPS WORDSEPRP DMACRO [OPENLAMBDA (X)
|
||||
(OR (EQ (\SYNCODE \PRIMTERMSA X)
|
||||
WORDSEPR.TC)
|
||||
@@ -6008,9 +5982,12 @@ DONTEVAL@LOAD EVAL@COMPILE
|
||||
)
|
||||
)
|
||||
|
||||
(RPAQ? DORADO.RESTORE.BUF.CODES '(194))
|
||||
|
||||
(RPAQ? TTYIN.RESTORE.BUF.CODES '(516 530))
|
||||
|
||||
(* ;; " The DORADO branch is deprecated (DORADO.RESTORE.BUF.CODES (CHARCODE (%"#B%")))")
|
||||
|
||||
|
||||
(RPAQ? TTYIN.RESTORE.BUF.CODES (CHARCODE ("Function,^D" "Function,^R")))
|
||||
|
||||
(RPAQ? TTYINBUFFER )
|
||||
|
||||
@@ -6099,62 +6076,62 @@ DONTEVAL@LOAD EVAL@COMPILE
|
||||
(PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||
2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (7706 207384 (TTYIN 7716 . 20949) (TTYIN.SETUP 20951 . 24027) (TTYIN.CLEANUP 24029 .
|
||||
24857) (TTYIN1 24859 . 51377) (TTYIN1RESTART 51379 . 52643) (TTYIN.FINISH 52645 . 62062) (
|
||||
TTYIN.BALANCE 62064 . 63190) (ADDCHAR 63192 . 65378) (TTMAKECOMPLEXCHAR 65380 . 65854) (ADDNAKEDCHAR
|
||||
65856 . 67366) (TTADDTAB 67368 . 68303) (ADJUSTLINE 68305 . 82216) (ADJUSTLINE.AND.RESTORE 82218 .
|
||||
82656) (AT.END.OF.SCREEN 82658 . 82946) (AT.END.OF.TEXT 82948 . 83403) (AUTOCR? 83405 . 83879) (
|
||||
BACKSKREAD 83881 . 88466) (BACKWARD.DELETE.TO 88468 . 88650) (BREAKLINE 88652 . 90919) (BUFTAILP 90921
|
||||
. 91239) (CHECK.MARGIN 91241 . 91864) (CLEAR.LINE? 91866 . 92159) (CURRENT.WORD 92161 . 94561) (
|
||||
DELETE.TO.END 94563 . 95282) (DELETELINE 95284 . 98241) (DELETETO 98243 . 100065) (DELETETO1 100067 .
|
||||
101410) (DO.EDIT.COMMAND 101412 . 118731) (DO.EDIT.PP 118733 . 121395) (TTDOTABS 121397 . 122767) (
|
||||
EDITCOLUMN 122769 . 123225) (EDITNUMBERP 123227 . 123458) (END.DELETE.MODE 123460 . 123977) (ENDREAD?
|
||||
123979 . 126414) (FIND.LINE 126416 . 127952) (FIND.LINE.BREAK 127954 . 128624) (FIND.MATCHING.QUOTE
|
||||
128626 . 129471) (FIND.NEXT.WORD 129473 . 130852) (FIND.NON.SPACE 130854 . 131127) (FIND.START.OF.WORD
|
||||
131129 . 131492) (FORWARD.DELETE.TO 131494 . 133716) (GO.TO.ADDRESSING 133718 . 134674) (
|
||||
GO.TO.FREELINE 134676 . 135257) (GO.TO.RELATIVE 135259 . 136039) (INIT.CURSOR 136041 . 136938) (
|
||||
INSERT.NODE 136940 . 137462) (INSERTLINE 137464 . 138968) (KILL.LINES 138970 . 139508) (KILLSEGMENT
|
||||
139510 . 140633) (L-CASECODE 140635 . 140796) (MOVE.BACK.TO 140798 . 141027) (MOVE.FORWARD.TO 141029
|
||||
. 141450) (MOVE.TO.LINE 141452 . 142367) (MOVE.TO.NEXT.LINE 142369 . 142639) (MOVE.TO.START.OF.WORD
|
||||
142641 . 143405) (MOVE.TO.WHEREVER 143407 . 143630) (NTH.COLUMN.OF 143632 . 143963) (
|
||||
NTH.RELATIVE.COLUMN.OF 143965 . 145265) (OVERFLOW? 145267 . 146215) (OVERFLOWLINE? 146217 . 146543) (
|
||||
PREVLINE 146545 . 147725) (PREVWORD 147727 . 149868) (PROPERTAILP 149870 . 150077) (READFROMBUF 150079
|
||||
. 152668) (RENUMBER.LINES 152670 . 153063) (RESTORE.CURSOR 153065 . 153219) (RESTOREBUF 153221 .
|
||||
155405) (RETYPE.BUFFER 155407 . 157670) (SAVE.CURSOR 157672 . 157844) (SCANBACK 157846 . 159204) (
|
||||
SCANFORWARD 159206 . 160074) (SCRATCHCONS 160076 . 160678) (SEGMENT.LENGTH 160680 . 161216) (
|
||||
SEGMENT.BIT.LENGTH 161218 . 161825) (SETLASTC 161827 . 162124) (SETTAIL? 162126 . 162942) (
|
||||
SHOW.MATCHING.PAREN 162944 . 165444) (SKIP/ZAP 165446 . 167925) (START.NEW.LINE 167927 . 168259) (
|
||||
START.OF.PARAGRAPH? 168261 . 168642) (TTADJUSTWORD 168644 . 169818) (TTBIN 169820 . 171026) (
|
||||
TTBITWIDTH 171028 . 171177) (TTCRLF 171179 . 171386) (TTCRLF.ACCOUNT 171388 . 172028) (TTDELETECHAR
|
||||
172030 . 173174) (TTDELETELINE 173176 . 175124) (TTDELETEWORD 175126 . 175794) (TTECHO.TO.FILE 175796
|
||||
. 179344) (TTGIVEHELP 179346 . 180611) (TTGIVEHELP1 180613 . 181195) (TTGIVEHELP2 181197 . 181892) (
|
||||
TTLASTLINE 181894 . 182262) (TTLOADBUF 182264 . 185778) (TTNEXTLINE 185780 . 186100) (TTNEXTNODE
|
||||
186102 . 186341) (TTNLEFT 186343 . 187570) (TTNTH 187572 . 188031) (TTNTHLINE 188033 . 188565) (
|
||||
TTPRIN1 188567 . 192380) (TTPRINSPACE 192382 . 192775) (TTPRIN1COMMENT 192777 . 193101) (TTPRIN2
|
||||
193103 . 195422) (TTPROMPTCHAR 195424 . 196320) (TTRUBOUT 196322 . 197285) (TTUNREADBUF 197287 .
|
||||
197696) (TTWAITFORINPUT 197698 . 201906) (TTYINSTRING 201908 . 202867) (TYPE.BUFFER 202869 . 204621) (
|
||||
U-CASECODE 204623 . 204782) (U/L-CASE 204784 . 207382)) (207539 217252 (TTRATOM 207549 . 207993) (
|
||||
TTREADLIST 207995 . 208362) (TTSKIPSEPR 208364 . 208738) (TTSKREAD 208740 . 213380) (TTYIN.READ 213382
|
||||
. 217250)) (217299 237343 (FIND.MATCHING.WORD 217309 . 217837) (TTCOMPLETEWORD 217839 . 232267) (
|
||||
WORD.MATCHES.BUFFER 232269 . 233829) (TTYIN.SHOW.?ALTERNATIVES 233831 . 237341)) (237377 255687 (
|
||||
DO?CMD 237387 . 243289) (TTYIN.PRINTARGS 243291 . 254149) (TTYIN.READ?=ARGS 254151 . 254932) (
|
||||
DO?CMD.ERRORHANDLER 254934 . 255685)) (255721 263794 (BEEP 255731 . 255906) (BITBLT.DELETE 255908 .
|
||||
256555) (BITBLT.ERASE 256557 . 256742) (BITBLT.INSERT 256744 . 257055) (DO.CRLF 257057 . 257376) (
|
||||
DO.DELETE.LINES 257378 . 258422) (DO.INSERT.LINE 258424 . 260358) (DO.LF 260360 . 260526) (
|
||||
ERASE.TO.END.OF.LINE 260528 . 260853) (ERASE.TO.END.OF.PAGE 260855 . 261460) (INSERT.TEXT 261462 .
|
||||
261966) (TTDELSECTION 261968 . 262266) (TTADJUSTWIDTH 262268 . 263132) (TTINSERTSECTION 263134 .
|
||||
263473) (TTSETCURSOR 263475 . 263792)) (263829 268806 (TTYINBUFFERDEVICE 263839 . 265155) (
|
||||
TTYINBUFFERSTREAM 265157 . 265919) (TTYINBUFFERBIN 265921 . 266457) (TTYINBUFFERPEEK 266459 . 266937)
|
||||
(TTYINBUFFERREADP 266939 . 267194) (TTYINBUFFEREOFP 267196 . 267448) (TTYINBUFFERBACKPTR 267450 .
|
||||
268002) (TTYINWORDRDTBL 268004 . 268804)) (268967 294524 (DO.MOUSE 268977 . 271734) (
|
||||
DO.SHIFTED.SELECTION 271736 . 282175) (COPY.SEGMENT 282177 . 282381) (DELETE.LONG.SEGMENT 282383 .
|
||||
282742) (DELETE.LONG.SEGMENT1 282744 . 285220) (INVERT.LONG.SEGMENT 285222 . 286251) (INVERT.SEGMENT
|
||||
286253 . 287768) (BRACKET.CURRENT.WORD 287770 . 289304) (TTBEFOREPOS 289306 . 290036) (TTNEXTPOS
|
||||
290038 . 290746) (TTRACKMOUSE 290748 . 294522)) (294668 299924 (SETREADFN 294678 . 295156) (
|
||||
TTYINENTRYFN 295158 . 295583) (TTYINREADP 295585 . 296050) (TTYINREAD 296052 . 297446) (TTYINFIX
|
||||
297448 . 298647) (CHARMACRO? 298649 . 299216) (TTYINMETA 299218 . 299346) (TTYIN.LASTINPUT 299348 .
|
||||
299922)) (299925 308194 (TTYINEDIT 299935 . 302052) (SIMPLETEXTEDIT 302054 . 305098) (
|
||||
SET.TTYINEDIT.WINDOW 305100 . 306251) (TTYIN.PPTOFILE 306253 . 308192)) (308252 308429 (
|
||||
MAKE-TTSCRATCHFILE 308262 . 308427)) (308576 309709 (TTYIN.SCRATCHFILE 308586 . 309032) (\TTYIN.RPEOF
|
||||
309034 . 309707)) (309921 313554 (TTYINPROMPTFORWORD 309931 . 313552)))))
|
||||
(FILEMAP (NIL (7803 207838 (TTYIN 7813 . 21046) (TTYIN.SETUP 21048 . 24124) (TTYIN.CLEANUP 24126 .
|
||||
24954) (TTYIN1 24956 . 51840) (TTYIN1RESTART 51842 . 53106) (TTYIN.FINISH 53108 . 62525) (
|
||||
TTYIN.BALANCE 62527 . 63653) (ADDCHAR 63655 . 65841) (TTMAKECOMPLEXCHAR 65843 . 66317) (ADDNAKEDCHAR
|
||||
66319 . 67829) (TTADDTAB 67831 . 68766) (ADJUSTLINE 68768 . 82679) (ADJUSTLINE.AND.RESTORE 82681 .
|
||||
83119) (AT.END.OF.SCREEN 83121 . 83409) (AT.END.OF.TEXT 83411 . 83866) (AUTOCR? 83868 . 84342) (
|
||||
BACKSKREAD 84344 . 88929) (BACKWARD.DELETE.TO 88931 . 89113) (BREAKLINE 89115 . 91382) (BUFTAILP 91384
|
||||
. 91702) (CHECK.MARGIN 91704 . 92327) (CLEAR.LINE? 92329 . 92622) (CURRENT.WORD 92624 . 95024) (
|
||||
DELETE.TO.END 95026 . 95745) (DELETELINE 95747 . 98704) (DELETETO 98706 . 100528) (DELETETO1 100530 .
|
||||
101873) (DO.EDIT.COMMAND 101875 . 119194) (DO.EDIT.PP 119196 . 121858) (TTDOTABS 121860 . 123230) (
|
||||
EDITCOLUMN 123232 . 123688) (EDITNUMBERP 123690 . 123921) (END.DELETE.MODE 123923 . 124440) (ENDREAD?
|
||||
124442 . 126877) (FIND.LINE 126879 . 128415) (FIND.LINE.BREAK 128417 . 129087) (FIND.MATCHING.QUOTE
|
||||
129089 . 129934) (FIND.NEXT.WORD 129936 . 131315) (FIND.NON.SPACE 131317 . 131590) (FIND.START.OF.WORD
|
||||
131592 . 131955) (FORWARD.DELETE.TO 131957 . 134179) (GO.TO.ADDRESSING 134181 . 135137) (
|
||||
GO.TO.FREELINE 135139 . 135720) (GO.TO.RELATIVE 135722 . 136502) (INIT.CURSOR 136504 . 137401) (
|
||||
INSERT.NODE 137403 . 137925) (INSERTLINE 137927 . 139431) (KILL.LINES 139433 . 139971) (KILLSEGMENT
|
||||
139973 . 141096) (L-CASECODE 141098 . 141259) (MOVE.BACK.TO 141261 . 141490) (MOVE.FORWARD.TO 141492
|
||||
. 141913) (MOVE.TO.LINE 141915 . 142830) (MOVE.TO.NEXT.LINE 142832 . 143102) (MOVE.TO.START.OF.WORD
|
||||
143104 . 143868) (MOVE.TO.WHEREVER 143870 . 144093) (NTH.COLUMN.OF 144095 . 144426) (
|
||||
NTH.RELATIVE.COLUMN.OF 144428 . 145728) (OVERFLOW? 145730 . 146678) (OVERFLOWLINE? 146680 . 147006) (
|
||||
PREVLINE 147008 . 148188) (PREVWORD 148190 . 150331) (PROPERTAILP 150333 . 150540) (READFROMBUF 150542
|
||||
. 153131) (RENUMBER.LINES 153133 . 153526) (RESTORE.CURSOR 153528 . 153682) (RESTOREBUF 153684 .
|
||||
155868) (RETYPE.BUFFER 155870 . 158133) (SAVE.CURSOR 158135 . 158307) (SCANBACK 158309 . 159667) (
|
||||
SCANFORWARD 159669 . 160537) (SCRATCHCONS 160539 . 161141) (SEGMENT.LENGTH 161143 . 161679) (
|
||||
SEGMENT.BIT.LENGTH 161681 . 162288) (SETLASTC 162290 . 162587) (SETTAIL? 162589 . 163405) (
|
||||
SHOW.MATCHING.PAREN 163407 . 165907) (SKIP/ZAP 165909 . 168388) (START.NEW.LINE 168390 . 168722) (
|
||||
START.OF.PARAGRAPH? 168724 . 169105) (TTADJUSTWORD 169107 . 170281) (TTBIN 170283 . 171489) (
|
||||
TTBITWIDTH 171491 . 171640) (TTCRLF 171642 . 171849) (TTCRLF.ACCOUNT 171851 . 172491) (TTDELETECHAR
|
||||
172493 . 173637) (TTDELETELINE 173639 . 175587) (TTDELETEWORD 175589 . 176257) (TTECHO.TO.FILE 176259
|
||||
. 179818) (TTGIVEHELP 179820 . 181085) (TTGIVEHELP1 181087 . 181669) (TTGIVEHELP2 181671 . 182366) (
|
||||
TTLASTLINE 182368 . 182736) (TTLOADBUF 182738 . 186232) (TTNEXTLINE 186234 . 186554) (TTNEXTNODE
|
||||
186556 . 186795) (TTNLEFT 186797 . 188024) (TTNTH 188026 . 188485) (TTNTHLINE 188487 . 189019) (
|
||||
TTPRIN1 189021 . 192834) (TTPRINSPACE 192836 . 193229) (TTPRIN1COMMENT 193231 . 193555) (TTPRIN2
|
||||
193557 . 195876) (TTPROMPTCHAR 195878 . 196774) (TTRUBOUT 196776 . 197739) (TTUNREADBUF 197741 .
|
||||
198150) (TTWAITFORINPUT 198152 . 202360) (TTYINSTRING 202362 . 203321) (TYPE.BUFFER 203323 . 205075) (
|
||||
U-CASECODE 205077 . 205236) (U/L-CASE 205238 . 207836)) (207993 217352 (TTRATOM 208003 . 208447) (
|
||||
TTREADLIST 208449 . 208816) (TTSKIPSEPR 208818 . 209192) (TTSKREAD 209194 . 213834) (TTYIN.READ 213836
|
||||
. 217350)) (217399 237443 (FIND.MATCHING.WORD 217409 . 217937) (TTCOMPLETEWORD 217939 . 232367) (
|
||||
WORD.MATCHES.BUFFER 232369 . 233929) (TTYIN.SHOW.?ALTERNATIVES 233931 . 237441)) (237477 255787 (
|
||||
DO?CMD 237487 . 243389) (TTYIN.PRINTARGS 243391 . 254249) (TTYIN.READ?=ARGS 254251 . 255032) (
|
||||
DO?CMD.ERRORHANDLER 255034 . 255785)) (255821 263894 (BEEP 255831 . 256006) (BITBLT.DELETE 256008 .
|
||||
256655) (BITBLT.ERASE 256657 . 256842) (BITBLT.INSERT 256844 . 257155) (DO.CRLF 257157 . 257476) (
|
||||
DO.DELETE.LINES 257478 . 258522) (DO.INSERT.LINE 258524 . 260458) (DO.LF 260460 . 260626) (
|
||||
ERASE.TO.END.OF.LINE 260628 . 260953) (ERASE.TO.END.OF.PAGE 260955 . 261560) (INSERT.TEXT 261562 .
|
||||
262066) (TTDELSECTION 262068 . 262366) (TTADJUSTWIDTH 262368 . 263232) (TTINSERTSECTION 263234 .
|
||||
263573) (TTSETCURSOR 263575 . 263892)) (263929 268906 (TTYINBUFFERDEVICE 263939 . 265255) (
|
||||
TTYINBUFFERSTREAM 265257 . 266019) (TTYINBUFFERBIN 266021 . 266557) (TTYINBUFFERPEEK 266559 . 267037)
|
||||
(TTYINBUFFERREADP 267039 . 267294) (TTYINBUFFEREOFP 267296 . 267548) (TTYINBUFFERBACKPTR 267550 .
|
||||
268102) (TTYINWORDRDTBL 268104 . 268904)) (269067 294624 (DO.MOUSE 269077 . 271834) (
|
||||
DO.SHIFTED.SELECTION 271836 . 282275) (COPY.SEGMENT 282277 . 282481) (DELETE.LONG.SEGMENT 282483 .
|
||||
282842) (DELETE.LONG.SEGMENT1 282844 . 285320) (INVERT.LONG.SEGMENT 285322 . 286351) (INVERT.SEGMENT
|
||||
286353 . 287868) (BRACKET.CURRENT.WORD 287870 . 289404) (TTBEFOREPOS 289406 . 290136) (TTNEXTPOS
|
||||
290138 . 290846) (TTRACKMOUSE 290848 . 294622)) (294768 300023 (SETREADFN 294778 . 295256) (
|
||||
TTYINENTRYFN 295258 . 295683) (TTYINREADP 295685 . 296149) (TTYINREAD 296151 . 297545) (TTYINFIX
|
||||
297547 . 298746) (CHARMACRO? 298748 . 299315) (TTYINMETA 299317 . 299445) (TTYIN.LASTINPUT 299447 .
|
||||
300021)) (300024 308293 (TTYINEDIT 300034 . 302151) (SIMPLETEXTEDIT 302153 . 305197) (
|
||||
SET.TTYINEDIT.WINDOW 305199 . 306350) (TTYIN.PPTOFILE 306352 . 308291)) (308351 308528 (
|
||||
MAKE-TTSCRATCHFILE 308361 . 308526)) (308675 309808 (TTYIN.SCRATCHFILE 308685 . 309131) (\TTYIN.RPEOF
|
||||
309133 . 309806)) (310020 313653 (TTYINPROMPTFORWORD 310030 . 313651)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
46
sources/UFS
46
sources/UFS
@@ -1,10 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "21-Apr-2021 11:36:54" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;5 69271
|
||||
(FILECREATED " 5-Sep-2021 08:25:20" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;2 69282
|
||||
|
||||
changes to%: (FNS \UFSeol)
|
||||
changes to%: (FNS \UFS.CREATE.DEVICE)
|
||||
|
||||
previous date%: "20-Apr-2021 12:11:36"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;4)
|
||||
previous date%: "21-Apr-2021 11:36:54"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -876,23 +876,23 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
|
||||
(PUTPROPS UFS COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1991 1992 1993 1994 1995 2000 2021
|
||||
))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (8248 9801 (\UFSCreateDevice 8258 . 8623) (\UFS.CREATE.DEVICE 8625 . 9481) (
|
||||
\UFSOpenDevice 9483 . 9660) (\UFSCloseDevice 9662 . 9799)) (13962 41872 (\UFSOpenFile 13972 . 17266) (
|
||||
\UFS.OPENP 17268 . 17765) (\UFS.RECOGNIZE.FILE 17767 . 18520) (\UFS.DIRECTORY.NAME 18522 . 19265) (
|
||||
\UFSCloseFile 19267 . 20243) (\UFSGetFileName 20245 . 20444) (\UFSDeleteFile 20446 . 20986) (
|
||||
\UFSRenameFile 20988 . 22153) (\UFSReadPages 22155 . 23290) (\UFSWritePages 23292 . 24512) (
|
||||
\UFSTruncateFile 24514 . 26011) (\UFSDirectoryNameP 26013 . 27067) (\UFSEventFn 27069 . 27731) (
|
||||
\UFSGetFileInfo 27733 . 30015) (\UFS.CREATE.PROPS 30017 . 30370) (\UFSSetFileInfo 30372 . 31601) (
|
||||
\UFSGenerateFiles 31603 . 34315) (\UFS.NEXTFILEFN 34317 . 38460) (\UFS.FILEINFOFN 38462 . 39911) (
|
||||
\UFS.VALID.PROPP 39913 . 40205) (\UFS.REGISTER.GFS 40207 . 40462) (\UFS.UNREGISTER.GFS 40464 . 41047)
|
||||
(\UFS.ABORT.DIRECTORY 41049 . 41397) (\UFS.ABORT.CL-DIRECTORY 41399 . 41686) (\UFS.CLEANUP.GFS.TABLE
|
||||
41688 . 41870)) (41907 48591 (\UFSMakeUnixFormatName 41917 . 42938) (\UFSParseNameString 42940 . 43314
|
||||
) (\UFSParse-Directory 43316 . 43857) (\UFS.PARSE.BODY 43859 . 44404) (\UFS.ADJUST.HOST 44406 . 44565)
|
||||
(\UFS.FULLNAME 44567 . 45775) (\UFS.ADD.HOST.FIELD 45777 . 46137) (\UFS.REMOVE.HOST.FIELD 46139 .
|
||||
47809) (\UFS.HANDLE.RELATIVEDIRECTORY 47811 . 48589)) (49407 50020 (CHDIR 49417 . 50018)) (50092 51078
|
||||
(\DEVICEFILE.EOSERROR 50102 . 51076)) (51151 52388 (\UNVISIBLE.PAGED.REVALIDATEFILELST 51161 . 52006)
|
||||
(\UNVISIBLE.FLUSH.OPEN.STREAMS 52008 . 52386)) (52421 54047 (\UFSError 52431 . 54045)) (54091 56338 (
|
||||
\UFSGetFileType 54101 . 54702) (\UFSSetFileType 54704 . 55133) (\UFSeol 55135 . 56336)) (65950 67074 (
|
||||
\UFSGetPrintFileType 65960 . 66372) (\UFSGetFileTypeConfirm 66374 . 66822) (\UFSPrintTypeMenu 66824 .
|
||||
67072)) (67104 68852 (\UFStoOtherCopyMess 67114 . 68105) (\UFStoOtherRenameMess 68107 . 68850)))))
|
||||
(FILEMAP (NIL (8259 9812 (\UFSCreateDevice 8269 . 8634) (\UFS.CREATE.DEVICE 8636 . 9492) (
|
||||
\UFSOpenDevice 9494 . 9671) (\UFSCloseDevice 9673 . 9810)) (13973 41883 (\UFSOpenFile 13983 . 17277) (
|
||||
\UFS.OPENP 17279 . 17776) (\UFS.RECOGNIZE.FILE 17778 . 18531) (\UFS.DIRECTORY.NAME 18533 . 19276) (
|
||||
\UFSCloseFile 19278 . 20254) (\UFSGetFileName 20256 . 20455) (\UFSDeleteFile 20457 . 20997) (
|
||||
\UFSRenameFile 20999 . 22164) (\UFSReadPages 22166 . 23301) (\UFSWritePages 23303 . 24523) (
|
||||
\UFSTruncateFile 24525 . 26022) (\UFSDirectoryNameP 26024 . 27078) (\UFSEventFn 27080 . 27742) (
|
||||
\UFSGetFileInfo 27744 . 30026) (\UFS.CREATE.PROPS 30028 . 30381) (\UFSSetFileInfo 30383 . 31612) (
|
||||
\UFSGenerateFiles 31614 . 34326) (\UFS.NEXTFILEFN 34328 . 38471) (\UFS.FILEINFOFN 38473 . 39922) (
|
||||
\UFS.VALID.PROPP 39924 . 40216) (\UFS.REGISTER.GFS 40218 . 40473) (\UFS.UNREGISTER.GFS 40475 . 41058)
|
||||
(\UFS.ABORT.DIRECTORY 41060 . 41408) (\UFS.ABORT.CL-DIRECTORY 41410 . 41697) (\UFS.CLEANUP.GFS.TABLE
|
||||
41699 . 41881)) (41918 48602 (\UFSMakeUnixFormatName 41928 . 42949) (\UFSParseNameString 42951 . 43325
|
||||
) (\UFSParse-Directory 43327 . 43868) (\UFS.PARSE.BODY 43870 . 44415) (\UFS.ADJUST.HOST 44417 . 44576)
|
||||
(\UFS.FULLNAME 44578 . 45786) (\UFS.ADD.HOST.FIELD 45788 . 46148) (\UFS.REMOVE.HOST.FIELD 46150 .
|
||||
47820) (\UFS.HANDLE.RELATIVEDIRECTORY 47822 . 48600)) (49418 50031 (CHDIR 49428 . 50029)) (50103 51089
|
||||
(\DEVICEFILE.EOSERROR 50113 . 51087)) (51162 52399 (\UNVISIBLE.PAGED.REVALIDATEFILELST 51172 . 52017)
|
||||
(\UNVISIBLE.FLUSH.OPEN.STREAMS 52019 . 52397)) (52432 54058 (\UFSError 52442 . 54056)) (54102 56349 (
|
||||
\UFSGetFileType 54112 . 54713) (\UFSSetFileType 54715 . 55144) (\UFSeol 55146 . 56347)) (65961 67085 (
|
||||
\UFSGetPrintFileType 65971 . 66383) (\UFSGetFileTypeConfirm 66385 . 66833) (\UFSPrintTypeMenu 66835 .
|
||||
67083)) (67115 68863 (\UFStoOtherCopyMess 67125 . 68116) (\UFStoOtherRenameMess 68118 . 68861)))))
|
||||
STOP
|
||||
|
||||
BIN
sources/UFS.LCOM
BIN
sources/UFS.LCOM
Binary file not shown.
457
sources/UNIXCOMM
Normal file
457
sources/UNIXCOMM
Normal file
@@ -0,0 +1,457 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 5-Sep-2021 08:25:13"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNIXCOMM.;1 19779
|
||||
|
||||
changes to%: (FNS INITIALIZE-NEW-SHELL-DEVICE INITIALIZE-SHELL-DEVICE)
|
||||
|
||||
previous date%: "25-Apr-2018 07:31:56"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1988-1990, 2018, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT UNIXCOMMCOMS)
|
||||
|
||||
(RPAQQ UNIXCOMMCOMS
|
||||
[
|
||||
(* ;; "streams to UNIX processes & pseudo terminals")
|
||||
|
||||
|
||||
(* ;; "this stuff should really be implemented in terms of {SHELL} and {PTY} devices")
|
||||
|
||||
(COMS (* ; "Forking stuff")
|
||||
(FNS FORK-SHELL FORK-UNIX UNIX-KILL UNIX-WRITE CREATE-SHELL-STREAM
|
||||
CREATE-PROCESS-STREAM UNIXCOMM-AROUNDEXITFN))
|
||||
[COMS (* ; "Operations on the shell device")
|
||||
(FNS INITIALIZE-NEW-SHELL-DEVICE UNIX-GET-NEXT-BUFFER UNIX-BACKFILEPTR-NEW
|
||||
UNIX-STREAM-EOFP-NEW UNIX-STREAM-OUT UNIX-STREAM-CLOSE)
|
||||
(GLOBALVARS *NEW-SHELL-DEVICE*)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-NEW-SHELL-DEVICE))
|
||||
(ADDVARS (AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN]
|
||||
(COMS (* ;
|
||||
"Stuff for direct manipulation of Unix sockets")
|
||||
(FNS CREATE-UNIX-SOCKET-STREAM ACCEPT-UNIX-SOCKET-STREAM))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-CHANNEL)
|
||||
(P (CHECKIMPORTS '(FILEIO LLSUBRS)
|
||||
T)))
|
||||
[COMS
|
||||
(* ;; "Obsolete stuff. This is for pre-Medley1.2, where there wasn't support for buffered input on the shell device")
|
||||
|
||||
(FNS UNIX-BACKFILEPTR UNIX-READ INITIALIZE-SHELL-DEVICE UNIX-STREAM-IN UNIX-STREAM-EOFP
|
||||
UNIX-STREAM-PEEK)
|
||||
(GLOBALVARS *SHELL-DEVICE*)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-PEEKEDCHAR UNIX-LASTCHAR))
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-SHELL-DEVICE]
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
|
||||
|
||||
|
||||
(* ;; "streams to UNIX processes & pseudo terminals")
|
||||
|
||||
|
||||
|
||||
|
||||
(* ;; "this stuff should really be implemented in terms of {SHELL} and {PTY} devices")
|
||||
|
||||
|
||||
|
||||
|
||||
(* ; "Forking stuff")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(FORK-SHELL
|
||||
[LAMBDA (TERMTYPE COMMAND) (* ; "Edited 14-Feb-90 14:27 by bvm")
|
||||
(if (SUBRCALL UNIX-HANDLECOMM 8)
|
||||
then (* ;
|
||||
"Yes, lde supports this new version")
|
||||
[SUBRCALL UNIX-HANDLECOMM 11 (if (NULL TERMTYPE)
|
||||
then ""
|
||||
elseif (TYPEP TERMTYPE 'ONED-ARRAY)
|
||||
then TERMTYPE
|
||||
else (\DTEST (LISP-TO-UNIX-TERMTYPE TERMTYPE)
|
||||
'ONED-ARRAY))
|
||||
(if (NULL COMMAND)
|
||||
then ""
|
||||
else (\DTEST COMMAND 'ONED-ARRAY]
|
||||
elseif COMMAND
|
||||
then (* ;
|
||||
"have to use a different old call")
|
||||
(FORK-UNIX COMMAND)
|
||||
else (SUBRCALL UNIX-HANDLECOMM 4])
|
||||
|
||||
(FORK-UNIX
|
||||
[LAMBDA (STR) (* ; "Edited 25-May-88 15:47 by drc:")
|
||||
(SUBRCALL UNIX-HANDLECOMM 0 (\DTEST STR 'ONED-ARRAY])
|
||||
|
||||
(UNIX-KILL
|
||||
[LAMBDA (CONN) (* ; "Edited 25-May-88 16:04 by drc:")
|
||||
(if CONN
|
||||
then (SUBRCALL UNIX-HANDLECOMM 3 CONN 0])
|
||||
|
||||
(UNIX-WRITE
|
||||
[LAMBDA (CONN VAL) (* ; "Edited 24-Sep-90 11:27 by jds")
|
||||
|
||||
(* ;; "Write a byte (VAL) to the outgoing pipe connection CONN. If the write fails for non-fatal reasons (i.e., would block), loop unitl it succeeds. If the write returns NIL (meaning total failure), pass that along to the caller.")
|
||||
|
||||
(PROG (LENGTH-WRITTEN)
|
||||
WRITE-LOOP
|
||||
[SETQ LENGTH-WRITTEN (SUBRCALL UNIX-HANDLECOMM 1 (\DTEST CONN 'SMALLP)
|
||||
(\DTEST VAL 'SMALLP]
|
||||
(COND
|
||||
((AND LENGTH-WRITTEN (IEQP 0 LENGTH-WRITTEN))
|
||||
(BLOCK)
|
||||
(GO WRITE-LOOP)))
|
||||
(RETURN LENGTH-WRITTEN])
|
||||
|
||||
(CREATE-SHELL-STREAM
|
||||
[LAMBDA (TERMTYPE COMMAND) (* ; "Edited 21-May-90 15:39 by jrb:")
|
||||
(LET ((CHAN (FORK-SHELL TERMTYPE COMMAND))
|
||||
(SHELL-DEV (if (SUBRCALL UNIX-HANDLECOMM 8)
|
||||
then (* ;
|
||||
"SUBRCALL tests that this is supported")
|
||||
*NEW-SHELL-DEVICE*
|
||||
else *SHELL-DEVICE*)))
|
||||
(COND
|
||||
(CHAN (LET ((STR (create STREAM
|
||||
ACCESS _ 'BOTH
|
||||
DEVICE _ SHELL-DEV)))
|
||||
(CL:SETF (UNIX-CHANNEL STR)
|
||||
CHAN)
|
||||
|
||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
||||
|
||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
||||
STR)
|
||||
(STREAMPROP STR 'SENDSCREENPARAMS (FUNCTION UNIX.SENDSCREENPARAMS))
|
||||
(STREAMPROP STR 'SETDISPLAYTYPE (FUNCTION UNIX.SETDISPLAYTYPE))
|
||||
STR])
|
||||
|
||||
(CREATE-PROCESS-STREAM
|
||||
[LAMBDA (COMM) (* ; "Edited 21-May-90 15:39 by jrb:")
|
||||
(LET* ((SHELL-DEV (if (SUBRCALL UNIX-HANDLECOMM 8)
|
||||
then (* ;
|
||||
"SUBRCALL tests that this is supported")
|
||||
*NEW-SHELL-DEVICE*
|
||||
else *SHELL-DEVICE*))
|
||||
(STR (create STREAM
|
||||
ACCESS _ 'BOTH
|
||||
DEVICE _ SHELL-DEV
|
||||
EOLCONVENTION _ LF.EOLC))
|
||||
(CHAN (FORK-UNIX COMM)))
|
||||
(if CHAN
|
||||
then (CL:SETF (UNIX-CHANNEL STR)
|
||||
CHAN)
|
||||
|
||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
||||
|
||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
||||
STR)
|
||||
STR
|
||||
else NIL])
|
||||
|
||||
(UNIXCOMM-AROUNDEXITFN
|
||||
[LAMBDA (EVENT) (* ; "Edited 2-Jul-90 16:35 by jrb:")
|
||||
(CASE EVENT
|
||||
((AFTERLOGOUT AFTERMAKESYS AFTERSAVEVM AFTERSYSOUT) (for STREAM
|
||||
in (fetch (FDEV OPENFILELST)
|
||||
of *SHELL-DEVICE*)
|
||||
do (CLOSEF STREAM)))
|
||||
((BEFORELOGOUT BEFOREMAKESYS BEFORESYSOUT)
|
||||
|
||||
(* ;;
|
||||
"Make sure any Unix sockets get closed here, so their file system handles get closed as well")
|
||||
|
||||
(for STREAM in (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
||||
when (EQ -3 (SUBRCALL UNIX-HANDLECOMM 14 (UNIX-CHANNEL STREAM)))
|
||||
do (CLOSEF STREAM))))])
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ; "Operations on the shell device")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(INITIALIZE-NEW-SHELL-DEVICE
|
||||
[LAMBDA NIL (* ; "Edited 12-Feb-90 17:00 by bvm")
|
||||
(SETQ *NEW-SHELL-DEVICE* (create FDEV
|
||||
FDBINABLE _ T
|
||||
NODIRECTORIES _ T
|
||||
DEVICENAME _ (FUNCTION UNIX-PTY-NEW)
|
||||
BIN _ (FUNCTION \BUFFERED.BIN)
|
||||
BOUT _ (FUNCTION UNIX-STREAM-OUT)
|
||||
PEEKBIN _ (FUNCTION \BUFFERED.PEEKBIN)
|
||||
CLOSEFILE _ (FUNCTION UNIX-STREAM-CLOSE)
|
||||
GETFILEINFO _ (FUNCTION NILL)
|
||||
SETFILEINFO _ (FUNCTION NILL)
|
||||
EOFP _ (FUNCTION UNIX-STREAM-EOFP-NEW)
|
||||
BACKFILEPTR _ (FUNCTION UNIX-BACKFILEPTR-NEW)
|
||||
GETNEXTBUFFER _ (FUNCTION UNIX-GET-NEXT-BUFFER)
|
||||
BLOCKIN _ (FUNCTION \BUFFERED.BINS])
|
||||
|
||||
(UNIX-GET-NEXT-BUFFER
|
||||
[LAMBDA (STREAM WHATFOR NOERRORFLG) (* ;
|
||||
"Edited 13-Jun-90 01:07 by mitani")
|
||||
(CASE WHATFOR
|
||||
(READ [PROG ([BUF (ffetch (STREAM CBUFPTR) of (\DTEST STREAM 'STREAM]
|
||||
(CONN (UNIX-CHANNEL STREAM))
|
||||
LEN)
|
||||
RETRY
|
||||
(BLOCK) (* ;
|
||||
"Just so other procs get to run when someone is pounding output at Chat")
|
||||
(if [AND CONN (SETQ LEN (SUBRCALL UNIX-HANDLECOMM 9 (\DTEST CONN 'SMALLP)
|
||||
(OR BUF (replace (STREAM CBUFPTR)
|
||||
of STREAM
|
||||
with (SETQ BUF
|
||||
(NCREATE 'VMEMPAGEP]
|
||||
then (if (EQ LEN T)
|
||||
then (* ;
|
||||
" no input available, but still alive")
|
||||
(if NOERRORFLG
|
||||
then (RETURN NIL)
|
||||
else (* ;
|
||||
"Called from BIN--wait and try again")
|
||||
(GO RETRY))
|
||||
else (UNINTERRUPTABLY
|
||||
(replace (STREAM COFFSET) of STREAM
|
||||
with 0)
|
||||
(replace (STREAM CBUFSIZE) of STREAM
|
||||
with LEN))
|
||||
(RETURN T))
|
||||
else (RETURN (AND (NOT NOERRORFLG)
|
||||
(\EOF.ACTION STREAM])
|
||||
(T (SHOULDNT)))])
|
||||
|
||||
(UNIX-BACKFILEPTR-NEW
|
||||
[LAMBDA (STREAM) (* ;
|
||||
"Edited 13-Jun-90 01:07 by mitani")
|
||||
(COND
|
||||
((AND (fetch (STREAM CBUFPTR) of STREAM)
|
||||
(> (fetch (STREAM COFFSET) of STREAM)
|
||||
0))
|
||||
(add (fetch (STREAM COFFSET) of STREAM)
|
||||
-1))
|
||||
(T (ERROR "Can't back up this unix Stream" STREAM])
|
||||
|
||||
(UNIX-STREAM-EOFP-NEW
|
||||
[LAMBDA (STREAM) (* ;
|
||||
"Edited 13-Jun-90 01:07 by mitani")
|
||||
|
||||
(* ;;; "true if bsp STREAM is at end of file, i.e. is at a mark")
|
||||
|
||||
(COND
|
||||
((AND (ffetch (STREAM CBUFPTR) of (\DTEST STREAM 'STREAM))
|
||||
(< (ffetch (STREAM COFFSET) of STREAM)
|
||||
(ffetch (STREAM CBUFSIZE) of STREAM)))
|
||||
NIL)
|
||||
(T (NOT (UNIX-GET-NEXT-BUFFER STREAM 'READ T])
|
||||
|
||||
(UNIX-STREAM-OUT
|
||||
[LAMBDA (STREAM CHAR) (* ; "Edited 12-Jun-90 12:58 by jrb:")
|
||||
(OR (UNIX-WRITE (UNIX-CHANNEL STREAM)
|
||||
(\DTEST CHAR 'SMALLP))
|
||||
(CL:ERROR 'XCL:STREAM-NOT-OPEN STREAM])
|
||||
|
||||
(UNIX-STREAM-CLOSE
|
||||
[LAMBDA (STREAM) (* ; "Edited 12-Aug-88 13:24 by drc:")
|
||||
(PROG1 (UNIX-KILL (UNIX-CHANNEL STREAM))
|
||||
(CL:SETF (UNIX-CHANNEL STREAM)
|
||||
NIL)
|
||||
(CL:SETF (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
||||
(REMOVE STREAM (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*))))])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS *NEW-SHELL-DEVICE*)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(INITIALIZE-NEW-SHELL-DEVICE)
|
||||
|
||||
|
||||
(ADDTOVAR AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN)
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ; "Stuff for direct manipulation of Unix sockets")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(CREATE-UNIX-SOCKET-STREAM
|
||||
[LAMBDA (PATHNAME) (* ; "Edited 29-May-90 16:23 by jrb:")
|
||||
(LET [(STR (create STREAM
|
||||
ACCESS _ 'BOTH
|
||||
DEVICE _ *NEW-SHELL-DEVICE*
|
||||
EOLCONVENTION _ LF.EOLC))
|
||||
(CHAN (SUBRCALL UNIX-HANDLECOMM 12 (\DTEST PATHNAME 'ONED-ARRAY]
|
||||
(if CHAN
|
||||
then (CL:SETF (UNIX-CHANNEL STR)
|
||||
CHAN)
|
||||
|
||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
||||
|
||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
||||
STR)
|
||||
STR
|
||||
else NIL])
|
||||
|
||||
(ACCEPT-UNIX-SOCKET-STREAM
|
||||
[LAMBDA (SOCKSTREAM) (* ; "Edited 29-May-90 16:31 by jrb:")
|
||||
(LET ((CHAN (UNIX-CHANNEL SOCKSTREAM))
|
||||
NEWCHAN)
|
||||
(SELECTQ (SETQ NEWCHAN (SUBRCALL UNIX-HANDLECOMM 13 CHAN))
|
||||
((-1 NIL)
|
||||
NEWCHAN)
|
||||
(LET ((NEWSTREAM (create STREAM
|
||||
ACCESS _ 'BOTH
|
||||
DEVICE _ *NEW-SHELL-DEVICE*
|
||||
EOLCONVENTION _ LF.EOLC)))
|
||||
(CL:SETF (UNIX-CHANNEL NEWSTREAM)
|
||||
NEWCHAN)
|
||||
|
||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
||||
|
||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
||||
NEWSTREAM)
|
||||
NEWSTREAM])
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS UNIX-CHANNEL MACRO ((STR)
|
||||
(fetch (STREAM F1) of STR)))
|
||||
)
|
||||
|
||||
|
||||
(CHECKIMPORTS '(FILEIO LLSUBRS)
|
||||
T)
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ;;
|
||||
"Obsolete stuff. This is for pre-Medley1.2, where there wasn't support for buffered input on the shell device"
|
||||
)
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(UNIX-BACKFILEPTR
|
||||
[LAMBDA (STREAM) (* ; "Edited 14-Dec-88 09:52 by bane")
|
||||
|
||||
(* ;; "The trick here is to use the existing mechanisms for UNIX-PEEKCHAR")
|
||||
|
||||
(COND
|
||||
((UNIX-PEEKEDCHAR STREAM)
|
||||
(ERROR "Can only back up one character" STREAM))
|
||||
((NOT (UNIX-LASTCHAR STREAM))
|
||||
(ERROR "Can't back up past beginning of stream" STREAM))
|
||||
(T (CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
||||
(UNIX-LASTCHAR STREAM])
|
||||
|
||||
(UNIX-READ
|
||||
[LAMBDA (STREAM NO-ERROR) (* ; "Edited 14-Dec-88 09:18 by bane")
|
||||
(LET* [(CONN (UNIX-CHANNEL STREAM))
|
||||
(CH (AND CONN (SUBRCALL UNIX-HANDLECOMM 2 (\DTEST CONN 'SMALLP)
|
||||
0]
|
||||
(COND
|
||||
((EQ CH T)
|
||||
NIL)
|
||||
[(EQ CH NIL)
|
||||
(COND
|
||||
(NO-ERROR NIL)
|
||||
(T (\EOF.ACTION STREAM]
|
||||
(T (CL:SETF (UNIX-LASTCHAR STREAM)
|
||||
CH])
|
||||
|
||||
(INITIALIZE-SHELL-DEVICE
|
||||
[LAMBDA NIL (* ; "Edited 14-Dec-88 10:45 by bane")
|
||||
(SETQ *SHELL-DEVICE* (create FDEV
|
||||
NODIRECTORIES _ T
|
||||
DEVICENAME _ 'UNIX-PTY
|
||||
BIN _ 'UNIX-STREAM-IN
|
||||
BOUT _ 'UNIX-STREAM-OUT
|
||||
PEEKBIN _ 'UNIX-STREAM-PEEK
|
||||
CLOSEFILE _ 'UNIX-STREAM-CLOSE
|
||||
GETFILEINFO _ 'NILL
|
||||
SETFILEINFO _ 'NILL
|
||||
EOFP _ 'UNIX-STREAM-EOFP
|
||||
BACKFILEPTR _ 'UNIX-BACKFILEPTR])
|
||||
|
||||
(UNIX-STREAM-IN
|
||||
[LAMBDA (STREAM) (* ; "Edited 9-May-88 15:05 by ")
|
||||
(LET (CH)
|
||||
(if (SETQ CH (UNIX-PEEKEDCHAR STREAM))
|
||||
then (CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
||||
NIL)
|
||||
else (while (NOT (SETQ CH (UNIX-READ STREAM))) do (BLOCK)))
|
||||
CH])
|
||||
|
||||
(UNIX-STREAM-EOFP
|
||||
[LAMBDA (STREAM) (* ; "Edited 2-Apr-90 11:51 by jds")
|
||||
|
||||
(* ;; "EOFP method for unix-shell streams. Notices when there are chars yet to read and doesn't set EOFP.")
|
||||
|
||||
(AND (NOT (UNIX-PEEKEDCHAR STREAM))
|
||||
(LET* [(CONN (UNIX-CHANNEL STREAM))
|
||||
(CH (AND CONN (SUBRCALL UNIX-HANDLECOMM 2 (\DTEST CONN 'SMALLP)
|
||||
0]
|
||||
(COND
|
||||
((EQ CH T)
|
||||
NIL)
|
||||
((EQ CH NIL)
|
||||
T)
|
||||
(T (CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
||||
CH)
|
||||
(CL:SETF (UNIX-LASTCHAR STREAM)
|
||||
CH)
|
||||
NIL])
|
||||
|
||||
(UNIX-STREAM-PEEK
|
||||
[LAMBDA (STREAM NO-ERROR) (* ; "Edited 24-Jun-88 15:07 by drc:")
|
||||
(OR (UNIX-PEEKEDCHAR STREAM)
|
||||
(CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
||||
(UNIX-READ STREAM NO-ERROR])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS *SHELL-DEVICE*)
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS UNIX-PEEKEDCHAR MACRO ((STR)
|
||||
(FETCH (STREAM F2) OF STR)))
|
||||
|
||||
(PUTPROPS UNIX-LASTCHAR MACRO ((STR)
|
||||
(FETCH (STREAM F3) OF STR)))
|
||||
)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(INITIALIZE-SHELL-DEVICE)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA )
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2730 8402 (FORK-SHELL 2740 . 3937) (FORK-UNIX 3939 . 4115) (UNIX-KILL 4117 . 4306) (
|
||||
UNIX-WRITE 4308 . 5019) (CREATE-SHELL-STREAM 5021 . 6337) (CREATE-PROCESS-STREAM 6339 . 7499) (
|
||||
UNIXCOMM-AROUNDEXITFN 7501 . 8400)) (8450 13438 (INITIALIZE-NEW-SHELL-DEVICE 8460 . 9553) (
|
||||
UNIX-GET-NEXT-BUFFER 9555 . 11755) (UNIX-BACKFILEPTR-NEW 11757 . 12236) (UNIX-STREAM-EOFP-NEW 12238 .
|
||||
12784) (UNIX-STREAM-OUT 12786 . 13042) (UNIX-STREAM-CLOSE 13044 . 13436)) (13694 15559 (
|
||||
CREATE-UNIX-SOCKET-STREAM 13704 . 14565) (ACCEPT-UNIX-SOCKET-STREAM 14567 . 15557)) (15916 19095 (
|
||||
UNIX-BACKFILEPTR 15926 . 16424) (UNIX-READ 16426 . 16948) (INITIALIZE-SHELL-DEVICE 16950 . 17689) (
|
||||
UNIX-STREAM-IN 17691 . 18067) (UNIX-STREAM-EOFP 18069 . 18843) (UNIX-STREAM-PEEK 18845 . 19093)))))
|
||||
STOP
|
||||
BIN
sources/UNIXCOMM.LCOM
Normal file
BIN
sources/UNIXCOMM.LCOM
Normal file
Binary file not shown.
@@ -1,13 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
(FILECREATED "17-May-90 16:13:16" |{DSK}<usr>local>lde>lispcore>sources>VANILLADISK.;2| 5292
|
||||
(FILECREATED " 5-Sep-2021 08:25:24"
|
||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;2| 5318
|
||||
|
||||
|changes| |to:| (VARS VANILLADISKCOMS)
|
||||
|changes| |to:| (FNS \\VANILLADISKINIT)
|
||||
|
||||
|previous| |date:| " 7-Apr-88 17:53:38" |{DSK}<usr>local>lde>lispcore>sources>VANILLADISK.;1|
|
||||
)
|
||||
|previous| |date:| "17-May-90 16:13:16"
|
||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;1|)
|
||||
|
||||
|
||||
; Copyright (c) 1985, 1986, 1988, 1990 by Venue & Xerox Corporation. All rights reserved.
|
||||
; Copyright (c) 1985-1986, 1988, 1990, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(PRETTYCOMPRINT VANILLADISKCOMS)
|
||||
|
||||
@@ -115,8 +116,8 @@
|
||||
|
||||
(LOCALVARS . T)
|
||||
)
|
||||
(PUTPROPS VANILLADISK COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1988 1990))
|
||||
(PUTPROPS VANILLADISK COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1988 1990 2021))
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (784 4970 (\\VANILLADISKINIT 794 . 2901) (\\VANILLAHOSTNAMEP 2903 . 4547) (
|
||||
\\VANILLAEVENTFN 4549 . 4968)))))
|
||||
(FILEMAP (NIL (805 4991 (\\VANILLADISKINIT 815 . 2922) (\\VANILLAHOSTNAMEP 2924 . 4568) (
|
||||
\\VANILLAEVENTFN 4570 . 4989)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
12
unicode/eastasia/README.TXT
Normal file
12
unicode/eastasia/README.TXT
Normal file
@@ -0,0 +1,12 @@
|
||||
EASTASIA:
|
||||
The CDROM came with CJK cross reference mappings for standards such as KSC5601,
|
||||
GB2312, JIS0208, etc. to Unicode 2.0.
|
||||
However, these particular mappings are now obsolete and have been removed as per
|
||||
this note from Unicode.org:
|
||||
The entire former contents of this directory are obsolete and have been
|
||||
moved to the OBSOLETE directory. The latest information may be found
|
||||
in the Unihan data files in the latest Unicode Character Database.
|
||||
August 1, 2001.
|
||||
The current set of mappings are available from
|
||||
https://unicode.org/Public/UNIDATA/Unihan.zip
|
||||
The format of these files is given in https://unicode.org/reports/tr38/
|
||||
@@ -1,42 +1,71 @@
|
||||
# 8859-1.TXT
|
||||
# Date: 2015-12-02 20:19:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO 8859-1 (1987) to Unicode
|
||||
# Unicode version: 1.1
|
||||
# Table version: 0.1
|
||||
# Name: ISO/IEC 8859-1:1998 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 16 January 1995
|
||||
# Authors: Tim Greenwood <greenwood@r2me2.enet.dec.com>
|
||||
# John H. Jenkins <John_Jenkins@taligent.com>
|
||||
#
|
||||
# Copyright (c) 1991-1995 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
|
||||
# No claims are made as to fitness for any particular purpose. No
|
||||
# warranties of any kind are expressed or implied. The recipient
|
||||
# agrees to determine applicability of information provided. If this
|
||||
# file has been provided on magnetic media by Unicode, Inc., the sole
|
||||
# remedy for any claim will be exchange of defective media within 90
|
||||
# days of receipt.
|
||||
#
|
||||
# Recipient is granted the right to make copies in any form for
|
||||
# internal distribution and to freely use the information supplied
|
||||
# in the creation of products supporting Unicode. Unicode, Inc.
|
||||
# specifically excludes the right to re-distribute this file directly
|
||||
# to third parties or other organizations whether for profit or not.
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO 8859-1 (1987) characters map into Unicode.
|
||||
# ISO/IEC 8859-1:1998 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO 8859-1 code (in hex as 0xXX)
|
||||
# Column #1 is the ISO/IEC 8859-1 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO 8859-1 order
|
||||
# The entries are in ISO/IEC 8859-1 order.
|
||||
#
|
||||
# Any comments or problems, contact <John_Jenkins@taligent.com>
|
||||
# Version history
|
||||
# 1.0 version: updates 0.1 version by adding mappings for all
|
||||
# control characters.
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
@@ -132,6 +161,39 @@
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x00A1 # INVERTED EXCLAMATION MARK
|
||||
0xA2 0x00A2 # CENT SIGN
|
||||
|
||||
292
unicode/iso8859/8859-10.TXT
Normal file
292
unicode/iso8859/8859-10.TXT
Normal file
@@ -0,0 +1,292 @@
|
||||
# 8859-10.TXT
|
||||
# Date: 2015-12-02 21:53:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO/IEC 8859-10:1998 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 1999 October 11 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO/IEC 8859-10:1998 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO/IEC 8859-10 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO/IEC 8859-10 order.
|
||||
#
|
||||
# Version history
|
||||
# 1.0 version new.
|
||||
# 1.1 corrected mistake in mapping of 0xA4
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x0024 # DOLLAR SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x0040 # COMMERCIAL AT
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
0x5B 0x005B # LEFT SQUARE BRACKET
|
||||
0x5C 0x005C # REVERSE SOLIDUS
|
||||
0x5D 0x005D # RIGHT SQUARE BRACKET
|
||||
0x5E 0x005E # CIRCUMFLEX ACCENT
|
||||
0x5F 0x005F # LOW LINE
|
||||
0x60 0x0060 # GRAVE ACCENT
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x007B # LEFT CURLY BRACKET
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0104 # LATIN CAPITAL LETTER A WITH OGONEK
|
||||
0xA2 0x0112 # LATIN CAPITAL LETTER E WITH MACRON
|
||||
0xA3 0x0122 # LATIN CAPITAL LETTER G WITH CEDILLA
|
||||
0xA4 0x012A # LATIN CAPITAL LETTER I WITH MACRON
|
||||
0xA5 0x0128 # LATIN CAPITAL LETTER I WITH TILDE
|
||||
0xA6 0x0136 # LATIN CAPITAL LETTER K WITH CEDILLA
|
||||
0xA7 0x00A7 # SECTION SIGN
|
||||
0xA8 0x013B # LATIN CAPITAL LETTER L WITH CEDILLA
|
||||
0xA9 0x0110 # LATIN CAPITAL LETTER D WITH STROKE
|
||||
0xAA 0x0160 # LATIN CAPITAL LETTER S WITH CARON
|
||||
0xAB 0x0166 # LATIN CAPITAL LETTER T WITH STROKE
|
||||
0xAC 0x017D # LATIN CAPITAL LETTER Z WITH CARON
|
||||
0xAD 0x00AD # SOFT HYPHEN
|
||||
0xAE 0x016A # LATIN CAPITAL LETTER U WITH MACRON
|
||||
0xAF 0x014A # LATIN CAPITAL LETTER ENG
|
||||
0xB0 0x00B0 # DEGREE SIGN
|
||||
0xB1 0x0105 # LATIN SMALL LETTER A WITH OGONEK
|
||||
0xB2 0x0113 # LATIN SMALL LETTER E WITH MACRON
|
||||
0xB3 0x0123 # LATIN SMALL LETTER G WITH CEDILLA
|
||||
0xB4 0x012B # LATIN SMALL LETTER I WITH MACRON
|
||||
0xB5 0x0129 # LATIN SMALL LETTER I WITH TILDE
|
||||
0xB6 0x0137 # LATIN SMALL LETTER K WITH CEDILLA
|
||||
0xB7 0x00B7 # MIDDLE DOT
|
||||
0xB8 0x013C # LATIN SMALL LETTER L WITH CEDILLA
|
||||
0xB9 0x0111 # LATIN SMALL LETTER D WITH STROKE
|
||||
0xBA 0x0161 # LATIN SMALL LETTER S WITH CARON
|
||||
0xBB 0x0167 # LATIN SMALL LETTER T WITH STROKE
|
||||
0xBC 0x017E # LATIN SMALL LETTER Z WITH CARON
|
||||
0xBD 0x2015 # HORIZONTAL BAR
|
||||
0xBE 0x016B # LATIN SMALL LETTER U WITH MACRON
|
||||
0xBF 0x014B # LATIN SMALL LETTER ENG
|
||||
0xC0 0x0100 # LATIN CAPITAL LETTER A WITH MACRON
|
||||
0xC1 0x00C1 # LATIN CAPITAL LETTER A WITH ACUTE
|
||||
0xC2 0x00C2 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
|
||||
0xC3 0x00C3 # LATIN CAPITAL LETTER A WITH TILDE
|
||||
0xC4 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
0xC5 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
|
||||
0xC6 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
0xC7 0x012E # LATIN CAPITAL LETTER I WITH OGONEK
|
||||
0xC8 0x010C # LATIN CAPITAL LETTER C WITH CARON
|
||||
0xC9 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
0xCA 0x0118 # LATIN CAPITAL LETTER E WITH OGONEK
|
||||
0xCB 0x00CB # LATIN CAPITAL LETTER E WITH DIAERESIS
|
||||
0xCC 0x0116 # LATIN CAPITAL LETTER E WITH DOT ABOVE
|
||||
0xCD 0x00CD # LATIN CAPITAL LETTER I WITH ACUTE
|
||||
0xCE 0x00CE # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
|
||||
0xCF 0x00CF # LATIN CAPITAL LETTER I WITH DIAERESIS
|
||||
0xD0 0x00D0 # LATIN CAPITAL LETTER ETH (Icelandic)
|
||||
0xD1 0x0145 # LATIN CAPITAL LETTER N WITH CEDILLA
|
||||
0xD2 0x014C # LATIN CAPITAL LETTER O WITH MACRON
|
||||
0xD3 0x00D3 # LATIN CAPITAL LETTER O WITH ACUTE
|
||||
0xD4 0x00D4 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
|
||||
0xD5 0x00D5 # LATIN CAPITAL LETTER O WITH TILDE
|
||||
0xD6 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
0xD7 0x0168 # LATIN CAPITAL LETTER U WITH TILDE
|
||||
0xD8 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
|
||||
0xD9 0x0172 # LATIN CAPITAL LETTER U WITH OGONEK
|
||||
0xDA 0x00DA # LATIN CAPITAL LETTER U WITH ACUTE
|
||||
0xDB 0x00DB # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
|
||||
0xDC 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
0xDD 0x00DD # LATIN CAPITAL LETTER Y WITH ACUTE
|
||||
0xDE 0x00DE # LATIN CAPITAL LETTER THORN (Icelandic)
|
||||
0xDF 0x00DF # LATIN SMALL LETTER SHARP S (German)
|
||||
0xE0 0x0101 # LATIN SMALL LETTER A WITH MACRON
|
||||
0xE1 0x00E1 # LATIN SMALL LETTER A WITH ACUTE
|
||||
0xE2 0x00E2 # LATIN SMALL LETTER A WITH CIRCUMFLEX
|
||||
0xE3 0x00E3 # LATIN SMALL LETTER A WITH TILDE
|
||||
0xE4 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
0xE5 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
|
||||
0xE6 0x00E6 # LATIN SMALL LETTER AE
|
||||
0xE7 0x012F # LATIN SMALL LETTER I WITH OGONEK
|
||||
0xE8 0x010D # LATIN SMALL LETTER C WITH CARON
|
||||
0xE9 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
0xEA 0x0119 # LATIN SMALL LETTER E WITH OGONEK
|
||||
0xEB 0x00EB # LATIN SMALL LETTER E WITH DIAERESIS
|
||||
0xEC 0x0117 # LATIN SMALL LETTER E WITH DOT ABOVE
|
||||
0xED 0x00ED # LATIN SMALL LETTER I WITH ACUTE
|
||||
0xEE 0x00EE # LATIN SMALL LETTER I WITH CIRCUMFLEX
|
||||
0xEF 0x00EF # LATIN SMALL LETTER I WITH DIAERESIS
|
||||
0xF0 0x00F0 # LATIN SMALL LETTER ETH (Icelandic)
|
||||
0xF1 0x0146 # LATIN SMALL LETTER N WITH CEDILLA
|
||||
0xF2 0x014D # LATIN SMALL LETTER O WITH MACRON
|
||||
0xF3 0x00F3 # LATIN SMALL LETTER O WITH ACUTE
|
||||
0xF4 0x00F4 # LATIN SMALL LETTER O WITH CIRCUMFLEX
|
||||
0xF5 0x00F5 # LATIN SMALL LETTER O WITH TILDE
|
||||
0xF6 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
0xF7 0x0169 # LATIN SMALL LETTER U WITH TILDE
|
||||
0xF8 0x00F8 # LATIN SMALL LETTER O WITH STROKE
|
||||
0xF9 0x0173 # LATIN SMALL LETTER U WITH OGONEK
|
||||
0xFA 0x00FA # LATIN SMALL LETTER U WITH ACUTE
|
||||
0xFB 0x00FB # LATIN SMALL LETTER U WITH CIRCUMFLEX
|
||||
0xFC 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
0xFD 0x00FD # LATIN SMALL LETTER Y WITH ACUTE
|
||||
0xFE 0x00FE # LATIN SMALL LETTER THORN (Icelandic)
|
||||
0xFF 0x0138 # LATIN SMALL LETTER KRA
|
||||
286
unicode/iso8859/8859-11.TXT
Normal file
286
unicode/iso8859/8859-11.TXT
Normal file
@@ -0,0 +1,286 @@
|
||||
# 8859-11.TXT
|
||||
# Date: 2015-12-02 21:55:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO/IEC 8859-11:2001 to Unicode
|
||||
# Unicode version: 3.2
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 2002 October 7 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO/IEC 8859-11:2001 characters map into Unicode.
|
||||
#
|
||||
# ISO/IEC 8859-11:2001 is equivalent to TIS 620-2533 (1990) with
|
||||
# the addition of 0xA0 NO-BREAK SPACE.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO/IEC 8859-11 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO/IEC 8859-11 order.
|
||||
#
|
||||
# Version history:
|
||||
# 2002 October 7 Created
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x0024 # DOLLAR SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x0040 # COMMERCIAL AT
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
0x5B 0x005B # LEFT SQUARE BRACKET
|
||||
0x5C 0x005C # REVERSE SOLIDUS
|
||||
0x5D 0x005D # RIGHT SQUARE BRACKET
|
||||
0x5E 0x005E # CIRCUMFLEX ACCENT
|
||||
0x5F 0x005F # LOW LINE
|
||||
0x60 0x0060 # GRAVE ACCENT
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x007B # LEFT CURLY BRACKET
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0E01 # THAI CHARACTER KO KAI
|
||||
0xA2 0x0E02 # THAI CHARACTER KHO KHAI
|
||||
0xA3 0x0E03 # THAI CHARACTER KHO KHUAT
|
||||
0xA4 0x0E04 # THAI CHARACTER KHO KHWAI
|
||||
0xA5 0x0E05 # THAI CHARACTER KHO KHON
|
||||
0xA6 0x0E06 # THAI CHARACTER KHO RAKHANG
|
||||
0xA7 0x0E07 # THAI CHARACTER NGO NGU
|
||||
0xA8 0x0E08 # THAI CHARACTER CHO CHAN
|
||||
0xA9 0x0E09 # THAI CHARACTER CHO CHING
|
||||
0xAA 0x0E0A # THAI CHARACTER CHO CHANG
|
||||
0xAB 0x0E0B # THAI CHARACTER SO SO
|
||||
0xAC 0x0E0C # THAI CHARACTER CHO CHOE
|
||||
0xAD 0x0E0D # THAI CHARACTER YO YING
|
||||
0xAE 0x0E0E # THAI CHARACTER DO CHADA
|
||||
0xAF 0x0E0F # THAI CHARACTER TO PATAK
|
||||
0xB0 0x0E10 # THAI CHARACTER THO THAN
|
||||
0xB1 0x0E11 # THAI CHARACTER THO NANGMONTHO
|
||||
0xB2 0x0E12 # THAI CHARACTER THO PHUTHAO
|
||||
0xB3 0x0E13 # THAI CHARACTER NO NEN
|
||||
0xB4 0x0E14 # THAI CHARACTER DO DEK
|
||||
0xB5 0x0E15 # THAI CHARACTER TO TAO
|
||||
0xB6 0x0E16 # THAI CHARACTER THO THUNG
|
||||
0xB7 0x0E17 # THAI CHARACTER THO THAHAN
|
||||
0xB8 0x0E18 # THAI CHARACTER THO THONG
|
||||
0xB9 0x0E19 # THAI CHARACTER NO NU
|
||||
0xBA 0x0E1A # THAI CHARACTER BO BAIMAI
|
||||
0xBB 0x0E1B # THAI CHARACTER PO PLA
|
||||
0xBC 0x0E1C # THAI CHARACTER PHO PHUNG
|
||||
0xBD 0x0E1D # THAI CHARACTER FO FA
|
||||
0xBE 0x0E1E # THAI CHARACTER PHO PHAN
|
||||
0xBF 0x0E1F # THAI CHARACTER FO FAN
|
||||
0xC0 0x0E20 # THAI CHARACTER PHO SAMPHAO
|
||||
0xC1 0x0E21 # THAI CHARACTER MO MA
|
||||
0xC2 0x0E22 # THAI CHARACTER YO YAK
|
||||
0xC3 0x0E23 # THAI CHARACTER RO RUA
|
||||
0xC4 0x0E24 # THAI CHARACTER RU
|
||||
0xC5 0x0E25 # THAI CHARACTER LO LING
|
||||
0xC6 0x0E26 # THAI CHARACTER LU
|
||||
0xC7 0x0E27 # THAI CHARACTER WO WAEN
|
||||
0xC8 0x0E28 # THAI CHARACTER SO SALA
|
||||
0xC9 0x0E29 # THAI CHARACTER SO RUSI
|
||||
0xCA 0x0E2A # THAI CHARACTER SO SUA
|
||||
0xCB 0x0E2B # THAI CHARACTER HO HIP
|
||||
0xCC 0x0E2C # THAI CHARACTER LO CHULA
|
||||
0xCD 0x0E2D # THAI CHARACTER O ANG
|
||||
0xCE 0x0E2E # THAI CHARACTER HO NOKHUK
|
||||
0xCF 0x0E2F # THAI CHARACTER PAIYANNOI
|
||||
0xD0 0x0E30 # THAI CHARACTER SARA A
|
||||
0xD1 0x0E31 # THAI CHARACTER MAI HAN-AKAT
|
||||
0xD2 0x0E32 # THAI CHARACTER SARA AA
|
||||
0xD3 0x0E33 # THAI CHARACTER SARA AM
|
||||
0xD4 0x0E34 # THAI CHARACTER SARA I
|
||||
0xD5 0x0E35 # THAI CHARACTER SARA II
|
||||
0xD6 0x0E36 # THAI CHARACTER SARA UE
|
||||
0xD7 0x0E37 # THAI CHARACTER SARA UEE
|
||||
0xD8 0x0E38 # THAI CHARACTER SARA U
|
||||
0xD9 0x0E39 # THAI CHARACTER SARA UU
|
||||
0xDA 0x0E3A # THAI CHARACTER PHINTHU
|
||||
0xDF 0x0E3F # THAI CURRENCY SYMBOL BAHT
|
||||
0xE0 0x0E40 # THAI CHARACTER SARA E
|
||||
0xE1 0x0E41 # THAI CHARACTER SARA AE
|
||||
0xE2 0x0E42 # THAI CHARACTER SARA O
|
||||
0xE3 0x0E43 # THAI CHARACTER SARA AI MAIMUAN
|
||||
0xE4 0x0E44 # THAI CHARACTER SARA AI MAIMALAI
|
||||
0xE5 0x0E45 # THAI CHARACTER LAKKHANGYAO
|
||||
0xE6 0x0E46 # THAI CHARACTER MAIYAMOK
|
||||
0xE7 0x0E47 # THAI CHARACTER MAITAIKHU
|
||||
0xE8 0x0E48 # THAI CHARACTER MAI EK
|
||||
0xE9 0x0E49 # THAI CHARACTER MAI THO
|
||||
0xEA 0x0E4A # THAI CHARACTER MAI TRI
|
||||
0xEB 0x0E4B # THAI CHARACTER MAI CHATTAWA
|
||||
0xEC 0x0E4C # THAI CHARACTER THANTHAKHAT
|
||||
0xED 0x0E4D # THAI CHARACTER NIKHAHIT
|
||||
0xEE 0x0E4E # THAI CHARACTER YAMAKKAN
|
||||
0xEF 0x0E4F # THAI CHARACTER FONGMAN
|
||||
0xF0 0x0E50 # THAI DIGIT ZERO
|
||||
0xF1 0x0E51 # THAI DIGIT ONE
|
||||
0xF2 0x0E52 # THAI DIGIT TWO
|
||||
0xF3 0x0E53 # THAI DIGIT THREE
|
||||
0xF4 0x0E54 # THAI DIGIT FOUR
|
||||
0xF5 0x0E55 # THAI DIGIT FIVE
|
||||
0xF6 0x0E56 # THAI DIGIT SIX
|
||||
0xF7 0x0E57 # THAI DIGIT SEVEN
|
||||
0xF8 0x0E58 # THAI DIGIT EIGHT
|
||||
0xF9 0x0E59 # THAI DIGIT NINE
|
||||
0xFA 0x0E5A # THAI CHARACTER ANGKHANKHU
|
||||
0xFB 0x0E5B # THAI CHARACTER KHOMUT
|
||||
291
unicode/iso8859/8859-13.TXT
Normal file
291
unicode/iso8859/8859-13.TXT
Normal file
@@ -0,0 +1,291 @@
|
||||
# 8859-13.TXT
|
||||
# Date: 2015-12-02 22:03:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO/IEC 8859-13:1998 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO/IEC 8859-13:1998 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO/IEC 8859-13 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO/IEC 8859-13 order.
|
||||
#
|
||||
# Version history
|
||||
# 1.0 version: created
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x0024 # DOLLAR SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x0040 # COMMERCIAL AT
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
0x5B 0x005B # LEFT SQUARE BRACKET
|
||||
0x5C 0x005C # REVERSE SOLIDUS
|
||||
0x5D 0x005D # RIGHT SQUARE BRACKET
|
||||
0x5E 0x005E # CIRCUMFLEX ACCENT
|
||||
0x5F 0x005F # LOW LINE
|
||||
0x60 0x0060 # GRAVE ACCENT
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x007B # LEFT CURLY BRACKET
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x201D # RIGHT DOUBLE QUOTATION MARK
|
||||
0xA2 0x00A2 # CENT SIGN
|
||||
0xA3 0x00A3 # POUND SIGN
|
||||
0xA4 0x00A4 # CURRENCY SIGN
|
||||
0xA5 0x201E # DOUBLE LOW-9 QUOTATION MARK
|
||||
0xA6 0x00A6 # BROKEN BAR
|
||||
0xA7 0x00A7 # SECTION SIGN
|
||||
0xA8 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
|
||||
0xA9 0x00A9 # COPYRIGHT SIGN
|
||||
0xAA 0x0156 # LATIN CAPITAL LETTER R WITH CEDILLA
|
||||
0xAB 0x00AB # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
|
||||
0xAC 0x00AC # NOT SIGN
|
||||
0xAD 0x00AD # SOFT HYPHEN
|
||||
0xAE 0x00AE # REGISTERED SIGN
|
||||
0xAF 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
0xB0 0x00B0 # DEGREE SIGN
|
||||
0xB1 0x00B1 # PLUS-MINUS SIGN
|
||||
0xB2 0x00B2 # SUPERSCRIPT TWO
|
||||
0xB3 0x00B3 # SUPERSCRIPT THREE
|
||||
0xB4 0x201C # LEFT DOUBLE QUOTATION MARK
|
||||
0xB5 0x00B5 # MICRO SIGN
|
||||
0xB6 0x00B6 # PILCROW SIGN
|
||||
0xB7 0x00B7 # MIDDLE DOT
|
||||
0xB8 0x00F8 # LATIN SMALL LETTER O WITH STROKE
|
||||
0xB9 0x00B9 # SUPERSCRIPT ONE
|
||||
0xBA 0x0157 # LATIN SMALL LETTER R WITH CEDILLA
|
||||
0xBB 0x00BB # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
|
||||
0xBC 0x00BC # VULGAR FRACTION ONE QUARTER
|
||||
0xBD 0x00BD # VULGAR FRACTION ONE HALF
|
||||
0xBE 0x00BE # VULGAR FRACTION THREE QUARTERS
|
||||
0xBF 0x00E6 # LATIN SMALL LETTER AE
|
||||
0xC0 0x0104 # LATIN CAPITAL LETTER A WITH OGONEK
|
||||
0xC1 0x012E # LATIN CAPITAL LETTER I WITH OGONEK
|
||||
0xC2 0x0100 # LATIN CAPITAL LETTER A WITH MACRON
|
||||
0xC3 0x0106 # LATIN CAPITAL LETTER C WITH ACUTE
|
||||
0xC4 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
0xC5 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
|
||||
0xC6 0x0118 # LATIN CAPITAL LETTER E WITH OGONEK
|
||||
0xC7 0x0112 # LATIN CAPITAL LETTER E WITH MACRON
|
||||
0xC8 0x010C # LATIN CAPITAL LETTER C WITH CARON
|
||||
0xC9 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
0xCA 0x0179 # LATIN CAPITAL LETTER Z WITH ACUTE
|
||||
0xCB 0x0116 # LATIN CAPITAL LETTER E WITH DOT ABOVE
|
||||
0xCC 0x0122 # LATIN CAPITAL LETTER G WITH CEDILLA
|
||||
0xCD 0x0136 # LATIN CAPITAL LETTER K WITH CEDILLA
|
||||
0xCE 0x012A # LATIN CAPITAL LETTER I WITH MACRON
|
||||
0xCF 0x013B # LATIN CAPITAL LETTER L WITH CEDILLA
|
||||
0xD0 0x0160 # LATIN CAPITAL LETTER S WITH CARON
|
||||
0xD1 0x0143 # LATIN CAPITAL LETTER N WITH ACUTE
|
||||
0xD2 0x0145 # LATIN CAPITAL LETTER N WITH CEDILLA
|
||||
0xD3 0x00D3 # LATIN CAPITAL LETTER O WITH ACUTE
|
||||
0xD4 0x014C # LATIN CAPITAL LETTER O WITH MACRON
|
||||
0xD5 0x00D5 # LATIN CAPITAL LETTER O WITH TILDE
|
||||
0xD6 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
0xD7 0x00D7 # MULTIPLICATION SIGN
|
||||
0xD8 0x0172 # LATIN CAPITAL LETTER U WITH OGONEK
|
||||
0xD9 0x0141 # LATIN CAPITAL LETTER L WITH STROKE
|
||||
0xDA 0x015A # LATIN CAPITAL LETTER S WITH ACUTE
|
||||
0xDB 0x016A # LATIN CAPITAL LETTER U WITH MACRON
|
||||
0xDC 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
0xDD 0x017B # LATIN CAPITAL LETTER Z WITH DOT ABOVE
|
||||
0xDE 0x017D # LATIN CAPITAL LETTER Z WITH CARON
|
||||
0xDF 0x00DF # LATIN SMALL LETTER SHARP S (German)
|
||||
0xE0 0x0105 # LATIN SMALL LETTER A WITH OGONEK
|
||||
0xE1 0x012F # LATIN SMALL LETTER I WITH OGONEK
|
||||
0xE2 0x0101 # LATIN SMALL LETTER A WITH MACRON
|
||||
0xE3 0x0107 # LATIN SMALL LETTER C WITH ACUTE
|
||||
0xE4 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
0xE5 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
|
||||
0xE6 0x0119 # LATIN SMALL LETTER E WITH OGONEK
|
||||
0xE7 0x0113 # LATIN SMALL LETTER E WITH MACRON
|
||||
0xE8 0x010D # LATIN SMALL LETTER C WITH CARON
|
||||
0xE9 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
0xEA 0x017A # LATIN SMALL LETTER Z WITH ACUTE
|
||||
0xEB 0x0117 # LATIN SMALL LETTER E WITH DOT ABOVE
|
||||
0xEC 0x0123 # LATIN SMALL LETTER G WITH CEDILLA
|
||||
0xED 0x0137 # LATIN SMALL LETTER K WITH CEDILLA
|
||||
0xEE 0x012B # LATIN SMALL LETTER I WITH MACRON
|
||||
0xEF 0x013C # LATIN SMALL LETTER L WITH CEDILLA
|
||||
0xF0 0x0161 # LATIN SMALL LETTER S WITH CARON
|
||||
0xF1 0x0144 # LATIN SMALL LETTER N WITH ACUTE
|
||||
0xF2 0x0146 # LATIN SMALL LETTER N WITH CEDILLA
|
||||
0xF3 0x00F3 # LATIN SMALL LETTER O WITH ACUTE
|
||||
0xF4 0x014D # LATIN SMALL LETTER O WITH MACRON
|
||||
0xF5 0x00F5 # LATIN SMALL LETTER O WITH TILDE
|
||||
0xF6 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
0xF7 0x00F7 # DIVISION SIGN
|
||||
0xF8 0x0173 # LATIN SMALL LETTER U WITH OGONEK
|
||||
0xF9 0x0142 # LATIN SMALL LETTER L WITH STROKE
|
||||
0xFA 0x015B # LATIN SMALL LETTER S WITH ACUTE
|
||||
0xFB 0x016B # LATIN SMALL LETTER U WITH MACRON
|
||||
0xFC 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
0xFD 0x017C # LATIN SMALL LETTER Z WITH DOT ABOVE
|
||||
0xFE 0x017E # LATIN SMALL LETTER Z WITH CARON
|
||||
0xFF 0x2019 # RIGHT SINGLE QUOTATION MARK
|
||||
293
unicode/iso8859/8859-14.TXT
Normal file
293
unicode/iso8859/8859-14.TXT
Normal file
@@ -0,0 +1,293 @@
|
||||
# 8859-14.TXT
|
||||
# Date: 2015-12-02 22:05:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO/IEC 8859-14:1998 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Markus Kuhn <http://www.cl.cam.ac.uk/~mgk25/>
|
||||
# Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO/IEC 8859-14:1998 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO/IEC 8859-14 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO/IEC 8859-14 order.
|
||||
#
|
||||
# Version history
|
||||
# 1.0 version: created
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x0024 # DOLLAR SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x0040 # COMMERCIAL AT
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
0x5B 0x005B # LEFT SQUARE BRACKET
|
||||
0x5C 0x005C # REVERSE SOLIDUS
|
||||
0x5D 0x005D # RIGHT SQUARE BRACKET
|
||||
0x5E 0x005E # CIRCUMFLEX ACCENT
|
||||
0x5F 0x005F # LOW LINE
|
||||
0x60 0x0060 # GRAVE ACCENT
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x007B # LEFT CURLY BRACKET
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x1E02 # LATIN CAPITAL LETTER B WITH DOT ABOVE
|
||||
0xA2 0x1E03 # LATIN SMALL LETTER B WITH DOT ABOVE
|
||||
0xA3 0x00A3 # POUND SIGN
|
||||
0xA4 0x010A # LATIN CAPITAL LETTER C WITH DOT ABOVE
|
||||
0xA5 0x010B # LATIN SMALL LETTER C WITH DOT ABOVE
|
||||
0xA6 0x1E0A # LATIN CAPITAL LETTER D WITH DOT ABOVE
|
||||
0xA7 0x00A7 # SECTION SIGN
|
||||
0xA8 0x1E80 # LATIN CAPITAL LETTER W WITH GRAVE
|
||||
0xA9 0x00A9 # COPYRIGHT SIGN
|
||||
0xAA 0x1E82 # LATIN CAPITAL LETTER W WITH ACUTE
|
||||
0xAB 0x1E0B # LATIN SMALL LETTER D WITH DOT ABOVE
|
||||
0xAC 0x1EF2 # LATIN CAPITAL LETTER Y WITH GRAVE
|
||||
0xAD 0x00AD # SOFT HYPHEN
|
||||
0xAE 0x00AE # REGISTERED SIGN
|
||||
0xAF 0x0178 # LATIN CAPITAL LETTER Y WITH DIAERESIS
|
||||
0xB0 0x1E1E # LATIN CAPITAL LETTER F WITH DOT ABOVE
|
||||
0xB1 0x1E1F # LATIN SMALL LETTER F WITH DOT ABOVE
|
||||
0xB2 0x0120 # LATIN CAPITAL LETTER G WITH DOT ABOVE
|
||||
0xB3 0x0121 # LATIN SMALL LETTER G WITH DOT ABOVE
|
||||
0xB4 0x1E40 # LATIN CAPITAL LETTER M WITH DOT ABOVE
|
||||
0xB5 0x1E41 # LATIN SMALL LETTER M WITH DOT ABOVE
|
||||
0xB6 0x00B6 # PILCROW SIGN
|
||||
0xB7 0x1E56 # LATIN CAPITAL LETTER P WITH DOT ABOVE
|
||||
0xB8 0x1E81 # LATIN SMALL LETTER W WITH GRAVE
|
||||
0xB9 0x1E57 # LATIN SMALL LETTER P WITH DOT ABOVE
|
||||
0xBA 0x1E83 # LATIN SMALL LETTER W WITH ACUTE
|
||||
0xBB 0x1E60 # LATIN CAPITAL LETTER S WITH DOT ABOVE
|
||||
0xBC 0x1EF3 # LATIN SMALL LETTER Y WITH GRAVE
|
||||
0xBD 0x1E84 # LATIN CAPITAL LETTER W WITH DIAERESIS
|
||||
0xBE 0x1E85 # LATIN SMALL LETTER W WITH DIAERESIS
|
||||
0xBF 0x1E61 # LATIN SMALL LETTER S WITH DOT ABOVE
|
||||
0xC0 0x00C0 # LATIN CAPITAL LETTER A WITH GRAVE
|
||||
0xC1 0x00C1 # LATIN CAPITAL LETTER A WITH ACUTE
|
||||
0xC2 0x00C2 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
|
||||
0xC3 0x00C3 # LATIN CAPITAL LETTER A WITH TILDE
|
||||
0xC4 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
0xC5 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
|
||||
0xC6 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
0xC7 0x00C7 # LATIN CAPITAL LETTER C WITH CEDILLA
|
||||
0xC8 0x00C8 # LATIN CAPITAL LETTER E WITH GRAVE
|
||||
0xC9 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
0xCA 0x00CA # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
|
||||
0xCB 0x00CB # LATIN CAPITAL LETTER E WITH DIAERESIS
|
||||
0xCC 0x00CC # LATIN CAPITAL LETTER I WITH GRAVE
|
||||
0xCD 0x00CD # LATIN CAPITAL LETTER I WITH ACUTE
|
||||
0xCE 0x00CE # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
|
||||
0xCF 0x00CF # LATIN CAPITAL LETTER I WITH DIAERESIS
|
||||
0xD0 0x0174 # LATIN CAPITAL LETTER W WITH CIRCUMFLEX
|
||||
0xD1 0x00D1 # LATIN CAPITAL LETTER N WITH TILDE
|
||||
0xD2 0x00D2 # LATIN CAPITAL LETTER O WITH GRAVE
|
||||
0xD3 0x00D3 # LATIN CAPITAL LETTER O WITH ACUTE
|
||||
0xD4 0x00D4 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
|
||||
0xD5 0x00D5 # LATIN CAPITAL LETTER O WITH TILDE
|
||||
0xD6 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
0xD7 0x1E6A # LATIN CAPITAL LETTER T WITH DOT ABOVE
|
||||
0xD8 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
|
||||
0xD9 0x00D9 # LATIN CAPITAL LETTER U WITH GRAVE
|
||||
0xDA 0x00DA # LATIN CAPITAL LETTER U WITH ACUTE
|
||||
0xDB 0x00DB # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
|
||||
0xDC 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
0xDD 0x00DD # LATIN CAPITAL LETTER Y WITH ACUTE
|
||||
0xDE 0x0176 # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
|
||||
0xDF 0x00DF # LATIN SMALL LETTER SHARP S
|
||||
0xE0 0x00E0 # LATIN SMALL LETTER A WITH GRAVE
|
||||
0xE1 0x00E1 # LATIN SMALL LETTER A WITH ACUTE
|
||||
0xE2 0x00E2 # LATIN SMALL LETTER A WITH CIRCUMFLEX
|
||||
0xE3 0x00E3 # LATIN SMALL LETTER A WITH TILDE
|
||||
0xE4 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
0xE5 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
|
||||
0xE6 0x00E6 # LATIN SMALL LETTER AE
|
||||
0xE7 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
|
||||
0xE8 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
|
||||
0xE9 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
0xEA 0x00EA # LATIN SMALL LETTER E WITH CIRCUMFLEX
|
||||
0xEB 0x00EB # LATIN SMALL LETTER E WITH DIAERESIS
|
||||
0xEC 0x00EC # LATIN SMALL LETTER I WITH GRAVE
|
||||
0xED 0x00ED # LATIN SMALL LETTER I WITH ACUTE
|
||||
0xEE 0x00EE # LATIN SMALL LETTER I WITH CIRCUMFLEX
|
||||
0xEF 0x00EF # LATIN SMALL LETTER I WITH DIAERESIS
|
||||
0xF0 0x0175 # LATIN SMALL LETTER W WITH CIRCUMFLEX
|
||||
0xF1 0x00F1 # LATIN SMALL LETTER N WITH TILDE
|
||||
0xF2 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
|
||||
0xF3 0x00F3 # LATIN SMALL LETTER O WITH ACUTE
|
||||
0xF4 0x00F4 # LATIN SMALL LETTER O WITH CIRCUMFLEX
|
||||
0xF5 0x00F5 # LATIN SMALL LETTER O WITH TILDE
|
||||
0xF6 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
0xF7 0x1E6B # LATIN SMALL LETTER T WITH DOT ABOVE
|
||||
0xF8 0x00F8 # LATIN SMALL LETTER O WITH STROKE
|
||||
0xF9 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
|
||||
0xFA 0x00FA # LATIN SMALL LETTER U WITH ACUTE
|
||||
0xFB 0x00FB # LATIN SMALL LETTER U WITH CIRCUMFLEX
|
||||
0xFC 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
0xFD 0x00FD # LATIN SMALL LETTER Y WITH ACUTE
|
||||
0xFE 0x0177 # LATIN SMALL LETTER Y WITH CIRCUMFLEX
|
||||
0xFF 0x00FF # LATIN SMALL LETTER Y WITH DIAERESIS
|
||||
|
||||
295
unicode/iso8859/8859-15.TXT
Normal file
295
unicode/iso8859/8859-15.TXT
Normal file
@@ -0,0 +1,295 @@
|
||||
# 8859-15.TXT
|
||||
# Date: 2015-12-02 22:06:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO/IEC 8859-15:1999 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Markus Kuhn <http://www.cl.cam.ac.uk/~mgk25/>
|
||||
# Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO/IEC 8859-15:1999 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO/IEC 8859-15 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO/IEC 8859-15 order.
|
||||
#
|
||||
# Version history
|
||||
#
|
||||
# Version history
|
||||
# 1.0 version: created
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x0024 # DOLLAR SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x0040 # COMMERCIAL AT
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
0x5B 0x005B # LEFT SQUARE BRACKET
|
||||
0x5C 0x005C # REVERSE SOLIDUS
|
||||
0x5D 0x005D # RIGHT SQUARE BRACKET
|
||||
0x5E 0x005E # CIRCUMFLEX ACCENT
|
||||
0x5F 0x005F # LOW LINE
|
||||
0x60 0x0060 # GRAVE ACCENT
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x007B # LEFT CURLY BRACKET
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x00A1 # INVERTED EXCLAMATION MARK
|
||||
0xA2 0x00A2 # CENT SIGN
|
||||
0xA3 0x00A3 # POUND SIGN
|
||||
0xA4 0x20AC # EURO SIGN
|
||||
0xA5 0x00A5 # YEN SIGN
|
||||
0xA6 0x0160 # LATIN CAPITAL LETTER S WITH CARON
|
||||
0xA7 0x00A7 # SECTION SIGN
|
||||
0xA8 0x0161 # LATIN SMALL LETTER S WITH CARON
|
||||
0xA9 0x00A9 # COPYRIGHT SIGN
|
||||
0xAA 0x00AA # FEMININE ORDINAL INDICATOR
|
||||
0xAB 0x00AB # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
|
||||
0xAC 0x00AC # NOT SIGN
|
||||
0xAD 0x00AD # SOFT HYPHEN
|
||||
0xAE 0x00AE # REGISTERED SIGN
|
||||
0xAF 0x00AF # MACRON
|
||||
0xB0 0x00B0 # DEGREE SIGN
|
||||
0xB1 0x00B1 # PLUS-MINUS SIGN
|
||||
0xB2 0x00B2 # SUPERSCRIPT TWO
|
||||
0xB3 0x00B3 # SUPERSCRIPT THREE
|
||||
0xB4 0x017D # LATIN CAPITAL LETTER Z WITH CARON
|
||||
0xB5 0x00B5 # MICRO SIGN
|
||||
0xB6 0x00B6 # PILCROW SIGN
|
||||
0xB7 0x00B7 # MIDDLE DOT
|
||||
0xB8 0x017E # LATIN SMALL LETTER Z WITH CARON
|
||||
0xB9 0x00B9 # SUPERSCRIPT ONE
|
||||
0xBA 0x00BA # MASCULINE ORDINAL INDICATOR
|
||||
0xBB 0x00BB # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
|
||||
0xBC 0x0152 # LATIN CAPITAL LIGATURE OE
|
||||
0xBD 0x0153 # LATIN SMALL LIGATURE OE
|
||||
0xBE 0x0178 # LATIN CAPITAL LETTER Y WITH DIAERESIS
|
||||
0xBF 0x00BF # INVERTED QUESTION MARK
|
||||
0xC0 0x00C0 # LATIN CAPITAL LETTER A WITH GRAVE
|
||||
0xC1 0x00C1 # LATIN CAPITAL LETTER A WITH ACUTE
|
||||
0xC2 0x00C2 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
|
||||
0xC3 0x00C3 # LATIN CAPITAL LETTER A WITH TILDE
|
||||
0xC4 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
0xC5 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
|
||||
0xC6 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
0xC7 0x00C7 # LATIN CAPITAL LETTER C WITH CEDILLA
|
||||
0xC8 0x00C8 # LATIN CAPITAL LETTER E WITH GRAVE
|
||||
0xC9 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
0xCA 0x00CA # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
|
||||
0xCB 0x00CB # LATIN CAPITAL LETTER E WITH DIAERESIS
|
||||
0xCC 0x00CC # LATIN CAPITAL LETTER I WITH GRAVE
|
||||
0xCD 0x00CD # LATIN CAPITAL LETTER I WITH ACUTE
|
||||
0xCE 0x00CE # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
|
||||
0xCF 0x00CF # LATIN CAPITAL LETTER I WITH DIAERESIS
|
||||
0xD0 0x00D0 # LATIN CAPITAL LETTER ETH
|
||||
0xD1 0x00D1 # LATIN CAPITAL LETTER N WITH TILDE
|
||||
0xD2 0x00D2 # LATIN CAPITAL LETTER O WITH GRAVE
|
||||
0xD3 0x00D3 # LATIN CAPITAL LETTER O WITH ACUTE
|
||||
0xD4 0x00D4 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
|
||||
0xD5 0x00D5 # LATIN CAPITAL LETTER O WITH TILDE
|
||||
0xD6 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
0xD7 0x00D7 # MULTIPLICATION SIGN
|
||||
0xD8 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
|
||||
0xD9 0x00D9 # LATIN CAPITAL LETTER U WITH GRAVE
|
||||
0xDA 0x00DA # LATIN CAPITAL LETTER U WITH ACUTE
|
||||
0xDB 0x00DB # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
|
||||
0xDC 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
0xDD 0x00DD # LATIN CAPITAL LETTER Y WITH ACUTE
|
||||
0xDE 0x00DE # LATIN CAPITAL LETTER THORN
|
||||
0xDF 0x00DF # LATIN SMALL LETTER SHARP S
|
||||
0xE0 0x00E0 # LATIN SMALL LETTER A WITH GRAVE
|
||||
0xE1 0x00E1 # LATIN SMALL LETTER A WITH ACUTE
|
||||
0xE2 0x00E2 # LATIN SMALL LETTER A WITH CIRCUMFLEX
|
||||
0xE3 0x00E3 # LATIN SMALL LETTER A WITH TILDE
|
||||
0xE4 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
0xE5 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
|
||||
0xE6 0x00E6 # LATIN SMALL LETTER AE
|
||||
0xE7 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
|
||||
0xE8 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
|
||||
0xE9 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
0xEA 0x00EA # LATIN SMALL LETTER E WITH CIRCUMFLEX
|
||||
0xEB 0x00EB # LATIN SMALL LETTER E WITH DIAERESIS
|
||||
0xEC 0x00EC # LATIN SMALL LETTER I WITH GRAVE
|
||||
0xED 0x00ED # LATIN SMALL LETTER I WITH ACUTE
|
||||
0xEE 0x00EE # LATIN SMALL LETTER I WITH CIRCUMFLEX
|
||||
0xEF 0x00EF # LATIN SMALL LETTER I WITH DIAERESIS
|
||||
0xF0 0x00F0 # LATIN SMALL LETTER ETH
|
||||
0xF1 0x00F1 # LATIN SMALL LETTER N WITH TILDE
|
||||
0xF2 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
|
||||
0xF3 0x00F3 # LATIN SMALL LETTER O WITH ACUTE
|
||||
0xF4 0x00F4 # LATIN SMALL LETTER O WITH CIRCUMFLEX
|
||||
0xF5 0x00F5 # LATIN SMALL LETTER O WITH TILDE
|
||||
0xF6 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
0xF7 0x00F7 # DIVISION SIGN
|
||||
0xF8 0x00F8 # LATIN SMALL LETTER O WITH STROKE
|
||||
0xF9 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
|
||||
0xFA 0x00FA # LATIN SMALL LETTER U WITH ACUTE
|
||||
0xFB 0x00FB # LATIN SMALL LETTER U WITH CIRCUMFLEX
|
||||
0xFC 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
0xFD 0x00FD # LATIN SMALL LETTER Y WITH ACUTE
|
||||
0xFE 0x00FE # LATIN SMALL LETTER THORN
|
||||
0xFF 0x00FF # LATIN SMALL LETTER Y WITH DIAERESIS
|
||||
|
||||
293
unicode/iso8859/8859-16.TXT
Normal file
293
unicode/iso8859/8859-16.TXT
Normal file
@@ -0,0 +1,293 @@
|
||||
# 8859-16.TXT
|
||||
# Date: 2015-12-02 22:08:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO/IEC 8859-16:2001 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 2001 July 26 (header updated: 2015 December 02)
|
||||
# Authors: Markus Kuhn <http://www.cl.cam.ac.uk/~mgk25/>
|
||||
#
|
||||
# Copyright (c) 1999-2001 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO/IEC 8859-16:2001 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO/IEC 8859-16 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO/IEC 8859-16 order.
|
||||
#
|
||||
# Version history
|
||||
# 1.0 version: created
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x0024 # DOLLAR SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x0040 # COMMERCIAL AT
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
0x5B 0x005B # LEFT SQUARE BRACKET
|
||||
0x5C 0x005C # REVERSE SOLIDUS
|
||||
0x5D 0x005D # RIGHT SQUARE BRACKET
|
||||
0x5E 0x005E # CIRCUMFLEX ACCENT
|
||||
0x5F 0x005F # LOW LINE
|
||||
0x60 0x0060 # GRAVE ACCENT
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x007B # LEFT CURLY BRACKET
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0104 # LATIN CAPITAL LETTER A WITH OGONEK
|
||||
0xA2 0x0105 # LATIN SMALL LETTER A WITH OGONEK
|
||||
0xA3 0x0141 # LATIN CAPITAL LETTER L WITH STROKE
|
||||
0xA4 0x20AC # EURO SIGN
|
||||
0xA5 0x201E # DOUBLE LOW-9 QUOTATION MARK
|
||||
0xA6 0x0160 # LATIN CAPITAL LETTER S WITH CARON
|
||||
0xA7 0x00A7 # SECTION SIGN
|
||||
0xA8 0x0161 # LATIN SMALL LETTER S WITH CARON
|
||||
0xA9 0x00A9 # COPYRIGHT SIGN
|
||||
0xAA 0x0218 # LATIN CAPITAL LETTER S WITH COMMA BELOW
|
||||
0xAB 0x00AB # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
|
||||
0xAC 0x0179 # LATIN CAPITAL LETTER Z WITH ACUTE
|
||||
0xAD 0x00AD # SOFT HYPHEN
|
||||
0xAE 0x017A # LATIN SMALL LETTER Z WITH ACUTE
|
||||
0xAF 0x017B # LATIN CAPITAL LETTER Z WITH DOT ABOVE
|
||||
0xB0 0x00B0 # DEGREE SIGN
|
||||
0xB1 0x00B1 # PLUS-MINUS SIGN
|
||||
0xB2 0x010C # LATIN CAPITAL LETTER C WITH CARON
|
||||
0xB3 0x0142 # LATIN SMALL LETTER L WITH STROKE
|
||||
0xB4 0x017D # LATIN CAPITAL LETTER Z WITH CARON
|
||||
0xB5 0x201D # RIGHT DOUBLE QUOTATION MARK
|
||||
0xB6 0x00B6 # PILCROW SIGN
|
||||
0xB7 0x00B7 # MIDDLE DOT
|
||||
0xB8 0x017E # LATIN SMALL LETTER Z WITH CARON
|
||||
0xB9 0x010D # LATIN SMALL LETTER C WITH CARON
|
||||
0xBA 0x0219 # LATIN SMALL LETTER S WITH COMMA BELOW
|
||||
0xBB 0x00BB # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
|
||||
0xBC 0x0152 # LATIN CAPITAL LIGATURE OE
|
||||
0xBD 0x0153 # LATIN SMALL LIGATURE OE
|
||||
0xBE 0x0178 # LATIN CAPITAL LETTER Y WITH DIAERESIS
|
||||
0xBF 0x017C # LATIN SMALL LETTER Z WITH DOT ABOVE
|
||||
0xC0 0x00C0 # LATIN CAPITAL LETTER A WITH GRAVE
|
||||
0xC1 0x00C1 # LATIN CAPITAL LETTER A WITH ACUTE
|
||||
0xC2 0x00C2 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
|
||||
0xC3 0x0102 # LATIN CAPITAL LETTER A WITH BREVE
|
||||
0xC4 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
0xC5 0x0106 # LATIN CAPITAL LETTER C WITH ACUTE
|
||||
0xC6 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
0xC7 0x00C7 # LATIN CAPITAL LETTER C WITH CEDILLA
|
||||
0xC8 0x00C8 # LATIN CAPITAL LETTER E WITH GRAVE
|
||||
0xC9 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
0xCA 0x00CA # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
|
||||
0xCB 0x00CB # LATIN CAPITAL LETTER E WITH DIAERESIS
|
||||
0xCC 0x00CC # LATIN CAPITAL LETTER I WITH GRAVE
|
||||
0xCD 0x00CD # LATIN CAPITAL LETTER I WITH ACUTE
|
||||
0xCE 0x00CE # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
|
||||
0xCF 0x00CF # LATIN CAPITAL LETTER I WITH DIAERESIS
|
||||
0xD0 0x0110 # LATIN CAPITAL LETTER D WITH STROKE
|
||||
0xD1 0x0143 # LATIN CAPITAL LETTER N WITH ACUTE
|
||||
0xD2 0x00D2 # LATIN CAPITAL LETTER O WITH GRAVE
|
||||
0xD3 0x00D3 # LATIN CAPITAL LETTER O WITH ACUTE
|
||||
0xD4 0x00D4 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
|
||||
0xD5 0x0150 # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
|
||||
0xD6 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
0xD7 0x015A # LATIN CAPITAL LETTER S WITH ACUTE
|
||||
0xD8 0x0170 # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
|
||||
0xD9 0x00D9 # LATIN CAPITAL LETTER U WITH GRAVE
|
||||
0xDA 0x00DA # LATIN CAPITAL LETTER U WITH ACUTE
|
||||
0xDB 0x00DB # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
|
||||
0xDC 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
0xDD 0x0118 # LATIN CAPITAL LETTER E WITH OGONEK
|
||||
0xDE 0x021A # LATIN CAPITAL LETTER T WITH COMMA BELOW
|
||||
0xDF 0x00DF # LATIN SMALL LETTER SHARP S
|
||||
0xE0 0x00E0 # LATIN SMALL LETTER A WITH GRAVE
|
||||
0xE1 0x00E1 # LATIN SMALL LETTER A WITH ACUTE
|
||||
0xE2 0x00E2 # LATIN SMALL LETTER A WITH CIRCUMFLEX
|
||||
0xE3 0x0103 # LATIN SMALL LETTER A WITH BREVE
|
||||
0xE4 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
0xE5 0x0107 # LATIN SMALL LETTER C WITH ACUTE
|
||||
0xE6 0x00E6 # LATIN SMALL LETTER AE
|
||||
0xE7 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
|
||||
0xE8 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
|
||||
0xE9 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
0xEA 0x00EA # LATIN SMALL LETTER E WITH CIRCUMFLEX
|
||||
0xEB 0x00EB # LATIN SMALL LETTER E WITH DIAERESIS
|
||||
0xEC 0x00EC # LATIN SMALL LETTER I WITH GRAVE
|
||||
0xED 0x00ED # LATIN SMALL LETTER I WITH ACUTE
|
||||
0xEE 0x00EE # LATIN SMALL LETTER I WITH CIRCUMFLEX
|
||||
0xEF 0x00EF # LATIN SMALL LETTER I WITH DIAERESIS
|
||||
0xF0 0x0111 # LATIN SMALL LETTER D WITH STROKE
|
||||
0xF1 0x0144 # LATIN SMALL LETTER N WITH ACUTE
|
||||
0xF2 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
|
||||
0xF3 0x00F3 # LATIN SMALL LETTER O WITH ACUTE
|
||||
0xF4 0x00F4 # LATIN SMALL LETTER O WITH CIRCUMFLEX
|
||||
0xF5 0x0151 # LATIN SMALL LETTER O WITH DOUBLE ACUTE
|
||||
0xF6 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
0xF7 0x015B # LATIN SMALL LETTER S WITH ACUTE
|
||||
0xF8 0x0171 # LATIN SMALL LETTER U WITH DOUBLE ACUTE
|
||||
0xF9 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
|
||||
0xFA 0x00FA # LATIN SMALL LETTER U WITH ACUTE
|
||||
0xFB 0x00FB # LATIN SMALL LETTER U WITH CIRCUMFLEX
|
||||
0xFC 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
0xFD 0x0119 # LATIN SMALL LETTER E WITH OGONEK
|
||||
0xFE 0x021B # LATIN SMALL LETTER T WITH COMMA BELOW
|
||||
0xFF 0x00FF # LATIN SMALL LETTER Y WITH DIAERESIS
|
||||
@@ -1,42 +1,71 @@
|
||||
# 8859-2.TXT
|
||||
# Date: 2015-12-02 21:34:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO 8859-2 (1987) to Unicode
|
||||
# Unicode version: 1.1
|
||||
# Table version: 0.1
|
||||
# Name: ISO 8859-2:1999 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 16 January 1995
|
||||
# Authors: Tim Greenwood <greenwood@r2me2.enet.dec.com>
|
||||
# John H. Jenkins <John_Jenkins@taligent.com>
|
||||
#
|
||||
# Copyright (c) 1991-1995 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
|
||||
# No claims are made as to fitness for any particular purpose. No
|
||||
# warranties of any kind are expressed or implied. The recipient
|
||||
# agrees to determine applicability of information provided. If this
|
||||
# file has been provided on magnetic media by Unicode, Inc., the sole
|
||||
# remedy for any claim will be exchange of defective media within 90
|
||||
# days of receipt.
|
||||
#
|
||||
# Recipient is granted the right to make copies in any form for
|
||||
# internal distribution and to freely use the information supplied
|
||||
# in the creation of products supporting Unicode. Unicode, Inc.
|
||||
# specifically excludes the right to re-distribute this file directly
|
||||
# to third parties or other organizations whether for profit or not.
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO 8859-2 (1987) characters map into Unicode.
|
||||
# ISO/IEC 8859-2:1999 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO 8859-2 code (in hex as 0xXX)
|
||||
# Column #1 is the ISO/IEC 8859-2 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO 8859-2 order
|
||||
# The entries are in ISO/IEC 8859-2 order.
|
||||
#
|
||||
# Any comments or problems, contact <John_Jenkins@taligent.com>
|
||||
# Version history
|
||||
# 1.0 version: updates 0.1 version by adding mappings for all
|
||||
# control characters.
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
@@ -132,6 +161,39 @@
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0104 # LATIN CAPITAL LETTER A WITH OGONEK
|
||||
0xA2 0x02D8 # BREVE
|
||||
|
||||
@@ -1,42 +1,71 @@
|
||||
# 8859-3.TXT
|
||||
# Date: 2015-12-02 21:39:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO 8859-3 (1988) to Unicode
|
||||
# Unicode version: 1.1
|
||||
# Table version: 0.1
|
||||
# Name: ISO/IEC 8859-3:1999 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 16 January 1995
|
||||
# Authors: Tim Greenwood <greenwood@r2me2.enet.dec.com>
|
||||
# John H. Jenkins <John_Jenkins@taligent.com>
|
||||
#
|
||||
# Copyright (c) 1991-1995 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
|
||||
# No claims are made as to fitness for any particular purpose. No
|
||||
# warranties of any kind are expressed or implied. The recipient
|
||||
# agrees to determine applicability of information provided. If this
|
||||
# file has been provided on magnetic media by Unicode, Inc., the sole
|
||||
# remedy for any claim will be exchange of defective media within 90
|
||||
# days of receipt.
|
||||
#
|
||||
# Recipient is granted the right to make copies in any form for
|
||||
# internal distribution and to freely use the information supplied
|
||||
# in the creation of products supporting Unicode. Unicode, Inc.
|
||||
# specifically excludes the right to re-distribute this file directly
|
||||
# to third parties or other organizations whether for profit or not.
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO 8859-3 (1988) characters map into Unicode.
|
||||
# ISO/IEC 8859-3:1999 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO 8859-3 code (in hex as 0xXX)
|
||||
# Column #1 is the ISO/IEC 8859-3 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO 8859-3 order
|
||||
# The entries are in ISO/IEC 8859-3 order.
|
||||
#
|
||||
# Any comments or problems, contact <John_Jenkins@taligent.com>
|
||||
# Version history
|
||||
# 1.0 version: updates 0.1 version by adding mappings for all
|
||||
# control characters.
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
@@ -132,6 +161,39 @@
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0126 # LATIN CAPITAL LETTER H WITH STROKE
|
||||
0xA2 0x02D8 # BREVE
|
||||
|
||||
@@ -1,42 +1,71 @@
|
||||
# 8859-4.TXT
|
||||
# Date: 2015-12-02 21:41:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO 8859-4 (1988) to Unicode
|
||||
# Unicode version: 1.1
|
||||
# Table version: 0.1
|
||||
# Name: ISO/IEC 8859-4:1998 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 16 January 1995
|
||||
# Authors: Tim Greenwood <greenwood@r2me2.enet.dec.com>
|
||||
# John H. Jenkins <John_Jenkins@taligent.com>
|
||||
#
|
||||
# Copyright (c) 1991-1995 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
|
||||
# No claims are made as to fitness for any particular purpose. No
|
||||
# warranties of any kind are expressed or implied. The recipient
|
||||
# agrees to determine applicability of information provided. If this
|
||||
# file has been provided on magnetic media by Unicode, Inc., the sole
|
||||
# remedy for any claim will be exchange of defective media within 90
|
||||
# days of receipt.
|
||||
#
|
||||
# Recipient is granted the right to make copies in any form for
|
||||
# internal distribution and to freely use the information supplied
|
||||
# in the creation of products supporting Unicode. Unicode, Inc.
|
||||
# specifically excludes the right to re-distribute this file directly
|
||||
# to third parties or other organizations whether for profit or not.
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO 8859-4 (1988) characters map into Unicode.
|
||||
# ISO/IEC 8859-4:1998 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO 8859-4 code (in hex as 0xXX)
|
||||
# Column #1 is the ISO/IEC 8859-4 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO 8859-4 order
|
||||
# The entries are in ISO/IEC 8859-4 order.
|
||||
#
|
||||
# Any comments or problems, contact <John_Jenkins@taligent.com>
|
||||
# Version history
|
||||
# 1.0 version: updates 0.1 version by adding mappings for all
|
||||
# control characters.
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
@@ -132,6 +161,39 @@
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0104 # LATIN CAPITAL LETTER A WITH OGONEK
|
||||
0xA2 0x0138 # LATIN SMALL LETTER KRA
|
||||
|
||||
@@ -1,42 +1,71 @@
|
||||
# 8859-5.TXT
|
||||
# Date: 2015-12-02 21:43:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO 8859-5 (1988) to Unicode
|
||||
# Unicode version: 1.1
|
||||
# Table version: 0.1
|
||||
# Name: ISO 8859-5:1999 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 16 January 1995
|
||||
# Authors: Tim Greenwood <greenwood@r2me2.enet.dec.com>
|
||||
# John H. Jenkins <John_Jenkins@taligent.com>
|
||||
#
|
||||
# Copyright (c) 1991-1995 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
|
||||
# No claims are made as to fitness for any particular purpose. No
|
||||
# warranties of any kind are expressed or implied. The recipient
|
||||
# agrees to determine applicability of information provided. If this
|
||||
# file has been provided on magnetic media by Unicode, Inc., the sole
|
||||
# remedy for any claim will be exchange of defective media within 90
|
||||
# days of receipt.
|
||||
#
|
||||
# Recipient is granted the right to make copies in any form for
|
||||
# internal distribution and to freely use the information supplied
|
||||
# in the creation of products supporting Unicode. Unicode, Inc.
|
||||
# specifically excludes the right to re-distribute this file directly
|
||||
# to third parties or other organizations whether for profit or not.
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO 8859-5 (1988) characters map into Unicode.
|
||||
# ISO/IEC 8859-5:1999 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO 8859-5 code (in hex as 0xXX)
|
||||
# Column #1 is the ISO/IEC 8859-5 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO 8859-5 order
|
||||
# The entries are in ISO/IEC 8859-5 order.
|
||||
#
|
||||
# Any comments or problems, contact <John_Jenkins@taligent.com>
|
||||
# Version history
|
||||
# 1.0 version: updates 0.1 version by adding mappings for all
|
||||
# control characters.
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
@@ -132,6 +161,39 @@
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA1 0x0401 # CYRILLIC CAPITAL LETTER IO
|
||||
0xA2 0x0402 # CYRILLIC CAPITAL LETTER DJE
|
||||
|
||||
@@ -1,42 +1,73 @@
|
||||
# 8859-6.TXT
|
||||
# Date: 2015-12-02 21:44:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: ISO 8859-6 (1987) to Unicode
|
||||
# Unicode version: 1.1
|
||||
# Table version: 0.1
|
||||
# Name: ISO 8859-6:1999 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 16 January 1995
|
||||
# Authors: Tim Greenwood <greenwood@r2me2.enet.dec.com>
|
||||
# John H. Jenkins <John_Jenkins@taligent.com>
|
||||
#
|
||||
# Copyright (c) 1991-1995 Unicode, Inc. All Rights reserved.
|
||||
#
|
||||
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
|
||||
# No claims are made as to fitness for any particular purpose. No
|
||||
# warranties of any kind are expressed or implied. The recipient
|
||||
# agrees to determine applicability of information provided. If this
|
||||
# file has been provided on magnetic media by Unicode, Inc., the sole
|
||||
# remedy for any claim will be exchange of defective media within 90
|
||||
# days of receipt.
|
||||
#
|
||||
# Recipient is granted the right to make copies in any form for
|
||||
# internal distribution and to freely use the information supplied
|
||||
# in the creation of products supporting Unicode. Unicode, Inc.
|
||||
# specifically excludes the right to re-distribute this file directly
|
||||
# to third parties or other organizations whether for profit or not.
|
||||
# Date: 1999 July 27 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler <ken@unicode.org>
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ISO 8859-6 (1987) characters map into Unicode.
|
||||
# ISO/IEC 8859-6:1999 characters map into Unicode.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ISO 8859-6 code (in hex as 0xXX)
|
||||
# Column #1 is the ISO/IEC 8859-6 code (in hex as 0xXX)
|
||||
# Column #2 is the Unicode (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ISO 8859-6 order
|
||||
# The entries are in ISO/IEC 8859-6 order.
|
||||
#
|
||||
# Any comments or problems, contact <John_Jenkins@taligent.com>
|
||||
# Version history
|
||||
# 1.0 version: updates 0.1 version by adding mappings for all
|
||||
# control characters.
|
||||
# 0x30..0x39 remapped to the ASCII digits (U+0030..U+0039) instead
|
||||
# of the Arabic digits (U+0660..U+0669).
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0000 # NULL
|
||||
0x01 0x0001 # START OF HEADING
|
||||
0x02 0x0002 # START OF TEXT
|
||||
0x03 0x0003 # END OF TEXT
|
||||
0x04 0x0004 # END OF TRANSMISSION
|
||||
0x05 0x0005 # ENQUIRY
|
||||
0x06 0x0006 # ACKNOWLEDGE
|
||||
0x07 0x0007 # BELL
|
||||
0x08 0x0008 # BACKSPACE
|
||||
0x09 0x0009 # HORIZONTAL TABULATION
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x000B # VERTICAL TABULATION
|
||||
0x0C 0x000C # FORM FEED
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x000E # SHIFT OUT
|
||||
0x0F 0x000F # SHIFT IN
|
||||
0x10 0x0010 # DATA LINK ESCAPE
|
||||
0x11 0x0011 # DEVICE CONTROL ONE
|
||||
0x12 0x0012 # DEVICE CONTROL TWO
|
||||
0x13 0x0013 # DEVICE CONTROL THREE
|
||||
0x14 0x0014 # DEVICE CONTROL FOUR
|
||||
0x15 0x0015 # NEGATIVE ACKNOWLEDGE
|
||||
0x16 0x0016 # SYNCHRONOUS IDLE
|
||||
0x17 0x0017 # END OF TRANSMISSION BLOCK
|
||||
0x18 0x0018 # CANCEL
|
||||
0x19 0x0019 # END OF MEDIUM
|
||||
0x1A 0x001A # SUBSTITUTE
|
||||
0x1B 0x001B # ESCAPE
|
||||
0x1C 0x001C # FILE SEPARATOR
|
||||
0x1D 0x001D # GROUP SEPARATOR
|
||||
0x1E 0x001E # RECORD SEPARATOR
|
||||
0x1F 0x001F # UNIT SEPARATOR
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
@@ -53,16 +84,16 @@
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0660 # ARABIC-INDIC DIGIT ZERO
|
||||
0x31 0x0661 # ARABIC-INDIC DIGIT ONE
|
||||
0x32 0x0662 # ARABIC-INDIC DIGIT TWO
|
||||
0x33 0x0663 # ARABIC-INDIC DIGIT THREE
|
||||
0x34 0x0664 # ARABIC-INDIC DIGIT FOUR
|
||||
0x35 0x0665 # ARABIC-INDIC DIGIT FIVE
|
||||
0x36 0x0666 # ARABIC-INDIC DIGIT SIX
|
||||
0x37 0x0667 # ARABIC-INDIC DIGIT SEVEN
|
||||
0x38 0x0668 # ARABIC-INDIC DIGIT EIGHT
|
||||
0x39 0x0669 # ARABIC-INDIC DIGIT NINE
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
@@ -132,6 +163,39 @@
|
||||
0x7C 0x007C # VERTICAL LINE
|
||||
0x7D 0x007D # RIGHT CURLY BRACKET
|
||||
0x7E 0x007E # TILDE
|
||||
0x7F 0x007F # DELETE
|
||||
0x80 0x0080 # <control>
|
||||
0x81 0x0081 # <control>
|
||||
0x82 0x0082 # <control>
|
||||
0x83 0x0083 # <control>
|
||||
0x84 0x0084 # <control>
|
||||
0x85 0x0085 # <control>
|
||||
0x86 0x0086 # <control>
|
||||
0x87 0x0087 # <control>
|
||||
0x88 0x0088 # <control>
|
||||
0x89 0x0089 # <control>
|
||||
0x8A 0x008A # <control>
|
||||
0x8B 0x008B # <control>
|
||||
0x8C 0x008C # <control>
|
||||
0x8D 0x008D # <control>
|
||||
0x8E 0x008E # <control>
|
||||
0x8F 0x008F # <control>
|
||||
0x90 0x0090 # <control>
|
||||
0x91 0x0091 # <control>
|
||||
0x92 0x0092 # <control>
|
||||
0x93 0x0093 # <control>
|
||||
0x94 0x0094 # <control>
|
||||
0x95 0x0095 # <control>
|
||||
0x96 0x0096 # <control>
|
||||
0x97 0x0097 # <control>
|
||||
0x98 0x0098 # <control>
|
||||
0x99 0x0099 # <control>
|
||||
0x9A 0x009A # <control>
|
||||
0x9B 0x009B # <control>
|
||||
0x9C 0x009C # <control>
|
||||
0x9D 0x009D # <control>
|
||||
0x9E 0x009E # <control>
|
||||
0x9F 0x009F # <control>
|
||||
0xA0 0x00A0 # NO-BREAK SPACE
|
||||
0xA4 0x00A4 # CURRENCY SIGN
|
||||
0xAC 0x060C # ARABIC COMMA
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user