runtime/ftplugin/abaqus.vim

   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
   7 if exists("b:did_ftplugin") | finish | endif
   8
   9 " Don't load another plugin for this buffer
  10 let b:did_ftplugin = 1
  11
  12 " Save the compatibility options and temporarily switch to vim defaults
  13 let s:cpo_save = &cpoptions
  14 set cpoptions&vim
  15
  16 " Set the format of the include file specification for Abaqus
  17 " Used in :check gf ^wf [i and other commands
  18 setlocal include=\\<\\cINPUT\\s*=
  19
  20 " Remove characters up to the first = when evaluating filenames
  21 setlocal includeexpr=substitute(v:fname,'.\\{-}=','','')
  22
  23 " Remove comma from valid filename characters since it is used to
  24 " separate keyword parameters
  25 setlocal isfname-=,
  26
  27 " Define format of comment lines (see 'formatoptions' for uses)
  28 setlocal comments=:**
  29 setlocal commentstring=**%s
  30
  31 " Definitions start with a * and assign a NAME, NSET, or ELSET
  32 " Used in [d ^wd and other commands
  33 setlocal define=^\\*\\a.*\\c\\(NAME\\\|NSET\\\|ELSET\\)\\s*=
  34
  35 " Abaqus keywords and identifiers may include a - character
  36 setlocal iskeyword+=-
  37
  38 let b:undo_ftplugin = "setlocal include< includeexpr< isfname<"
  39     \ . " comments< commentstring< define< iskeyword<"
  40
  41 if 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<"
  46 endif
  47
  48 " Set the file browse filter (currently only supported under Win32 gui)
  49 if 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"
  55 endif
  56
  57 " Define patterns for the matchit plugin
  58 if 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"
  66 endif
  67
  68 " Define keys used to move [count] keywords backward or forward.
  69 noremap <silent><buffer> [[ ?^\*\a<CR>:nohlsearch<CR>
  70 noremap <silent><buffer> ]] /^\*\a<CR>:nohlsearch<CR>
  71
  72 " Define key to toggle commenting of the current line or range
  73 noremap <silent><buffer> <LocalLeader><LocalLeader>
  74     \ :call <SID>Abaqus_ToggleComment()<CR>j
  75 function! <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
  83 endfunction
  84
  85 let b:undo_ftplugin .= "|unmap <buffer> [[|unmap <buffer> ]]"
  86     \ . "|unmap <buffer> <LocalLeader><LocalLeader>"
  87
  88 " Restore saved compatibility options
  89 let &cpoptions = s:cpo_save