" Vim filetype plugin file" Language:     Abaqus finite element input file (www.abaqus.com)" Maintainer:   Carl Osterwisch <osterwischc@asme.org>" Last Change:  2004 Jul 06 " Only do this when not done yet for this bufferif exists("b:did_ftplugin") | finish | endif " Don't load another plugin for this bufferlet b:did_ftplugin = 1 " Save the compatibility options and temporarily switch to vim defaultslet s:cpo_save = &cpoptionsset cpoptions&vim " Foldingif version >= 600    " Fold all lines that do not begin with *    setlocal foldexpr=getline(v:lnum)[0]!=\"\*\"    setlocal foldmethod=exprendif " Set the format of the include file specification for Abaqus" Used in :check gf ^wf [i and other commandssetlocal include=\\<\\cINPUT\\s*= " Remove characters up to the first = when evaluating filenamessetlocal includeexpr=substitute(v:fname,'.\\{-}=','','') " Remove comma from valid filename characters since it is used to" separate keyword parameterssetlocal isfname-=, " Define format of comment lines (see 'formatoptions' for uses)setlocal comments=:**setlocal commentstring=**%s " Definitions start with a * and assign a NAME, NSET, or ELSET" Used in [d ^wd and other commandssetlocal define=^\\*\\a.*\\c\\(NAME\\\|NSET\\\|ELSET\\)\\s*= " Abaqus keywords and identifiers may include a - charactersetlocal iskeyword+=- " Set the file browse filter (currently only supported under Win32 gui)if has("gui_win32") && !exists("b:browsefilter")    let b:browsefilter = "Abaqus Input Files (*.inp *.inc)\t*.inp;*.inc\n" .    \ "Abaqus Results (*.dat)\t*.dat\n" .    \ "Abaqus Messages (*.pre *.msg *.sta)\t*.pre;*.msg;*.sta\n" .    \ "All Files (*.*)\t*.*\n"endif " Define keys used to move [count] sections backward or forward." TODO: Make this do something intelligent in visual mode.nnoremap <silent> <buffer> [[ :call <SID>Abaqus_Jump('?^\*\a?')<CR>nnoremap <silent> <buffer> ]] :call <SID>Abaqus_Jump('/^\*\a/')<CR>function! <SID>Abaqus_Jump(motion) range    let s:count = v:count1    mark '    while s:count > 0        silent! execute a:motion        let s:count = s:count - 1    endwhileendfunction " Define key to toggle commenting of the current line or rangenoremap <silent> <buffer> <m-c> :call <SID>Abaqus_ToggleComment()<CR>jfunction! <SID>Abaqus_ToggleComment() range    if strpart(getline(a:firstline), 0, 2) == "**"        " Un-comment all lines in range        silent execute a:firstline . ',' . a:lastline . 's/^\*\*//'    else        " Comment all lines in range        silent execute a:firstline . ',' . a:lastline . 's/^/**/'    endifendfunction " Restore saved compatibility optionslet &cpoptions = s:cpo_save