From f24eeaab13d12b87bb219cb42861c5fe7d091053 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 20 Oct 2016 00:24:16 -0700
Subject: 3523 - http client now working

---
 http-client.mu | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 http-client.mu

(limited to 'http-client.mu')

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
+]
-- 
cgit 1.4.1-2-gfad0