(FILECREATED "10-Apr-85 23:25:13" {PHYLUM}<TRILLIUMUSERS>TRI-FIX-CONN.;1 10352
changes to: (VARS TRI-FIX-CONNCOMS)
(FNS TRILLIUM.MAKESYS TRILLIUM.MAKESYS.Original
PROFILE.EDITOR.TITLECOMMANDFN.Original TRILLIUM.CONN? TRILLIUM.CONN?.Original)
previous date: "10-Apr-85 23:11:30" {PHYLUM}<TRILLIUMUSERS>FIXES>TRI-FIX-CONN.;1)
(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT TRI-FIX-CONNCOMS)
(RPAQQ TRI-FIX-CONNCOMS ((FNS PROFILE.EDITOR.TITLECOMMANDFN PROFILE.EDITOR.TITLECOMMANDFN.Original
TRILLIUM.CONN? TRILLIUM.CONN?.Original TRILLIUM.MAKESYS
TRILLIUM.MAKESYS.Original)))
(DEFINEQ
(PROFILE.EDITOR.TITLECOMMANDFN
[LAMBDA (WINDOW ITEM) (* TBigham "10-Apr-85 23:01")
(DECLARE (GLOBALVARS TRILLIUM.PROFILE))
(PROG (COMMAND.MENU FFN)
(TRILLIUM.CLEAR.ALL.PROMPTING)
(SETQ COMMAND.MENU (GET.PROFILE.EDITOR.TITLECOMMANDFN.MENU))
(SELECTQ (MENU COMMAND.MENU)
(NIL NIL)
(MAKE.CHANGES (PROFILE.EDITOR.MAKE.CHANGES WINDOW))
[SAVE.PROFILE (THINKING (PROFILE.EDITOR.MAKE.CHANGES WINDOW)
(TRILLIUM.PRINTOUT ON TRILLIUM.TRACE "Saving profile ... ")
[SET (FILECOMS (QUOTE TRILLIUM-PROFILE))
(QUOTE ((VARS TRILLIUM.PROFILE)
(P (COND
((AND (BOUNDP (QUOTE
TRILLIUM.PROFILE.EDITOR.WINDOW))
(WINDOWP
TRILLIUM.PROFILE.EDITOR.WINDOW))
(CLOSEW
TRILLIUM.PROFILE.EDITOR.WINDOW)))
(SETQ TRILLIUM.PROFILE.EDITOR.WINDOW]
(SETQ FFN (PACK* (DIRECTORYNAME T T)
(QUOTE TRILLIUM-PROFILE)))
(COND
((CONFIRM (CONCAT "Save PROFILE as " FFN " ?"))
(MAKEFILE FFN)
(TRILLIUM.PRINTOUT ON TRILLIUM.TRACE SAME.LINE "as "
FFN))
(T (TRILLIUM.PRINTOUT ON TRILLIUM.TRACE SAME.LINE
" aborted. "]
(SHOULDNT "Unrecognized keyword in PROFILE.EDITOR.TITLECOMMANDFN"])
(PROFILE.EDITOR.TITLECOMMANDFN.Original
[LAMBDA (WINDOW ITEM) (* kkm "19-Nov-84 16:16")
(DECLARE (GLOBALVARS TRILLIUM.PROFILE))
(PROG (COMMAND.MENU FFN)
(TRILLIUM.CLEAR.ALL.PROMPTING)
(SETQ COMMAND.MENU (GET.PROFILE.EDITOR.TITLECOMMANDFN.MENU))
(SELECTQ (MENU COMMAND.MENU)
(NIL NIL)
(MAKE.CHANGES (PROFILE.EDITOR.MAKE.CHANGES WINDOW))
[SAVE.PROFILE (THINKING (PROFILE.EDITOR.MAKE.CHANGES WINDOW)
(TRILLIUM.PRINTOUT ON TRILLIUM.TRACE "Saving profile ... ")
[SET (FILECOMS (QUOTE TRILLIUM-PROFILE))
(QUOTE ((VARS TRILLIUM.PROFILE)
(P (COND
((AND (BOUNDP (QUOTE
TRILLIUM.PROFILE.EDITOR.WINDOW))
(WINDOWP
TRILLIUM.PROFILE.EDITOR.WINDOW))
(CLOSEW
TRILLIUM.PROFILE.EDITOR.WINDOW)))
(SETQ TRILLIUM.PROFILE.EDITOR.WINDOW]
(SETQ FFN (PACKFILENAME (QUOTE HOST)
\CONNECTED.HOST
(QUOTE DIRECTORY)
\CONNECTED.DIR
(QUOTE NAME)
(QUOTE TRILLIUM-PROFILE)))
(COND
((CONFIRM (CONCAT "Save PROFILE as " FFN " ?"))
(MAKEFILE FFN)
(TRILLIUM.PRINTOUT ON TRILLIUM.TRACE SAME.LINE "as "
FFN))
(T (TRILLIUM.PRINTOUT ON TRILLIUM.TRACE SAME.LINE
" aborted. "]
(SHOULDNT "Unrecognized keyword in PROFILE.EDITOR.TITLECOMMANDFN"])
(TRILLIUM.CONN?
[LAMBDA NIL (* TBigham "10-Apr-85 22:48")
(DIRECTORYNAME T T])
(TRILLIUM.CONN?.Original
[LAMBDA NIL (* DAHJr "22-JAN-83 16:12")
(DECLARE (GLOBALVARS \CONNECTED.DIR \CONNECTED.HOST))
(PACKFILENAME (QUOTE HOST)
\CONNECTED.HOST
(QUOTE DIRECTORY)
\CONNECTED.DIR])
(TRILLIUM.MAKESYS
[LAMBDA (BIGSYSFLG SYSFILESPEC) (* TBigham "10-Apr-85 23:21")
(* Fixed by NHB to handle null connected directory)
(DECLARE (GLOBALVARS ADVISEDFNS POSTGREETFORMS CHANGESARRAY FILELST INTERFACES NOTCOMPILEDFILES
NOTLISTEDFILES))
(PROG [(MAKESYSFILE (PACKFILENAME (QUOTE HOST)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE HOST))
(FILENAMEFIELD (DIRECTORYNAME T T)
(QUOTE HOST)))
(QUOTE DIRECTORY)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE DIRECTORY))
(FILENAMEFIELD (DIRECTORYNAME T T)
(QUOTE DIRECTORY)))
(QUOTE NAME)
(if (FILENAMEFIELD SYSFILESPEC (QUOTE NAME))
elseif BIGSYSFLG
then (QUOTE BIGTRILLIUM)
else (QUOTE TRILLIUM))
(QUOTE EXTENSION)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE EXTENSION))
(QUOTE SYSOUT))
(QUOTE VERSION)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE VERSION))
1]
(OR (TTYCONFIRM (CONCAT "Makesys into " MAKESYSFILE " [confirm] "))
(RETURN))
(FILES?)
[COND
([OR NOTCOMPILEDFILES (FILEPKGCHANGES)
(for F in FILELST thereis (CDR (GETPROP F (QUOTE FILE]
(OR (TTYCONFIRM "You have made changes which have not been filed! Continue makesys? ")
(RETURN]
[COND
((TTYCONFIRM "Reset interfaces? ")
(for INTERFACE.NAME in INTERFACES do (RESET.INTERFACE (FIND.INTERFACE INTERFACE.NAME)
T]
[COND
[(AND (NOT BIGSYSFLG)
(TTYCONFIRM "Gain space? ")
(TTYCONFIRM "For sure? "))
(%. ERASE)
[for F in FILELST do (RPLACD (GETPROP F (QUOTE FILE]
(CLEARFILEPKG (QUOTE E))
(CLRHASH CHANGESARRAY)
(CLRHASH)
(SETQ ADVISEDFNS)
(MAPATOMS (FUNCTION (LAMBDA (X)
(REMPROPLIST X
(QUOTE (VALUE EXPR CODE SUBR FILEMAP ADVISED ADVICE READVICE
EDIT-SAVE *HISTORY*]
(T (MAPATOMS (FUNCTION (LAMBDA (X)
(REMPROPLIST X (QUOTE (VALUE CODE SUBR EDIT-SAVE *HISTORY*]
(* * Let MAKESYS worry about this: (SETQ GREETHIST))
(SETQ NOTLISTEDFILES)
(PURGEHISTORY (QUOTE E))
(REMPROP (QUOTE EDIT)
(QUOTE LASTVALUE))
(RESETDEDIT)
[OR (FASSOC (QUOTE TRILLIUM.LOAD.FIXES)
POSTGREETFORMS)
(NCONC1 POSTGREETFORMS (QUOTE (TRILLIUM.LOAD.FIXES]
[OR (FASSOC (QUOTE PROFILE.INIT)
POSTGREETFORMS)
(NCONC1 POSTGREETFORMS (QUOTE (PROFILE.INIT]
(RECLAIM)
(MAKESYS MAKESYSFILE])
(TRILLIUM.MAKESYS.Original
[LAMBDA (BIGSYSFLG SYSFILESPEC) (* NHB "17-Dec-84 17:31")
(* Fixed by NHB to handle null connected directory)
(DECLARE (GLOBALVARS ADVISEDFNS POSTGREETFORMS CHANGESARRAY FILELST INTERFACES NOTCOMPILEDFILES
NOTLISTEDFILES \CONNECTED.DIR \CONNECTED.HOST))
(PROG [(MAKESYSFILE (PACKFILENAME (QUOTE HOST)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE HOST))
\CONNECTED.HOST)
(QUOTE DIRECTORY)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE DIRECTORY))
(AND (NOT (STREQUAL \CONNECTED.DIR ""))
\CONNECTED.DIR))
(QUOTE NAME)
(COND
((FILENAMEFIELD SYSFILESPEC (QUOTE NAME)))
(BIGSYSFLG (QUOTE BIGTRILLIUM))
(T (QUOTE TRILLIUM)))
(QUOTE EXTENSION)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE EXTENSION))
(QUOTE SYSOUT))
(QUOTE VERSION)
(OR (FILENAMEFIELD SYSFILESPEC (QUOTE VERSION))
1]
(OR (TTYCONFIRM (CONCAT "Makesys into " MAKESYSFILE " [confirm] "))
(RETURN))
(FILES?)
[COND
([OR NOTCOMPILEDFILES (FILEPKGCHANGES)
(for F in FILELST thereis (CDR (GETPROP F (QUOTE FILE]
(OR (TTYCONFIRM "You have made changes which have not been filed! Continue makesys? ")
(RETURN]
[COND
((TTYCONFIRM "Reset interfaces? ")
(for INTERFACE.NAME in INTERFACES do (RESET.INTERFACE (FIND.INTERFACE INTERFACE.NAME)
T]
[COND
[(AND (NOT BIGSYSFLG)
(TTYCONFIRM "Gain space? ")
(TTYCONFIRM "For sure? "))
(%. ERASE)
[for F in FILELST do (RPLACD (GETPROP F (QUOTE FILE]
(CLEARFILEPKG (QUOTE E))
(CLRHASH CHANGESARRAY)
(CLRHASH)
(SETQ ADVISEDFNS)
(MAPATOMS (FUNCTION (LAMBDA (X)
(REMPROPLIST X
(QUOTE (VALUE EXPR CODE SUBR FILEMAP ADVISED ADVICE READVICE
EDIT-SAVE *HISTORY*]
(T (MAPATOMS (FUNCTION (LAMBDA (X)
(REMPROPLIST X (QUOTE (VALUE CODE SUBR EDIT-SAVE *HISTORY*]
(* * Let MAKESYS worry about this: (SETQ GREETHIST))
(SETQ NOTLISTEDFILES)
(PURGEHISTORY (QUOTE E))
(REMPROP (QUOTE EDIT)
(QUOTE LASTVALUE))
(RESETDEDIT)
[OR (FASSOC (QUOTE TRILLIUM.LOAD.FIXES)
POSTGREETFORMS)
(NCONC1 POSTGREETFORMS (QUOTE (TRILLIUM.LOAD.FIXES]
[OR (FASSOC (QUOTE PROFILE.INIT)
POSTGREETFORMS)
(NCONC1 POSTGREETFORMS (QUOTE (PROFILE.INIT]
(RECLAIM)
(MAKESYS MAKESYSFILE])
)
(PUTPROPS TRI-FIX-CONN COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (668 10269 (PROFILE.EDITOR.TITLECOMMANDFN 678 . 2148) (
PROFILE.EDITOR.TITLECOMMANDFN.Original 2150 . 3739) (TRILLIUM.CONN? 3741 . 3884) (
TRILLIUM.CONN?.Original 3886 . 4179) (TRILLIUM.MAKESYS 4181 . 7239) (TRILLIUM.MAKESYS.Original 7241 .
10267)))))
STOP