95 lines
1.5 KiB
Plaintext
95 lines
1.5 KiB
Plaintext
;## 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
|