From 84b04c2b3705b5c672d50795f51332b4630eb5d0 Mon Sep 17 00:00:00 2001
From: Ruben Shekspir <shekspir55@gmail.com>
Date: Tue, 19 Feb 2019 11:19:59 +0400
Subject: [PATCH] Alsmost works

---
 http.Mod | 29 +++++++++++++++++++++++++++++
 makefile |  6 ++++++
 2 files changed, 35 insertions(+)
 create mode 100644 http.Mod

diff --git a/http.Mod b/http.Mod
new file mode 100644
index 0000000..9d2bec3
--- /dev/null
+++ b/http.Mod
@@ -0,0 +1,29 @@
+MODULE http;
+IMPORT Internet, Out;
+PROCEDURE get(host, port: ARRAY OF CHAR, VAR buff: ARRAY 1000 OF CHAR);
+VAR 
+    socket : Internet.Socket;
+    connected: BOOLEAN;
+    send: ARRAY 7 OF CHAR;
+BEGIN
+    connected := Internet.Connect(host, port, socket);
+    send[0] := "G";
+    send[1] := "E";
+    send[2] := "T";
+    send[3] := 0DX;
+    send[4] := 0AX;
+    send[5] := " ";
+    (* Somewhy it's ignoring the last byte *)
+
+    connected := Internet.Write(socket, send);
+    connected := Internet.Read(socket, buff);
+    Internet.Disconnect(socket);
+
+END get;
+VAR
+  buff: ARRAY 1000 OF CHAR
+BEGIN
+  get("google.am", "80", buff);
+  Out.String(buff);
+  Out.Ln;
+END http.
\ No newline at end of file
diff --git a/makefile b/makefile
index 90f5b95..fee349c 100644
--- a/makefile
+++ b/makefile
@@ -4,8 +4,14 @@ VOC = /opt/voc/bin/voc
 all:
 	$(VOC) -s types.Mod sockets.Mod netdb.Mod Internet.Mod stringHelpers.Mod time.Mod IRC.Mod test.Mod -m
 
+http:
+	$(VOC) -s types.Mod sockets.Mod netdb.Mod Internet.Mod http.Mod -m
+
 clean:
 	rm *.h
 	rm *.c
 	rm *.o
 	rm *.sym
+
+test: http
+	./http
\ No newline at end of file