1 "

     2  COPYRIGHT (c) 1995 by Claus Gittinger

     3 	      All Rights Reserved

     4 

     5  This software is furnished under a license and may be used

     6  only in accordance with the terms of that license and with the

     7  inclusion of the above copyright notice.   This software may not

     8  be provided or otherwise made available to, or used by, any

     9  other person.  No title to or ownership of the software is

    10  hereby transferred.

    11 "

    12 

    13 SocketAddress subclass:#UDSocketAddress

    14 	 instanceVariableNames:'name'

    15 	 classVariableNames:''

    16 	 poolDictionaries:''

    17 	 category:'ST80-Compatibility'

    18 !

    19 

    20 !UDSocketAddress class methodsFor:'documentation'!

    21 

    22 copyright

    23 "

    24  COPYRIGHT (c) 1995 by Claus Gittinger

    25 	      All Rights Reserved

    26 

    27  This software is furnished under a license and may be used

    28  only in accordance with the terms of that license and with the

    29  inclusion of the above copyright notice.   This software may not

    30  be provided or otherwise made available to, or used by, any

    31  other person.  No title to or ownership of the software is

    32  hereby transferred.

    33 "

    34 !

    35 

    36 version

    37 "

    38 $Header: /cvs/stx/stx/libbasic2/UDSocketAddress.st,v 1.1 1995-11-01 12:56:49 cg Exp $

    39 "

    40 !

    41 

    42 documentation

    43 "

    44     ST-80 compatibility class.

    45     This may be required when existing code has to be ported to ST/X;

    46     however, it may not be complete and more protocol may be added in the future.

    47     The code here was created when public domain code (Manchester) had to

    48     be ported to ST/X and missing classes/methods were encountered, and code added

    49     by reasoning 'what the original class could probably do there'.

    50 

    51     This is an additional goody class; therefore:

    52 

    53     THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND

    54     ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

    55     IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

    56     ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE

    57     FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

    58     DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

    59     OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

    60     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

    61     LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

    62     OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

    63     SUCH DAMAGE.

    64 "

    65 ! !

    66 

    67 !UDSocketAddress class methodsFor:'instance creation'!

    68 

    69 name: pathName

    70     ^ self new name:pathName

    71 

    72     "

    73      UDSocketAddress name:'/tmp/aUnixDomainSocket' 

    74     "

    75 ! !

    76 

    77 !UDSocketAddress methodsFor:'private initialization'!

    78 

    79 name: pathName

    80     name := pathName

    81 ! !

    82 

    83 !UDSocketAddress methodsFor:'queries'!

    84 

    85 portOrName

    86     ^ name

    87 !

    88 

    89 address

    90     ^ nil

    91 ! !

    92