about summary refs log tree commit diff stats
path: root/http-client.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2017-12-03 23:25:40 -0800
committerKartik K. Agaram <vc@akkartik.com>2017-12-03 23:25:40 -0800
commit4a48bedcd1d708a43d43dc6259a4e45c52ea3d00 (patch)
tree85c1b7310cca932797d727a3de8da96eb175d8da /http-client.mu
parentef7d834fdd826977cd8d43253052a7b8e1c5aa72 (diff)
downloadmu-4a48bedcd1d708a43d43dc6259a4e45c52ea3d00.tar.gz
4134 - 'input' = 'ingredient'
Diffstat (limited to 'http-client.mu')
-rw-r--r--http-client.mu7
1 files changed, 7 insertions, 0 deletions
diff --git a/http-client.mu b/http-client.mu
index 681b4738..9219a76f 100644
--- a/http-client.mu
+++ b/http-client.mu
@@ -2,7 +2,9 @@
 
 def main [
   local-scope
+  $print [aaa] 10/newline
   google:&:source:char <- start-reading-from-network 0/real-resources, [google.com/]
+  $print [bbb] 10/newline
   n:num <- copy 0
   buf:&:buffer:char <- new-buffer 30
   {
@@ -10,6 +12,11 @@ def main [
     break-if done?
     n <- add n, 1
     buf <- append buf, c
+    {
+      _, a:num <- divide-with-remainder n, 100
+      break-if a
+      $print n 10/newline
+    }
     loop
   }
   result:text <- buffer-to-array buf