|
7
|
1 " Vim syntax file
|
|
|
2 " Language: SQL*Forms (Oracle 7), based on sql.vim (vim5.0)
|
|
|
3 " Maintainer: Austin Ziegler (austin@halostatue.ca)
|
|
|
4 " Last Change: 2003 May 11
|
|
|
5 " Prev Change: 19980710
|
|
|
6 " URL: http://www.halostatue.ca/vim/syntax/proc.vim
|
|
|
7 "
|
|
|
8 " TODO Find a new maintainer who knows SQL*Forms.
|
|
|
9
|
|
|
10 " For version 5.x, clear all syntax items.
|
|
|
11 " For version 6.x, quit when a syntax file was already loaded.
|
|
|
12 if version < 600
|
|
|
13 syntax clear
|
|
|
14 elseif exists("b:current_syntax")
|
|
|
15 finish
|
|
|
16 endif
|
|
|
17
|
|
|
18 syntax case ignore
|
|
|
19
|
|
|
20 if version >= 600
|
|
|
21 setlocal iskeyword=a-z,A-Z,48-57,_,.,-,>
|
|
|
22 else
|
|
|
23 set iskeyword=a-z,A-Z,48-57,_,.,-,>
|
|
|
24 endif
|
|
|
25
|
|
|
26
|
|
|
27 " The SQL reserved words, defined as keywords.
|
|
|
28 syntax match sqlTriggers /on-.*$/
|
|
|
29 syntax match sqlTriggers /key-.*$/
|
|
|
30 syntax match sqlTriggers /post-.*$/
|
|
|
31 syntax match sqlTriggers /pre-.*$/
|
|
|
32 syntax match sqlTriggers /user-.*$/
|
|
|
33
|
|
|
34 syntax keyword sqlSpecial null false true
|
|
|
35
|
|
|
36 syntax keyword sqlProcedure abort_query anchor_view bell block_menu break call
|
|
|
37 syntax keyword sqlProcedure call_input call_query clear_block clear_eol
|
|
|
38 syntax keyword sqlProcedure clear_field clear_form clear_record commit_form
|
|
|
39 syntax keyword sqlProcedure copy count_query create_record default_value
|
|
|
40 syntax keyword sqlProcedure delete_record display_error display_field down
|
|
|
41 syntax keyword sqlProcedure duplicate_field duplicate_record edit_field
|
|
|
42 syntax keyword sqlProcedure enter enter_query erase execute_query
|
|
|
43 syntax keyword sqlProcedure execute_trigger exit_form first_Record go_block
|
|
|
44 syntax keyword sqlProcedure go_field go_record help hide_menu hide_page host
|
|
|
45 syntax keyword sqlProcedure last_record list_values lock_record message
|
|
|
46 syntax keyword sqlProcedure move_view new_form next_block next_field next_key
|
|
|
47 syntax keyword sqlProcedure next_record next_set pause post previous_block
|
|
|
48 syntax keyword sqlProcedure previous_field previous_record print redisplay
|
|
|
49 syntax keyword sqlProcedure replace_menu resize_view scroll_down scroll_up
|
|
|
50 syntax keyword sqlProcedure set_field show_keys show_menu show_page
|
|
|
51 syntax keyword sqlProcedure synchronize up user_exit
|
|
|
52
|
|
|
53 syntax keyword sqlFunction block_characteristic error_code error_text
|
|
|
54 syntax keyword sqlFunction error_type field_characteristic form_failure
|
|
|
55 syntax keyword sqlFunction form_fatal form_success name_in
|
|
|
56
|
|
|
57 syntax keyword sqlParameters hide no_hide replace no_replace ask_commit
|
|
|
58 syntax keyword sqlParameters do_commit no_commit no_validate all_records
|
|
|
59 syntax keyword sqlParameters for_update no_restrict restrict no_screen
|
|
|
60 syntax keyword sqlParameters bar full_screen pull_down auto_help auto_skip
|
|
|
61 syntax keyword sqlParameters fixed_length enterable required echo queryable
|
|
|
62 syntax keyword sqlParameters updateable update_null upper_case attr_on
|
|
|
63 syntax keyword sqlParameters attr_off base_table first_field last_field
|
|
|
64 syntax keyword sqlParameters datatype displayed display_length field_length
|
|
|
65 syntax keyword sqlParameters list page primary_key query_length x_pos y_pos
|
|
|
66
|
|
|
67 syntax match sqlSystem /system\.block_status/
|
|
|
68 syntax match sqlSystem /system\.current_block/
|
|
|
69 syntax match sqlSystem /system\.current_field/
|
|
|
70 syntax match sqlSystem /system\.current_form/
|
|
|
71 syntax match sqlSystem /system\.current_value/
|
|
|
72 syntax match sqlSystem /system\.cursor_block/
|
|
|
73 syntax match sqlSystem /system\.cursor_field/
|
|
|
74 syntax match sqlSystem /system\.cursor_record/
|
|
|
75 syntax match sqlSystem /system\.cursor_value/
|
|
|
76 syntax match sqlSystem /system\.form_status/
|
|
|
77 syntax match sqlSystem /system\.last_query/
|
|
|
78 syntax match sqlSystem /system\.last_record/
|
|
|
79 syntax match sqlSystem /system\.message_level/
|
|
|
80 syntax match sqlSystem /system\.record_status/
|
|
|
81 syntax match sqlSystem /system\.trigger_block/
|
|
|
82 syntax match sqlSystem /system\.trigger_field/
|
|
|
83 syntax match sqlSystem /system\.trigger_record/
|
|
|
84 syntax match sqlSystem /\$\$date\$\$/
|
|
|
85 syntax match sqlSystem /\$\$time\$\$/
|
|
|
86
|
|
|
87 syntax keyword sqlKeyword accept access add as asc by check cluster column
|
|
|
88 syntax keyword sqlKeyword compress connect current decimal default
|
|
|
89 syntax keyword sqlKeyword desc exclusive file for from group
|
|
|
90 syntax keyword sqlKeyword having identified immediate increment index
|
|
|
91 syntax keyword sqlKeyword initial into is level maxextents mode modify
|
|
|
92 syntax keyword sqlKeyword nocompress nowait of offline on online start
|
|
|
93 syntax keyword sqlKeyword successful synonym table to trigger uid
|
|
|
94 syntax keyword sqlKeyword unique user validate values view whenever
|
|
|
95 syntax keyword sqlKeyword where with option order pctfree privileges
|
|
|
96 syntax keyword sqlKeyword public resource row rowlabel rownum rows
|
|
|
97 syntax keyword sqlKeyword session share size smallint sql\*forms_version
|
|
|
98 syntax keyword sqlKeyword terse define form name title procedure begin
|
|
|
99 syntax keyword sqlKeyword default_menu_application trigger block field
|
|
|
100 syntax keyword sqlKeyword enddefine declare exception raise when cursor
|
|
|
101 syntax keyword sqlKeyword definition base_table pragma
|
|
|
102 syntax keyword sqlKeyword column_name global trigger_type text description
|
|
|
103 syntax match sqlKeyword "<<<"
|
|
|
104 syntax match sqlKeyword ">>>"
|
|
|
105
|
|
|
106 syntax keyword sqlOperator not and or out to_number to_date message erase
|
|
|
107 syntax keyword sqlOperator in any some all between exists substr nvl
|
|
|
108 syntax keyword sqlOperator exception_init
|
|
|
109 syntax keyword sqlOperator like escape trunc lpad rpad sum
|
|
|
110 syntax keyword sqlOperator union intersect minus to_char greatest
|
|
|
111 syntax keyword sqlOperator prior distinct decode least avg
|
|
|
112 syntax keyword sqlOperator sysdate true false field_characteristic
|
|
|
113 syntax keyword sqlOperator display_field call host
|
|
|
114
|
|
|
115 syntax keyword sqlStatement alter analyze audit comment commit create
|
|
|
116 syntax keyword sqlStatement delete drop explain grant insert lock noaudit
|
|
|
117 syntax keyword sqlStatement rename revoke rollback savepoint select set
|
|
|
118 syntax keyword sqlStatement truncate update if elsif loop then
|
|
|
119 syntax keyword sqlStatement open fetch close else end
|
|
|
120
|
|
|
121 syntax keyword sqlType char character date long raw mlslabel number rowid
|
|
|
122 syntax keyword sqlType varchar varchar2 float integer boolean global
|
|
|
123
|
|
|
124 syntax keyword sqlCodes sqlcode no_data_found too_many_rows others
|
|
|
125 syntax keyword sqlCodes form_trigger_failure notfound found
|
|
|
126 syntax keyword sqlCodes validate no_commit
|
|
|
127
|
|
|
128 " Comments:
|
|
|
129 syntax region sqlComment start="/\*" end="\*/"
|
|
|
130 syntax match sqlComment "--.*"
|
|
|
131
|
|
|
132 " Strings and characters:
|
|
|
133 syntax region sqlString start=+"+ skip=+\\\\\|\\"+ end=+"+
|
|
|
134 syntax region sqlString start=+'+ skip=+\\\\\|\\"+ end=+'+
|
|
|
135
|
|
|
136 " Numbers:
|
|
|
137 syntax match sqlNumber "-\=\<[0-9]*\.\=[0-9_]\>"
|
|
|
138
|
|
|
139 syntax sync ccomment sqlComment
|
|
|
140
|
|
|
141 if version >= 508 || !exists("did_sqlforms_syn_inits")
|
|
|
142 if version < 508
|
|
|
143 let did_sqlforms_syn_inits = 1
|
|
|
144 command -nargs=+ HiLink hi link <args>
|
|
|
145 else
|
|
|
146 command -nargs=+ HiLink hi def link <args>
|
|
|
147 endif
|
|
|
148
|
|
|
149 HiLink sqlComment Comment
|
|
|
150 HiLink sqlKeyword Statement
|
|
|
151 HiLink sqlNumber Number
|
|
|
152 HiLink sqlOperator Statement
|
|
|
153 HiLink sqlProcedure Statement
|
|
|
154 HiLink sqlFunction Statement
|
|
|
155 HiLink sqlSystem Identifier
|
|
|
156 HiLink sqlSpecial Special
|
|
|
157 HiLink sqlStatement Statement
|
|
|
158 HiLink sqlString String
|
|
|
159 HiLink sqlType Type
|
|
|
160 HiLink sqlCodes Identifier
|
|
|
161 HiLink sqlTriggers PreProc
|
|
|
162
|
|
|
163 delcommand HiLink
|
|
|
164 endif
|
|
|
165
|
|
|
166 let b:current_syntax = "sqlforms"
|
|
|
167
|
|
|
168 " vim: ts=8 sw=4
|
