--- a/SharedQueue.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/SharedQueue.st	Wed Oct 13 01:18:58 1993 +0100
@@ -23,7 +23,7 @@
 
 See samples in doc/coding.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.3 1993-10-13 00:18:13 claus Exp $
 
 '!
 

--- a/Socket.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/Socket.st	Wed Oct 13 01:18:58 1993 +0100
@@ -32,7 +32,7 @@
         bind:
             retVal := aSocket bind:aName
         
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.3 1993-10-13 00:18:24 claus Exp $
 '!
 
 %{
@@ -404,7 +404,7 @@
     _immediateInterrupt = 1;
     if (hostName == nil) {
         sa.sin_addr.s_addr = htonl(INADDR_ANY);
-        if (bind(sock, &sa, sizeof(sa)) < 0) {
+        if (bind(sock, (struct sockaddr *)&sa, sizeof(sa)) < 0) {
             _immediateInterrupt = 1;
             close(sock) ;
             _immediateInterrupt = 0;
@@ -412,7 +412,7 @@
         }
     } else {
         sa.sin_port = htons((u_short) _intVal(portNr)) ;
-        if (connect(sock, &sa, sizeof(sa)) < 0) {
+        if (connect(sock, (struct sockaddr *)&sa, sizeof(sa)) < 0) {
 	    _immediateInterrupt = 1;
             close(sock) ;
 	    _immediateInterrupt = 0;
@@ -475,7 +475,7 @@
     _immediateInterrupt = 1;
     sa.sin_port = htons((u_short) _intVal(portNr)) ;
     if (hostName != nil) {
-        if (connect(sock, &sa, sizeof(sa)) < 0) {
+        if (connect(sock, (struct sockaddr *)&sa, sizeof(sa)) < 0) {
 	    _immediateInterrupt = 1;
             close(sock);
 	    _immediateInterrupt = 0;
@@ -484,7 +484,7 @@
     } else {
         sa.sin_addr.s_addr = htonl(INADDR_ANY);
 	_immediateInterrupt = 1;
-        if (bind(sock, &sa, sizeof(sa)) < 0) { 
+        if (bind(sock, (struct sockaddr *)&sa, sizeof(sa)) < 0) { 
 	    _immediateInterrupt = 1;
             close(sock) ;
 	    _immediateInterrupt = 0;
@@ -596,7 +596,7 @@
         newFd = accept(fd, (struct sockaddr *) &sa, &alen);
 	_immediateInterrupt = 0;
         if (newFd >= 0) {
-            he = gethostbyaddr(&sa.sin_addr.s_addr, alen, AF_INET) ;
+            he = gethostbyaddr((char *) &sa.sin_addr.s_addr, alen, AF_INET) ;
             if (! he) {
                 norder = htonl(sa.sin_addr.s_addr) ;
                 sprintf(dotted, "%d.%d.%d.%d",

--- a/SoundStr.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/SoundStr.st	Wed Oct 13 01:18:58 1993 +0100
@@ -12,6 +12,8 @@
 Currently works with PD sound-blaster driver and
 sun audio device. On iris default setup is 8 bit mono
 so I can play the standard sound files I have here.
+
+$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.3 1993-10-13 00:18:28 claus Exp $
 '!
 
 %{

--- a/SoundStream.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/SoundStream.st	Wed Oct 13 01:18:58 1993 +0100
@@ -12,6 +12,8 @@
 Currently works with PD sound-blaster driver and
 sun audio device. On iris default setup is 8 bit mono
 so I can play the standard sound files I have here.
+
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.3 1993-10-13 00:18:28 claus Exp $
 '!
 
 %{

--- a/StrColl.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/StrColl.st	Wed Oct 13 01:18:58 1993 +0100
@@ -25,7 +25,7 @@
 text is an array of lines which are strings.
 this is just temporary - may change in the future.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.3 1993-10-13 00:18:40 claus Exp $
 '!
 
 !Text class methodsFor:'instance creation'!

--- a/TwoByteStr.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/TwoByteStr.st	Wed Oct 13 01:18:58 1993 +0100
@@ -25,7 +25,7 @@
 TwoByteStrings are like strings, but storing 16bits per character.
 The integration of them into the system is not completed ....
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/TwoByteStr.st,v 1.3 1993-10-13 00:18:46 claus Exp $
 '!
 
 !TwoByteString class methodsFor:'instance creation'!

--- a/ValLink.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/ValLink.st	Wed Oct 13 01:18:58 1993 +0100
@@ -24,7 +24,7 @@
 
 this class provides Links which can hold a value.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/ValLink.st,v 1.3 1993-10-13 00:18:54 claus Exp $
 '!
 
 !ValueLink methodsFor:'accessing'!

--- a/ValueLink.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/ValueLink.st	Wed Oct 13 01:18:58 1993 +0100
@@ -24,7 +24,7 @@
 
 this class provides Links which can hold a value.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/ValueLink.st,v 1.3 1993-10-13 00:18:54 claus Exp $
 '!
 
 !ValueLink methodsFor:'accessing'!

--- a/VarArray.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/VarArray.st	Wed Oct 13 01:18:58 1993 +0100
@@ -26,7 +26,7 @@
 fixed in size - this may change in the future.
 (make Array be FixedArray, and this one named Array
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/VarArray.st,v 1.3 1993-10-13 00:18:56 claus Exp $
 '!
 
 !VariableArray class methodsFor:'instance creation'!

--- a/VarString.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/VarString.st	Wed Oct 13 01:18:58 1993 +0100
@@ -25,7 +25,7 @@
 VariableStrings can grow and shrink - in contrast to Strings which are
 fixed in size - this may change in the future.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.3 1993-10-13 00:18:58 claus Exp $
 '!
 
 !VariableString class methodsFor:'initialization'!

--- a/VariableArray.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/VariableArray.st	Wed Oct 13 01:18:58 1993 +0100
@@ -26,7 +26,7 @@
 fixed in size - this may change in the future.
 (make Array be FixedArray, and this one named Array
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/VariableArray.st,v 1.3 1993-10-13 00:18:56 claus Exp $
 '!
 
 !VariableArray class methodsFor:'instance creation'!

--- a/VariableString.st	Wed Oct 13 01:17:11 1993 +0100
+++ b/VariableString.st	Wed Oct 13 01:18:58 1993 +0100
@@ -25,7 +25,7 @@
 VariableStrings can grow and shrink - in contrast to Strings which are
 fixed in size - this may change in the future.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.3 1993-10-13 00:18:58 claus Exp $
 '!
 
 !VariableString class methodsFor:'initialization'!