3523 - http client now working

1 files changed, 24 insertions, 0 deletions

diff --git a/http-client.mu b/http-client.mu
new file mode 100644
index 00000000..eddbe2a4
--- /dev/null
+++ b/http-client.mu
@@ -0,0 +1,24 @@
+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?
+#?     $print c, 10/newline
+    n <- add n, 1
+#?     skip?:bool <- lesser-than n, 10000
+#?     loop-if skip?
+    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
+]