CSLMode.el revision d3ea4ab5527bc4bd7381d39ecbc4af2199f54341
;; Creating a new menu pane in the menu bar to the right of "Tools" menu
;; A keymap is suitable for menu use if it has an overall prompt string, which describes the purpose of the menu.
;; essentially: define-key map fake-key '(item command), where fake-key is of the form [menu-bar mymenu nl] and defines key nl in mymenu which must exist
'tools)
;; extract all spec definitions
(defun extractspecs ()
(let
(skip-chars-forward " ")
)
)
)
)
;; extract all imports
(defun extractgets ()
(let
(p1
)
(skip-chars-forward " ")
;; comma separated lisp
(skip-chars-forward " ")
(skip-chars-forward " ")
(skip-chars-forward " ")
)
)
)
)
)
(defun refresh-specmenu ()
(let
)
;; delete the match menu
;; generate match menu
(define-key-after global-map [menu-bar enclmenu match] (cons "Match" (make-sparse-keymap)) 'kill-buffer)
;; generate subentries
(define-key global-map (vector 'menu-bar 'enclmenu 'match currentsym) (cons item (make-sparse-keymap)))
;; submenus
(define-key global-map (vector 'menu-bar 'enclmenu 'match currentsym currentsym2) (cons item2 (make-sparse-keymap)))
(dolist (item3 '("Show match" "Export parameter"))
)
)
(define-key global-map (vector 'menu-bar 'enclmenu 'match currentsym (gensym)) (cons "Select design spec" nil))
)
(define-key global-map (vector 'menu-bar 'enclmenu 'match (gensym)) (cons "Select pattern spec" nil))
)
)
;; (message "selected %s and %s and %s" spec1 spec2 trans)
;; example command
;; matchcad /tmp/flange.het -sMatch -pFlangePattern -dComponent
; (message (concatenate 'string "asd" (buffer-file-name (current-buffer))))
"-sMatch"
"-p" spec1
"-d" spec2
)
(interactive "FOpen proof script: ")
(defun load-spec ()
))
)