blob: ece14027ba2c8898b6c983b8efc7d6de68cabbb4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
" Vim syntax file
" Language: Euphoria 3.1.1 - supports DOS - (http://www.rapideuphoria.com/)
" Maintainer: Shian Lee
" Last Change: 2014 Feb 24 (for Vim 7.4)
" Remark: Euphoria has two syntax files, euphoria3.vim and euphoria4.vim;
" For details see :help ft-euphoria-syntax
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
" Reset compatible-options to Vim default value, just in case:
let s:save_cpo = &cpo
set cpo&vim
" Should suffice for very long expressions:
syn sync lines=40
" Euphoria is a case-sensitive language (with only 4 builtin types):
syntax case match
" Keywords/Builtins for Debug - from $EUDIR/bin/keywords.e:
syn keyword euphoria3Debug with without trace profile
syn keyword euphoria3Debug profile_time warning type_check
" Keywords (Statments) - from $EUDIR/bin/keywords.e:
syn keyword euphoria3Keyword if end then procedure else for return
syn keyword euphoria3Keyword do elsif while type constant to and or
syn keyword euphoria3Keyword exit function global by not include
syn keyword euphoria3Keyword xor
" Builtins (Identifiers) - from $EUDIR/bin/keywords.e:
syn keyword euphoria3Builtin length puts integer sequence position object
syn keyword euphoria3Builtin append prepend print printf
syn keyword euphoria3Builtin clear_screen floor getc gets get_key
syn keyword euphoria3Builtin rand repeat atom compare find match
syn keyword euphoria3Builtin time command_line open close getenv
syn keyword euphoria3Builtin sqrt sin cos tan log system date remainder
syn keyword euphoria3Builtin power machine_func machine_proc abort peek poke
syn keyword euphoria3Builtin call sprintf arctan and_bits or_bits xor_bits
syn keyword euphoria3Builtin not_bits pixel get_pixel mem_copy mem_set
syn keyword euphoria3Builtin c_proc c_func routine_id call_proc call_func
syn keyword euphoria3Builtin poke4 peek4s peek4u equal system_exec
syn keyword euphoria3Builtin platform task_create task_schedule task_yield
syn keyword euphoria3Builtin task_self task_suspend task_list
syn keyword euphoria3Builtin task_status task_clock_stop task_clock_start
syn keyword euphoria3Builtin find_from match_from
" Builtins (Identifiers) shortcuts for length() and print():
syn match euphoria3Builtin "\$"
syn match euphoria3Builtin "?"
" Library Identifiers (Function) - from $EUDIR/doc/library.doc:
syn keyword euphoria3Library reverse sort custom_sort lower upper
syn keyword euphoria3Library wildcard_match wildcard_file arcsin
syn keyword euphoria3Library arccos PI flush lock_file unlock_file
syn keyword euphoria3Library pretty_print sprint get_bytes prompt_string
syn keyword euphoria3Library wait_key get prompt_number value seek where
syn keyword euphoria3Library current_dir chdir dir walk_dir allow_break
syn keyword euphoria3Library check_break get_mouse mouse_events mouse_pointer
syn keyword euphoria3Library tick_rate sleep get_position graphics_mode
syn keyword euphoria3Library video_config scroll wrap text_color bk_color
syn keyword euphoria3Library palette all_palette get_all_palette read_bitmap
syn keyword euphoria3Library save_bitmap get_active_page set_active_page
syn keyword euphoria3Library get_display_page set_display_page sound
syn keyword euphoria3Library cursor text_rows get_screen_char put_screen_char
syn keyword euphoria3Library save_text_image display_text_image draw_line
syn keyword euphoria3Library polygon ellipse save_screen save_image display_image
syn keyword euphoria3Library dos_interrupt allocate free allocate_low free_low
syn keyword euphoria3Library allocate_string register_block unregister_block
syn keyword euphoria3Library get_vector set_vector lock_memory int_to_bytes
syn keyword euphoria3Library bytes_to_int int_to_bits bits_to_int atom_to_float64
syn keyword euphoria3Library atom_to_float32 float64_to_atom float32_to_atom
syn keyword euphoria3Library set_rand use_vesa crash_file crash_message
syn keyword euphoria3Library crash_routine open_dll define_c_proc define_c_func
syn keyword euphoria3Library define_c_var call_back message_box free_console
syn keyword euphoria3Library instance
" Library Identifiers (Function) - from $EUDIR/doc/database.doc:
syn keyword euphoria3Library db_create db_open db_select db_close db_create_table
syn keyword euphoria3Library db_select_table db_rename_table db_delete_table
syn keyword euphoria3Library db_table_list db_table_size db_find_key db_record_key
syn keyword euphoria3Library db_record_data db_insert db_delete_record
syn keyword euphoria3Library db_replace_data db_compress db_dump db_fatal_id
" Linux shell comment (#!...):
syn match euphoria3Comment "\%^#!.*$"
" Comment on one line:
syn region euphoria3Comment start=/--/ end=/$/
" Delimiters and brackets:
syn match euphoria3Delimit "[([\])]"
syn match euphoria3Delimit "\.\."
syn match euphoria3Operator "[{}]"
" Character constant:
syn region euphoria3Char start=/'/ skip=/\\'\|\\\\/ end=/'/ oneline
" String constant:
syn region euphoria3String start=/"/ skip=/\\"\|\\\\/ end=/"/ oneline
" Hexadecimal integer:
syn match euphoria3Number "#[0-9A-F]\+\>"
" Integer/Floating point without a dot:
syn match euphoria3Number "\<\d\+\>"
" Floating point with dot:
syn match euphoria3Number "\<\d\+\.\d*\>"
" Floating point starting with a dot:
syn match euphoria3Number "\.\d\+\>"
" Boolean constants:
syn keyword euphoria3Boolean true TRUE false FALSE
" Define the default highlighting.
" Only used when an item doesn't have highlighting yet:
hi def link euphoria3Comment Comment
hi def link euphoria3String String
hi def link euphoria3Char Character
hi def link euphoria3Number Number
hi def link euphoria3Boolean Boolean
hi def link euphoria3Builtin Identifier
hi def link euphoria3Library Function
hi def link euphoria3Keyword Statement
hi def link euphoria3Operator Statement
hi def link euphoria3Debug Debug
hi def link euphoria3Delimit Delimiter
let b:current_syntax = "euphoria3"
" Restore current compatible-options:
let &cpo = s:save_cpo
unlet s:save_cpo
|
