(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)


(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4
 4521   

      :CHANGES-TO (FNS LOADUP-FULL)

      :PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
)


(PRETTYCOMPRINT LOADUP-FULLCOMS)

(RPAQQ LOADUP-FULLCOMS
 ((FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
                        (P (FIXMETA))))
(DEFINEQ

(LOADFULLFONTS

  [LAMBDA NIL
                                              (* ; "Edited 13-Feb-2021 22:51 by larry")


    (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")


    (PRINTOUT T "Loading FULL fonts..." T)
    (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
    (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
    (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 

                    "Don't let the font loader substitute just because a server went catatonic on us")

               (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
                  do
 (PRINTOUT T "  Loading " FAMILY " ")
                     [for
 SIZE in
 '(8 10 12)
                        do
 (PRINTOUT T SIZE " ")
                           (for
 FACE in
 '(MRR BRR MIR)
                              do
 (for
 CSET in
 '(0 33 34 35 238 239 241)
                                    do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET]
                     (PRINTOUT T T))
               (PRINTOUT T "  Loading postscript fonts" T)
               (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
                                        ">c0>*.*")) do
 (PSCFONT.READFONT F))
               (PRINTOUT T "FULL fonts loaded" T])

(LOADUP-FULL

  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited 18-Jan-2023 16:22 by FGH")


                                                             (* ; "Edited 12-Aug-2022 11:17 by lmm")


                                                             (* ; "Edited 14-Jul-2022 12:32 by rmk")


                                                             (* ; "Edited 12-Jul-2022 21:57 by rmk")


                                                           (* ; "Edited  7-Mar-2022 21:06 by larry")


                                                           (* ; "Edited  2-Mar-2022 13:58 by larry")

                                                             (* ; "Edited 15-Jan-2022 15:48 ")

                                                             (* ; "Edited 29-Apr-2021 22:27 by rmk:")

                                                             (* ; 

                                                             "Edited 14-May-2018 15:01 by kaplan")

                                                             (* ; "Edited 28-Sep-2020 12:35 by rmk:")

                                                             (* ; "Edited 21-Apr-2018 07:27 by rmk:")

                                                             (* ; "Edited 23-Feb-94 15:04 by bvm")

    (PROGN (SETQ MEDLEYDIR)
           (CNDIR (MEDLEYDIR)))
    (MEDLEY-INIT-VARS)
    (DRIBBLE DRIBBLEFILE)

    (* ;; "BKSYSBUF stops page holding ")


    (BKSYSBUF " ")
    (PRINTOUT T T "Full loadup started at " (DATE)
           " while connected to "
           (DIRECTORYNAME T)
           T T)
    (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")

    (LOADFULLFONTS
)
    (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
    (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
    (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER 
                   THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                   ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE 
                   UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
    (COND
       ((WINDOWP *WHO-LINE*)
        (CLOSEW *WHO-LINE*)))
    (DRIBBLE])

(FIXMETA

  [LAMBDA NIL
                                               (* ; "Edited 25-Jun-2017 17:12 by rmk:")

    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
STOP