blob: 707102dbdbf827f9cd9baed1685ed78f6a2068cb (
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
|
preface.... everything what is before header is not evaluated
so this should not be colorized:
1 + 2
REBOL [] ;<- this is minimal header, everything behind it must be colorized
;## String tests ##
print "Hello ^"World" ;<- with escaped char
multiline-string: {
bla bla "bla" {bla}
}
char-a: #"a"
escaped-a: #"^(61)"
new-line: #"^/"
;## Binaries ##
print decompress 64#{eJzLSM3JyQcABiwCFQUAAAA=}
;2#{0000 00000} ;<- this one is invalid!
2#{}
#{FF00}
;##Date + time ##
1-Feb-2009
1-Feb-2009/2:24:46+1:0
1:0 1:1:1 -0:1.1
;## Tuple ##
red: 255.0.0
red-with-alpha: 255.0.0.100
;## url!, file! and email! ##
aaa@bbb.cz
http://
dns://
tcp://127.0.0.1
%/c/rebol/
%"c:\Program Files\"
%/c/Program%20Files/
to-rebol-file "c:\Program Files\"
suffix? %bla.swf
;## Money ##
$1
-$1.2
USA$100
;## Tag! ##
<a>
<a href="a()">
;## Pair! ##
10x200
;## Issue! ##
type? #ff0000 ;== issue!
;## some numbers ##
to integer! (1 + (x / 4.5) * 1E-4)
;## some spec comments
1 + 1
comment "aa"
2 + 2
comment {aa}
3 + 3
comment {a^{}
4 + 4
comment {{}}
5 + 5
comment {
foo: 6
}
6 + 6
comment [foo: 6]
7 + 7
comment [foo: "[" ]
8 + 8
comment [foo: {^{} ]
9 + 9
comment [foo: {boo} ]
10 + 10
comment 5-May-2014/11:17:34+2:00
5-May-2014/11:17:34+2:00 11 + 11
;## other tests ##
---: 1
x/(1 + n)/y
b/:1
;## and...
REBOL [
purpose: {
reads css file and creates html from it
so one can see how the styles looks like
}
]
style: %default
out: rejoin [{
<html>
<head>
<title>Pygments style: } style {.css</title>
<link rel="stylesheet" href="} style {.css">
</head>
<body>
<div class="syntax"><pre>
}]
css: read/lines join style %.css
foreach line css [
parse line [".syntax ." copy c to " " thru "/*" copy t to "*/" to end (
append out rejoin ["<span class=" c ">" t "</span>^/"])
]
]
write join style %.html join out "</pre></div></body></html>"
halt
|
