;ELC ;;; Compiled by jpff@xenakis.codemist.co.uk on Fri Dec 19 14:35:26 2003 ;;; from file /home/jpff/GNU_21/local-lisp/csound-orc.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-orc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\303\304!\207" [current-load-list csound-orc-version " 1.18 (cs 4.18)" require tempo] 2) #@52 Return a regexp to match a string item in STRINGS. (autoload 'make-regexp "make-regexp" '(#$ . 736)) #@124 *If not nil, then csound-orc-mode will do timestamps on file saving. This is done by modifying the local-write-file-hooks. (defvar csound-orc-mode-do-write-file-hooks nil (#$ . -844)) #@78 *If not nil, then new buffers start with csound-orc-mode-new-buffer-strings. (defvar csound-orc-mode-build-new-buffer nil (#$ . -1034)) #@64 *If t, the indentation code for csound-orc-mode is turned off. (defvar csound-orc-mode-never-indent nil (#$ . -1176)) #@44 *Hook run when csound-orc-mode is started. (defvar csound-orc-mode-hook nil (#$ . -1300)) #@43 *Hook run when csound-orc-mode is loaded. (defvar csound-orc-mode-load-hook nil (#$ . -1396)) #@84 *Hook called for timestamp insertion. Override this for your own timestamp styles. (defvar csound-orc-mode-timestamp-hook 'csound-orc-default-insert-timestamp (#$ . -1496)) #@37 *Column at which to align comments. (defvar csound-orc-comment-col 48 (#$ . -1675)) #@32 *Positions for columns layout. (defvar csound-tab-stops '(12 24 36) (#$ . -1765)) #@42 *The default author string of each file. (defvar csound-orc-mode-address-string "Orchestra File" (#$ . -1853)) #@126 *Template for new buffers. Inserted by csound-orc-insert-new-buffer-strings if csound-orc-mode-build-new-buffer is set to t (defvar csound-orc-mode-new-buffer-template '(";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n" ";;;" csound-orc-mode-address-string "\n" csound-orc-timestamp-start csound-orc-timestamp-end ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n" "\n\n" " sr = " (int-to-string csound-orc-mode-sr) "\n" " kr = " (int-to-string csound-orc-mode-kr) "\n" " ksmps = " (int-to-string csound-orc-mode-ksmps) "\n" " nchnls = " (int-to-string csound-orc-mode-nchnls) "\n\n" p) (#$ . -1971)) #@236 *Delimiter for timestamps. Everything between csound-orc-timestamp-start and csound-orc-timestamp-end will be deleted and replaced with the output of the function csound-orc-insert-timestamp if csound-orc-mode-do-write-file-hooks is t (defvar csound-orc-timestamp-start ";****++++\n" (#$ . -2629)) #@236 *Delimiter for timestamps. Everything between csound-orc-timestamp-start and csound-orc-timestamp-end will be deleted and replaced with the output of the function csound-orc-insert-timestamp if csound-orc-mode-do-write-file-hooks is t (defvar csound-orc-timestamp-end ";****----\n" (#$ . -2934)) #@49 *String to introduce keywords in an instrument. (defvar csound-orc-keywords-msg ";;Instrument keywords: " (#$ . -3236)) #@26 Set if running on XEmacs (defvar cs-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) (#$ . 3362)) #@28 Keymap for csound-orc-mode (defvar csound-orc-mode-map (make-sparse-keymap) (#$ . 3478)) (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\307#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\317\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\354\355\356\"\207" [csound-orc-mode-map define-key ":" csound-colon ";" csound-comment ";" comment-region ":" uncomment-region "" csound-ins-add-keyword "" csound-set-ksmps "" "" csound-ins-kill-keyword "" csound-goto-instr " " csound-instrument " " csound-set-kr "" csound-set-nchnls "" csound-set-sr "" csound-write-instrument "" csound-read-instrument csound-delete-instrument "" csound-read-instrument-keyword "" csound-csd-quick "\224" csound-orc-insert-timestamp-delimiter-at-point [(control c) (control 50)] csound-e-power " " csound-orc-mode-indent-command "\n" newline-and-indent mapcar #[(l) "\302 @ A@#\207" [csound-orc-mode-map l define-key] 4] (("\206" tempo-forward-mark) ("\202" tempo-backward-mark) ("\211" tempo-complete-tag))] 4) #@14 Syntax table (defvar csound-orc-mode-syntax-table nil (#$ . 4757)) (byte-code "\204\302 !\302\207" [csound-orc-mode-syntax-table text-mode-syntax-table make-syntax-table] 2) #@22 *Declaration opcodes (defvar csound-orc-decls nil (#$ . -4941)) (byte-code "\301\302\207" [csound-orc-decls "\\<\\(instr\\|endin\\)\\>" nil] 1) #@22 *Assignment operator (defvar csound-orc-equals nil (#$ . -5092)) (byte-code "\301\302\207" [csound-orc-equals "=" nil] 1) #@31 list of opcodes for indenting (defvar csound-orc-opcodes nil (#$ . 5221)) #@26 *List of general opcodes (defvar csound-orc-opcodes-raw nil (#$ . -5301)) (byte-code "\302\303\304\207" [csound-orc-opcodes-raw csound-orc-opcodes ("active" "add" "adsr" "adsyn" "adsynt" "aftouch" "alpass" "ampdb" "ampdbfs" "ampmidi" "areson" "aresonk" "atone" "atonek" "atonex" "babo" "balance" "bbcutm" "bbcuts" "betarand" "bexprnd" "biquad" "biquada" "butbp" "butbr" "buthp" "butlp" "butterbp" "butterbr" "butterhp" "butterlp" "buzz" "cauchy" "chanctrl" "comb" "control" "convle" "convolve" "cps2pch" "cpsmidi" "cpsmidib" "cpstmid" "cpstun" "cpstuni" "cpsxpch" "cross2" "ctrl14" "ctrl21" "ctrl7" "cuserrnd" "dam" "dbamp" "dbfsamp" "dcblock" "delay" "delay1" "delayr" "deltap" "deltap3" "deltapi" "deltapn" "diff" "diskin" "distort1" "div" "divz" "downsamp" "envlpx" "envlpxr" "expon" "exprand" "expseg" "expsegr" "filelen" "filenchnls" "filepeak" "filesr" "filter2" "filter2" "flanger" "fmb3" "fmbell" "fmmetal" "fmpercfl" "fmrhode" "fmvoice" "fmwurlie" "fof" "fof2" "fog" "follow" "follow2" "foscil" "foscil3" "foscili" "ftgen" "gain" "gauss" "gbuzz" "gogobel" "grain" "grain2" "grain3" "granule" "harmon" "hrtfer" "hsboscil" "ictrl14" "ictrl21" "ictrl7" "init" "integ" "interp" "jitter" "jitter2" "jspline" "lfo" "limit" "line" "linen" "linenr" "lineto" "linrand" "linseg" "linsegr" "locsend" "locsig" "log10" "loopseg" "lorenz" "loscil" "loscil3" "lowres" "lowresx" "lpf18" "lpfreson" "lphasor" "lpreson" "lpshold" "madsr" "mandol" "marimba" "midic14" "midic21" "midic7" "midictrl" "midictrl" "midiin" "mirror" "moodvcf" "moog" "mul" "multitap" "mxads" "nestedap" "nlfilt" "noise" "notnum" "nreverb" "nsamp" "ntrpol" "octcps" "octmidi" "octmidib" "oscbnk" "oscil" "oscil1" "oscil1i" "oscil3" "oscili" "osciln" "oscils" "oscilx" "pan" "pcauchy" "pchbend" "pchmidi" "pchmidib" "peak" "phasor" "phasorbnk" "pitch" "pitchamdf" "planet" "pluck" "poisson" "port" "portk" "pow" "pvadd" "pvcross" "pvinterp" "pvoc" "pvread" "pvsadsyn" "pvsanal" "pvscross" "pvsfread" "pvsftw" "pvsinfo" "pvsmaska" "pvsynth" "rand" "randh" "randi" "readclock" "release" "repluck" "reson" "resonk" "resonx" "reverb" "reverb2" "rezzy" "rms" "rnd31" "s16b14" "s32b14" "samphold" "scans" "setctrl" "sfinstr" "sfinstrm" "sfload" "sfplay" "sfplaym" "sfpreset" "shaker" "slider16" "slider16f" "slider32" "slider32f" "slider64" "slider64f" "slider8" "slider8f" "sndwarp" "sndwarpst" "space" "spat3d" "spat3di" "spdist" "specaddm" "specdiff" "specfilt" "spechist" "specptrk" "specscal" "specsum" "spectrum" "spsend" "streson" "sub" "table" "table3" "table3kt" "tablei" "tableikt" "tablekt" "tableng" "tablera" "tablewa" "tablexkt" "taninv2" "tbvcf" "tempest" "tempoval" "timeinstk" "timeinsts" "timek" "times" "tival" "tlineto" "tone" "tonek" "tonex" "transeg" "trigger" "trirand" "unirand" "upsamp" "valpass" "vco" "vcomb" "vdelay" "vdelay3" "veloc" "vibes" "vibr" "vibrato" "vlowres" "voice" "vpvoc" "waveset" "weibull" "wgbow" "wgbrass" "wgclar" "wgflute" "wgpluck" "wgpluck2" "wguide1" "wguide2" "wrap" "xadsr" "xscans" "zamod" "zar" "zarg" "zfilter2" "zir" "zkmod" "zkr") "\\<\\(a\\(ctive\\|d\\(d\\|s\\(r\\|ynt?\\)\\)\\|ftouch\\|lpass\\|mp\\(db\\(\\|fs\\)\\|midi\\)\\|resonk?\\|tone\\(\\|[kx]\\)\\)\\|b\\(a\\(bo\\|lance\\)\\|bcut[ms]\\|e\\(tarand\\|xprnd\\)\\|iquada?\\|u\\(t\\(b[pr]\\|hp\\|lp\\|ter\\(b[pr]\\|hp\\|lp\\)\\)\\|zz\\)\\)\\|c\\(auchy\\|hanctrl\\|o\\(mb\\|n\\(trol\\|v\\(le\\|olve\\)\\)\\)\\|ps\\(2pch\\|midib?\\|t\\(mid\\|uni?\\)\\|xpch\\)\\|ross2\\|trl\\(14\\|21\\|7\\)\\|userrnd\\)\\|d\\(am\\|b\\(amp\\|fsamp\\)\\|cblock\\|el\\(ay\\(\\|[1r]\\)\\|tap\\(\\|[3in]\\)\\)\\|i\\(ff\\|s\\(kin\\|tort1\\)\\|vz?\\)\\|ownsamp\\)\\|e\\(nvlpxr?\\|xp\\(on\\|rand\\|segr?\\)\\)\\|f\\(il\\(e\\(len\\|nchnls\\|peak\\|sr\\)\\|ter2\\)\\|langer\\|m\\(b\\(3\\|ell\\)\\|metal\\|percfl\\|rhode\\|voice\\|wurlie\\)\\|o\\([fg]\\|f2\\|llow2?\\|scil\\(\\|[3i]\\)\\)\\|tgen\\)\\|g\\(a\\(in\\|uss\\)\\|buzz\\|ogobel\\|ra\\(in\\(\\|[23]\\)\\|nule\\)\\)\\|h\\(armon\\|rtfer\\|sboscil\\)\\|i\\(ctrl\\(14\\|21\\|7\\)\\|n\\(it\\|te\\(g\\|rp\\)\\)\\)\\|j\\(itter2?\\|spline\\)\\|l\\(fo\\|i\\(mit\\|n\\(e\\(\\|nr?\\|to\\)\\|rand\\|segr?\\)\\)\\|o\\(cs\\(end\\|ig\\)\\|g10\\|opseg\\|renz\\|scil3?\\|wresx?\\)\\|p\\(f\\(18\\|reson\\)\\|hasor\\|reson\\|shold\\)\\)\\|m\\(a\\(dsr\\|ndol\\|rimba\\)\\|i\\(di\\(c\\(14\\|21\\|7\\|trl\\)\\|in\\)\\|rror\\)\\|oo\\(dvcf\\|g\\)\\|ul\\(\\|titap\\)\\|xads\\)\\|n\\(estedap\\|lfilt\\|o\\(ise\\|tnum\\)\\|reverb\\|samp\\|trpol\\)\\|o\\(ct\\(cps\\|midib?\\)\\|sc\\(bnk\\|il\\(\\|[13insx]\\|1i\\)\\)\\)\\|p\\(an\\|c\\(auchy\\|h\\(bend\\|midib?\\)\\)\\|eak\\|hasor\\(\\|bnk\\)\\|itch\\(\\|amdf\\)\\|l\\(anet\\|uck\\)\\|o\\(isson\\|rtk?\\|w\\)\\|v\\(add\\|cross\\|interp\\|oc\\|read\\|s\\(a\\(dsyn\\|nal\\)\\|cross\\|f\\(read\\|tw\\)\\|info\\|maska\\|ynth\\)\\)\\)\\|r\\(and\\(\\|[hi]\\)\\|e\\(adclock\\|lease\\|pluck\\|son\\(\\|[kx]\\)\\|verb2?\\|zzy\\)\\|ms\\|nd31\\)\\|s\\(16b14\\|32b14\\|amphold\\|cans\\|etctrl\\|f\\(instrm?\\|load\\|p\\(laym?\\|reset\\)\\)\\|haker\\|lider\\(16f?\\|32f?\\|64f?\\|8f?\\)\\|ndwarp\\(\\|st\\)\\|p\\(a\\(ce\\|t3di?\\)\\|dist\\|ec\\(addm\\|diff\\|filt\\|hist\\|ptrk\\|s\\(cal\\|um\\)\\|trum\\)\\|send\\)\\|treson\\|ub\\)\\|t\\(a\\(ble\\(\\|[3i]\\|3kt\\|ikt\\|kt\\|ng\\|ra\\|wa\\|xkt\\)\\|ninv2\\)\\|bvcf\\|emp\\(est\\|oval\\)\\|i\\(me\\([ks]\\|inst[ks]\\)\\|val\\)\\|lineto\\|one\\(\\|[kx]\\)\\|r\\(anseg\\|i\\(gger\\|rand\\)\\)\\)\\|u\\(nirand\\|psamp\\)\\|v\\(alpass\\|co\\(\\|mb\\)\\|delay3?\\|eloc\\|ib\\(es\\|r\\(\\|ato\\)\\)\\|lowres\\|oice\\|pvoc\\)\\|w\\(aveset\\|eibull\\|g\\(b\\(ow\\|rass\\)\\|clar\\|flute\\|pluck2?\\|uide[12]\\)\\|rap\\)\\|x\\(adsr\\|scans\\)\\|z\\(a\\(mod\\|rg?\\)\\|filter2\\|ir\\|k\\(mod\\|r\\)\\)\\)\\>" nil] 1) #@37 list of void opcodes for indenting. (defvar csound-orc-opcodes0 nil (#$ . 10975)) #@34 *List of opcodes with no result. (defvar csound-orc-opcodes0-raw nil (#$ . -11063)) (byte-code "\302\303\304\207" [csound-orc-opcodes0-raw csound-orc-opcodes0 ("cdisplay" "clockoff" "clockon" "cpuprc" "ctrlinit" "delayw" "event" "flashtext" "ftmorf" "ihold" "initc14" "initc21" "initc7" "lpinterp" "lpslot" "massign" "maxalloc" "mclock" "mdelay" "midion" "midion2" "midiout" "moscil" "mrtmsg" "noteoff" "noteon" "nrpn" "ondur" "ondur2" "outiat" "outkat" "prealloc" "pset" "pvbufread" "pvsftr" "scanu" "schedkwhen" "schedule" "schedwhen" "seed" "sfilist" "sfpassign" "sfplist" "spat3dt" "specdisp" "strset" "tablecopy" "tablegpw" "tableicopy" "tableigpw" "tableimix" "tableiw" "tablemix" "tableseg" "tablew" "tablewkt" "tablexseg" "tempo" "turnoff" "turnon" "xscanu" "xtratim" "zacl" "zakinit" "zaw" "zawm" "ziw" "ziwm" "zkcl" "zkw" "zkwm") "\\b\\(c\\(display\\|locko\\(ff\\|n\\)\\|puprc\\|trlinit\\)\\|delayw\\|event\\|f\\(lashtext\\|tmorf\\)\\|i\\(hold\\|nitc\\(14\\|21\\|7\\)\\)\\|lp\\(interp\\|slot\\)\\|m\\(a\\(ssign\\|xalloc\\)\\|clock\\|delay\\|idio\\(n2?\\|ut\\)\\|oscil\\|rtmsg\\)\\|n\\(oteo\\(ff\\|n\\)\\|rpn\\)\\|o\\(ndur2?\\|ut\\(iat\\|kat\\)\\)\\|p\\(realloc\\|set\\|v\\(bufread\\|sftr\\)\\)\\|s\\(c\\(anu\\|hed\\(kwhen\\|ule\\|when\\)\\)\\|eed\\|f\\(ilist\\|p\\(assign\\|list\\)\\)\\|p\\(at3dt\\|ecdisp\\)\\|trset\\)\\|t\\(able\\(copy\\|gpw\\|i\\(copy\\|gpw\\|mix\\|w\\)\\|mix\\|seg\\|w\\(\\|kt\\)\\|xseg\\)\\|empo\\|urno\\(ff\\|n\\)\\)\\|x\\(scanu\\|tratim\\)\\|z\\(a\\(cl\\|kinit\\|wm?\\)\\|iwm?\\|k\\(cl\\|wm?\\)\\)\\)\\b" nil] 1) #@35 list of I/O opcodes for indenting (defvar csound-orc-iocodes nil (#$ . 12618)) #@22 list of I/O opcodes. (defvar csound-orc-iocodes-raw nil (#$ . 12703)) (byte-code "\302\303\304\207" [csound-orc-iocodes-raw csound-orc-iocodes ("in" "in32" "inc" "inh" "ino" "inq" "ins" "inx" "lpread" "readk" "readk2" "readk3" "readk4" "sensekey" "soundin" "xyin") "\\b\\(in\\(\\|[choqsx]\\|32\\)\\|lpread\\|readk\\(\\|[234]\\)\\|s\\(ensekey\\|oundin\\)\\|xyin\\)\\b" nil] 1) #@40 list of void I/O opcodes for indenting (defvar csound-orc-iocodes0 nil (#$ . 13087)) #@38 *List of I/O opcodes with no result. (defvar csound-orc-iocodes0-raw nil (#$ . -13178)) (byte-code "\302\303\304\207" [csound-orc-iocodes0-raw csound-orc-iocodes0 ("dispfft" "display" "dumpk" "dumpk2" "dumpk3" "dumpk4" "inz" "out" "out32" "outc" "outch" "outh" "outic" "outic14" "outipat" "outipb" "outipc" "outkc" "outkc14" "outkpat" "outkpb" "outkpc" "outo" "outq" "outq1" "outq2" "outq3" "outq4" "outs" "outs1" "outs2" "outx" "outz" "print" "printk" "printk2" "printks" "soundout") "\\b\\(d\\(isp\\(fft\\|lay\\)\\|umpk\\(\\|[234]\\)\\)\\|inz\\|out\\(\\|[choqsxz]\\|32\\|ch\\|i\\(c\\(\\|14\\)\\|p\\([bc]\\|at\\)\\)\\|k\\(c\\(\\|14\\)\\|p\\([bc]\\|at\\)\\)\\|q[1234]\\|s[12]\\)\\|print\\(\\|k\\(\\|[2s]\\)\\)\\|soundout\\)\\b" nil] 1) #@43 list of conditional opcodes for indenting (defvar csound-orc-opcodesc nil (#$ . 13922)) (byte-code "\301B\303\301!\204\f\304\305\306\301\207" [current-load-list csound-orc-opcodesc-raw csound-orc-opcodesc boundp "*List of conditional opcodes" ("gcgoto" "goto" "icgoto" "igoto" "kcgoto" "kgoto" "reinit" "rigoto" "rireturn" "tigoto" "timout") "\\b\\(g\\(cgoto\\|oto\\)\\|i\\(cgoto\\|goto\\)\\|k\\(cgoto\\|goto\\)\\|r\\(einit\\|i\\(goto\\|return\\)\\)\\|ti\\(goto\\|mout\\)\\)\\b"] 2) #@35 list of ADI opcodes for indenting (defvar csound-orc-opcodes-adi nil (#$ . 14417)) #@23 *List of ADI opcodes. (defvar csound-orc-opcodes-adi-raw nil (#$ . -14506)) (byte-code "\302\303\304\207" [csound-orc-opcodes-adi-raw csound-orc-opcodes-adi ("addin" "autopgms" "chanctrl" "chorus1" "chorus2" "coscil" "dexponr" "doscilp" "dpexclus" "dpkeys" "dpolaps" "dsctrl" "dsctrlmap" "dtable" "envlpxr" "filter" "flange1" "flange2" "ftload" "ftscale" "ftsplit" "ftstep" "harmon2" "harmon2" "harmon3" "iftime" "loscil1" "loscil2" "lrghall" "maddin" "mtsplit" "octdown" "octup" "pluck2" "polyaft" "timegate" "uctrlmap" "veloffs" "woscil") "\\b\\(a\\(ddin\\|utopgms\\)\\|c\\(h\\(anctrl\\|orus[12]\\)\\|oscil\\)\\|d\\(exponr\\|oscilp\\|p\\(exclus\\|keys\\|olaps\\)\\|sctrl\\(\\|map\\)\\|table\\)\\|envlpxr\\|f\\(ilter\\|lange[12]\\|t\\(load\\|s\\(cale\\|plit\\|tep\\)\\)\\)\\|harmon[23]\\|iftime\\|l\\(oscil[12]\\|rghall\\)\\|m\\(addin\\|tsplit\\)\\|oct\\(down\\|up\\)\\|p\\(luck2\\|olyaft\\)\\|timegate\\|uctrlmap\\|veloffs\\|woscil\\)\\b" nil] 1) #@40 list of ADI void opcodes for indenting (defvar csound-orc-opcodes0-adi nil (#$ . 15463)) #@41 *List of ADI void opcodes for indenting (defvar csound-orc-opcodes0-adi-raw nil (#$ . -15558)) (byte-code "\302\303\304\207" [csound-orc-opcodes0-adi-raw csound-orc-opcodes0-adi ("outs12" "panouts" "clkon" "clkoff" "send81" "send81r") "\\b\\(clko\\(ff\\|n\\)\\|outs12\\|panouts\\|send81r?\\)\\b" nil] 1) #@39 list of ADI I/O opcodes for indenting (defvar csound-orc-iocodes-adi nil (#$ . 15870)) #@26 *List of ADI I/O opcodes (defvar csound-orc-iocodes-adi-raw nil (#$ . -15963)) (byte-code "\301\302\207" [csound-orc-iocodes-adi "\\b\\b" nil] 1) #@44 list of ADI void I/O opcodes for indenting (defvar csound-orc-iocodes0-adi nil (#$ . 16116)) #@41 *List of ADI I/O opcodes with no result (defvar csound-orc-iocodes0-adi-raw '("panouts") (#$ . -16215)) (byte-code "\301\302\207" [csound-orc-iocodes0-adi "\\b\\(panouts\\)\\b" nil] 1) #@23 Set when list changes (defvar csound-orc-opcodes-change nil (#$ . 16407)) #@23 Set when list changes (defvar csound-orc-opcodes0-change nil (#$ . 16487)) #@23 Set when list changes (defvar csound-orc-iocodes-change nil (#$ . 16568)) #@23 Set when list changes (defvar csound-orc-iocodes0-change nil (#$ . 16648)) #@23 Set when list changes (defvar csound-orc-opcodesc-change nil (#$ . 16729)) #@23 Set when list changes (defvar csound-orc-opcodes-adi-change nil (#$ . 16810)) #@23 Set when list changes (defvar csound-orc-opcodes0-adi-change nil (#$ . 16894)) #@23 Set when list changes (defvar csound-orc-iocodes-adi-change nil (#$ . 16979)) #@23 Set when list changes (defvar csound-orc-iocodes0-adi-change nil (#$ . 17063)) (defalias 'delete-from-list #[(x l) "\204\302\207 @\232\203\303 A\"\207@\303 A\"B\207" [l x nil delete-from-list] 4]) (defalias 'add-opcode #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodes-raw old csound-orc-opcodes-change add-opcode symbol-name sort add-to-list string< t] 4]) (defalias 'delete-opcode #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodes-raw old csound-orc-opcodes-change delete-opcode symbol-name sort delete-from-list string< t] 4]) (defalias 'add-opcode0 #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodes0-raw old csound-orc-opcodes0-change add-opcode0 symbol-name sort add-to-list string< t] 4]) (defalias 'delete-opcode0 #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodes0-raw old csound-orc-opcodes0-change delete-opcode0 symbol-name sort delete-from-list string< t] 4]) (defalias 'add-iocode #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes-raw old csound-orc-iocodes-change add-iocode symbol-name sort add-to-list string< t] 4]) (defalias 'delete-iocode #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes-raw old csound-orc-iocodes-change delete-iocode symbol-name sort delete-from-list string< t] 4]) (defalias 'add-iocode0 #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes0-raw old csound-orc-iocodes0-change add-iocode0 symbol-name sort add-to-list string< t] 4]) (defalias 'delete-iocode0 #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes0-raw old csound-orc-iocodes0-change delete-iocode0 symbol-name sort delete-from-list string< t] 4]) (defalias 'add-opcodesc #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodesc-raw old csound-orc-opcodesc-change add-opcodesc symbol-name sort add-to-list string< t] 4]) (defalias 'delete-opcodesc #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodesc-raw old csound-orc-opcodesc-change delete-opcodesc symbol-name sort delete-from-list string< t] 4]) (defalias 'add-opcode-adi #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodes-adi-raw old csound-orc-opcodes-adi-change add-opcode-adi symbol-name sort add-to-list string< t] 4]) (defalias 'delete-opcode-adi #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-opcodes-adi-raw old csound-orc-opcodes-adi-change delete-opcode-adi symbol-name sort delete-from-list string< t] 4]) (defalias 'add-opcode0-adi #[(x) "9\203 \305\306!!\207 \307\310 \"\311\"\n \232?\205\312\211)\207" [x csound-orc-opcodes0-adi-raw old csound-orc-opcodes-adi-raw csound-orc-opcodes0-adi-change add-opcode0-adi symbol-name sort add-to-list string< t] 4]) (defalias 'delete-opcode0-adi #[(x) "9\203 \305\306!!\207 \307\310 \"\311\"\n \232?\205\312\211)\207" [x csound-orc-opcodes0-adi-raw old csound-orc-opcodes-adi-raw csound-orc-opcodes0-adi-change delete-opcode0-adi symbol-name sort delete-from-list string< t] 4]) (defalias 'add-iocode-adi #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes-adi-raw old csound-orc-iocodes-adi-change add-iocode-adi symbol-name sort add-to-list string< t] 4]) (defalias 'delete-iocode-adi #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes-adi-raw old csound-orc-iocodes-adi-change delete-iocode-adi symbol-name sort delete-from-list string< t] 4]) (defalias 'add-iocode0-adi #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes0-adi-raw old csound-orc-iocodes0-adi-change add-iocode0-adi symbol-name sort add-to-list string< t] 4]) (defalias 'delete-iocode0-adi #[(x) "9\203 \304\305!!\207 \306\307 \"\310\"\n \232?\205\311\211)\207" [x csound-orc-iocodes0-adi-raw old csound-orc-iocodes0-adi-change delete-iocode0-adi symbol-name sort delete-from-list string< t] 4]) #@58 If the lists of opcodes have changed remake the patterns (defalias 'make-opcode-patterns #[nil "\203 \306\307 !\310Q \203\306\307\f!\310Q\n\203$\306\307 !\310Q\f \2032\306\307!\310Q\203@\306\307!\310Q\203N\306\307!\310Q\203\\\306\307!\310Q\203j\306\307!\310Q\203x\306\307!\310Q\311\311\311\n\311 \311\311\311\311\311\211\207" [csound-orc-opcodes-change csound-orc-opcodes-raw csound-orc-opcodes csound-orc-opcodes0-change csound-orc-opcodes0-raw csound-orc-opcodes0 "\\<\\(" make-regexp "\\)\\>" nil csound-orc-iocodes-change csound-orc-iocodes-raw csound-orc-iocodes csound-orc-iocodes0-change csound-orc-iocodes0-raw csound-orc-iocodes0 csound-orc-opcodesc-change csound-orc-opcodesc-raw csound-orc-opcodesc csound-orc-opcodes-adi-change csound-orc-opcodes-adi-raw csound-orc-opcodes-adi csound-orc-opcodes0-adi-change csound-orc-opcodes0-adi-raw csound-orc-opcodes0-adi csound-orc-iocodes-adi-change csound-orc-iocodes-adi-raw csound-orc-iocodes-adi csound-orc-iocodes0-adi-change csound-orc-iocodes0-adi-raw csound-orc-iocodes0-adi] 3 (#$ . 21452)]) #@33 limit on how far back we search (defvar csound-orc-search-limit 2000 (#$ . 22577)) #@55 If t, indent will print out information as a message. (defvar csound-orc-mode-print-indent-info nil (#$ . 22666)) #@64 Command for indenting text. Just calls csound-orc-mode-indent. (defalias 'csound-orc-mode-indent-command #[nil "\300 \207" [csound-orc-mode-indent] 1 (#$ . 22786) nil]) #@33 indentation workhorse function. (defalias 'csound-orc-mode-indent #[nil "?\205\332\306 l\307\307\210`\310 \210\214` }\210\311\312!\204\300`\313 \210`|\210\311\314!\204\300\311\315!\2038\316j\210\202\300\311\317!\203l\320\321!\210\311\322!\203Q\323 \210\fj\210\202\300\311\324!\203]\323 \210\202\300\325u\210\323 \210\326c\210\327 \210\202\300\311\330!\204\300\311\331!\204\300\323 \210\311\332!\203\245\333\225b\210\323 \210\334c\210\335c\210\336\337\340\"\210\341\342!\210\335c\210\336\337\340\"\210\323 \210\343 \210\335c\210\336\337\340\"\210\311 !\203\310\341\344!\210\335c\210\336\337\340\"\210\323 \210\334c\210\202\300\3114!\204\353\3115!\204\353\3116!\204\353\3117!\204\353\3118!\203\361\343 \210\202@\335c\210\336\337\340\"\210\345c\210\341\344!\210\311\346!\203\n\347\307w\210\335c\210\336\337\340\"\210\323 \210\343 \210\335c\210\336\337\340\"\210\3119!\204@\311:!\204@\311;!\204@\311 \n|\210 b\210\313\314!\210**\305\207" [csound-orc-timestamp-start csound-orc-timestamp-end ts-end ts-start search-backward nil t message "timestamp delimiter start was not found" search-forward "timestamp delimiter end was not found. Type C-c C-t to insert one." run-hooks csound-orc-mode-timestamp-hook] 5 (#$ . 27459)]) #@38 Default timestamp insertion function (defalias 'csound-orc-default-insert-timestamp #[nil "\300\301 \302\261\207" [";**** Last modified: " current-time-string "\n"] 3 (#$ . 28228)]) #@111 Simple function that inserts timestamp delimiters at point. Useful for adding timestamps to existing buffers. (defalias 'csound-orc-insert-timestamp-delimiter-at-point #[nil "c\210 c\207" [csound-orc-timestamp-start csound-orc-timestamp-end] 1 (#$ . 28418) nil]) (tempo-define-template "csound-skeleton" csound-orc-mode-new-buffer-template nil "Insert a skeleton for a CSOUND document") #@44 Insert csound-orc-mode-new-buffer-strings. (defalias 'csound-orc-insert-new-buffer-strings #[nil "\300 \207" [tempo-template-csound-skeleton] 1 (#$ . 28812)]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\305\305\207" [current-load-list csound-code-level-empty-comment-pattern csound-flush-left-empty-comment-pattern csound-inline-empty-comment-pattern boundp nil] 2) #@45 Subdued level highlighting for Csound mode. (defconst csound-font-lock-keywords-1 nil (#$ . 29231)) #@44 Medium level highlighting for Csound mode. (defconst csound-font-lock-keywords-2 nil (#$ . 29337)) #@43 Gaudy level highlighting for Csound mode. (defconst csound-font-lock-keywords-3 nil (#$ . 29442)) #@50 Default expressions to highlight in Csound mode. (defconst csound-font-lock-keywords nil (#$ . 29546)) (byte-code "\306\307\310\311\312\313\314\315\316!\"#\317\320#\321B$\322B%\323B&\324B\257'\325'&\326B(\326B)\327B*\327B\330+\331B,\332B-\332B.\332B\257 \"/\325/\f\333B \334B\n\335B \336B\337B \340B\257\"0. \321\207" [csound-orc-arate csound-orc-frate csound-orc-wrate csound-orc-krate csound-orc-irate csound-orc-funcs "\\b\\(sr\\|k\\(r\\|smps\\)\\|nchnls\\)\\b" "^[ ]*\\sw+[ ]*:" (concat "\\b\\(" (make-regexp '("abs" "ampdb" "ampdbfs" "birnd" "cent" "cos" "cosh" "cosinv" "cpsoct" "cpspch" "db" "dbamp" "dbampfs" "duserrnd" "exp" "frac" "ftlen" "ftlptim" "ftchnls" "i" "int" "log" "octave" "octcps" "octpch" "p" "pchoct" "rnd" "semitone" "sin" "sinh" "sininv" "sqrt" "tan" "tanh" "taninv" "urd")) "\\)\\b") "\\b\\([ip]\\|a\\(bs\\|mpdb\\(\\|fs\\)\\)\\|birnd\\|c\\(ent\\|os\\(\\|h\\|inv\\)\\|ps\\(oct\\|pch\\)\\)\\|d\\(b\\(\\|amp\\(\\|fs\\)\\)\\|userrnd\\)\\|exp\\|f\\(rac\\|t\\(chnls\\|l\\(en\\|ptim\\)\\)\\)\\|int\\|log\\|oct\\(ave\\|cps\\|pch\\)\\|pchoct\\|rnd\\|s\\(emitone\\|in\\(\\|h\\|inv\\)\\|qrt\\)\\|tan\\(\\|h\\|inv\\)\\|urd\\)\\b" "\\<\\(i\\|p\\|gi\\)[a-zA-Z0-9]+\\>" "\\" "\\" "\\" "\\" (";.*$" . font-lock-cs-comment) ("\"[^\"\n]*\"" . font-lock-cs-string) font-lock-cs-globs font-lock-cs-equals font-lock-cs-decls font-lock-cs-inst append font-lock-cs-opcode font-lock-cs-inout ("^[ ]*\\(\\b[a-zA-Z0-9]+\\b\\):" (1 font-lock-cs-label)) font-lock-cs-flow font-lock-cs-opcode-adi font-lock-cs-irate font-lock-cs-krate font-lock-cs-wrate font-lock-cs-frate font-lock-cs-arate font-lock-cs-funcs tmp csound-orc-labels csound-orc-globals csound-orc-equals csound-orc-decls csound-orc-opcodes csound-font-lock-keywords-1 csound-orc-opcodes0 csound-orc-iocodes csound-orc-iocodes0 csound-orc-opcodesc csound-orc-opcodes-adi csound-orc-opcodes0-adi csound-orc-iocodes0-adi csound-font-lock-keywords-2 csound-font-lock-keywords-3] 12) #@650 Mode for editing Csound Orchestras The main function csound-orc-mode provides is a bunch of keybindings for the Csound cookies one inserts when writing Csound orchestra. Typing the key sequence for a command inserts the corresponding cookie and places point in the right place. If a prefix argument is supplied, the cookie is instead wrapped around the region. Alternately, one can type in part of the cookie and complete it. There is also code for indentation, timestamps, skeletons for new documents, and lots of other neat features. \{csound-orc-mode-map} Major mode for editing Csound Orchestras. Written by John Fitch (jpf@maths.bath.ac.uk) (defalias 'csound-orc-mode #[nil "\306 \210\307!\210\310 !\210\311\312\313\304!\210\313\305!\210\313\314!\210\313\315!\210\316\3176\f\320 \313\321!\210\322\313\323!\210\324\3257\3268\3279\313\330!\210\331\313\332!\210\333:6\331B\"\313\334!\210;<\335=\203j\336\202k\337\331\211\211\211>?@ABB\203\333B@@AB@A@@=\203\225A\202\235\340\341A!\342P!?\343B@8>BAB\344?!\210>\203\313=\203\304\345?>\"\210\202\313\346?\331\347#\210\350?@\"\210A?L\210\202y-\351\352!\210\353\354!\210\355\356!\210C\203\362\357\360\361\"\210\357\360\362\"\210D\205\363\364 !\205\365 \207" [csound-orc-mode-map csound-orc-mode-syntax-table mode-name major-mode comment-start comment-end kill-all-local-variables use-local-map set-syntax-table "Csound Orchestra" csound-orc-mode make-local-variable comment-column indent-line-function "; " "" csound-orc-indent-line comment-indent-function csound-orc-mode-comment comment-start-skip ";+[ ]*" "^.+;+ *$" "^[ ]+;; *$" "^;;; *$" indent-tabs-mode nil tab-stop-list append font-lock-defaults ((csound-font-lock-keywords csound-font-lock-keywords-1 csound-font-lock-keywords-2 csound-font-lock-keywords-3) nil nil nil beginning-of-defun (font-lock-comment-start-regexp . ";") (font-lock-mark-block-function mark-defun)) ((font-lock-cs-string "green4" nil) (font-lock-cs-comment "red" nil) (font-lock-cs-globs "firebrick" nil) (font-lock-cs-opcode "orange" nil) (font-lock-cs-inout "orange" nil) (font-lock-cs-opcode-adi "blue" nil) (font-lock-cs-irate "grey30" nil) (font-lock-cs-krate "grey30" nil) (font-lock-cs-wrate "grey30" nil) (font-lock-cs-frate "grey30" nil) (font-lock-cs-arate "grey30" nil) (font-lock-cs-funcs "orange" nil) (font-lock-cs-inst "orange" nil) (font-lock-cs-equals "blue" nil) (font-lock-cs-label "black" "darkseagreen2") (font-lock-cs-decls "blue" nil) (font-lock-cs-flow "black" "darkseagreen2")) ((font-lock-cs-string "magenta" nil) (font-lock-cs-comment "grey50" nil) (font-lock-cs-globs "purple" nil) (font-lock-cs-opcode "firebrick" nil) (font-lock-cs-inout "Navy" nil) (font-lock-cs-opcode-adi "MediumAquamarine" nil) (font-lock-cs-irate "ForestGreen" nil) (font-lock-cs-krate "RoyalBlue" nil) (font-lock-cs-wrate "DodgerBlue" nil) (font-lock-cs-frate "MediumBlue" nil) (font-lock-cs-arate "DarkGoldenrod" nil) (font-lock-cs-funcs "Sienna" nil) (font-lock-cs-inst "red" t) (font-lock-cs-equals "red" t) (font-lock-cs-label "red" t) (font-lock-cs-decls "RoyalBlue" t) (font-lock-cs-flow "blue" t)) intern symbol-name "-colour" 2 make-face set-face-background make-face-bold t set-face-foreground font-lock-mode 1 csound-install-orc-menu "Csound/Orc" run-hooks csound-orc-mode-hook add-hook local-write-file-hooks csound-orc-update-timestamp csound-orc-check-rates zerop buffer-size csound-orc-insert-new-buffer-strings csound-orc-comment-col csound-inline-empty-comment-pattern csound-code-level-empty-comment-pattern csound-flush-left-empty-comment-pattern csound-tab-stops csound-font-lock-keywords-3 csound-font-lock-keywords cs-running-xemacs colour-bdbg colour-face colour face colour-faces csound-orc-mode-do-write-file-hooks csound-orc-mode-build-new-buffer] 5 (#$ . 31664) nil]) #@21 Default sample rate (defvar csound-orc-mode-sr 44100 (#$ . 35520)) #@22 Default control rate (defvar csound-orc-mode-kr 4410 (#$ . 35593)) #@20 Default ksmps rate (defvar csound-orc-mode-ksmps 10 (#$ . 35666)) #@28 Default number of channels (defvar csound-orc-mode-nchnls 2 (#$ . 35738)) (defalias 'csound-orc-get-rates #[nil "\305\211\212\306b\210\307\310d\311#\211\204\305\202!\312y\210\313\314 `\"!)\203D\212\306b\210\307\315d\311#\211\2049\305\202C\312y\210\313\314 `\"!)\203f\212\306b\210\307\316d\311#\211\204[\305\202e\312y\210\313\314 `\"!)*\207" [ans opoint csound-orc-mode-sr csound-orc-mode-kr csound-orc-mode-ksmps nil 0 re-search-forward "sr[ ]*=[ ]*" t 1 string-to-int buffer-substring-no-properties "kr[ ]*=[ ]*" "ksmps[ ]*=[ ]*"] 5]) #@39 Set SR global and adjust KR and KSMPS (defalias 'csound-set-sr #[(new-rate) "\304 \210\n _ \232\204\305\306 \n $\210\212\307b\210\310\311!\210\312\313!\203)\314\315!\210\202\316 !c)\207" [new-rate csound-orc-mode-sr csound-orc-mode-kr csound-orc-mode-ksmps csound-orc-get-rates message "New sr of %d is not compatable with kr=%d and ksmps=%d" 0 re-search-forward "sr[ ]*=[ ]*" looking-at "[0-9]" delete-char 1 int-to-string] 5 (#$ . 36309) "nSample rate: "]) #@39 Set KR global and adjust SR and KSMPS (defalias 'csound-set-kr #[(new-rate) "\304 \210\211\n_ \232\204\305\306 \n$\210\212\307b\210\310\311!\210\312\313!\203)\314\315!\210\202\316 !c)\207" [new-rate csound-orc-mode-kr csound-orc-mode-ksmps csound-orc-mode-sr csound-orc-get-rates message "New kr of %d is not compatable with sr=%d and ksmps=%d" 0 re-search-forward "kr[ ]*=[ ]*" looking-at "[0-9]" delete-char 1 int-to-string] 6 (#$ . 36783) "nControl rate: "]) #@39 Set KSMPS global and adjust KR and SR (defalias 'csound-set-ksmps #[(new-rate) "\304 \210\n _ \232\204\305\306 \n$\210\212\307b\210\310\311!\210\312\313!\203)\314\315!\210\202\316 !c)\207" [new-rate csound-orc-mode-ksmps csound-orc-mode-kr csound-orc-mode-sr csound-orc-get-rates message "New ksmps of %d is not compatable with sr=%d and kr=%d" 0 re-search-forward "ksmps[ ]*=[ ]*" looking-at "[0-9]" delete-char 1 int-to-string] 5 (#$ . 37261) "nControl samples: "]) (defalias 'csound-orc-check-rates #[nil "\304 \211\205 \n_ \232?\205\305\306 \n$)\207" [ok csound-orc-mode-kr csound-orc-mode-ksmps csound-orc-mode-sr csound-orc-get-rates message "Sample rate/Control rate incompatability: %d != %d * %d"] 6]) #@26 Set Mono, Stereo or Quad (defalias 'csound-set-nchnls #[(num-chans) "\301\232\203\n\302\202\227\303\232\203\302\202\227\304\232\203\302\202\227\305\232\203(\306\202\227\307\232\2032\306\202\227\310\232\203<\306\202\227\311\232\203F\312\202\227\313\232\203P\312\202\227\314\232\203Z\312\202\227\315\232\203d\316\202\227\317\232\203n\316\202\227\320\232\203x\316\202\227\321\232\203\202\322\202\227\323\232\203\214\322\202\227\324\232\203\226\322\202\227\302\212\325b\210\326\327!\210\330\331!\203\255\332\302!\210\202\240\333!c)\207" [num-chans 77 1 109 49 83 2 115 50 81 4 113 52 72 6 104 54 79 8 111 56 0 re-search-forward "nchnls[ ]*=[ ]*" looking-at "[0-9]" delete-char int-to-string] 2 (#$ . 37994) "cChannels [M,S,Q,H,O]: "]) #@32 Text at start of new instument (defvar csound-instrument-template1 "\n\n;;; I N S T R U M E N T " (#$ . 38784)) #@32 Text at start of new instument (defvar csound-instrument-template2 "\n;;; Write description here\n;;; Keywords:\n" (#$ . 38905)) #@24 Start a new instrument (defalias 'csound-instrument #[(num) "\305\211d\211b\210\n\306 !\f\307\261\210\310 \210\311c\210\310 \210`\312 !c\210\313c\210\310 \210\314c\210b\210\315y*\207" [pp ss csound-instrument-template1 num csound-instrument-template2 nil number-to-string "\n" tab-to-tab-stop "instr" int-to-string "\n ;; Description of Arguments:\n\n\n" "endin\n\n" 2] 4 (#$ . 39040) "nNumber: "]) #@37 Position cursor within instrument n (defalias 'csound-goto-instr #[(num) "\303\304\303b\210\203>\305\306d\304#\211\203>\307 \210\214` T}\210\305\310\311\n!\312Qd\304#\2035~\210\313y\210\314\2027~\210) b\210\202\205F\315\316\n\"*\207" [more pp num 0 t re-search-forward "\\binstr[ ]*[0-9, ]*" beginning-of-line "[ ,]" int-to-string "[ ,\n]" 1 nil message "Instr %d not found"] 4 (#$ . 39451) "nNumber: "]) #@59 Write out the numbered instrument to a file with keywords (defalias 'csound-write-instrument #[(num name keywords) "\306\307\310P\212\306b\210\n\203\222\311\312d\307#\211\203\222\313 \210\214` T}\210\311\314\315\f!\316Qd\307#\203\211~\210 b\210\311\317\320 \307#\203\205\321y\210\322\323\324 \307$\210\322 \324 \307$\210\322\325\326 \327Q\324 \307$\210\322\324 \307$\210\322\324 \307$\210\322\324 \307$\210\322\327\324 \307$\210\322 ` \307$\210\324\202\211\330\331!\210~\210) b\210\202\f)\n\205\233\332\333\f\"+\207" [name fname more pp num csound-orc-timestamp-start 0 t ".ins" re-search-forward "\\binstr[ ]*[0-9, ]*" beginning-of-line "[ ,]" int-to-string "[ ,\n]" "\\bendin\\b" buffer-size 1 write-region ";;Instrument saved\n" nil ";**** Last modified: " current-time-string "\n" error "Mal-formed orchestra file" message "Instr %d not found" csound-orc-timestamp-end csound-orc-keywords-msg keywords] 5 (#$ . 39879) "nNumber: \nsname: \nsKeywords: "]) #@41 Insert an instrument from a saved file. (defalias 'csound-read-instrument #[(num name) "\303 \304P\"\210\305 \211\205\306\n@\307\"\210\nA\211\204\310)\207" [num name ks csound-read-instrument1 ".ins" csound-parse-comma-list csound-make-keyword t nil] 5 (#$ . 40866) "nNumber: \nsname: "]) (defalias 'csound-read-instrument1 #[(num name) "\305!\210\306\211\211d\211b\210\307\f!\210 b\210\310\311!\312\261\210\313\314!\210\315\316!\210\317\f\320\261\210\321\322\323\"\210\322y\210\313\322!\210\324 +\207" [num ks pp ss name csound-delete-instrument nil insert-file-contents "instr " int-to-string "\n" kill-line 2 search-forward ";**** " "From file " ".ins saved on:" zap-to-char 1 58 csound-find-keywords] 3]) #@41 Read an instrument based on its keyword (defalias 'csound-read-instrument-keyword #[(num keyword) "\306\307\310#\307\211p\211\205V\311\f@!\211q\210\312b\210\313 !\210\314  q\210\315 !\210\n\235\203N\316\f@\"\210\n\203H\317\n@\320\"\210\nA\211\204;\307\211\202 \fA\211\204\307,\207" [default-directory obuff ks buff file-list csound-orc-keywords-msg directory-files nil ".*\\.ins" find-file-noselect 0 search-forward csound-parse-comma-list kill-buffer csound-read-instrument1 csound-make-keyword t keyword num] 5 (#$ . 41596) "nNumber: \nskeyword: "]) #@29 Delete numbered instrument. (defalias 'csound-delete-instrument #[(num) "\303\304\303b\210\205^\305\306d\304#\205^\307 \210`\305\310\311\n!\312Q \304#\203/\313\314\315\"\210\316\202X\305\312\311\n!\312Q \304#\203X\317\320!\203J\313\321\315\"\210\202V\322 \305\323!\"\210\313\321\324\"\210\316 b\210\202*\207" [more pp num 0 t re-search-forward "\\binstr[ ]*[0-9, ]*" beginning-of-line ",[ ]*\\b" int-to-string "\\b" zap-to-char -1 44 nil looking-at "[ ]*," 1 kill-region "\\bendin\\b" 10] 4 (#$ . 42175) "nNumber: "]) #@19 Last keyword used (defvar csound-last-key nil (#$ . 42718)) (byte-code "\301B\302\301!\204\303\304\305\"\301\207" [current-load-list csound-keyword-obarray boundp make-vector 127 0] 3) #@119 Add KEYWORD to keywords associated with current Instrument. Completion is performed over known keywords when reading. (defalias 'csound-ins-add-keyword #[(string) "\301\302\"\207" [string csound-set-keyword t] 3 (#$ . 42915) (list (csound-read-keyword "Add label"))]) #@124 Remove KEYWORD from keywords associated with current Instrument. Completion is performed over known keywords when reading. (defalias 'csound-ins-kill-keyword #[(string) "\301\302\"\207" [string csound-set-keyword nil] 3 (#$ . 43191) (list (csound-read-keyword "Remove label"))]) (defalias 'csound-read-keyword #[(prompt) "\304 \203\305\306 !\307Q\202\310P\n\311\211$\211\312\230\203 \202&\313 \314\"\211)\207" [prompt csound-last-key csound-keyword-obarray result completing-read " (default " symbol-name "): " ": " nil "" csound-make-keyword t] 6]) (defalias 'csound-set-keyword #[(label state) "\305\216\212\306 \307 \310\n!b\210\f\203\311 \"\202\312 \"\313 \210 \2034 @\314\261\210 A\211\204'\315\316!-\207" [pos ks label sym state nil csound-find-keywords csound-parse-comma-list symbol-name add-to-list delete kill-line "," delete-char -1] 4]) #@50 Return a list of strngs parsed from current line (defalias 'csound-parse-comma-list #[nil "\302\211\303\302w\210\304\305!\204!`\306\302w\210`{ B\307\302w\210\202 *\207" [beg acc nil " " looking-at "[ ]*$" "^, \n$" ", "] 2 (#$ . 44072)]) (defalias 'csound-make-keyword #[(s &optional forcep) "9\203\207 \203\303\227\n\"\207\304\227\n\"\207" [s forcep csound-keyword-obarray intern intern-soft] 3]) (defalias 'csound-force-make-keyword #[(s) "\302\227 \"\207" [s csound-keyword-obarray intern] 3]) #@27 Move to start of keywords (defalias 'csound-find-keywords #[nil "\303\211\303\210\304\305!\306\307! b\210\310\n\311#\2044 b\210\312y\210\313\314!\203,\312y\210\202 \n\315\261\210\316y\210`*\207" [pos2 pos1 csound-orc-keywords-msg nil re-search-backward "\\binstr\\b" re-search-forward "\\bendin\\b" search-forward t 1 looking-at "^[ ]*\\(;\\|$\\)" "\n" -1] 4 (#$ . 44595)]) (defalias 'csound-line-matches #[(pattern &optional withcomment) "\212\301 \210\302!)\207" [pattern beginning-of-line looking-at] 2]) (defalias 'csound-pop-comment-level #[nil "\300\210\301 \210h\302U\203\303\304!\210\202\301 \210n?\205!\305 \210\306\304!\207" [nil delete-horizontal-space 59 delete-backward-char 1 beginning-of-line open-line] 2]) #@417 Convert an empty comment to a `larger' kind, or start a new one. These are the known comment classes: 1 -- comment to the right of the code (at the comment-column) 2 -- comment on its own line, indented like code 3 -- comment on its own line, beginning at the left-most column. Suggested usage: while writing your code, trigger csound-comment repeatedly until you are satisfied with the kind of comment. (defalias 'csound-comment #[nil "\304\305!\203\306 \210\307 \210c\210\202N\304\310!\203\311 \210\202N\304 !\203*\312c\210\202N\304\n!\2039\313 \210\314c\210\202N\304 !\203K\313 \210\307 \210\315c\210\202N\312c\210\316\207" [comment-start csound-flush-left-empty-comment-pattern csound-code-level-empty-comment-pattern csound-inline-empty-comment-pattern csound-line-matches "^[ ]*$" delete-horizontal-space tab-to-tab-stop "^[^;\n]+$" indent-for-comment ";" csound-pop-comment-level ";;;" ";; " nil] 2 (#$ . 45343) nil]) #@43 Call `\[comment-region]' with an argument (defalias 'uncomment-region #[nil "\300`\301 \302#\207" [comment-region mark (t)] 4 (#$ . 46301) nil]) #@25 *Relayout entire buffer (defalias 'indent-buffer #[nil "\300ed\301#\207" [indent-region 0] 4 (#$ . -46452) nil]) #@13 XEmacs menu (defvar csound-orc-mode-menu nil (#$ . 46571)) (byte-code "\301\302\207" [csound-orc-mode-menu ("Csound/Orc" ["Indent Region" indent-region t] ["Indent Buffer" indent-buffer t] ["Comment Region" comment-region t] ["Uncomment Region" uncomment-region t] ["Power-of-2 Region" e-power t] "-----" ["Instrument Kill Keyword" csound-ins-kill-keyword t] ["Instrument Add Keyword" csound-ins-add-keyword t] ["Insert Instrument by Key" csound-read-instrument-keyword t] ["Insert Instrument" csound-read-instrument t] ["Write Instrument" csound-write-instrument t] ["Delete Instrument" csound-delete-instrument t] ["Find Instrument" csound-goto-instr t] ["New Instrument" csound-instrument t] "-----" ["Change Channels" csound-set-nchnls t] ["Change KSMPS" csound-set-ksmps t] ["Change KR" csound-set-kr t] ["Change SR" csound-set-sr t] "-----" ["Return to csd mode" csound-csd-quick] ["Document Opcode" csdoc-document-opcode] ["Report Bug" csound-orc-submit-bug-report t]) nil] 1) #@32 Csound Documentation browsing. (autoload 'csdoc-document-opcode "csound-doc" '(#$ . 47562) t) (defalias 'csound-install-orc-menu #[(menu-name) "\205$\304\305!\205$ \205$\306\n \"?\205$\307\310 !!\210\311\312\n AB\313#\207" [cs-running-xemacs current-menubar menu-name csound-orc-mode-menu featurep menubar assoc set-buffer-menubar copy-sequence add-submenu nil "Csound/Orc"] 4]) (defalias 'e-power-of-2 #[(x) "\306\307\306\310\"\311\211\211 \311U?\205Q \fX\203 \f\211\202Q Y\203, \211\202Q\312\313 \306\"!\307\306\n\"\307\306\nT\"\314 Z Z\245!\315Y\203P\202Q -\207" [z y round-log max min x 2 expt 24 0 truncate log abs 1] 5]) (defalias 'csound-e-power #[(start end) "\303 \205\"\214\n }\210\304\305 !\306!\211\205!\n |\210\307\310\"c))\207" [number end start 0 string-to-number buffer-string e-power-of-2 format "%d"] 4 nil "r"]) (byte-code "\204\214\302 \303\304\305\304!B#\210\306\307\310\311#\210\306\312\310\311#\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#\210\302 \337\340#\210\302 \341\342#\210\302 \343\344#\210\302 \345\346#\210\302 \347\350#\210\302 \351\352#\210\302 \353\354#\210\302 \355\356#\210\302 \357\360#\210\302\207" [cs-running-xemacs csound-orc-mode-map define-key [menu-bar csound-orc] "Csound/Orc" make-sparse-keymap put uncomment-region menu-enable mark-active csound-e-power [menu-bar csound-orc csd] ("Return to csd mode" . csound-csd-quick) [menu-bar csound-orc Submit-Report] ("Report Bug" . csound-orc-submit-bug-report) [menu-bar csound-orc Indent-Region] ("Indent Region" . indent-region) [menu-bar csound-orc Indent-buffer] ("Indent Buffer" . indent-buffer) [menu-bar csound-orc UnComment-Region] ("UnComment Region" . uncomment-region) [menu-bar csound-orc Comment-Region] ("Comment Region" . comment-region) [menu-bar csound-orc Power-Region] ("Power-of-2 Region" . csound-e-power) [menu-bar csound-orc Kill-Keyword] ("Instrument Kill Keyword" . csound-ins-kill-keyword) [menu-bar csound-orc Add-Keyword] ("Instrument Add Keyword" . csound-ins-add-keyword) [menu-bar csound-orc Insert-Key] ("Insert Instrument by Key" . csound-read-instrument-keyword) [menu-bar csound-orc Insert-Instrument] ("Insert Instrument" . csound-read-instrument) [menu-bar csound-orc Write-Instrument] ("Write Instrument" . csound-write-instrument) [menu-bar csound-orc Kill-Instrument] ("Delete Instrument" . csound-delete-instrument) [menu-bar csound-orc Goto-Instrument] ("Find Instrument" . csound-goto-instr) [menu-bar csound-orc Start-Instrument] ("New Instrument" . csound-instrument) [menu-bar csound-orc Set-Channels] ("Change Channels" . csound-set-nchnls) [menu-bar csound-orc Set-KSMPS] ("Change KSMPS" . csound-set-ksmps) [menu-bar csound-orc Set-KR] ("Change KR" . csound-set-kr) [menu-bar csound-orc Set-SR] ("Change SR" . csound-set-sr)] 6) #@48 Submit via mail a bug report on csound-orc.el. (defalias 'csound-orc-submit-bug-report #[nil "\302\303!\210\304\305\306\307 P\310\311\211\312&)\207" [reporter-prompt-for-summary-p csound-orc-version require reporter t reporter-submit-bug-report "jpff@maths.bath.ac.uk" "csound-orc" (csound-orc-mode-do-write-file-hooks csound-orc-mode-build-new-buffer csound-orc-mode-never-indent csound-orc-mode-hook csound-orc-mode-load-hook csound-orc-mode-timestamp-hook csound-orc-comment-col csound-tab-stops csound-orc-mode-address-string csound-orc-mode-new-buffer-template csound-orc-timestamp-start csound-orc-timestamp-end csound-orc-keywords-msg csound-orc-decls csound-orc-equals csound-orc-opcodes csound-orc-opcodes-raw csound-orc-opcodes0 csound-orc-opcodes0-raw csound-orc-iocodes csound-orc-iocodes-raw csound-orc-iocodes0 csound-orc-iocodes0-raw csound-orc-opcodesc csound-orc-opcodesc-raw csound-orc-opcodes-adi csound-orc-opcodes-adi-raw csound-orc-opcodes0-adi csound-orc-opcodes0-adi-raw csound-orc-iocodes-adi csound-orc-iocodes-adi-raw csound-orc-iocodes0-adi csound-orc-iocodes0-adi-raw csound-orc-search-limit csound-orc-mode-print-indent-info csound-code-level-empty-comment-pattern csound-flush-left-empty-comment-pattern csound-inline-empty-comment-pattern csound-orc-mode-sr csound-orc-mode-kr csound-orc-mode-ksmps csound-orc-mode-nchnls csound-instrument-template1 csound-instrument-template2 csound-last-key csound-keyword-obarray) nil "Hi John.,\n\nI want to report a bug in csound-orc mode\n\n"] 7 (#$ . 50507) nil]) #@23 List of all templates (defvar all-ops nil (#$ . 52052)) (byte-code "\301\302\207" [all-ops (("active_i" "i" "i") ("active_k" "k" "k") ("adsr" "s" "iiiio") ("adsyn" "a" "kkkSo") ("adsynt" "a" "kkiiiio") ("aftouch" "k" "oh") ("alpass" "a" "akioo") ("ampdb_a" "a" "a") ("ampdb_i" "i" "i") ("ampdb_k" "k" "k") ("ampdbfs_a" "a" "a") ("ampdbfs_i" "i" "i") ("ampdbfs_k" "k" "k") ("ampmidi" "i" "io") ("areson" "a" "akkoo") ("aresonk" "k" "kkkpo") ("atone" "a" "ako") ("atonek" "k" "kko") ("atonex" "a" "akoo") ("babo" "aa" "akkkiiijj") ("balance" "a" "aaqo") ("bamboo" "a" "kioooooo") ("bbcutm" "a" "aiiiiipop") ("bbcuts" "aa" "aaiiiiipop") ("betarand_a" "a" "kkk") ("betarand_i" "i" "kkk") ("betarand_k" "k" "kkk") ("bexprnd_a" "a" "k") ("bexprnd_i" "i" "k") ("bexprnd_k" "k" "k") ("biquad" "a" "akkkkkko") ("biquada" "a" "aaaaaaao") ("birnd_i" "i" "i") ("birnd_k" "k" "k") ("butbp" "a" "akko") ("butbr" "a" "akko") ("buthp" "a" "ako") ("butlp" "a" "ako") ("butterbp" "a" "akko") ("butterbr" "a" "akko") ("butterhp" "a" "ako") ("butterlp" "a" "ako") ("button" "k" "k") ("buzz" "a" "xxkio") ("cabasa" "a" "iiooo") ("cauchy_a" "a" "k") ("cauchy_i" "i" "k") ("cauchy_k" "k" "k") ("cggoto" "" "Bl") ("chanctrl_i" "i" "iioh") ("chanctrl_k" "k" "iioh") ("checkbox" "k" "k") ("clear" "" "y") ("clip" "a" "aiiv") ("clockoff" "" "i") ("clockon" "" "i") ("comb" "a" "akioo") ("control" "k" "k") ("convle" "mmmm" "aSo") ("convolve" "mmmm" "aSo") ("cps2pch" "i" "ii") ("cpsmidi" "i" "") ("cpsmidib_i" "i" "o") ("cpsmidib_k" "k" "o") ("cpstmid" "i" "i") ("cpstun" "k" "kkk") ("cpstuni" "i" "ii") ("cpsxpch" "i" "iiii") ("cpuprc" "" "ii") ("cross2" "a" "aaiiik") ("crunch" "a" "iiooo") ("ctrl14_i" "i" "iiiiio") ("ctrl14_k" "k" "iiikko") ("ctrl21_i" "i" "iiiiiio") ("ctrl21_k" "k" "iiiikko") ("ctrl7_i" "i" "iiiio") ("ctrl7_k" "k" "iikko") ("ctrlinit" "" "im") ("cuserrnd_a" "a" "kkk") ("cuserrnd_i" "i" "iii") ("cuserrnd_k" "k" "kkk") ("dam" "a" "akiiii") ("dbamp_i" "i" "i") ("dbamp_k" "k" "k") ("dbfsamp_i" "i" "i") ("dbfsamp_k" "k" "k") ("dcblock" "a" "ao") ("dconv" "a" "aii") ("delay" "a" "aio") ("delay1" "a" "ao") ("delayr" "a" "io") ("delayw" "" "a") ("deltap" "a" "k") ("deltap3" "a" "x") ("deltapi" "a" "x") ("deltapn" "a" "x") ("deltapx" "a" "ai") ("deltapxw" "" "aai") ("diff" "s" "xo") ("diskin" "mmmm" "Skooo") ("dispfft" "" "siiooo") ("display" "" "sioo") ("distort1" "a" "appoo") ("div_aa" "a" "aa") ("div_ak" "a" "ak") ("div_ii" "i" "ii") ("div_ka" "a" "ka") ("div_kk" "k" "kk") ("divz_aa" "a" "aak") ("divz_ak" "a" "akk") ("divz_ka" "a" "kak") ("divz_kk" "k" "kkk") ("downsamp" "k" "ao") ("dripwater" "a" "kioooooo") ("dumpk" "" "kSii") ("dumpk2" "" "kkSii") ("dumpk3" "" "kkkSii") ("dumpk4" "" "kkkkSii") ("envlpx" "s" "xiiiiiio") ("envlpxr" "s" "xiiiiioo") ("event" "" "Sz") ("expon" "s" "iii") ("exprand_a" "a" "k") ("exprand_i" "i" "k") ("exprand_k" "k" "k") ("expseg" "s" "iin") ("expsega" "a" "iin") ("expsegr" "s" "iin") ("filelen" "i" "S") ("filenchnls" "i" "S") ("filepeak" "i" "So") ("filesr" "i" "S") ("filter2_a" "a" "aiim") ("filter2_k" "k" "kiim") ("fin" "" "Siiy") ("fini" "" "Siim") ("fink" "" "Siiz") ("fiopen" "i" "Si") ("flanger" "a" "aakv") ("flashtxt" "" "iS") ("fmb3" "a" "kkkkkkiiiii") ("fmbell" "a" "kkkkkkiiiii") ("fmmetal" "a" "kkkkkkiiiii") ("fmpercfl" "a" "kkkkkkiiiii") ("fmrhode" "a" "kkkkkkiiiii") ("fmvoice" "a" "kkkkkkiiiii") ("fmwurlie" "a" "kkkkkkiiiii") ("fof" "a" "xxxkkkkkiiiioo") ("fof2" "a" "xxxkkkkkiiiikk") ("fog" "a" "xxxakkkkkiiiioo") ("fold" "a" "ak") ("follow" "a" "ai") ("follow2" "a" "akk") ("foscil" "a" "xkxxkio") ("foscili" "a" "xkxxkio") ("fout" "" "Siy") ("fouti" "" "iiim") ("foutir" "" "iiim") ("foutk" "" "Siz") ("ftmorf" "" "kii") ("ftsr_i" "i" "i") ("gain" "a" "akqo") ("gauss_a" "a" "k") ("gauss_i" "i" "k") ("gauss_k" "k" "k") ("gbuzz" "a" "xxkkkio") ("gogobel" "a" "kkiiikki") ("grain" "a" "xxxkkkiiio") ("grain2" "a" "kkkikiooo") ("grain3" "a" "kkkkkkikikkoo") ("granule" "a" "xiiiiiiiiikikiiivppppo") ("guiro" "a" "kiooooo") ("harmon" "a" "akkkkiii") ("hilbert" "aa" "a") ("hrtfer" "aa" "akkS") ("hsboscil" "a" "kkkiiioo") ("ihold" "" "") ("in" "a" "") ("in32" "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" "") ("inch" "a" "k") ("inh" "aaaaaa" "") ("init_a" "a" "i") ("init_i" "i" "i") ("init_k" "k" "i") ("initc14" "" "iiii") ("initc21" "" "iiiii") ("initc7" "" "iii") ("ino" "aaaaaaaa" "") ("inq" "aaaa" "") ("ins" "aa" "") ("integ" "s" "xo") ("interp" "a" "ko") ("inx" "aaaaaaaaaaaaaaaa" "") ("inz" "" "k") ("itablecopy" "" "ii") ("itablegpw" "" "i") ("itablemix" "" "iiiiiiiii") ("itablew" "" "iiiooo") ("jitter" "k" "kkk") ("jitter2" "k" "kkkkkkk") ("jspline" "s" "xkk") ("kon" "" "kkk") ("ktableseg" "" "iin") ("lfo" "s" "kko") ("limit_a" "a" "xkk") ("limit_i" "i" "iii") ("limit_k" "k" "xkk") ("line" "s" "iii") ("linen" "s" "xiii") ("linenr" "s" "xiii") ("lineto" "k" "kk") ("linrand_a" "a" "k") ("linrand_i" "i" "k") ("linrand_k" "k" "k") ("linseg" "s" "iin") ("linsegr" "s" "iin") ("locsend" "mmmm" "") ("locsig" "mmmm" "akkk") ("logbtwo_a" "a" "a") ("logbtwo_i" "i" "i") ("logbtwo_k" "k" "k") ("loopseg" "k" "kkz") ("lorenz" "aaa" "kkkkiiii") ("loscil" "mm" "xkiojoojoo") ("loscil3" "mm" "xkiojoojoo") ("lowpass2" "a" "akko") ("lowres" "a" "akko") ("lowresx" "a" "akkoo") ("lpf18" "a" "akkk") ("lpfreson" "a" "ak") ("lphasor" "a" "xooooooo") ("lpinterp" "" "iik") ("lposcil" "a" "kkkkio") ("lposcil3" "a" "kkkkio") ("lpread" "kkkk" "kSoo") ("lpreson" "a" "a") ("lpshold" "k" "kkz") ("lpslot" "" "i") ("mac" "a" "Z") ("maca" "a" "y") ("madsr" "s" "iiiioj") ("mandol" "a" "kkkkkkio") ("marimba" "a" "kkiiikkiioo") ("massign" "" "ii") ("maxalloc" "" "ii") ("mclock" "" "i") ("mdelay" "" "kkkkk") ("midic14_i" "i" "iiiio") ("midic14_k" "k" "iikko") ("midic21_i" "i" "iiiiio") ("midic21_k" "k" "iiikko") ("midic7_i" "i" "iiio") ("midic7_k" "k" "ikko") ("midictrl_i" "i" "ioh") ("midictrl_k" "k" "ioh") ("midiin" "kkkk" "") ("midion" "" "kkk") ("midion2" "" "kkkk") ("midiout" "" "kkkk") ("mirror" "s" "xkk") ("mirror_i" "i" "iii") ("mod_aa" "a" "aa") ("mod_ak" "a" "ak") ("mod_ii" "i" "ii") ("mod_ka" "a" "ka") ("mod_kk" "k" "kk") ("moog" "a" "kkkkkkiii") ("moogvcf" "a" "axxp") ("moscil" "" "kkkkk") ("mpulse" "a" "kko") ("mrtmsg" "" "i") ("multitap" "a" "am") ("mxadsr" "s" "iiiioj") ("nestedap" "a" "aiiiiooooo") ("nlfilt" "a" "akkkkk") ("noise" "a" "xk") ("noteoff" "" "iii") ("noteon" "" "iii") ("noteondur" "" "iiii") ("noteondur2" "" "iiii") ("notnum" "i" "") ("nreverb" "a" "akkoojoj") ("nrpn" "" "kkk") ("ntrpol_a" "a" "aakop") ("ntrpol_i" "i" "iiiop") ("ntrpol_k" "k" "kkkop") ("octmidi" "i" "") ("octmidib_i" "i" "o") ("octmidib_k" "k" "o") ("octpch_i" "i" "i") ("oscbnk" "a" "kkkkiikkkkikkkkkkikooooooo") ("oscil1" "k" "ikii") ("oscil1i" "k" "ikii") ("oscil3_aa" "a" "aaio") ("oscil3_ak" "a" "akio") ("oscil3_ka" "a" "kaio") ("oscil3_kk" "s" "kkio") ("oscil_aa" "a" "aaio") ("oscil_ak" "a" "akio") ("oscil_ka" "a" "kaio") ("oscil_kk" "s" "kkio") ("oscili_aa" "a" "aaio") ("oscili_ak" "a" "akio") ("oscili_ka" "a" "kaio") ("oscili_kk" "s" "kkio") ("osciln" "a" "kiii") ("oscils" "a" "iiio") ("oscilx" "a" "kiii") ("out" "" "a") ("out32" "" "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa") ("outc" "" "y") ("outch" "" "Z") ("outh" "" "aaaaaa") ("outiat" "" "iiii") ("outic" "" "iiiii") ("outic14" "" "iiiiii") ("outipat" "" "iiiii") ("outipb" "" "iiii") ("outipc" "" "iiii") ("outkat" "" "kkkk") ("outkc" "" "kkkkk") ("outkc14" "" "kkkkkk") ("outkpat" "" "kkkkk") ("outkpb" "" "kkkk") ("outkpc" "" "kkkk") ("outo" "" "aaaaaaaa") ("outq" "" "aaaa") ("outq1" "" "a") ("outq2" "" "a") ("outq3" "" "a") ("outq4" "" "a") ("outs" "" "aa") ("outs1" "" "a") ("outs2" "" "a") ("outx" "" "aaaaaaaaaaaaaaaa") ("outz" "" "k") ("pan" "aaaa" "akkioo") ("pareq" "a" "akkko") ("pcauchy_a" "a" "k") ("pcauchy_i" "i" "k") ("pcauchy_k" "k" "k") ("pchbend_i" "i" "jp") ("pchbend_k" "k" "jp") ("pchmidi" "i" "") ("pchmidib_i" "i" "o") ("pchmidib_k" "k" "o") ("peak_a" "k" "a") ("peak_k" "k" "k") ("phaser1" "a" "akkko") ("phaser2" "a" "akkkkkk") ("phasor" "s" "xo") ("phasorbnk" "s" "xkio") ("pinkish" "a" "xoooo") ("pitch" "kk" "aiiiiqooooojo") ("pitchamdf" "kk" "aiioppoo") ("planet" "aaa" "kkkiiiiiiio") ("pluck" "a" "kkiiioo") ("poisson_a" "a" "k") ("poisson_i" "i" "k") ("poisson_k" "k" "k") ("polyaft_i" "i" "ioh") ("polyaft_k" "k" "ioh") ("port" "k" "kio") ("portk" "k" "kko") ("poscil" "s" "kkio") ("poscil3" "s" "kkio") ("pow_a" "a" "akp") ("pow_i" "i" "ii") ("pow_k" "k" "kkp") ("powoftwo_a" "a" "a") ("powoftwo_i" "i" "i") ("powoftwo_k" "k" "k") ("prealloc" "" "ii") ("print" "" "m") ("printk" "" "iko") ("printk2" "" "ko") ("printks" "" "Sikkkk") ("product" "a" "y") ("pvadd" "a" "kkSiiopooo") ("pvbufread" "" "kS") ("pvcross" "a" "kkSkko") ("pvinterp" "a" "kkSkkkkkk") ("pvoc" "a" "kkSoooo") ("pvread" "kk" "kSi") ("pvsadsyn" "a" "fikopo") ("pvsanal" "f" "aiiiioo") ("pvscross" "f" "ffkk") ("pvsfread" "f" "kSo") ("pvsftr" "" "fio") ("pvsftw" "k" "fio") ("pvsinfo" "iiii" "f") ("pvsmaska" "f" "fik") ("pvsynth" "a" "fo") ("rand" "s" "xvoo") ("randh" "s" "xxvoo") ("randi" "s" "xxvoo") ("readclock" "i" "i") ("readk" "k" "Siio") ("readk2" "kk" "Siio") ("readk3" "kkk" "Siio") ("readk4" "kkkk" "Siio") ("reinit" "" "l") ("release" "k" "") ("repluck" "a" "ikikka") ("reson" "a" "akkoo") ("resonk" "k" "kkkpo") ("resonr" "a" "akkoo") ("resonx" "a" "akkooo") ("resony" "a" "akkikooo") ("resonz" "a" "akkoo") ("reverb" "a" "ako") ("reverb2" "a" "akkoojoj") ("rezzy" "a" "axxo") ("rms" "k" "aqo") ("rnd31_a" "a" "kko") ("rnd31_i" "i" "iio") ("rnd31_k" "k" "kko") ("rtclock_i" "i" "") ("rtclock_k" "i" "") ("s16b14_i" "iiiiiiiiiiiiiiii" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("s16b14_k" "kkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("s32b14_i" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("s32b14_k" "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("samphold" "s" "xxoo") ("sandpaper" "a" "iiooo ") ("scans" "a" "kkiio") ("scanu" "" "iiiiiiikkkkiikkaii") ("schedkwhen" "" "kkkkkz") ("schedule" "" "iiim") ("schedwhen" "" "kkkkm") ("seed" "" "i") ("sekere" "a" "iiooo") ("sense" "k" "") ("sensekey" "k" "") ("seqtime" "k" "kkkkk") ("setctrl" "" "iSi") ("sfilist" "" "i") ("sfinstr" "aa" "iixxiio") ("sfinstr3" "aa" "iixxiio") ("sfinstr3m" "a" "iixxiio") ("sfinstrm" "a" "iixxiio") ("sfload" "i" "S") ("sfpassign" "" "ii") ("sfplay" "aa" "iixxio") ("sfplay3" "aa" "iixxio") ("sfplay3m" "a" "iixxio") ("sfplaym" "a" "iixxio") ("sfplist" "" "i") ("sfpreset" "i" "iiii") ("shaker" "a" "kkkkko") ("sleighbells" "a" "kioooooo") ("slider16_i" "iiiiiiiiiiiiiiii" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider16_k" "kkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider16f" "kkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider32_i" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider32_k" "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider32f" "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider64_i" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider64_k" "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider64f" "kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider8_i" "iiiiiiii" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider8_k" "kkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("slider8f" "kkkkkkkk" "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii") ("sndwarp" "mm" "xxxiiiiiii") ("sndwarpst" "mmmm" "xxxiiiiiii") ("soundin" "mmmmmmmmmmmmmmmmmmmmmmmm" "Soo") ("soundout" "" "aSo") ("space" "aaaa" "aikkkk") ("spat3d" "aaaa" "akkkiiiiio") ("spat3di" "aaaa" "aiiiiiio") ("spat3dt" "" "iiiiiiiio") ("spdist" "k" "ikkk") ("specaddm" "w" "wwp") ("specdiff" "w" "w") ("specdisp" "" "wio") ("specfilt" "w" "wi") ("spechist" "w" "w") ("specptrk" "kk" "wkiiiiiioqooo") ("specscal" "w" "wii") ("specsum" "k" "wo") ("spectrum" "w" "siiiqoooo") ("spsend" "aaaa" "") ("stix" "a" "iiooo") ("streson" "a" "aki") ("strset" "" "iS") ("sum" "a" "y") ("svfilter" "aaa" "akko") ("table" "s" "xiooo") ("table3" "s" "xiooo") ("table3_i" "i" "iiooo") ("table_i" "i" "iiooo") ("tablecopy" "" "kk") ("tablegpw" "" "k") ("tablei" "s" "xiooo") ("tablei_i" "i" "iiooo") ("tableicopy" "" "ii") ("tableigpw" "" "i") ("tableikt" "s" "xkooo") ("tableimix" "" "iiiiiiiii") ("tableiw" "" "iiiooo") ("tablekt" "s" "xkooo") ("tablemix" "" "kkkkkkkkk") ("tableng_i" "i" "i") ("tableng_k" "k" "k") ("tablera" "a" "kkk") ("tableseg" "" "iin") ("tablew" "" "xxiooo") ("tablewa" "k" "kak") ("tablewkt" "" "xxkooo") ("tablexseg" "" "iin") ("tambourine" "a" "kioooooo") ("taninv2_a" "a" "aa") ("taninv2_i" "i" "ii") ("taninv2_k" "k" "kk") ("tbvcf" "a" "axxkk") ("tempest" "k" "kiiiiiiiiiop") ("tempo" "" "ki") ("tempoval" "k" "") ("timeinstk" "k" "") ("timeinsts" "k" "") ("timek_i" "i" "") ("timek_k" "k" "") ("times_i" "i" "") ("times_k" "k" "") ("timout" "" "iil") ("tival" "i" "") ("tlineto" "k" "kkk") ("tone" "a" "ako") ("tonek" "k" "kko") ("tonex" "a" "akoo") ("transeg" "s" "iiim") ("trigger" "k" "kkk") ("trigseq" "" "kkkkkz") ("trirand_a" "a" "k") ("trirand_i" "i" "k") ("trirand_k" "k" "k") ("turnoff" "" "") ("turnon" "" "io") ("unirand_a" "a" "k") ("unirand_i" "i" "k") ("unirand_k" "k" "k") ("upsamp" "a" "k") ("valpass" "a" "akkioo") ("vbap16" "aaaaaaaaaaaaaaaa" "aioo") ("vbap16move" "aaaaaaaaaaaaaaaa" "aiiim") ("vbap4" "aaaa" "aioo") ("vbap4move" "aaaa" "aiiim") ("vbap8" "aaaaaaaa" "aioo") ("vbap8move" "aaaaaaaa" "aiiim") ("vbaplsinit" "" "iioooooooooooooooooooooooooooooooo") ("vbapz" "" "iiaioo") ("vbapzmove" "" "iiaiiim") ("vco" "a" "xxpppp") ("vcomb" "a" "akkioo") ("vdelay" "a" "axio") ("vdelay3" "a" "axio") ("vdelayx" "a" "aaiio") ("vdelayxq" "aaaa" "aaaaaiio") ("vdelayxs" "aa" "aaaiio") ("vdelayxw" "a" "aaiio") ("vdelayxwq" "aaaa" "aaaaaiio") ("vdelayxws" "aa" "aaaiio") ("veloc" "i" "oh") ("vibes" "a" "kkiiikkii") ("vibr" "k" "kki") ("vibrato" "k" "kkkkkkkkio") ("vincr" "" "aa") ("vlowres" "a" "akkik") ("voice" "a" "kkkkkkii") ("vpvoc" "a" "kkSoo") ("waveset" "a" "ako") ("weibull_a" "a" "kk") ("weibull_i" "i" "kk") ("weibull_k" "k" "kk") ("wgbow" "a" "kkkkkkio") ("wgbowedbar" "a" "kkkkkoooo") ("wgbrass" "a" "kkkikkio") ("wgclar" "a" "kkkiikkkio") ("wgflute" "a" "kkkiikkkiovv") ("wgpluck" "a" "iikiiia") ("wgpluck2" "a" "ikikk") ("wguide1" "a" "axkk") ("wguide2" "a" "axxkkkk") ("wrap" "s" "xkk") ("wrap_i" "i" "iii") ("xadsr" "s" "iiiio") ("xscans" "a" "kkiio") ("xscanu" "" "iiiiSiikkkkiikkaii") ("xtratim" "" "i") ("xxx" "a" "kkio") ("xyin" "kk" "iiiiioo") ("zacl" "" "kk") ("zakinit" "" "ii") ("zamod" "a" "ak") ("zar" "a" "k") ("zarg" "a" "kk") ("zaw" "" "ak") ("zawm" "" "akp") ("zfilter2" "a" "akkiim") ("zir" "i" "i") ("ziw" "" "ii") ("ziwm" "" "iip") ("zkcl" "" "kk") ("zkmod" "k" "kk") ("zkr" "k" "k") ("zkw" "" "kk") ("zkwm" "" "kkp") { "tablexkt" "a" "xkkiooo") nil] 1) #@22 Expand Csound opcode (defalias 'csound-abbrev #[nil "\306\211o\203\307\310!\210\212`\311 \312\216\313\314\315\316#\203$\317u\210\202(\307\310!\210\320\321!\2038\322\323`\f\"P\202<\307\310!\210*\f`|\210 \203\210\324 \211@@)\"\203w\306 @\211A@) @@ @\211AA)@E\211\nB A)\202A\n\203\201\306\211\202B A\211\204E\n\203\305`\325\n!\326\n@!\210\n\203\266\327\330!\204\266`|\210\nA\211\203\230\326\n@!\210\202\230 c\210\212\331\322!\210\332\317!*\202\321 c\210\212\331\322!\210\332\317!),\207" [all-ops oplist expansions abbrev last-abbrev-location save-match-data-internal nil error "No possible abbreviation preceding point" match-data ((set-match-data save-match-data-internal)) search-backward-regexp "[ \n]" 0 t 1 looking-at "\\(\\sw\\|\\s_\\)+" "^" buffer-substring-no-properties string-match reverse cs-insert-abbrev y-or-n-p "Accept? " search-backward delete-char x new start] 5 (#$ . 68825) nil]) (defalias 'cs-insert-abbrev #[(expand) "\303\304 @\"\305c\210\306 \211A@)!\210\305c\210\304 \211AA)@\")\207" [n expand x 0 cs-insertvars " " cs-insertop] 4]) (defalias 'cs-insertop #[(str) "\303 \304\")\211\205 \n@\305=?\205 \n@c\210\nA\211\204\f\306)\207" [str string sl string-to-sequence list 137 nil] 4]) (defalias 'cs-insertvars #[(n str) "\305\306 \307\")\n\2037 \203\310c\210\n@\311\232\203\"\312c\210\202.\n@c\210\313\fT\211!c\210\314\nA\211\204\f*\207" [str string sl cont n nil string-to-sequence list ", " 123 "\"abc\"" number-to-string t] 5]) (byte-code "\301\302\303#\210\304\305!\210\306\307!\207" [csound-orc-mode-map define-key "/" csound-abbrev provide csound-orc-mode run-hooks csound-orc-mode-load-hook] 4)