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
134
|
/*
A file for testing Stan syntax highlighting.
It is not a real model and will not compile
*/
# also a comment
// also a comment
functions {
void f1(void a, real b) {
return 1 / a;
}
real f2(int a, vector b, real c) {
return a + b + c;
}
}
data {
// valid name
int abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_abc;
// all types should be highlighted
int a3;
real foo[2];
vector[3] bar;
row_vector[3] baz;
matrix[3,3] qux;
simplex[3] quux;
ordered[3] corge;
positive_ordered[3] wibble;
corr_matrix[3] grault;
cov_matrix[3] garply;
cholesky_factor_cov[3] waldo;
cholesky_factor_corr[3] waldo2;
real<lower=-1,upper=1> foo1;
real<lower=0> foo2;
real<upper=0> foo3;
real<offset=10> foo4;
real<multiplier=2> foo5;
// newer array syntax
array[a3] int arr;
}
transformed data {
real xyzzy;
int thud;
row_vector grault2;
matrix qux2;
complex z;
// all floating point literals should be recognized
// all operators should be recognized
// paren should be recognized;
xyzzy <- 1234.5687 + .123 - (2.7e3 / 2E-5 * 135e-5);
// integer literal
thud <- -12309865;
// imaginary literals
z = 3i + 3.4i + 1e-2i;
// ./ and .* should be recognized as operators
grault2 <- grault .* garply ./ garply;
// ' and \ should be recognized as operators
qux2 <- qux' \ bar;
}
parameters {
real fred;
real plugh;
}
transformed parameters {
}
model {
// ~, <- are operators,
// T may be be recognized
// normal is a function
fred ~ normal(0, 1) T(-0.5, 0.5);
real tmp;
// C++ reserved
real public;
// control structures
for (i in 1:10) {
tmp <- tmp + 0.1;
}
tmp <- 0.0;
while (tmp < 5.0) {
tmp <- tmp + 1;
}
if (tmp > 0.0) {
print(tmp);
} else {
print(tmp);
}
// operators
tmp || tmp;
tmp && tmp;
tmp == tmp;
tmp != tmp;
tmp < tmp;
tmp <= tmp;
tmp > tmp;
tmp >= tmp;
tmp + tmp;
tmp - tmp;
tmp * tmp;
tmp / tmp;
tmp .* tmp;
tmp ./ tmp;
tmp ^ tmp;
! tmp;
- tmp;
+ tmp;
tmp ';
tmp %/% tmp;
// lp__ should be highlighted
// normal_log as a function
lp__ <- lp__ + normal_log(plugh, 0, 1);
increment_log_prob(normal_log(plugh, 0, 1));
// print statement and string literal
print("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_~@#$%^&*`'-+={}[].,;: ");
print("Hello, world!");
print("");
// reject statement
reject("I just don't like it");
real var; // reserved word
}
generated quantities {
real bar1;
bar1 <- foo + 1;
}
|
