github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-01 14:06:47 +00:00
Code Issues Projects Releases Wiki Activity

Second recompile fdev #457 (#463)

Browse Source 
* FONTPROFILE:  Fix NS COMMENTFONT, delete FONTPROFILEPATCH

This reverts commit 2615140ede.

* Recompile FDEV creators with FILEIO defaulting to :XCCS

* FONTPROFILE: Fixed COMMENTFONT in BIGGERNS

* FONTPROFILE:  fixed typo
This commit is contained in:
rmkaplan
2021-09-07 11:52:14 -07:00
committed by GitHub
parent 95c9496780
commit b760d005fb
25 changed files with 432 additions and 1030 deletions
Download Patch File Download Diff File Expand all files Collapse all files

160
sources/FONTPROFILE
View File

@@ -1,103 +1,103 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "28-Jun-99 22:10:46" {DSK}<project>medley3.5>sources>FONTPROFILE.;2 29960
(FILECREATED " 6-Sep-2021 19:11:32" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4 30288
changes to%: (VARS FONTPROFILECOMS)
(ALISTS (FONTDEFS NS)
(FONTDEFS BIGGERNS))
changes to%: (ALISTS (FONTDEFS BIGGERNS))
previous date%: " 9-Jul-91 18:38:04" {DSK}<project>medley3.5>sources>FONTPROFILE.;1)
previous date%: " 6-Sep-2021 15:52:13"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2)
(* ; "
Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT FONTPROFILECOMS)
(RPAQQ FONTPROFILECOMS
(
(* ;; "FONT")
(* ;; "FONT")
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS))
(ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
[VARS (FONTVARS '(
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
(* ; "default BOLD")
(* ; "default BOLD")
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
(LITTLEFONT DEFAULTFONT)
(* ; " should usually be smaller")
(* ; " should usually be smaller")
(TINYFONT LITTLEFONT)
(* ; "and this one smaller still")
(* ; "and this one smaller still")
(BIGFONT BOLDFONT)
(* ; "should be bigger still")
(* ; "should be bigger still")
(TEXTFONT DEFAULTFONT)
(* ; "default for text")
(* ; "default for text")
(TEXTBOLDFONT BOLDFONT)
(* ; "default for bold text")
(* ; "default for bold text")
(* ;; "")
(* ;; "")
(* ;; "Fonts for window system, processes")
(* ;; "Fonts for window system, processes")
(* ;; "")
(* ;; "")
(MENUFONT DEFAULTFONT T)
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
(* ; "if not supplied")
(* ; "if not supplied")
(INTERRUPTMENUFONT DEFAULTFONT T)
(* ; "used by control-B")
(* ; "used by control-B")
(DEFAULTICONFONT MENUFONT)
(* ; "for shrinking windows")
(* ; "for shrinking windows")
(BACKTRACEFONT TINYFONT T)
(* ; " for backtrace in debugger")
(* ; " for backtrace in debugger")
(WINDOWTITLEFONT MENUFONT)
((WINDOWTITLEFONT WINDOWTITLEFONT)
NIL)
(* ; " used for titles of all windows")
(* ; " used for titles of all windows")
(* ;; "")
(* ;; "")
(* ;; "Fonts for Exec")
(* ;; "Fonts for Exec")
(* ;; "")
(* ;; "")
(PROMPTFONT LITTLEFONT)
(* ; "for printing out prompts")
(* ; "for printing out prompts")
(INPUTFONT BOLDFONT)
(* ; "for user typein in Exec")
(* ; "for user typein in Exec")
(PRINTOUTFONT DEFAULTFONT)
(* ; " for intermediate typin in Exec")
(* ; " for intermediate typin in Exec")
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
(VALUEFONT DEFAULTFONT)
(* ;
 " for printing out values returned in Exec")
(* ;
 " for printing out values returned in Exec")
(* ;; "")
(* ;; "")
(* ;; "Fonts for prettyprinting")
(* ;; "Fonts for prettyprinting")
(* ;; "")
(* ;; "")
(COMMENTFONT LITTLEFONT)
(* ; "for comments ")
(* ; "for comments ")
(PRETTYCOMFONT BOLDFONT)
(* ; " for words being defined")
(* ; " for words being defined")
(CLISPFONT BOLDFONT)
(* ; " for keywords & CLISP")
(* ; " for keywords & CLISP")
(SYSTEMFONT DEFAULTFONT)
(* ; " for %"system%" words(?)")
(* ; " for %"system%" words(?)")
(LAMBDAFONT BIGFONT)
(* ; "for words being defined")
(* ; "for words being defined")
(USERFONT BOLDFONT)
(* ; " for %"user%" defined words")]
(* ; " for %"user%" defined words")]
(P (MOVD? 'NILL 'WINDOWTITLEFONT))
(FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE)
(INITVARS (FONTESCAPECHAR (CHARACTER 6))
@@ -242,7 +242,11 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri
(MODERN 8 MIR))
(BIGFONT 4 (MODERN 12 BRR)
(MODERN 10 BRR)
(MODERN 10 BRR]
(MODERN 10 BRR))
(MENUFONT 5 (MODERN 10))
(COMMENTFONT 6 (MODERN 8)
(MODERN 6 MIR)
(MODERN 8 MIR]
[BIGGERNS (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
@@ -263,89 +267,93 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri
(MODERN 8 MIR))
(BIGFONT 4 (MODERN 14 BRR)
(MODERN 10 BRR)
(MODERN 10 BRR])
(MODERN 10 BRR))
(MENUFONT 5 (MODERN 12))
(COMMENTFONT 6 (MODERN 10)
(MODERN 8 MIR)
(MODERN 10 MIR])
(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
(RPAQQ FONTVARS
(
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
(* ; "default BOLD")
(* ; "default BOLD")
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
(LITTLEFONT DEFAULTFONT)
(* ; " should usually be smaller")
(* ; " should usually be smaller")
(TINYFONT LITTLEFONT)
(* ; "and this one smaller still")
(* ; "and this one smaller still")
(BIGFONT BOLDFONT)
(* ; "should be bigger still")
(* ; "should be bigger still")
(TEXTFONT DEFAULTFONT)
(* ; "default for text")
(* ; "default for text")
(TEXTBOLDFONT BOLDFONT)
(* ; "default for bold text")
(* ; "default for bold text")
(* ;; "")
(* ;; "")
(* ;; "Fonts for window system, processes")
(* ;; "Fonts for window system, processes")
(* ;; "")
(* ;; "")
(MENUFONT DEFAULTFONT T)
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
(* ; "if not supplied")
(* ; "if not supplied")
(INTERRUPTMENUFONT DEFAULTFONT T)
(* ; "used by control-B")
(* ; "used by control-B")
(DEFAULTICONFONT MENUFONT)
(* ; "for shrinking windows")
(* ; "for shrinking windows")
(BACKTRACEFONT TINYFONT T)
(* ; " for backtrace in debugger")
(* ; " for backtrace in debugger")
(WINDOWTITLEFONT MENUFONT)
((WINDOWTITLEFONT WINDOWTITLEFONT)
NIL)
(* ; " used for titles of all windows")
(* ; " used for titles of all windows")
(* ;; "")
(* ;; "")
(* ;; "Fonts for Exec")
(* ;; "Fonts for Exec")
(* ;; "")
(* ;; "")
(PROMPTFONT LITTLEFONT)
(* ; "for printing out prompts")
(* ; "for printing out prompts")
(INPUTFONT BOLDFONT)
(* ; "for user typein in Exec")
(* ; "for user typein in Exec")
(PRINTOUTFONT DEFAULTFONT)
(* ; " for intermediate typin in Exec")
(* ; " for intermediate typin in Exec")
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
(VALUEFONT DEFAULTFONT)
(* ;
 " for printing out values returned in Exec")
(* ;
 " for printing out values returned in Exec")
(* ;; "")
(* ;; "")
(* ;; "Fonts for prettyprinting")
(* ;; "Fonts for prettyprinting")
(* ;; "")
(* ;; "")
(COMMENTFONT LITTLEFONT)
(* ; "for comments ")
(* ; "for comments ")
(PRETTYCOMFONT BOLDFONT)
(* ; " for words being defined")
(* ; " for words being defined")
(CLISPFONT BOLDFONT)
(* ; " for keywords & CLISP")
(* ; " for keywords & CLISP")
(SYSTEMFONT DEFAULTFONT)
(* ; " for %"system%" words(?)")
(* ; " for %"system%" words(?)")
(LAMBDAFONT BIGFONT)
(* ; "for words being defined")
(* ; "for words being defined")
(USERFONT BOLDFONT)
(* ; " for %"user%" defined words")))
(* ; " for %"user%" defined words")))
(MOVD? 'NILL 'WINDOWTITLEFONT)
(DEFINEQ
@@ -591,8 +599,8 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri
(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
1 FILERDTBL)
(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999))
(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (16000 27584 (FONTSET 16010 . 22351) (FONTPROFILE 22353 . 24702) (FONTPROFILE.ADDDEVICE
24704 . 27582)) (27820 29719 (FONTMAPARRAY 27830 . 29717)))))
(FILEMAP (NIL (16323 27907 (FONTSET 16333 . 22674) (FONTPROFILE 22676 . 25025) (FONTPROFILE.ADDDEVICE
25027 . 27905)) (28143 30042 (FONTMAPARRAY 28153 . 30040)))))
STOP