github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

fix #411 scanfilehelp suggested 1100support (#766)

Browse Source
This commit is contained in:
Larry Masinter 2022-07-08 12:23:00 -07:00 committed by GitHub
parent 32e8f44d9a
commit 06953f408a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 30 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
sources/LOADFNS
View File

@ -1,14 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "16-Apr-2018 17:38:16" {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>LOADFNS.;7 47044
changes to%: (FNS SCANFILE1)
(FILECREATED " 2-May-2022 11:38:55" {DSK}<home>larry>medley>sources>LOADFNS.;2 47218
previous date%: "16-Apr-2018 17:16:07"
{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>LOADFNS.;6)
:CHANGES-TO (FNS SCANFILEHELP)
:PREVIOUS-DATE "16-Apr-2018 17:38:16" {DSK}<home>larry>medley>sources>LOADFNS.;1)
(* ; "
Copyright (c) 1983, 1984, 1986, 1987, 1989, 1990, 2018 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1983-1984, 1986-1987, 1989-1990, 2018, 2022 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT LOADFNSCOMS)
@ -842,29 +842,27 @@ A map of non-functions is not kept because (a) it would not be of use to MAKEFIL
(T (SCANFILEHELP])
(SCANFILEHELP
[LAMBDA NIL (* JonL "15-Dec-83 21:04")
(* ;;
 "This function used to spit out a 'sermon' about sysouting and informing W. Teitelman.")
[LAMBDA NIL
(* ;;
 "Edited 2-May-2022 11:37 by larry: used to suggest contacting 1100 support (medley issue #411)")
(* ;; " this used to suggest contacting 1100 support (medley issue #411)")
 (* ; "Edited 2-May-2022 11:31 by larry")
(* JonL "15-Dec-83 21:04")
(* ;; "This function used to spit out a 'sermon' about sysouting and informing W. Teitelman.")
(PRIN1 '"something is wrong with either the filemap or format of " T)
(PRIN1 (INPUT)
T)
(TERPRI T)
(PRIN1 '"Here are some possibilities:
(1) you edited the file with a text editor;
(2) you printed a DEFINEQ in the file directly, i.e. without using
the FNS command;
(3) the file got clobbered.
If you are convinced it is none of the above, then please inform
the 1100Support program." T)
(TERPRI T)
(PRIN1 '"Note: for (1) and (2), you may still be
able to use this file by setting USEMAPFLG to NIL,
and then reexecuting the operation that caused this
message." T)
(TERPRI T)
(PRINTOUT T '"Here are some possibilities:" T "(1) you edited the file with a text editor;" T
"(2) you printed a DEFINEQ in the file directly, i.e. without using the FNS command;" T
"(3) the file got clobbered." T)
(PRIN1
'"Note: for (1) and (2), you may still be able to use this file by setting USEMAPFLG to NIL and then reexecuting the operation that caused this message."
T)
(TERPRI)
(HELP])
)
@ -885,13 +883,13 @@ message." T)
(SPECVARS VARLST)
(RETFNS SCANFILE0))
)
(PUTPROPS LOADFNS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1986 1987 1989 1990 2018))
(PUTPROPS LOADFNS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1986 1987 1989 1990 2018 2022))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1283 19433 (LOADFROM 1293 . 1766) (LOADBLOCK 1768 . 2276) (GETBLOCKDEC 2278 . 3143) (
LOADCOMP 3145 . 4308) (LOADCOMP? 4310 . 5010) (LOADVARS 5012 . 5092) (LOADEFS 5094 . 5238) (
LOADFILEMAP 5240 . 5644) (LOADFNS 5646 . 17718) (LOADFNS-FINDFILE 17720 . 18236) (LOADFNS-MAKELIST
18238 . 19431)) (19434 46417 (LOADFNSCAN 19444 . 19622) (SCANFILE0 19624 . 23031) (SCANCOMPILEDFN
23033 . 25335) (SCANDEFINEQ 25337 . 30635) (SCANEXP 30637 . 35388) (SCANDECLARECOLON 35390 . 39594) (
SCANFILE1 39596 . 43678) (SCANFILE2 43680 . 43966) (TMPSUBFN 43968 . 45132) (RETRYSCAN 45134 . 45531)
(SCANFILEHELP 45533 . 46415)))))
(FILEMAP (NIL (1224 19374 (LOADFROM 1234 . 1707) (LOADBLOCK 1709 . 2217) (GETBLOCKDEC 2219 . 3084) (
LOADCOMP 3086 . 4249) (LOADCOMP? 4251 . 4951) (LOADVARS 4953 . 5033) (LOADEFS 5035 . 5179) (
LOADFILEMAP 5181 . 5585) (LOADFNS 5587 . 17659) (LOADFNS-FINDFILE 17661 . 18177) (LOADFNS-MAKELIST
18179 . 19372)) (19375 46586 (LOADFNSCAN 19385 . 19563) (SCANFILE0 19565 . 22972) (SCANCOMPILEDFN
22974 . 25276) (SCANDEFINEQ 25278 . 30576) (SCANEXP 30578 . 35329) (SCANDECLARECOLON 35331 . 39535) (
SCANFILE1 39537 . 43619) (SCANFILE2 43621 . 43907) (TMPSUBFN 43909 . 45073) (RETRYSCAN 45075 . 45472)
(SCANFILEHELP 45474 . 46584)))))
STOP

BIN
sources/LOADFNS.LCOM
View File

Binary file not shown.

55
unicode/.TXT
View File

@ -1,55 +0,0 @@
#
# Name: XCCS (XC-3-1-1-0) to Unicode
# Unicode version: 3.0
# Table version: 0.1
# Table format: Format A
# Date: 28 July 2020
# Author: Ron Kaplan <Ron.Kaplan@post.harvard.edu>
#
# This file contains mappings from the Xerox Character Code Standard (version
# XC1-3-3-0, 1987) into Unicode 3.0. standard codes. That is the version of
# XCCS corresponding to the fonts in the Medley system. The Xerox mappings
# did not come from the Unicode CDROM, they were constructed by combining
# and constrasting information from a binary file (xerox>XCCStoUni)
# of unknown provenance with code mappings scraped from the Wikipedia page
# https://en.wikipedia.org/wiki/Xerox_Character_Code_Standard
# in July 2020. Both sources were errorful and incomplete, so the original
# data was inspected and modified by hand. The data here may be the currently
# best specification of these mapping, but the mappings may still contain
# errors--no guarantees. Obviously, the reverse mappings from Unicode to
# XCCS are by definition incomplete.
#
# The file XCCS-NOJIS.TXT excludes the large set of mappings for
# Japanese characters, it just includes characters thatt are more broadly useful.
#
# The JIS mappings are contained in the separate XCCS-JIS.TXT file.
# The full set of mappings can be creating by appending these two files.
#
# The format of this file conforms to the format of the other Unicode-supplied
# mapping files:
# Three white-space (tab or spaces) separated columns
# Column #1 is the XCCS code (as hex 0xXXXX)
# Column #2 is the corresponding Unicode (as hex 0xXXXX)
# Column #3 (after #) is a comment column. For convenience, it contains the
# Unicode character itself (since the Unicode character names
# are not available)
# Unicode FFFF is used for undefined XCCS codes
# Unicode FFFE is used for XCCS codes that have not yet been filled in.
#
# Like the other Unicode mapping files, this file can be read by
# common Unicode routines. Also, it is encoded in UTF8, so that the Unicode characters
# are properly displayed on the right side and can be edited by standard
# Unicode-enabled editors (e.g. Mac Textedit).
#
# This file and the other Unicode mapping files can also be read by the function
# READ-UNICODE-MAPPING in the UNICODE Medley library package.
#
# The entries are in XCCS order and grouped by character sets. In front of
# each character set, for convenience, there is a line with the octal XCCS
# character set, after #.
#
# Note that a given XCCS code might map to codes in several different Unicode
# positions, since there are repetitions in the Unicode standard.
#
# Any comments or problems, contact <ron.kaplan@post.harvard.edu>