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