;ELC ;;; Compiled by jpff@codemist.co.uk on Fri Dec 19 09:40:38 2003 ;;; from file /home/jpff/GNU_21/local-lisp/csound-csd.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`csound-csd.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\301\207" [current-load-list csound-csd-version " 0.1"] 2) #@63 *If not nil, then new buffers start with standard components. (defvar csound-csd-mode-build-new-buffer t (#$ . -698)) #@57 Non nil to show a counter during server script matching (defvar csd-verbose t (#$ . 822)) #@28 Keymap for csound-csd-mode (defvar csound-csd-mode-map (make-sparse-keymap) (#$ . 918)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\207" [csound-csd-mode-map define-key "" csound-csd-quick "" csound-csd-edit-orch "" csound-csd-edit-score "\f" csound-csd-edit-options "o" csound-csd-insert-orch-file "O" csound-csd-insert-orch-buffer "s" csound-csd-insert-score-file "S" csound-csd-insert-score-buffer "m" csound-csd-insert-midi-file "M" csound-csd-delete-midi-file "w" csound-csd-insert-sample-file "W" csound-csd-delete-sample-file] 4) #@14 Syntax table (defvar csound-csd-mode-syntax-table nil (#$ . 1657)) (byte-code "\204&\303 !\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\312#\210\304\314\315#\210\316\317!\210\320\302!\210\321\303\207" [csound-csd-mode-syntax-table text-mode-syntax-table font-lock-defaults make-syntax-table modify-syntax-entry 60 "(> " 62 ")< " 34 ". " 92 39 "w " require font-lock make-local-variable (csd-font-lock-keywords t t)] 4) #@57 Additional expressions to highlight in CSD helper mode. (defvar csd-font-lock-keywords nil (#$ . 2111)) (byte-code "\301\302\303\304\305\306\307\310\257\311\207" [csd-font-lock-keywords ("^" . font-lock-csd-synth) ("^" . font-lock-csd-synth) ("^" . font-lock-csd-inst) ("^" . font-lock-csd-inst) ("^" . font-lock-csd-score) ("^" . font-lock-csd-score) ("[=(&]?[ \n]*\$\"[^\"\n]*<%[^\"\n]*\\(\"[^\"\n]*\"\$[^\"\n]*%>[^\"\n]*\\)" 1 font-lock-csd-string t) ("[=(&]?[ \n]*\$\"[^\"\n]*\"\$" 1 font-lock-csd-string t) nil] 8) (defalias 'csd-fontify-region #[(beg end verbose) "\205\f \nZ\305 \306\245V\211\307\n #)\207" [verbose end beg loudly csd-verbose buffer-size 2 font-lock-default-fontify-region] 5]) (byte-code "\301!\302L\207" [font-lock-fontify-region-function make-local-variable csd-fontify-region] 2) (defalias 'csd-fontify-buffer #[nil "\247\203\f\302 V\202 \303 \207" [font-lock-verbose csd-verbose buffer-size font-lock-default-fontify-buffer] 2]) (byte-code "\301!\302L\207" [font-lock-fontify-buffer-function make-local-variable csd-fontify-buffer] 2) #@142 Mode for editing Csound Csd files \{csound-csd-mode-map} Major mode for editing Csound Csd files Written by John Fitch (jpff@cs.bath.ac.uk) (defalias 'csound-csd-mode #[nil "\306\307 \210\310 \210\311 !\210\312\n!\210\313\314\315\305!\210\316\317\320\211\211\211!\"#$%%\203r%@@$%@A@#\321\322$!\323P!\"\324%@8!%A%\325\"!\210!\203b\326\"\320\306#\210\327\"#\"\210$\"L\210\202)-\330\331!\210\332\333!\210\334\335!\210&\205\215\336\337 !\205\215\340 \207" [font-lock-maximum-decoration csound-csd-mode-map csound-csd-mode-syntax-table mode-name major-mode font-lock-defaults t turn-on-font-lock kill-all-local-variables use-local-map set-syntax-table "Csound Csd" csound-csd-mode make-local-variable ((csd-font-lock-keywords) nil nil nil beginning-of-defun (font-lock-comment-start-regexp . ";") (font-lock-mark-block-function mark-defun)) ((font-lock-csd-string "magenta" nil) (font-lock-csd-comment "grey50" nil) (font-lock-csd-synth "DarkGoldenrod" t) (font-lock-csd-inst "RoyalBlue" t) (font-lock-csd-score "red" t)) nil intern symbol-name "-colour" 2 make-face make-face-bold set-face-foreground font-lock-mode 1 csound-install-csd-menu "Csound/Csd" run-hooks csound-csd-mode-hook zerop buffer-size csound-csd-insert-new-buffer-strings colour-bdbg colour-face colour face colour-faces csound-csd-mode-build-new-buffer] 5 (#$ . 3292) nil]) #@33 Insert csound-csd-mode strings. (defalias 'csound-csd-insert-new-buffer-strings #[nil "\300c\207" ["\n\n\n\n\n\n\n\n\n\n\n"] 1 (#$ . 4672)]) (defalias 'csound-csd-quick #[nil "~\210\300 \207" [csound-csd-mode] 1 nil nil]) (defalias 'csound-csd-edit-score #[nil "\302\211\303b\210\304\305d\306#\203\"\307y\210`\304\310d\306#\210\311y\210`\2022\304\312d\306#\210\313c\210\314y\210`\211\212\315 \210\316 \"\210 }+\207" [epoint spoint nil 0 re-search-forward "^" t 1 "^" -1 "" "\n\n\n" -2 csound-sco-mode font-lock-fontify-region] 4 nil nil]) (defalias 'csound-csd-insert-score-file #[(name) "\303\211\304b\210\305\306d\307#\203&\310y\210`\305\311d\307#\210\312y\210` |\210\2022\305\313d\307#\210\314c\210\315y\210\316\n!\210 b*\207" [epoint spoint name nil 0 re-search-forward "^" t 1 "^" -1 "" "\n\n\n" -2 insert-file-contents] 4 nil "fInsert Score file: "]) (defalias 'csound-csd-insert-score-buffer #[(name) "\303\211\304b\210\305\306d\307#\203'\310y\210`\305\311d\307#\210\312y\210`\313 \"\210\2023\305\314d\307#\210\315c\210\316y\210\317\n!\210 b*\207" [epoint spoint name nil 0 re-search-forward "^" t 1 "^" -1 delete "" "\n\n\n" -2 insert-buffer-substring] 4 nil "bInsert Score buffer: "]) (defalias 'csound-csd-edit-orch #[nil "\302\211\303b\210\304\305d\306#\203\"\307y\210`\304\310d\306#\210\311 \210`\202.\304\312d\306#\210\313c\210\314y\210\212\315 \210\316 \"\210 }+\207" [epoint spoint nil 0 re-search-forward "^" t 1 "^" beginning-of-line "" "\n\n\n" -2 csound-orc-mode font-lock-fontify-region] 4 nil nil]) (defalias 'csound-csd-insert-orch-file #[(name) "\303\211\304b\210\305\306d\307#\203&\310y\210`\305\311d\307#\210\312 \210` |\210\2022\305\313d\307#\210\314c\210\315y\210\316\n!\210 b*\207" [epoint spoint name nil 0 re-search-forward "^" t 1 "^" beginning-of-line "" "\n\n\n" -2 insert-file-contents] 4 nil "fInsert Orchestra file: "]) (defalias 'csound-csd-insert-orch-buffer #[(name) "\303\211\304b\210\305\306d\307#\203&\310y\210`\305\311d\307#\210\312 \210` |\210\2022\305\313d\307#\210\314c\210\315y\210\316\n!\210 b*\207" [epoint spoint name nil 0 re-search-forward "^" t 1 "^" beginning-of-line "" "\n\n\n" -2 insert-buffer-substring] 4 nil "bInsert Orchestra buffer: "]) (defalias 'csound-csd-edit-options #[nil "\300b\210\301\302d\303#\210\304y\207" [0 re-search-forward "^" t 1] 4 nil nil]) (defalias 'csound-csd-insert-midi-file #[(name) "\303\211\304b\210\305\306d\307#\203&\310y\210`\305\311d\307#\210\312 \210` |\210\2022\305\313d\307#\210\314c\210\315y\210`\316\n!\210\305\317d\"\210\320 `\"\210 b*\207" [epoint spoint name nil 0 re-search-forward "^" t 1 "^" beginning-of-line "" "\n\n\n" -2 insert-file-contents "" base64-encode-region] 4 nil "fMidi file name"]) #@21 Encloder for base64 (autoload 'base64-encode-region "base64" '(#$ . 8040) t) (defalias 'csound-csd-delete-midi-file #[nil "\302\211\303b\210\304\305d\306#\205\"\307 \210`\304\310d\306#\210\311y\210` |*\207" [epoint spoint nil 0 re-search-forward "^" t beginning-of-line "^" 1] 4 nil nil]) (defalias 'csound-csd-insert-sample-file #[(name name1) "\303b\210\304\305d\306#\210\307 \210\310c\210c\210\311c\210\312y\210`\313\n!\210\304\314d\"\210\315 `\"\210 b)\207" [name1 spoint name 0 re-search-forward "" t beginning-of-line "\n\n\n" -2 insert-file-contents "" base64-encode-region] 4 nil "fFile name of sample\nMcalled"]) (defalias 'csound-csd-delete-sample-file #[(name1) "\302\303\304Q!\205\305\306 \210`\302\307!\210\310y\210 `|)\207" [name1 spoint re-search-forward "" nil beginning-of-line "" 1] 4 nil "Mcalled"]) (defalias 'csound-csd-insert-file-file #[(name name1) "\303b\210\304\305d\306#\210\307 \210\310c\210c\210\311c\210\312y\210`\313\n!\210\304\314d\"\210\315 `\"\210 b)\207" [name1 spoint name 0 re-search-forward "" t beginning-of-line "\n\n\n" -2 insert-file-contents "" base64-encode-region] 4 nil "fFile name of sample\nMCalled: "]) (defalias 'csound-csd-delete-file-file #[(name1) "\302\303\304Q\305\"\203\306\307 \210`\302\310!\210\311y\210 `|)\207\312\313!\207" [name1 spoint re-search-forward "" t nil beginning-of-line "" 1 message "Not found"] 4 nil "MCalled: "]) (defalias 'csound-install-csd-menu #[(name) "\302\303 \304 !B#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\207" [csound-csd-mode-map name define-key [menu-bar csound-csd] make-sparse-keymap [menu-bar csound-csd delete-file] ("Delete file" . csound-csd-delete-file-file) [menu-bar csound-csd insert-file] ("Insert file" . csound-csd-insert-file-file) [menu-bar csound-csd delete-sample] ("Delete Sample file" . csound-csd-delete-sample-file) [menu-bar csound-csd insert-sample] ("Insert Sample file" . csound-csd-insert-sample-file) [menu-bar csound-csd delete-midi] ("Delete MIDI file" . csound-csd-delete-midi-file) [menu-bar csound-csd insert-midi] ("Insert MIDI file" . csound-csd-insert-midi-file) [menu-bar csound-csd score-buffer] ("Insert Score Buffer" . csound-csd-insert-score-buffer) [menu-bar csound-csd score-file] ("Insert Score File" . csound-csd-insert-score-file) [menu-bar csound-csd orc-buffer] ("Insert Orchestra Buffer" . csound-csd-insert-orch-buffer) [menu-bar csound-csd orc-file] ("Insert Orchestra File" . csound-csd-insert-orch-file) [menu-bar csound-csd edit-options] ("Edit options section" . csound-csd-edit-options) [menu-bar csound-csd edit-score] ("Edit Score section" . csound-csd-edit-score) [menu-bar csound-csd edit-orch] ("Edit Orchestra section" . csound-csd-edit-orch)] 6])