JavaSocket.st
author vranyj1
Mon, 10 Dec 2012 20:27:49 +0000
branchdevelopment
changeset 1866 7f13fe06e19d
parent 1864 60a8dc26c8c6
child 2069 75d40b7b986f
permissions -rw-r--r--
Syntax fixed in extensions.st
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
     1
"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
     2
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
1152
040cba55a7d2 Copyright fixes
vranyj1
parents: 1108
diff changeset
     3
1155
vranyj1
parents: 1152
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
1152
040cba55a7d2 Copyright fixes
vranyj1
parents: 1108
diff changeset
     5
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
     6
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
     8
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
     9
 This software is furnished under a license and may be used
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    10
 only in accordance with the terms of that license and with the
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    12
 be provided or otherwise made available to, or used by, any
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    13
 other person.  No title to or ownership of the software is
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    14
 hereby transferred.
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    15
1155
vranyj1
parents: 1152
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
vranyj1
parents: 1152
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
vranyj1
parents: 1152
diff changeset
    18
     see the differences between this version and version stx:libjava
1152
040cba55a7d2 Copyright fixes
vranyj1
parents: 1108
diff changeset
    19
     as of 1.9.2010
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    20
"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    21
"{ Package: 'stx:libjava' }"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    22
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    23
Socket subclass:#JavaSocket
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    24
	instanceVariableNames:'options'
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    25
	classVariableNames:'Defaults'
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    26
	poolDictionaries:''
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    27
	category:'Languages-Java-Support'
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    28
!
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    29
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    30
!JavaSocket class methodsFor:'documentation'!
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    31
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    32
copyright
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    33
"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    34
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
1152
040cba55a7d2 Copyright fixes
vranyj1
parents: 1108
diff changeset
    35
1155
vranyj1
parents: 1152
diff changeset
    36
 New code and modifications done at SWING Research Group [1]:
1152
040cba55a7d2 Copyright fixes
vranyj1
parents: 1108
diff changeset
    37
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    38
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    39
                            SWING Research Group, Czech Technical University in Prague
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    40
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    41
 This software is furnished under a license and may be used
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    42
 only in accordance with the terms of that license and with the
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    43
 inclusion of the above copyright notice.   This software may not
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    44
 be provided or otherwise made available to, or used by, any
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    45
 other person.  No title to or ownership of the software is
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    46
 hereby transferred.
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    47
1155
vranyj1
parents: 1152
diff changeset
    48
 [1] Code written at SWING Research Group contains a signature
vranyj1
parents: 1152
diff changeset
    49
     of one of the above copright owners. For exact set of such code,
vranyj1
parents: 1152
diff changeset
    50
     see the differences between this version and version stx:libjava
1152
040cba55a7d2 Copyright fixes
vranyj1
parents: 1108
diff changeset
    51
     as of 1.9.2010
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    52
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    53
"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    54
! !
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    55
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    56
!JavaSocket class methodsFor:'initialization'!
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    57
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    58
initialize
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    59
    "Invoked at system start or when the class is dynamically loaded."
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    60
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    61
    "/ please change as required (and remove this comment)
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    62
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    63
    Defaults := Dictionary new.
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    64
    Defaults at: #TCP_NODELAY put: false.
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    65
    Defaults at: #SO_LINGER put: -1.
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    66
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    67
    "Modified: / 13-11-2011 / 23:07:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    68
! !
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    69
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    70
!JavaSocket methodsFor:'options'!
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    71
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    72
getSocketOption: option  
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    73
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    74
    options isNil ifTrue:[options := Dictionary new].
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    75
    ^options at: option ifAbsent:[Defaults at: option ifAbsent:[false]]
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    76
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    77
    "Created: / 13-11-2011 / 20:54:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    78
!
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    79
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    80
setSocketOption: option argument: arg1 argument: arg2  
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    81
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    82
    super setSocketOption: option argument: arg1 argument: arg2.
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    83
    options isNil ifTrue:[options := Dictionary new].
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    84
    option == #SO_LINGER ifTrue:[
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    85
        arg1 == false ifTrue:[
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    86
            options at: option put: -1
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    87
        ] ifFalse:[
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    88
            options at: option put: arg2
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    89
        ].
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    90
    ] ifFalse:[
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    91
        options at: option put: arg1
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    92
    ]
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    93
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    94
    "Created: / 13-11-2011 / 20:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    95
! !
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    96
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    97
!JavaSocket class methodsFor:'documentation'!
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
    98
1864
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
    99
version_HG
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   100
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   101
    ^ '$Changeset: <not expanded> $'
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   102
!
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   103
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
   104
version_SVN
1864
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   105
    ^ '§Id§'
1108
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
   106
! !
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
   107
847291fc77d7 More java.net.* primitives
vranyj1
parents:
diff changeset
   108
JavaSocket initialize!