From 31f40812f5dc33be9eafa600810451e644493696 Mon Sep 17 00:00:00 2001
From: "hyunghwan.chung" <hyunghwan.chung@c9d47f8d-4fed-4a2f-8cad-691f5fbe3904>
Date: Sun, 7 Jan 2018 15:14:15 +0000
Subject: [PATCH] attempted to add SocketAddress

---
 moo/kernel/Socket.moo | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/moo/kernel/Socket.moo b/moo/kernel/Socket.moo
index 2bb5645..ac98148 100644
--- a/moo/kernel/Socket.moo
+++ b/moo/kernel/Socket.moo
@@ -202,13 +202,22 @@ class(#byte(16)) IP6Address(IP4Address)
 			Exception signal: ('invalid IPv6 address ' & str).
 		}
 	}
+
+	##method toString
+	##{
+	##}
 }
 
-class(#byte(19)) IP6SocketAddress(IP6Address)
+class(#byte(19)) SocketAddress(Object)
 {
-	method(#class) new
+	method(#primitive) port.
+	method(#primitive) port: port.
+
+	method(#primitive) ipaddr.
+	method(#primitive) ipaddr: ipaddr.
+
+	method fromString: str
 	{
-		^self basicNew: 6.
 	}
 }
 
@@ -223,6 +232,7 @@ class SocketAddress(Object) from 'sck.addr'
 	}
 }
 
+(**********************************************************
 class X(Object)
 {
 	var tt,yy.
@@ -238,10 +248,10 @@ class(#pointer) Y(X)
 ##class (#word(2)) Z(Y)
 ##{
 ##}
-
 ##class InetSocketAddress(SocketAddress)
 ##{
 ##}
+************************************************************)
 
 class Socket(Object) from 'sck'
 {
@@ -381,7 +391,7 @@ class MyObject(Object)
 	method(#class) main
 	{
 		| s conact inact outact |
-
+(*
 s:= X new: 20.
 s basicSize dump.
 '****************************' dump.
@@ -392,6 +402,7 @@ s basicAt: 1 put: 20.
 s dump.
 s basicSize dump.
 '****************************' dump.
+*)
 
 s := ByteArray new: 100.
 s basicFillFrom: 0 with: ($a asInteger) count: 100.