moved Internet files to its subdirectory

Internet/netdb.Mod

@@ -0,0 +1,79 @@
+MODULE netdb; (*noch 23.2.2017 / 14.4.2017*)
+
+IMPORT SYSTEM;
+
+CONST
+    ipprotoIP* = 0;
+
+    ipprotoICMP* = 1;
+
+    ipprotoIGMP* = 2;
+
+    ipprotoIPIP* = 4;
+
+    ipprotoTCP* = 6;
+
+    ipprotoEGP* = 8;
+
+    ipprotoPUP* = 12;
+
+    ipprotoUDP* = 17;
+
+    ipprotoIDP* = 22;
+
+    ipprotoTP* = 29;
+
+    ipprotoDCCP* = 33;
+
+    ipprotoIPV6* = 41;
+
+    ipprotoRSVP* = 46;
+
+    ipprotoGRE* = 47;
+
+    ipprotoESP* = 50;
+
+    ipprotoAH* = 51;
+
+    ipprotoMTP* = 92;
+
+    ipprotoBEETPH* = 94;
+
+    ipprotoENCAP* = 98;
+
+    ipprotoPIM* = 103;
+
+    ipprotoCOMP* = 108;
+
+    ipprotoSCTP* = 132;
+
+    ipprotoUDPLITE* = 136;
+
+    ipprotoMPLS* = 137;
+
+    ipprotoRAW* = 255;
+
+TYPE
+  Int32* = LONGINT;
+  Int64* = HUGEINT;
+
+TYPE
+   PaddrInfo* = POINTER [1] TO addrInfo;
+
+   addrInfo* = RECORD
+     aiFlags*: Int32;
+     aiFamily*:Int32;
+	 aiSockType*: Int32;
+	 aiProtocol*: Int32;
+	 aiAddrLen*:  Int32;
+	 aiAddr*, aiCanonName*, aiNext*: SYSTEM.ADDRESS; (* pointers *)
+   END;
+
+
+PROCEDURE -getAddrInfo*(VAR node, service: ARRAY OF CHAR; hints: PaddrInfo; res: PaddrInfo): Int32
+"getaddrinfo (node, service, hints, res)";
+
+PROCEDURE -freeAddrInfo*( res: PaddrInfo)
+"freeaddrinfo(res)";
+
+END netdb.