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


(FILECREATED " 7-Mar-2022 21:08:31" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2
 4390   

      :CHANGES-TO (FNS LOADUP-FULL)

      :PREVIOUS-DATE " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)


(PRETTYCOMPRINT LOADUP-FULLCOMS)

(RPAQQ LOADUP-FULLCOMS
 ((COMMANDS "cd" "pwd" "ls")
                        (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
                        (P (FIXMETA))))

(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))

(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))

(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
(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 NIL
                                              (* ; "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)
    (SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
    (SETQ MAKESYSNAME :MEDLEY)
    (DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))

    (* ;; "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 TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE 
                   ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE 
                   UNIXCOMM UNIXCHAT))
    (COND
       ((WINDOWP *WHO-LINE*)
        (CLOSEW *WHO-LINE*)))
    (SETTOPVAL 'INITIALS NIL)
    (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 (639 4352 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4102) (FIXMETA 4104 . 4350)))))
STOP