LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032507. :SYSTEM-TYPE :LOGICAL :VERSION 1. :TYPE "LISP" :NAME "ZYMURG" :DIRECTORY ("REL3-SOURCE" "ZMACS") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758739885. :AUTHOR "REL3" :LENGTH-IN-BYTES 3156. :LENGTH-IN-BLOCKS 4. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ;;; -*- Mode:Common-Lisp; Package:ZWEI; Base:8 -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;;;;; Copyright (C) 1985, 1987 Texas Instruments Incorporated. All rights reserved.;;; Copyright (C) 1980, Massachusetts Institute of Technology;;; This is the last file loaded in the editor, it should contain only flavors;;; and initializations;;; Compile the necessary flavors(COMPILE-FLAVOR-METHODS INTERVAL NODE SECTION-NODE ZMACS-BUFFERINTERVAL-WITH-SORT-KEY INTERVAL-WITH-SORT-INTERVAL) (COMPILE-FLAVOR-METHODS EDITOR-TYPEOUT-WINDOWECHO-AREA-WINDOW TYPEIN-WINDOWZWEI-WITHOUT-TYPEOUT ZWEI-MINI-BUFFERZWEI-WINDOW ZWEI-WINDOW-PANE ZMACS-WINDOW ZMACS-WINDOW-PANEMODE-LINE-WINDOW POP-UP-MODE-LINE-WINDOWZWEI-OVERLYING-WINDOWZWEI-FRAME ZMACS-FRAME MENU-COMMAND-MOMENTARY-MENUSTANDALONE-EDITOR-WINDOWSTANDALONE-EDITOR-FRAME POP-UP-STANDALONE-EDITOR-FRAMETEMPORARY-MODE-LINE-WINDOW TEMPORARY-MODE-LINE-WINDOW-WITH-BORDERSEDITOR-STREAM-WINDOW EDITOR-TOP-LEVELEDITOR-STREAM-FROM-WINDOW STREAM-IBEAM-BLINKERZTOP-STREAM-FROM-WINDOWBACKGROUND-TYPEOUT-WINDOWUCL::UTILITY-POP-UP-EDITOR ) ;;;Initialize the editor the first time we are loaded up(DEFUN INITIALIZE-ALL-OF-EDITOR (&AUX (*PACKAGE* *PACKAGE*))  (LET ((ELEM (ASSOC "INITIALIZE-ZMACS" *EDITOR-INITIALIZATION-LIST* :TEST 'EQUALP)))    (AND ELEM (SETQ *EDITOR-INITIALIZATION-LIST*    (CONS ELEM (DELETE ELEM       (THE LIST *EDITOR-INITIALIZATION-LIST*)       :TEST #'EQ)))))  (W:WITHOUT-SCREEN-MANAGEMENT (INITIALIZATIONS '*EDITOR-INITIALIZATION-LIST*))  ;; Make one of each  (USING-RESOURCE (WINDOW TEMPORARY-MODE-LINE-WINDOW-WITH-BORDERS-RESOURCE))  (USING-RESOURCE (WINDOW BACKGROUND-TYPEOUT-WINDOWS))  (USING-RESOURCE (FOO POP-UP-STANDALONE-EDITOR-FRAME) FOO));;; Make the rubout-handler use our word syntax table.(DEFUN RUBOUT-KLUDGE (X);for W:RUBOUT-HANDLER-ALPHA-CHAR-P  (EQ (CHAR-SYNTAX X *WORD-SYNTAX-TABLE*)      WORD-ALPHABETIC))(SETF W:RUBOUT-HANDLER-ALPHA-CHAR-P (SYMBOL-FUNCTION 'RUBOUT-KLUDGE))(ADD-INITIALIZATION "INITIALIZE-ALL-OF-EDITOR"    '(INITIALIZE-ALL-OF-EDITOR)    '(:ONCE)) ;;;;;;Add Zmacs to the system menu and the system key.(W:ADD-TO-SYSTEM-MENU-COLUMN :PROGRAMS       "Zmacs Editor"       '(W:SELECT-OR-CREATE-WINDOW-OF-FLAVOR 'ZMACS-FRAME)       "Select a Zmacs text editor to edit text or write a program."       :SORTED)(W:ADD-SYSTEM-KEY #\E   'ZMACS-FRAME   "Zmacs Editor - create or modify programs or text"   'T);;;Add Zmacs to the list of window types available via the CREATE option on the system menu.  (W:ADD-WINDOW-TYPE "Edit"    'ZMACS-FRAME    "An editor, sharing buffers with other editors.")ER)      (PKG-BIND (OR *DEFAULT-PACKAGE* *PACKAGE*)(CONDITION-BIND ((SYSTEM:PACKAGE-NOT-FOUND 'INITIALIZE-BUFFER-PACKAGE-HANDLER))  (SETF (BUFFER-PACKAGE BUFFER)(MULTIPLE-VALUE-BIND (VARS VALS)    (SEND BUFFER :ATTRIBUTE-BINDINGS)  (PROGV VARS VALS    *PACKAGE*))))))) (DEFUN INITIALIZE-BUFFER-PACKAGE-HANDLER (CONDITION)  (IF (YES-OR-NO-P "~&Package ~A does not exist.  Create it? " (SEND CONDITION :NAME))      :CREATE-PACKAGE      (VALUES :NEW-NAME (PACKAGE-NAME *PACKAGE*)))) (DEFCOM COM-SET-BASE "Change the input radix associated with this buffer or file.Applies only to this buffer, and overrides what the attribute list says.Queries you for whether to change the attribute list in the text as well.The numeric argument is used as the new value,or else one is read in the minibuffer.  The default is ZWEI:*DEFAULT-BASE*." ()  (SETQ *PRINT-BASE* (IF *NUMERIC-ARG-P* *NUMERIC-ARG* (LET ((*PRINT-BAS