1" Vim filetype plugin file 2" Language: Abaqus finite element input file (www.abaqus.com) 3" Maintainer: Carl Osterwisch <osterwischc@asme.org> 4" Last Change: 2008 Oct 5 5 6" Only do this when not done yet for this buffer 7if exists("b:did_ftplugin") | finish | endif 8 9" Don't load another plugin for this buffer 10let b:did_ftplugin = 1 11 12" Save the compatibility options and temporarily switch to vim defaults 13let s:cpo_save = &cpoptions 14set cpoptions&vim 15 16" Set the format of the include file specification for Abaqus 17" Used in :check gf ^wf [i and other commands 18setlocal include=\\<\\cINPUT\\s*= 19 20" Remove characters up to the first = when evaluating filenames 21setlocal includeexpr=substitute(v:fname,'.\\{-}=','','') 22 23" Remove comma from valid filename characters since it is used to 24" separate keyword parameters 25setlocal isfname-=, 26 27" Define format of comment lines (see 'formatoptions' for uses) 28setlocal comments=:** 29setlocal commentstring=**%s 30 31" Definitions start with a * and assign a NAME, NSET, or ELSET 32" Used in [d ^wd and other commands 33setlocal define=^\\*\\a.*\\c\\(NAME\\\|NSET\\\|ELSET\\)\\s*= 34 35" Abaqus keywords and identifiers may include a - character 36setlocal iskeyword+=- 37 38let b:undo_ftplugin = "setlocal include< includeexpr< isfname<" 39 \ . " comments< commentstring< define< iskeyword<" 40 41if has("folding") 42 " Fold all lines that do not begin with * 43 setlocal foldexpr=getline(v:lnum)[0]!=\"\*\" 44 setlocal foldmethod=expr 45 let b:undo_ftplugin .= " foldexpr< foldmethod<" 46endif 47 48" Set the file browse filter (currently only supported under Win32 gui) 49if has("gui_win32") && !exists("b:browsefilter") 50 let b:browsefilter = "Abaqus Input Files (*.inp *.inc)\t*.inp;*.inc\n" . 51 \ "Abaqus Results (*.dat)\t*.dat\n" . 52 \ "Abaqus Messages (*.pre *.msg *.sta)\t*.pre;*.msg;*.sta\n" . 53 \ "All Files (*.*)\t*.*\n" 54 let b:undo_ftplugin .= "|unlet b:browsefilter" 55endif 56 57" Define patterns for the matchit plugin 58if exists("loaded_matchit") && !exists("b:match_words") 59 let b:match_ignorecase = 1 60 let b:match_words = 61 \ '\*part:\*end\s*part,' . 62 \ '\*assembly:\*end\s*assembly,' . 63 \ '\*instance:\*end\s*instance,' . 64 \ '\*step:\*end\s*step' 65 let b:undo_ftplugin .= "|unlet b:match_ignorecase b:match_words" 66endif 67 68" Define keys used to move [count] keywords backward or forward. 69noremap <silent><buffer> [[ ?^\*\a<CR>:nohlsearch<CR> 70noremap <silent><buffer> ]] /^\*\a<CR>:nohlsearch<CR> 71 72" Define key to toggle commenting of the current line or range 73noremap <silent><buffer> <LocalLeader><LocalLeader> 74 \ :call <SID>Abaqus_ToggleComment()<CR>j 75function! <SID>Abaqus_ToggleComment() range 76 if strpart(getline(a:firstline), 0, 2) == "**" 77 " Un-comment all lines in range 78 silent execute a:firstline . ',' . a:lastline . 's/^\*\*//' 79 else 80 " Comment all lines in range 81 silent execute a:firstline . ',' . a:lastline . 's/^/**/' 82 endif 83endfunction 84 85let b:undo_ftplugin .= "|unmap <buffer> [[|unmap <buffer> ]]" 86 \ . "|unmap <buffer> <LocalLeader><LocalLeader>" 87 88" Restore saved compatibility options 89let &cpoptions = s:cpo_save 90