blob: b7fa8b3029931234b0a36ab638e3dea8ebcc318e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# example program: reading a URL over HTTP
def main [
local-scope
google:&:source:char <- start-reading-from-network 0/real-resources, [google.com], [/]
n:num <- copy 0
b:&:buffer <- new-buffer 30
{
c:char, done?:bool <- read google
break-if done?
n <- add n, 1
b <- append b, c
#? trunc?:bool <- greater-or-equal n, 10000
#? loop-unless trunc?
loop
}
result:text <- buffer-to-array b
open-console
len:num <- length *result
print 0/real-screen, result
wait-for-some-interaction
close-console
]
|