From d059fe743df6a5e8a72fc1418f2c3ba1ed5ac1e6 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 20 Oct 2016 00:37:24 -0700 Subject: 3524 --- html/http-client.mu.html | 60 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 html/http-client.mu.html (limited to 'html/http-client.mu.html') diff --git a/html/http-client.mu.html b/html/http-client.mu.html new file mode 100644 index 00000000..50b203f2 --- /dev/null +++ b/html/http-client.mu.html @@ -0,0 +1,60 @@ + + + + +Mu - http-client.mu + + + + + + + + + + +
+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