; .EnTete "Le-Lisp (c) version 15.2" " " "Maceditor"
; .EnPied "maceditor.ll" "%" " "
; .SuperTitre "Les macros (2) de l'e'diteur"
;
; .Auteur "Bernard Serpette"
;
; .Centre "*****************************************************************"
; .Centre " (c) Le-Lisp est une marque de'pose'e de l'INRIA                 "
; .Centre "*****************************************************************"
;
; .Centre "$Header: maceditor.ll,v 4.1 88/01/13 12:35:31 kuczynsk Rel $"

(unless (>= (version) 15.2)
     (error 'load 'erricf 'maceditor))

; .Section "Les macros de l'e'diteur"
; Ce fichier contient toutes les macros concernant la structure #:edit:editor.
; Il doit e↑tre charge' pour toutes extensions interpre'te'es, il doit e↑tre
; aussi pre'sent dans l'environnement de compilation (cle' include des
; modules).
(defvar #:sys-package:colon '#:edit:editor)

(defstruct #.#:sys-package:colon
   (sender ())
   (query  ':edit-query)
   (file   "test.ll")
   (drawcursor ':edit-drawcursor)
   (redisplaystring ':edit-redisplaystring)
   (redisplaycleol ':edit-redisplaycleol)
   (screen ())
   (cmd    ())
   (ecmd   ())
   (xcmd   ())
   (state  0)
   (w      80)
   (h      20)
   (xcursor 0)
   (ycursor 0)
   (xpos   0)
   (ypos   0) )

(defmacro WIN-CLEAR      (e)   `(trap-editor 100 ,e ()))

(defmacro WIN-RIGHT      (e)   `(trap-editor 101 ,e ()))
(defmacro WIN-LEFT       (e)   `(trap-editor 102 ,e ()))
(defmacro WIN-DOWN       (e)   `(trap-editor 103 ,e ()))
(defmacro WIN-UP         (e)   `(trap-editor 104 ,e ()))
(defmacro WIN-NEXT       (e)   `(trap-editor 105 ,e ()))
(defmacro WIN-PREVIOUS   (e)   `(trap-editor 106 ,e ()))
(defmacro WIN-CUR-TOP    (e)   `(trap-editor 107 ,e ()))
(defmacro WIN-YGOTO      (e a) `(trap-editor 108 ,e ,a))
(defmacro WIN-XGOTO      (e a) `(trap-editor 109 ,e ,a))

(defmacro CUR-WIN-TOP    (e)   `(trap-editor 110 ,e ()))
(defmacro CUR-WIN-BUTTOM (e)   `(trap-editor 111 ,e ()))
(defmacro CUR-WIN-YGOTO  (e a) `(trap-editor 112,e ,a))
(defmacro CUR-WIN-XGOTO  (e a) `(trap-editor 113,e ,a))

(defmacro QUERY-READFILE   (e) `(trap-editor 116 ,e ()))
(defmacro QUERY-WRITEFILE  (e) `(trap-editor 117 ,e ()))
(defmacro QUERY-INSERTFILE (e) `(trap-editor 118 ,e ()))
(defmacro QUERY-SEARCH     (e) `(trap-editor 119 ,e ()))
(defmacro QUERY-RSEARCH    (e) `(trap-editor 120 ,e ()))
(defmacro SAVEFILE         (e) `(trap-editor 121 ,e ()))
(defmacro QUERY-GOTO-LINE  (e) `(trap-editor 122 ,e ()))

(defmacro EXP-EVAL         (e) `(trap-editor 124 ,e ()))
(defmacro EXP-EVAL-PRINT   (e) `(trap-editor 125 ,e ()))