diff options
| -rw-r--r-- | bin/supercollider.vim | 347 |
1 files changed, 0 insertions, 347 deletions
diff --git a/bin/supercollider.vim b/bin/supercollider.vim deleted file mode 100644 index 92b2512..0000000 --- a/bin/supercollider.vim +++ /dev/null @@ -1,347 +0,0 @@ -"SuperCollider/Vim interaction scripts -"Copyright 2007 Alex Norman -" -"This file is part of SCVIM. -" -"SCVIM is free software: you can redistribute it and/or modify -"it under the terms of the GNU General Public License as published by -"the Free Software Foundation, either version 3 of the License, or -"(at your option) any later version. -" -"SCVIM is distributed in the hope that it will be useful, -"but WITHOUT ANY WARRANTY; without even the implied warranty of -"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -"GNU General Public License for more details. -" -"You should have received a copy of the GNU General Public License -"along with SCVIM. If not, see <http://www.gnu.org/licenses/>. - -"au VimLeave - -"if exists("$SCVIM_DIR") == 0 -" echo "$SCVIM_DIR must be defined for SCVIM to work" -" finish -"endif - - -"source the syntax file as it can change -"so $SCVIM_DIR/syntax/supercollider.vim -runtime! syntax/supercollider.vim - -if exists("loaded_scvim") || &cp - finish -endif -let loaded_scvim = 1 - -"first if SCVIM_CACHE_DIR is defined, use that, -"otherwise use ~/.scvim -if exists("$SCVIM_CACHE_DIR") - let s:scvim_cache_dir = $SCVIM_CACHE_DIR -else - let s:scvim_cache_dir = $HOME . "/.scvim" - let $SCVIM_CACHE_DIR = s:scvim_cache_dir -endif - -"source the scvimrc file if it exists -if filereadable($HOME . "/.scvimrc") - source $HOME/.scvimrc -end - -"add the cache dir to -set runtimepath+=$SCVIM_CACHE_DIR - -if exists("g:sclangKillOnExit") - let s:sclangKillOnExit = g:sclangKillOnExit -else - let s:sclangKillOnExit = 1 -endif - -if exists("g:sclangPipeLoc") - let s:sclangPipeLoc = g:sclangPipeLoc -else - let s:sclangPipeLoc = "/tmp/sclang-pipe" -endif -let $SCVIM_PIPE_LOC = s:sclangPipeLoc - -if exists("g:sclangPipeAppPidLoc") - let s:sclangPipeAppPidLoc = g:sclangPipeAppPidLoc -else - let s:sclangPipeAppPidLoc = "/tmp/sclangpipe_app-pid" -endif -let $SCVIM_PIPE_PID_LOC = s:sclangPipeAppPidLoc - -if exists("g:sclangTerm") - let s:sclangTerm = g:sclangTerm -else - let s:sclangTerm = "xterm -e" -endif - -if exists("g:sclangPipeApp") - let s:sclangPipeApp = g:sclangPipeApp -else - let s:sclangPipeApp = "sclangpipe_app" -endif - -"function SClangRunning() -" if s:sclang_pid != 0 && `pidof "#{$sclangsclangPipeApp_no_quotes}"`.chomp != "" -" return true -" else -" $sclang_pid = 0 -" return false -" end -"end - - -function! FindOuterMostBlock() - "search backwards for parens dont wrap - let l:search_expression_up = "call searchpair('(', '', ')', 'bW'," . - \"'synIDattr(synID(line(\".\"), col(\".\"), 0), \"name\") =~? \"scComment\" || " . - \"synIDattr(synID(line(\".\"), col(\".\"), 0), \"name\") =~? \"scString\" || " . - \"synIDattr(synID(line(\".\"), col(\".\"), 0), \"name\") =~? \"scSymbol\"')" - "search forward for parens, don't wrap - let l:search_expression_down = "call searchpair('(', '', ')', 'W'," . - \"'synIDattr(synID(line(\".\"), col(\".\"), 0), \"name\") =~? \"scComment\" || " . - \"synIDattr(synID(line(\".\"), col(\".\"), 0), \"name\") =~? \"scString\" || " . - \"synIDattr(synID(line(\".\"), col(\".\"), 0), \"name\") =~? \"scSymbol\"')" - - "save our current cursor position - let l:returnline = line(".") - let l:returncol = col(".") - - "if we're on an opening paren then we should actually go to the closing one to start the search - "if buf[l:returnline][l:returncol-1,1] == "(" - if strpart(getline(line(".")),col(".") - 1,1) == "(" - exe l:search_expression_down - endif - - let l:origline = line(".") - let l:origcol = col(".") - - "these numbers will define our range, first init them to illegal values - let l:range_e = [-1, -1] - let l:range_s = [-1, -1] - - "this is the last line in our search - let l:lastline = line(".") - let l:lastcol = col(".") - - exe l:search_expression_up - - while line(".") != l:lastline || (line(".") == l:lastline && col(".") != l:lastcol) - "keep track of the last line/col we were on - let l:lastline = line(".") - let l:lastcol = col(".") - "go to the matching paren - exe l:search_expression_down - - "if there isn't a match print an error - if l:lastline == line(".") && l:lastcol == col(".") - call cursor(l:returnline,l:returncol) - throw "UnmachedParen at line:" . l:lastline . ", col: " . l:lastcol - endif - - "if this is equal to or later than our original cursor position - if line(".") > l:origline || (line(".") == l:origline && col(".") >= l:origcol) - let l:range_e = [line("."), col(".")] - "go back to opening paren - exe l:search_expression_up - let l:range_s = [line("."), col(".")] - else - "go back to opening paren - exe l:search_expression_up - endif - "find next paren (if there is one) - exe l:search_expression_up - endwhile - - "restore the settings - call cursor(l:returnline,l:returncol) - - if l:range_s[0] == -1 || l:range_s[1] == -1 - throw "OutsideOfParens" - endif - - "return the ranges - return [l:range_s, l:range_e] -endfunction - - -"this causes the sclang pipe / terminal app to be killed when you exit vim, if you don't -"want that to happen then just comment this out -if !exists("loaded_kill_sclang") - if s:sclangKillOnExit - au VimLeave * call SClangKill() - endif - let loaded_kill_sclang = 1 -endif - -"the vim version of SendToSC -function SendToSC(text) - let l:text = substitute(a:text, '\', '\\\\', 'g') - let l:text = substitute(l:text, '"', '\\"', 'g') - let l:cmd = system('echo "' . l:text . '" >> ' . s:sclangPipeLoc) - "let l:cmd = system('echo "' . l:text . '" >> /tmp/test') -endfunction - -function SendLineToSC(linenum) - let cmd = a:linenum . "w! >> " . s:sclangPipeLoc - silent exe cmd - "let cmd = a:linenum . "w! >> /tmp/test" - "silent exe cmd -endfunction - -function! SClang_send() - let cmd = ".w! >> " . s:sclangPipeLoc - exe cmd - if line(".") == a:lastline - call SendToSC(' ') - "redraw! - endif -endfunction - -function SClangStart() - if !filewritable(s:sclangPipeAppPidLoc) - call system("tmux splitw -h -p 25; tmux send-keys " . s:sclangPipeApp . " C-m; tmux selectp -L; sleep 1; tmux renamew scvim") - else - throw s:sclangPipeAppPidLoc . " exists, is " . s:sclangPipeApp . " running? If not try deleting " . s:sclangPipeAppPidLoc - endif -endfunction - -function SClangKill() - if filewritable(s:sclangPipeAppPidLoc) - call system("tmux selectp -R; tmux send-keys C-c; tmux killp -t scvim.1") - call SendToSC("Server.quitAll; ") - :sleep 10m - call system("kill `cat " . s:sclangPipeAppPidLoc . "` && rm " . s:sclangPipeAppPidLoc . " && rm " . s:sclangPipeLoc) - end -endfunction - -function SClangRestart() - if filewritable(s:sclangPipeAppPidLoc) - call system("kill -HUP `cat " . s:sclangPipeAppPidLoc . "`") - else - call SClangStart() - end -endfunction - -function SClang_free(server) - call SendToSC('s.freeAll; ') - redraw! -endfunction - -function SClang_thisProcess_stop() - call SendToSC('thisProcess.stop; ') - redraw! -endfunction - -function SClang_TempoClock_clear() - call SendToSC('TempoClock.default.clear; ') - redraw! -endfunction - -function! SClang_block() - let [blkstart,blkend] = FindOuterMostBlock() - "blkstart[0],blkend[0] call SClang_send() - "these next lines are just a hack, how can i do the above?? - let cmd = blkstart[0] . "," . blkend[0] . " call SClang_send()" - let l:origline = line(".") - let l:origcol = col(".") - exe cmd - call cursor(l:origline,l:origcol) - - ""if the range is just one line - "if blkstart[0] == blkend[0] - " "XXX call SendToSC(strpart(getline(blkstart[0]),blkstart[1] - 1, (blkend[1] - blkstart[1] + 1))) - " call SendLineToSC(blkstart[0]) - "else - " let linen = blkstart[0] - 1 - " "send the first line as it might not be a full line - " "XXX let line = getline(linen) - " "XXX call SendToSC(strpart(line, blkstart[1] - 1)) - " call SendLineToSC(linen) - " let linen += 1 - " let endlinen = blkend[0] - " while linen < endlinen - " "XXX call SendToSC(getline(linen)) - " call SendLineToSC(linen) - " let linen += 1 - " endwhile - " "send the last line as it might not be a full line - " "XXX let line = getline(endlinen) - " "XXX call SendToSC(strpart(line,0,blkend[1])) - " call SendLineToSC(endlinen) - "endif - "call SendToSC(' ') -endfunction - -function SCdef(subject) - let l:tagfile = s:scvim_cache_dir . "/TAGS_SCDEF" - let l:tagdest = s:scvim_cache_dir . "/doc/tags" - - if !filereadable(l:tagfile) - echo "definition tag cache does not exist, you must run SCVim.updateCaches in supercollider" - let l:dontcare = system("echo 'SC:SCVim SCVim.scd /^' > " . l:tagdest) - exe "help SC:SCVim" - else - let l:dontcare = system("grep SCdef:" . a:subject . " " . l:tagfile . " > " . l:tagdest) - exe "help SCdef:" . a:subject - end -endfun - -function SChelp(subject) - let l:tagfile = s:scvim_cache_dir . "/doc/TAGS_HELP" - let l:tagdest = s:scvim_cache_dir . "/doc/tags" - if !filereadable(l:tagfile) - echo "help tag cache does not exist, you must run SCVim.updateHelpCache in supercollider in order have help docs" - let l:dontcare = system("echo 'SC:SCVim SCVim.scd /^' > $SCVIM_CACHE_DIR/doc/tags") - exe "help SC:SCVim" - return - end - - "the keybindings won't find * but will find ** for some reason - if a:subject == "" - let l:dontcare = system("grep \"SC:Help\" " . l:tagfile . " > " . l:tagdest) - exe "help SC:Help" - elseif a:subject == "*" - let l:dontcare = system("grep \"SC:\\*\" " . l:tagfile . " > " . l:tagdest) - exe "help SC:\*" . a:subject - elseif a:subject == "**" - let l:dontcare = system("grep \"SC:\\*\\*\" " . l:tagfile . " > " . l:tagdest) - exe "help SC:\*\*" . a:subject - else - let l:dontcare = system("grep SC:\"" . a:subject . "\" " . l:tagfile . " > " . l:tagdest) - exe "help SC:" . a:subject - endif -endfun - -" search help files for word under the cursor -" or open the HelpBrowser front page -function! HelpBrowser(subject) - if strlen(a:subject) > 0 && a:subject!~" " && a:subject!~"\t" - let string= "HelpBrowser.openHelpFor" - let format= "(\"" . a:subject . "\"); " - let string= string . format - call SendToSC(string) - else - call SendToSC('Help.gui; ') - endif -endfunction - -function ListSCObjects(A,L,P) - return system("cat $SCVIM_CACHE_DIR/sc_object_completion") -endfun - -function ListSCHelpItems(A,L,P) - return system("cat $SCVIM_CACHE_DIR/doc/sc_help_completion") -endfun - - -"custom commands (SChelp,SCdef,SClangfree) -com -complete=custom,ListSCHelpItems -nargs=? SChelp call SChelp("<args>") -com -complete=custom,ListSCObjects -nargs=1 SCdef call SCdef("<args>") -com -nargs=1 SClangfree call SClang_free("<args>") -com -nargs=0 SClangStart call SClangStart() -com -nargs=0 SClangKill call SClangKill() -com -nargs=0 SClangRestart call SClangRestart() - -" end supercollider.vim |