blob: cad12a8d78c94c34f59b1d682d03ac54eb1089db (
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
|
;## 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
comment now
comment 10
comment {
bla
bla
}
comment [
quit
]
;## 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
|
