commit 4acd41201c5840d056f960c48d885c4144132fcb
Author: norayr <norayr@arnet.am>
Date:   Tue Feb 23 17:57:58 2016 +0400

    nothing should work. just checking in.

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..93eb2b6
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,11 @@
+
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -s types.Mod sockets.Mod s.Mod -m
+
+clean:
+	rm *.h
+	rm *.c
+	rm *.o
+	rm *.sym
diff --git a/irc.Mod b/irc.Mod
new file mode 100644
index 0000000..4e358e7
--- /dev/null
+++ b/irc.Mod
@@ -0,0 +1,43 @@
+MODULE irc;
+IMPORT sockets, netdb, Unix, Strings;
+
+CONST strLen = 1024;
+
+VAR
+nick*, channel*, host*, port*, user*, command*, where*, message*, sep*, target*: ARRAY strLen OF CHAR;
+
+PROCEDURE write(fd: Int32; VAR buf: ARRAY OF CHAR; len: LONGINT);
+VAR
+   l: LONGINT;
+BEGIN
+  Unix.Write(fd, buf, len);
+END raw;
+
+PROCEDURE connect;
+VAR hints : netdb.addrInfo;
+    res: netdb.PaddrInfo;
+	tmp32 : netdb.Int32;
+	conn : netdb.Int32;
+	str0, str1: ARRAY 255 OF CHAR;
+BEGIN
+    hints.aiFamily := sockets.AfInet;
+	hints.aiSockType := sockets.SockStream;
+	hints.aiFlags := 0;
+	hints.aiProtocol := 0;
+	hints.aiAddrLen := 0;
+	hints.aiAddr := 0; hints.aiCanonName := 0; hints.aiNext := 0;
+
+	tmp32 := netdb.getAddrInfo(host, port, hints, res);
+    conn := sockets.Socket(res^.aiFamily, res^.aiSockType, res^.aiProtocol);
+	tmp32 := sockets.Connect(conn, res^.aiAddr, res^.aiAddrlen);
+
+(* "USER test 0 0 :test\r\n" *)
+(* "NICK test\r\n\000\060 :test\r\n"*)
+    COPY("USER ", str0);
+	Strings.Append(user, str0)
+    Strings.Append(" 0 0 :", str0);
+	Strings.Append(nick, str0);
+	str1[0] := 0AX; str1[1] := 0DX; str1[2] := 0X;
+	Strings.Append(str1, str0);
+	write(conn, str0, Strings.Length(str0));
+END connect;
diff --git a/netdb.Mod b/netdb.Mod
new file mode 100644
index 0000000..2b18bf5
--- /dev/null
+++ b/netdb.Mod
@@ -0,0 +1,28 @@
+MODULE netdb;
+
+IMPORT SYSTEM;
+
+TYPE
+  Int32* = INTEGER;
+  Int64* = LONGINT;
+
+TYPE
+   PaddrInfo = POINTER [1] TO addrInfo;
+
+   addrInfo* = RECORD
+     aiFlags*: Int32;
+     aiFamily*:Int32;
+	 aiSockType*: Int32;
+	 aiProtocol*: Int32;
+	 aiAddrLen*:  Int32;
+	 aiAddr*, aiCanonName*, aiNext*: LONGINT; (* pointers *)
+   END;
+
+
+PROCEDURE getAddrInfo*(VAR node, service: ARRAY OF CHAR; VAR hints: addrInfo; res: LONGINT): Int32
+"getaddrinfo (node, service, hints, res)";
+
+PROCEDURE freeAddrInfo*(VAR res: addrInfo)
+"freeaddrinfo(res)";
+
+END netdb.
diff --git a/sockets.Mod b/sockets.Mod
new file mode 100644
index 0000000..b935f6b
--- /dev/null
+++ b/sockets.Mod
@@ -0,0 +1,122 @@
+MODULE sockets;
+IMPORT types, SYS := SYSTEM;
+
+TYPE 
+     Int16* = types.Int16; (* INTEGER on 32 bit platform *)
+     Int32* = types.Int32;
+     Int64* = types.Int64;
+
+CONST 
+   SockStream* = 1;
+   SockDgram*  = 2;
+   SockRaw*    = 3;
+   SockRdm*    = 4;
+   SockSeqpacket* = 5;
+   SockDccp*   = 6;
+   SockPacket* = 10;
+
+   AfUnscec* = 0;      (* Unspecified.  *)
+   AfLocal*  = 1;      (* Local to host (pipes and file-domain).  *)
+   AfUnix*   = 1;      (* POSIX name for PF_LOCAL.  *)
+   AfFile*   = 1;      (* Another non-standard name for PF_LOCAL.  *)
+   AfInet*   = 2;      (* IP protocol family.  *)
+   AfAx25*   = 3;      (* Amateur Radio AX.25.  *)
+   AfIpx*    = 4;      (* Novell Internet Protocol.  *)
+   AfAppletalk* = 5;   (* Appletalk DDP.  *)
+   AfNetrom* = 6;      (* Amateur radio NetROM.  *)
+   AfBridge* = 7;      (* Multiprotocol bridge.  *)
+   AfAtmpvc* = 8;      (* ATM PVCs.  *)
+   AfX25*    = 9;      (* Reserved for X.25 project.  *)
+   AfInet6*  = 10;     (* IP version 6.  *)
+   AfRose*   = 11;     (* Amateur Radio X.25 PLP.  *)
+   AfDecnet* = 12;     (* Reserved for DECnet project.  *)
+   AfNetbeui*= 13;     (* Reserved for 802.2LLC project.  *)
+   AfSecurity*=14;     (* Security callback pseudo AF.  *)
+   AfKey*    = 15;     (* PF_KEY key management API.  *)
+   AfNetlink*= 16;
+   AfRoute*  = 16;     (* Alias to emulate 4.4BSD.  *)
+   AfPacket  = 17;     (* Packet family.  *)
+   AfAsh     = 18;     (* Ash.  *)
+   AfEconet* = 19;     (* Acorn Econet.  *)
+   AfAtmsvc* = 20;     (* ATM SVCs.  *)
+   AfRds*    = 21;     (* RDS sockets.  *)
+   AfSna     = 22;     (* Linux SNA Project *)
+   AfIrda*   = 23;     (* IRDA sockets.  *)
+   AfPppox   = 24;     (* PPPoX sockets.  *)
+   AfWanpipe*= 25;     (* Wanpipe API sockets.  *)
+   AfLlc*    = 26;     (* Linux LLC.  *)
+   AfCan*    = 29;     (* Controller Area Network.  *)
+   AfTipc*   = 30;     (* TIPC sockets.  *)
+   AfBluetooth* = 31;  (* Bluetooth sockets.  *)
+   AfIucv*   = 32;     (* IUCV sockets.  *)
+   AfRxrpc*  = 33;     (* RxRPC sockets.  *)
+   AfIsdn*   = 34;     (* mISDN sockets.  *)
+   AfPhonet* = 35;     (* Phonet sockets.  *)
+   AfIeee802154* = 36; (* IEEE 802.15.4 sockets.  *)
+   AfCaif*   = 37;     (* CAIF sockets.  *)
+   AfAlg*    = 38;     (* Algorithm sockets.  *)
+   AfNfc*    = 39;     (* NFC sockets.  *)
+   AfVsock*  = 40;     (* vSockets.  *)
+   AfMax*    = 41;     (* For now..  *)
+
+   InAddrAny* = 0;
+
+TYPE
+
+   (* /usr/include/netinet/in.h *)
+   InAddr* = RECORD
+    SAddr* : Int32;
+   END;
+
+   SockAddrIn* = RECORD
+    SinFamily* : Int16;
+    SinPort*   : Int16;
+    SinAddr*   : InAddr;
+    SinZero*   : ARRAY 8 OF CHAR;
+   END;
+   (* /usr/include/sys/socket.h *)
+  
+   SockAddr* = RECORD
+    SaFamily* : Int16;
+    SaData*   : ARRAY 14 OF CHAR
+   END;
+
+   PROCEDURE -socket(domain, type, protocol: Int32): Int32
+      "(int)socket(domain, type, protocol)";
+
+   PROCEDURE Socket*(domain, type, protocol: Int32): Int32;
+   BEGIN
+      RETURN socket(domain, type, protocol)
+   END Socket;
+
+   PROCEDURE -bind(sockfd: Int32; VAR addr: SockAddr; addrlen: Int32): Int32
+      "(int)bind(sockfd, addr, addrlen)";
+
+   PROCEDURE Bind*(sockfd: Int32; VAR addr: SockAddr; addrlen: Int32): Int32;
+   BEGIN
+      RETURN bind(sockfd, addr, addrlen)
+   END Bind;
+
+   PROCEDURE -listen(sockfd, backlog: Int32): Int32
+      "(int)listen(sockfd, backlog)";
+
+   PROCEDURE Listen*(sockfd, backlog: Int32): Int32;
+   BEGIN
+      RETURN listen(sockfd, backlog)
+   END Listen;
+
+   PROCEDURE -accept(sockfd: Int32; VAR addr: SockAddr; VAR addrlen: Int32): Int32
+      "(int)accept(sockfd, addr, addrlen)";
+
+   PROCEDURE Accept*(sockfd: Int32; VAR addr: SockAddr; VAR addrlen: Int32): Int32;
+   BEGIN
+      RETURN accept(sockfd, addr, addrlen)
+   END Accept;
+    (* int connect(int sockfd, const struct sockaddr *addr,
+	                   socklen_t addrlen); *)
+   PROCEDURE Connect*(sockfd: Int32; VAR addr: SockAddr; addrlen: Int32): Int32      "(socklen_t)(connect(sockfd, addr, addrlen))";
+
+BEGIN
+
+
+END sockets.
diff --git a/types.Mod b/types.Mod
new file mode 100644
index 0000000..633e6b2
--- /dev/null
+++ b/types.Mod
@@ -0,0 +1,38 @@
+MODULE types;
+IMPORT SYS := SYSTEM;
+
+
+TYPE
+     intarr64 = ARRAY 8 OF SYS.BYTE; (* to emulate int16 on x86_64; -- noch *)
+     intarr32 = ARRAY 4 OF SYS.BYTE;
+     intarr16 = ARRAY 2 OF SYS.BYTE;
+     Int16* = intarr16; (* INTEGER on 32 bit platform *)
+     Int32* = INTEGER;
+     Int64* = LONGINT;
+     String* = ARRAY 256 OF CHAR;
+     
+     PROCEDURE LongintToInt16*(int: LONGINT; VAR int16: Int16);
+      VAR longintarr : intarr64;
+   BEGIN
+      (*RETURN SYS.VAL(Int16, int)*)
+      longintarr := SYS.VAL(intarr64, int);
+      int16[0] := longintarr[0];
+      int16[1] := longintarr[1]; (* this will work for little endian -- noch *)
+   END LongintToInt16;
+
+   PROCEDURE IntegerToInt16*(int: INTEGER; VAR int16: Int16);
+      VAR intarr : intarr32;
+   BEGIN
+      int16 := SYS.VAL(Int16, int)
+      (*intarr := SYS.VAL(intarr32, int);
+      int16[0] := intarr[0];
+      int16[1] := intarr[1];*) (* this will work for little endian -- noch *)
+   END IntegerToInt16;
+
+   PROCEDURE htons*(in: Int16; VAR out : Int16);
+   BEGIN
+      out[0] := in[1];
+      out[1] := in[0];
+   END htons;
+
+END types.