Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 01 Nov 1995 13:56:49 +0100
changeset 100 058d9257c30d
parent 99 7d016cc30052
child 101 336cb0e16135
*** empty log message ***
IPSocketAddress.st file | annotate | diff | comparison | revisions
SocketAddress.st file | annotate | diff | comparison | revisions
UDSocketAddress.st file | annotate | diff | comparison | revisions 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/IPSocketAddress.st	Wed Nov 01 13:56:49 1995 +0100
@@ -0,0 +1,122 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+SocketAddress subclass:#IPSocketAddress
+	 instanceVariableNames:'port address'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!IPSocketAddress class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.1 1995-11-01 12:56:48 cg Exp $
+"
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+! !
+
+!IPSocketAddress class methodsFor:'queries'!
+
+hostAddressByName: hostName
+    ^ Socket ipAddressOfHost:hostName
+
+    "
+     IPSocketAddress hostAddressByName:'clam' 
+     IPSocketAddress hostAddressByName:'foobar' 
+    "
+!
+
+hostNameByAddress: anAddress
+    ^ Socket hostWithIpAddress:anAddress
+
+    "
+     |addr|
+
+     addr := IPSocketAddress hostAddressByName:'porty'.
+     IPSocketAddress hostNameByAddress:addr  
+    "
+! !
+
+!IPSocketAddress class methodsFor:'instance creation'!
+
+hostAddress:addr port:portNr
+    ^ self basicNew
+	hostAddress:addr port:portNr
+! !
+
+!IPSocketAddress methodsFor:'accessing'!
+
+hostAddress:addr port:portNr
+    address := addr.
+    port := portNr
+! !
+
+!IPSocketAddress methodsFor:'queries'!
+
+hostAddress
+    ^ address 
+!
+
+port
+    ^ port
+!
+
+portOrName
+    ^ port
+!
+
+address
+    ^ address
+! !
+
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SocketAddress.st	Wed Nov 01 13:56:49 1995 +0100
@@ -0,0 +1,86 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+Object subclass:#SocketAddress
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!SocketAddress class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.1 1995-11-01 12:56:48 cg Exp $
+"
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+! !
+
+!SocketAddress class methodsFor:'queries'!
+
+domainCodeFromName:aNameSymbol
+    aNameSymbol == #afUnix ifTrue:[^ #unix].
+    "/
+    "/ could someone tell me which symbols are used in ST-80's SocketAddress class ?
+    "/
+    self error:'no more mimicri implemented yet ...'
+! !
+
+!SocketAddress methodsFor:'queries'!
+
+portOrName
+    self subclassResponsibility
+!
+
+address
+    self subclassResponsibility
+! !
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/UDSocketAddress.st	Wed Nov 01 13:56:49 1995 +0100
@@ -0,0 +1,92 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+SocketAddress subclass:#UDSocketAddress
+	 instanceVariableNames:'name'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'ST80-Compatibility'
+!
+
+!UDSocketAddress class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libbasic2/UDSocketAddress.st,v 1.1 1995-11-01 12:56:49 cg Exp $
+"
+!
+
+documentation
+"
+    ST-80 compatibility class.
+    This may be required when existing code has to be ported to ST/X;
+    however, it may not be complete and more protocol may be added in the future.
+    The code here was created when public domain code (Manchester) had to
+    be ported to ST/X and missing classes/methods were encountered, and code added
+    by reasoning 'what the original class could probably do there'.
+
+    This is an additional goody class; therefore:
+
+    THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
+    ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+    IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+    ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
+    FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+    DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+    OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+    HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+    LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+    OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+    SUCH DAMAGE.
+"
+! !
+
+!UDSocketAddress class methodsFor:'instance creation'!
+
+name: pathName
+    ^ self new name:pathName
+
+    "
+     UDSocketAddress name:'/tmp/aUnixDomainSocket' 
+    "
+! !
+
+!UDSocketAddress methodsFor:'private initialization'!
+
+name: pathName
+    name := pathName
+! !
+
+!UDSocketAddress methodsFor:'queries'!
+
+portOrName
+    ^ name
+!
+
+address
+    ^ nil
+! !
+
hg/stx-libbasic2