diff -r 7d016cc30052 -r 058d9257c30d UDSocketAddress.st --- /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 +! ! +