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
|
/***********************************************************************/
/* */
/* Objective Caml */
/* */
/* Damien Doligez, projet Para, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
/* en Automatique. All rights reserved. This file is distributed */
/* under the terms of the GNU Library General Public License, with */
/* the special exception on linking described in file ../LICENSE. */
/* */
/***********************************************************************/
/* $Id$ */
type 'Odds' {
longint; /* resource ID of corresponding 'Sods' */
longint = $$CountOf (suffixes);
wide array suffixes { pstring; };
};
type 'Sods' {
longint = 0xA5666D66;
pstring; /* default token breaks */
longint = $$CountOf (keywords);
wide array keywords {
pstring; /* the keyword itself */
longint /* the keyword type */
case=0,
caseWord=1,
noCase=2,
noCaseWord=3,
line=4,
mystery=0xB,
opening=0x10000,
closing=0x20000,
openingFill=0x50000,
closingFill=0x60000,
quote=0x80000;
literal longint; /* scoping parameter */
longint /* color */
red=0,
blue=1,
bluegreen=2,
bluepurple=3,
grey=4,
darkgreen=7,
black=255;
};
};
resource 'Odds' (26087, "O'Caml") {
26087,
{ ".ml", ".mli", ".mll", ".mly", ".mlp" }
};
resource 'Sods' (26087, "O'Caml Keywords") {
"\t\r\n ~!$%^&*()/-+=<>,[]{};",
{
"(*", openingFill, '(**)', red,
"*)", closingFill, '(**)', red,
"\"", quote, 0, grey,
#define KEY caseWord, 0, blue
"and", KEY,
"as", KEY,
"assert", KEY,
"begin", KEY,
"class", KEY,
"constraint", KEY,
"do", KEY,
"done", KEY,
"downto", KEY,
"else", KEY,
"end", KEY,
"exception", KEY,
"external", KEY,
"false", KEY,
"for", KEY,
"fun", KEY,
"function", KEY,
"functor", KEY,
"if", KEY,
"in", KEY,
"include", KEY,
"inherit", KEY,
"initializer", KEY,
"lazy", KEY,
"let", KEY,
"match", KEY,
"method", KEY,
"module", KEY,
"mutable", KEY,
"new", KEY,
"object", KEY,
"of", KEY,
"open", KEY,
"or", KEY,
"parser", KEY,
"private", KEY,
"rec", KEY,
"sig", KEY,
"struct", KEY,
"then", KEY,
"to", KEY,
"true", KEY,
"try", KEY,
"type", KEY,
"val", KEY,
"virtual", KEY,
"when", KEY,
"while", KEY,
"with", KEY,
"mod", KEY,
"land", KEY,
"lor", KEY,
"lxor", KEY,
"lsl", KEY,
"lsr", KEY,
"asr", KEY,
}
};
|
