| "------------------------------------------------------------------------------ |
| " Description: Perform Ada specific completion & tagging. |
| " Language: Ada (2005) |
| " $Id: ada.vim 887 2008-07-08 14:29:01Z krischik $ |
| " Maintainer: Martin Krischik <krischik@users.sourceforge.net> |
| " Taylor Venable <taylor@metasyntax.net> |
| " Neil Bird <neil@fnxweb.com> |
| " Ned Okie <nokie@radford.edu> |
| " $Author: krischik $ |
| " $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $ |
| " Version: 4.6 |
| " $Revision: 887 $ |
| " $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/autoload/ada.vim $ |
| " History: 24.05.2006 MK Unified Headers |
| " 26.05.2006 MK ' should not be in iskeyword. |
| " 16.07.2006 MK Ada-Mode as vim-ball |
| " 02.10.2006 MK Better folding. |
| " 15.10.2006 MK Bram's suggestion for runtime integration |
| " 05.11.2006 MK Bram suggested not to use include protection for |
| " autoload |
| " 05.11.2006 MK Bram suggested to save on spaces |
| " 08.07.2007 TV fix mapleader problems. |
| " 09.05.2007 MK Session just won't work no matter how much |
| " tweaking is done |
| " 19.09.2007 NO still some mapleader problems |
| " Help Page: ft-ada-functions |
| "------------------------------------------------------------------------------ |
| |
| if version < 700 |
| finish |
| endif |
| |
| " Section: Constants {{{1 |
| " |
| let g:ada#DotWordRegex = '\a\w*\(\_s*\.\_s*\a\w*\)*' |
| let g:ada#WordRegex = '\a\w*' |
| let g:ada#Comment = "\\v^(\"[^\"]*\"|'.'|[^\"']){-}\\zs\\s*--.*" |
| let g:ada#Keywords = [] |
| |
| " Section: g:ada#Keywords {{{1 |
| " |
| " Section: add Ada keywords {{{2 |
| " |
| for Item in ['abort', 'else', 'new', 'return', 'abs', 'elsif', 'not', 'reverse', 'abstract', 'end', 'null', 'accept', 'entry', 'select', 'access', 'exception', 'of', 'separate', 'aliased', 'exit', 'or', 'subtype', 'all', 'others', 'synchronized', 'and', 'for', 'out', 'array', 'function', 'overriding', 'tagged', 'at', 'task', 'generic', 'package', 'terminate', 'begin', 'goto', 'pragma', 'then', 'body', 'private', 'type', 'if', 'procedure', 'case', 'in', 'protected', 'until', 'constant', 'interface', 'use', 'is', 'raise', 'declare', 'range', 'when', 'delay', 'limited', 'record', 'while', 'delta', 'loop', 'rem', 'with', 'digits', 'renames', 'do', 'mod', 'requeue', 'xor'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'keyword', |
| \ 'info': 'Ada keyword.', |
| \ 'kind': 'k', |
| \ 'icase': 1}] |
| endfor |
| |
| " Section: GNAT Project Files {{{3 |
| " |
| if exists ('g:ada_with_gnat_project_files') |
| for Item in ['project'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'keyword', |
| \ 'info': 'GNAT projectfile keyword.', |
| \ 'kind': 'k', |
| \ 'icase': 1}] |
| endfor |
| endif |
| |
| " Section: add standart exception {{{2 |
| " |
| for Item in ['Constraint_Error', 'Program_Error', 'Storage_Error', 'Tasking_Error', 'Status_Error', 'Mode_Error', 'Name_Error', 'Use_Error', 'Device_Error', 'End_Error', 'Data_Error', 'Layout_Error', 'Length_Error', 'Pattern_Error', 'Index_Error', 'Translation_Error', 'Time_Error', 'Argument_Error', 'Tag_Error', 'Picture_Error', 'Terminator_Error', 'Conversion_Error', 'Pointer_Error', 'Dereference_Error', 'Update_Error'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'exception', |
| \ 'info': 'Ada standart exception.', |
| \ 'kind': 'x', |
| \ 'icase': 1}] |
| endfor |
| |
| " Section: add GNAT exception {{{3 |
| " |
| if exists ('g:ada_gnat_extensions') |
| for Item in ['Assert_Failure'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'exception', |
| \ 'info': 'GNAT exception.', |
| \ 'kind': 'x', |
| \ 'icase': 1}] |
| endfor |
| endif |
| |
| " Section: add Ada buildin types {{{2 |
| " |
| for Item in ['Boolean', 'Integer', 'Natural', 'Positive', 'Float', 'Character', 'Wide_Character', 'Wide_Wide_Character', 'String', 'Wide_String', 'Wide_Wide_String', 'Duration'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'type', |
| \ 'info': 'Ada buildin type.', |
| \ 'kind': 't', |
| \ 'icase': 1}] |
| endfor |
| |
| " Section: add GNAT buildin types {{{3 |
| " |
| if exists ('g:ada_gnat_extensions') |
| for Item in ['Short_Integer', 'Short_Short_Integer', 'Long_Integer', 'Long_Long_Integer', 'Short_Float', 'Short_Short_Float', 'Long_Float', 'Long_Long_Float'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'type', |
| \ 'info': 'GNAT buildin type.', |
| \ 'kind': 't', |
| \ 'icase': 1}] |
| endfor |
| endif |
| |
| " Section: add Ada Attributes {{{2 |
| " |
| for Item in ['''Access', '''Address', '''Adjacent', '''Aft', '''Alignment', '''Base', '''Bit_Order', '''Body_Version', '''Callable', '''Caller', '''Ceiling', '''Class', '''Component_Size', '''Compose', '''Constrained', '''Copy_Sign', '''Count', '''Definite', '''Delta', '''Denorm', '''Digits', '''Emax', '''Exponent', '''External_Tag', '''Epsilon', '''First', '''First_Bit', '''Floor', '''Fore', '''Fraction', '''Identity', '''Image', '''Input', '''Large', '''Last', '''Last_Bit', '''Leading_Part', '''Length', '''Machine', '''Machine_Emax', '''Machine_Emin', '''Machine_Mantissa', '''Machine_Overflows', '''Machine_Radix', '''Machine_Rounding', '''Machine_Rounds', '''Mantissa', '''Max', '''Max_Size_In_Storage_Elements', '''Min', '''Mod', '''Model', '''Model_Emin', '''Model_Epsilon', '''Model_Mantissa', '''Model_Small', '''Modulus', '''Output', '''Partition_ID', '''Pos', '''Position', '''Pred', '''Priority', '''Range', '''Read', '''Remainder', '''Round', '''Rounding', '''Safe_Emax', '''Safe_First', '''Safe_Large', '''Safe_Last', '''Safe_Small', '''Scale', '''Scaling', '''Signed_Zeros', '''Size', '''Small', '''Storage_Pool', '''Storage_Size', '''Stream_Size', '''Succ', '''Tag', '''Terminated', '''Truncation', '''Unbiased_Rounding', '''Unchecked_Access', '''Val', '''Valid', '''Value', '''Version', '''Wide_Image', '''Wide_Value', '''Wide_Wide_Image', '''Wide_Wide_Value', '''Wide_Wide_Width', '''Wide_Width', '''Width', '''Write'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'attribute', |
| \ 'info': 'Ada attribute.', |
| \ 'kind': 'a', |
| \ 'icase': 1}] |
| endfor |
| |
| " Section: add GNAT Attributes {{{3 |
| " |
| if exists ('g:ada_gnat_extensions') |
| for Item in ['''Abort_Signal', '''Address_Size', '''Asm_Input', '''Asm_Output', '''AST_Entry', '''Bit', '''Bit_Position', '''Code_Address', '''Default_Bit_Order', '''Elaborated', '''Elab_Body', '''Elab_Spec', '''Emax', '''Enum_Rep', '''Epsilon', '''Fixed_Value', '''Has_Access_Values', '''Has_Discriminants', '''Img', '''Integer_Value', '''Machine_Size', '''Max_Interrupt_Priority', '''Max_Priority', '''Maximum_Alignment', '''Mechanism_Code', '''Null_Parameter', '''Object_Size', '''Passed_By_Reference', '''Range_Length', '''Storage_Unit', '''Target_Name', '''Tick', '''To_Address', '''Type_Class', '''UET_Address', '''Unconstrained_Array', '''Universal_Literal_String', '''Unrestricted_Access', '''VADS_Size', '''Value_Size', '''Wchar_T_Size', '''Word_Size'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'attribute', |
| \ 'info': 'GNAT attribute.', |
| \ 'kind': 'a', |
| \ 'icase': 1}] |
| endfor |
| endif |
| |
| " Section: add Ada Pragmas {{{2 |
| " |
| for Item in ['All_Calls_Remote', 'Assert', 'Assertion_Policy', 'Asynchronous', 'Atomic', 'Atomic_Components', 'Attach_Handler', 'Controlled', 'Convention', 'Detect_Blocking', 'Discard_Names', 'Elaborate', 'Elaborate_All', 'Elaborate_Body', 'Export', 'Import', 'Inline', 'Inspection_Point', 'Interface (Obsolescent)', 'Interrupt_Handler', 'Interrupt_Priority', 'Linker_Options', 'List', 'Locking_Policy', 'Memory_Size (Obsolescent)', 'No_Return', 'Normalize_Scalars', 'Optimize', 'Pack', 'Page', 'Partition_Elaboration_Policy', 'Preelaborable_Initialization', 'Preelaborate', 'Priority', 'Priority_Specific_Dispatching', 'Profile', 'Pure', 'Queueing_Policy', 'Relative_Deadline', 'Remote_Call_Interface', 'Remote_Types', 'Restrictions', 'Reviewable', 'Shared (Obsolescent)', 'Shared_Passive', 'Storage_Size', 'Storage_Unit (Obsolescent)', 'Suppress', 'System_Name (Obsolescent)', 'Task_Dispatching_Policy', 'Unchecked_Union', 'Unsuppress', 'Volatile', 'Volatile_Components'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'pragma', |
| \ 'info': 'Ada pragma.', |
| \ 'kind': 'p', |
| \ 'icase': 1}] |
| endfor |
| |
| " Section: add GNAT Pragmas {{{3 |
| " |
| if exists ('g:ada_gnat_extensions') |
| for Item in ['Abort_Defer', 'Ada_83', 'Ada_95', 'Ada_05', 'Annotate', 'Ast_Entry', 'C_Pass_By_Copy', 'Comment', 'Common_Object', 'Compile_Time_Warning', 'Complex_Representation', 'Component_Alignment', 'Convention_Identifier', 'CPP_Class', 'CPP_Constructor', 'CPP_Virtual', 'CPP_Vtable', 'Debug', 'Elaboration_Checks', 'Eliminate', 'Export_Exception', 'Export_Function', 'Export_Object', 'Export_Procedure', 'Export_Value', 'Export_Valued_Procedure', 'Extend_System', 'External', 'External_Name_Casing', 'Finalize_Storage_Only', 'Float_Representation', 'Ident', 'Import_Exception', 'Import_Function', 'Import_Object', 'Import_Procedure', 'Import_Valued_Procedure', 'Initialize_Scalars', 'Inline_Always', 'Inline_Generic', 'Interface_Name', 'Interrupt_State', 'Keep_Names', 'License', 'Link_With', 'Linker_Alias', 'Linker_Section', 'Long_Float', 'Machine_Attribute', 'Main_Storage', 'Obsolescent', 'Passive', 'Polling', 'Profile_Warnings', 'Propagate_Exceptions', 'Psect_Object', 'Pure_Function', 'Restriction_Warnings', 'Source_File_Name', 'Source_File_Name_Project', 'Source_Reference', 'Stream_Convert', 'Style_Checks', 'Subtitle', 'Suppress_All', 'Suppress_Exception_Locations', 'Suppress_Initialization', 'Task_Info', 'Task_Name', 'Task_Storage', 'Thread_Body', 'Time_Slice', 'Title', 'Unimplemented_Unit', 'Universal_Data', 'Unreferenced', 'Unreserve_All_Interrupts', 'Use_VADS_Size', 'Validity_Checks', 'Warnings', 'Weak_External'] |
| let g:ada#Keywords += [{ |
| \ 'word': Item, |
| \ 'menu': 'pragma', |
| \ 'info': 'GNAT pragma.', |
| \ 'kind': 'p', |
| \ 'icase': 1}] |
| endfor |
| endif |
| " 1}}} |
| |
| " Section: g:ada#Ctags_Kinds {{{1 |
| " |
| let g:ada#Ctags_Kinds = { |
| \ 'P': ["packspec", "package specifications"], |
| \ 'p': ["package", "packages"], |
| \ 'T': ["typespec", "type specifications"], |
| \ 't': ["type", "types"], |
| \ 'U': ["subspec", "subtype specifications"], |
| \ 'u': ["subtype", "subtypes"], |
| \ 'c': ["component", "record type components"], |
| \ 'l': ["literal", "enum type literals"], |
| \ 'V': ["varspec", "variable specifications"], |
| \ 'v': ["variable", "variables"], |
| \ 'f': ["formal", "generic formal parameters"], |
| \ 'n': ["constant", "constants"], |
| \ 'x': ["exception", "user defined exceptions"], |
| \ 'R': ["subprogspec", "subprogram specifications"], |
| \ 'r': ["subprogram", "subprograms"], |
| \ 'K': ["taskspec", "task specifications"], |
| \ 'k': ["task", "tasks"], |
| \ 'O': ["protectspec", "protected data specifications"], |
| \ 'o': ["protected", "protected data"], |
| \ 'E': ["entryspec", "task/protected data entry specifications"], |
| \ 'e': ["entry", "task/protected data entries"], |
| \ 'b': ["label", "labels"], |
| \ 'i': ["identifier", "loop/declare identifiers"], |
| \ 'a': ["autovar", "automatic variables"], |
| \ 'y': ["annon", "loops and blocks with no identifier"]} |
| |
| " Section: ada#Word (...) {{{1 |
| " |
| " Extract current Ada word across multiple lines |
| " AdaWord ([line, column])\ |
| " |
| function ada#Word (...) |
| if a:0 > 1 |
| let l:Line_Nr = a:1 |
| let l:Column_Nr = a:2 - 1 |
| else |
| let l:Line_Nr = line('.') |
| let l:Column_Nr = col('.') - 1 |
| endif |
| |
| let l:Line = substitute (getline (l:Line_Nr), g:ada#Comment, '', '' ) |
| |
| " Cope with tag searching for items in comments; if we are, don't loop |
| " backards looking for previous lines |
| if l:Column_Nr > strlen(l:Line) |
| " We were in a comment |
| let l:Line = getline(l:Line_Nr) |
| let l:Search_Prev_Lines = 0 |
| else |
| let l:Search_Prev_Lines = 1 |
| endif |
| |
| " Go backwards until we find a match (Ada ID) that *doesn't* include our |
| " location - i.e., the previous ID. This is because the current 'correct' |
| " match will toggle matching/not matching as we traverse characters |
| " backwards. Thus, we have to find the previous unrelated match, exclude |
| " it, then use the next full match (ours). |
| " Remember to convert vim column 'l:Column_Nr' [1..n] to string offset [0..(n-1)] |
| " ... but start, here, one after the required char. |
| let l:New_Column = l:Column_Nr + 1 |
| while 1 |
| let l:New_Column = l:New_Column - 1 |
| if l:New_Column < 0 |
| " Have to include previous l:Line from file |
| let l:Line_Nr = l:Line_Nr - 1 |
| if l:Line_Nr < 1 || !l:Search_Prev_Lines |
| " Start of file or matching in a comment |
| let l:Line_Nr = 1 |
| let l:New_Column = 0 |
| let l:Our_Match = match (l:Line, g:ada#WordRegex ) |
| break |
| endif |
| " Get previous l:Line, and prepend it to our search string |
| let l:New_Line = substitute (getline (l:Line_Nr), g:ada#Comment, '', '' ) |
| let l:New_Column = strlen (l:New_Line) - 1 |
| let l:Column_Nr = l:Column_Nr + l:New_Column |
| let l:Line = l:New_Line . l:Line |
| endif |
| " Check to see if this is a match excluding 'us' |
| let l:Match_End = l:New_Column + |
| \ matchend (strpart (l:Line,l:New_Column), g:ada#WordRegex ) - 1 |
| if l:Match_End >= l:New_Column && |
| \ l:Match_End < l:Column_Nr |
| " Yes |
| let l:Our_Match = l:Match_End+1 + |
| \ match (strpart (l:Line,l:Match_End+1), g:ada#WordRegex ) |
| break |
| endif |
| endwhile |
| |
| " Got anything? |
| if l:Our_Match < 0 |
| return '' |
| else |
| let l:Line = strpart (l:Line, l:Our_Match) |
| endif |
| |
| " Now simply add further lines until the match gets no bigger |
| let l:Match_String = matchstr (l:Line, g:ada#WordRegex) |
| let l:Last_Line = line ('$') |
| let l:Line_Nr = line ('.') + 1 |
| while l:Line_Nr <= l:Last_Line |
| let l:Last_Match = l:Match_String |
| let l:Line = l:Line . |
| \ substitute (getline (l:Line_Nr), g:ada#Comment, '', '') |
| let l:Match_String = matchstr (l:Line, g:ada#WordRegex) |
| if l:Match_String == l:Last_Match |
| break |
| endif |
| endwhile |
| |
| " Strip whitespace & return |
| return substitute (l:Match_String, '\s\+', '', 'g') |
| endfunction ada#Word |
| |
| " Section: ada#List_Tag (...) {{{1 |
| " |
| " List tags in quickfix window |
| " |
| function ada#List_Tag (...) |
| if a:0 > 1 |
| let l:Tag_Word = ada#Word (a:1, a:2) |
| elseif a:0 > 0 |
| let l:Tag_Word = a:1 |
| else |
| let l:Tag_Word = ada#Word () |
| endif |
| |
| echo "Searching for" l:Tag_Word |
| |
| let l:Pattern = '^' . l:Tag_Word . '$' |
| let l:Tag_List = taglist (l:Pattern) |
| let l:Error_List = [] |
| " |
| " add symbols |
| " |
| for Tag_Item in l:Tag_List |
| if l:Tag_Item['kind'] == '' |
| let l:Tag_Item['kind'] = 's' |
| endif |
| |
| let l:Error_List += [ |
| \ l:Tag_Item['filename'] . '|' . |
| \ l:Tag_Item['cmd'] . '|' . |
| \ l:Tag_Item['kind'] . "\t" . |
| \ l:Tag_Item['name'] ] |
| endfor |
| set errorformat=%f\|%l\|%m |
| cexpr l:Error_List |
| cwindow |
| endfunction ada#List_Tag |
| |
| " Section: ada#Jump_Tag (Word, Mode) {{{1 |
| " |
| " Word tag - include '.' and if Ada make uppercase |
| " |
| function ada#Jump_Tag (Word, Mode) |
| if a:Word == '' |
| " Get current word |
| let l:Word = ada#Word() |
| if l:Word == '' |
| throw "NOT_FOUND: no identifier found." |
| endif |
| else |
| let l:Word = a:Word |
| endif |
| |
| echo "Searching for " . l:Word |
| |
| try |
| execute a:Mode l:Word |
| catch /.*:E426:.*/ |
| let ignorecase = &ignorecase |
| set ignorecase |
| execute a:Mode l:Word |
| let &ignorecase = ignorecase |
| endtry |
| |
| return |
| endfunction ada#Jump_Tag |
| |
| " Section: ada#Insert_Backspace () {{{1 |
| " |
| " Backspace at end of line after auto-inserted commentstring '-- ' wipes it |
| " |
| function ada#Insert_Backspace () |
| let l:Line = getline ('.') |
| if col ('.') > strlen (l:Line) && |
| \ match (l:Line, '-- $') != -1 && |
| \ match (&comments,'--') != -1 |
| return "\<bs>\<bs>\<bs>" |
| else |
| return "\<bs>" |
| endif |
| |
| return |
| endfunction ada#InsertBackspace |
| |
| " Section: Insert Completions {{{1 |
| " |
| " Section: ada#User_Complete(findstart, base) {{{2 |
| " |
| " This function is used for the 'complete' option. |
| " |
| function! ada#User_Complete(findstart, base) |
| if a:findstart == 1 |
| " |
| " locate the start of the word |
| " |
| let line = getline ('.') |
| let start = col ('.') - 1 |
| while start > 0 && line[start - 1] =~ '\i\|''' |
| let start -= 1 |
| endwhile |
| return start |
| else |
| " |
| " look up matches |
| " |
| let l:Pattern = '^' . a:base . '.*$' |
| " |
| " add keywords |
| " |
| for Tag_Item in g:ada#Keywords |
| if l:Tag_Item['word'] =~? l:Pattern |
| if complete_add (l:Tag_Item) == 0 |
| return [] |
| endif |
| if complete_check () |
| return [] |
| endif |
| endif |
| endfor |
| return [] |
| endif |
| endfunction ada#User_Complete |
| |
| " Section: ada#Completion (cmd) {{{2 |
| " |
| " Word completion (^N/^R/^X^]) - force '.' inclusion |
| function ada#Completion (cmd) |
| set iskeyword+=46 |
| return a:cmd . "\<C-R>=ada#Completion_End ()\<CR>" |
| endfunction ada#Completion |
| |
| " Section: ada#Completion_End () {{{2 |
| " |
| function ada#Completion_End () |
| set iskeyword-=46 |
| return '' |
| endfunction ada#Completion_End |
| |
| " Section: ada#Create_Tags {{{1 |
| " |
| function ada#Create_Tags (option) |
| if a:option == 'file' |
| let l:Filename = fnamemodify (bufname ('%'), ':p') |
| elseif a:option == 'dir' |
| let l:Filename = |
| \ fnamemodify (bufname ('%'), ':p:h') . "*.ada " . |
| \ fnamemodify (bufname ('%'), ':p:h') . "*.adb " . |
| \ fnamemodify (bufname ('%'), ':p:h') . "*.ads" |
| else |
| let l:Filename = a:option |
| endif |
| execute '!ctags --excmd=number ' . l:Filename |
| endfunction ada#Create_Tags |
| |
| " Section: ada#Switch_Session {{{1 |
| " |
| function ada#Switch_Session (New_Session) |
| " |
| " you should not save to much date into the seession since they will |
| " be sourced |
| " |
| let l:sessionoptions=&sessionoptions |
| |
| try |
| set sessionoptions=buffers,curdir,folds,globals,resize,slash,tabpages,tabpages,unix,winpos,winsize |
| |
| if a:New_Session != v:this_session |
| " |
| " We actualy got a new session - otherwise there |
| " is nothing to do. |
| " |
| if strlen (v:this_session) > 0 |
| execute 'mksession! ' . v:this_session |
| endif |
| |
| let v:this_session = a:New_Session |
| |
| "if filereadable (v:this_session) |
| "execute 'source ' . v:this_session |
| "endif |
| |
| augroup ada_session |
| autocmd! |
| autocmd VimLeavePre * execute 'mksession! ' . v:this_session |
| augroup END |
| |
| "if exists ("g:Tlist_Auto_Open") && g:Tlist_Auto_Open |
| "TlistOpen |
| "endif |
| |
| endif |
| finally |
| let &sessionoptions=l:sessionoptions |
| endtry |
| |
| return |
| endfunction ada#Switch_Session |
| |
| " Section: GNAT Pretty Printer folding {{{1 |
| " |
| if exists('g:ada_folding') && g:ada_folding[0] == 'g' |
| " |
| " Lines consisting only of ')' ';' are due to a gnat pretty bug and |
| " have the same level as the line above (can't happen in the first |
| " line). |
| " |
| let s:Fold_Collate = '^\([;)]*$\|' |
| |
| " |
| " some lone statements are folded with the line above |
| " |
| if stridx (g:ada_folding, 'i') >= 0 |
| let s:Fold_Collate .= '\s\+\<is\>$\|' |
| endif |
| if stridx (g:ada_folding, 'b') >= 0 |
| let s:Fold_Collate .= '\s\+\<begin\>$\|' |
| endif |
| if stridx (g:ada_folding, 'p') >= 0 |
| let s:Fold_Collate .= '\s\+\<private\>$\|' |
| endif |
| if stridx (g:ada_folding, 'x') >= 0 |
| let s:Fold_Collate .= '\s\+\<exception\>$\|' |
| endif |
| |
| " We also handle empty lines and |
| " comments here. |
| let s:Fold_Collate .= '--\)' |
| |
| function ada#Pretty_Print_Folding (Line) " {{{2 |
| let l:Text = getline (a:Line) |
| |
| if l:Text =~ s:Fold_Collate |
| " |
| " fold with line above |
| " |
| let l:Level = "=" |
| elseif l:Text =~ '^\s\+(' |
| " |
| " gnat outdents a line which stards with a ( by one characters so |
| " that parameters which follow are aligned. |
| " |
| let l:Level = (indent (a:Line) + 1) / &shiftwidth |
| else |
| let l:Level = indent (a:Line) / &shiftwidth |
| endif |
| |
| return l:Level |
| endfunction ada#Pretty_Print_Folding " }}}2 |
| endif |
| |
| " Section: Options and Menus {{{1 |
| " |
| " Section: ada#Switch_Syntax_Options {{{2 |
| " |
| function ada#Switch_Syntax_Option (option) |
| syntax off |
| if exists ('g:ada_' . a:option) |
| unlet g:ada_{a:option} |
| echo a:option . 'now off' |
| else |
| let g:ada_{a:option}=1 |
| echo a:option . 'now on' |
| endif |
| syntax on |
| endfunction ada#Switch_Syntax_Option |
| |
| " Section: ada#Map_Menu {{{2 |
| " |
| function ada#Map_Menu (Text, Keys, Command) |
| if a:Keys[0] == ':' |
| execute |
| \ "50amenu " . |
| \ "Ada." . escape(a:Text, ' ') . |
| \ "<Tab>" . a:Keys . |
| \ " :" . a:Command . "<CR>" |
| execute |
| \ "command -buffer " . |
| \ a:Keys[1:] . |
| \" :" . a:Command . "<CR>" |
| elseif a:Keys[0] == '<' |
| execute |
| \ "50amenu " . |
| \ "Ada." . escape(a:Text, ' ') . |
| \ "<Tab>" . a:Keys . |
| \ " :" . a:Command . "<CR>" |
| execute |
| \ "nnoremap <buffer> " . |
| \ a:Keys . |
| \" :" . a:Command . "<CR>" |
| execute |
| \ "inoremap <buffer> " . |
| \ a:Keys . |
| \" <C-O>:" . a:Command . "<CR>" |
| else |
| if exists("g:mapleader") |
| let l:leader = g:mapleader |
| else |
| let l:leader = '\' |
| endif |
| execute |
| \ "50amenu " . |
| \ "Ada." . escape(a:Text, ' ') . |
| \ "<Tab>" . escape(l:leader . "a" . a:Keys , '\') . |
| \ " :" . a:Command . "<CR>" |
| execute |
| \ "nnoremap <buffer>" . |
| \ escape(l:leader . "a" . a:Keys , '\') . |
| \" :" . a:Command |
| execute |
| \ "inoremap <buffer>" . |
| \ escape(l:leader . "a" . a:Keys , '\') . |
| \" <C-O>:" . a:Command |
| endif |
| return |
| endfunction |
| |
| " Section: ada#Map_Popup {{{2 |
| " |
| function ada#Map_Popup (Text, Keys, Command) |
| if exists("g:mapleader") |
| let l:leader = g:mapleader |
| else |
| let l:leader = '\' |
| endif |
| execute |
| \ "50amenu " . |
| \ "PopUp." . escape(a:Text, ' ') . |
| \ "<Tab>" . escape(l:leader . "a" . a:Keys , '\') . |
| \ " :" . a:Command . "<CR>" |
| |
| call ada#Map_Menu (a:Text, a:Keys, a:Command) |
| return |
| endfunction ada#Map_Popup |
| |
| " }}}1 |
| |
| lockvar g:ada#WordRegex |
| lockvar g:ada#DotWordRegex |
| lockvar g:ada#Comment |
| lockvar! g:ada#Keywords |
| lockvar! g:ada#Ctags_Kinds |
| |
| finish " 1}}} |
| |
| "------------------------------------------------------------------------------ |
| " Copyright (C) 2006 Martin Krischik |
| " |
| " Vim is Charityware - see ":help license" or uganda.txt for licence details. |
| "------------------------------------------------------------------------------ |
| " vim: textwidth=78 wrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab |
| " vim: foldmethod=marker |