[Help-smalltalk] [PATCH] Use multiple <filein> tags for NetClients

[Paolo Bonzini]

... instead of a single loading script.  This requires some juggling in 
the file loading order and in namespace creation, but nothing major.  It 
also would make it easier 1) to automatically generate documentation for 
NetClients, 2) to split separate parts of NetClients into different 
packages.  Nothing of this is coming soon, but this is a good cleanup 
anyway.

Paolo

packages/net:
2007-08-07  Paolo Bonzini  <address@hidden>

        * Load.st: Delete.
        * IMAP.st: Create namespace here.
        * MIME.st: Create namespace here.
        * NNTP.st: Create namespace here.
        * POP.st: Create namespace here.
        * SMTP.st: Create namespace here.
        * FTP.st: Create namespace here.
        * HTTP.st: Create namespace here.
        * NetServer.st: Remove namespace switching.
        * URIResolver.st: Remove namespace switching.
        * Base.st: Remove namespace switching.

* comparing to address@hidden/smalltalk--devo--2.2--patch-499
M  packages/net/package.xml
M  packages/net/IMAP.st
M  packages/net/MIME.st
M  packages/net/NNTP.st
M  packages/net/NetServer.st
M  packages/net/POP.st
M  packages/net/SMTP.st
M  packages/net/URIResolver.st
M  packages/net/Base.st
M  packages/net/FTP.st
M  packages/net/HTTP.st

* modified files

--- orig/packages/net/Base.st
+++ mod/packages/net/Base.st
@@ -36,7 +36,6 @@
 
 
 
-Namespace current: NetClients!
 NetClients at: #LineEndCR put: #cr!
 NetClients at: #LineEndLF put: #nl!
 NetClients at: #LineEndCRLF put: #crnl!
@@ -1080,7 +1079,3 @@ species
 stream
     ^stream! !
 
-
-
-
-Namespace current: Smalltalk!


--- orig/packages/net/FTP.st
+++ mod/packages/net/FTP.st
@@ -32,6 +32,7 @@
  ======================================================================"
 
 
+NetClients addSubspace: #FTP!
 Namespace current: NetClients.FTP!
 
 Object subclass:  #FTPServerEntity
@@ -510,4 +511,4 @@ fileNotFoundError: errorString
     ^FTPFileNotFoundError signal: errorString! !
 
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/HTTP.st
+++ mod/packages/net/HTTP.st
@@ -32,6 +32,7 @@
  ======================================================================"
 
 
+NetClients addSubspace: #HTTP!
 Namespace current: NetClients.HTTP!
 
 NetClient subclass:  #HTTPClient
@@ -409,4 +410,4 @@ parseStatusLine: aClient
     statusMessage := stream upToEnd! !
 
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/IMAP.st
+++ mod/packages/net/IMAP.st
@@ -31,6 +31,7 @@
 
 
 
+NetClients addSubspace: #IMAP!
 Namespace current: NetClients.IMAP!
 
 Object subclass:  #IMAPCommand
@@ -3483,4 +3484,4 @@ canParse: cmdName
 IMAPCommand initialize!
 IMAPScanner initialize!
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/MIME.st
+++ mod/packages/net/MIME.st
@@ -31,6 +31,7 @@
 
 
 
+NetClients addSubspace: #MIME!
 Namespace current: NetClients.MIME!
 
 Object subclass:  #MessageElement
@@ -2924,4 +2925,4 @@ printValueOn: aStream
 SimpleScanner initialize!
 RFC822Scanner initialize!
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/NNTP.st
+++ mod/packages/net/NNTP.st
@@ -32,6 +32,7 @@
  ======================================================================"
 
 
+NetClients addSubspace: #NNTP!
 Namespace current: NetClients.NNTP!
 
 NetClient subclass:  #NNTPClient
@@ -482,4 +483,4 @@ nextPutAll: aString
                        ifFalse: [self reconnect. ex restart]]! !
 
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/NetServer.st
+++ mod/packages/net/NetServer.st
@@ -30,7 +30,6 @@
 |
  ======================================================================"
 
-Namespace current: NetClients!
 
 Object subclass:  #NetThread
        instanceVariableNames: 'process socket priority '
@@ -258,5 +257,3 @@ stop
     super stop.
 ! !
 
-
-Namespace current: Smalltalk!


--- orig/packages/net/POP.st
+++ mod/packages/net/POP.st
@@ -32,6 +32,7 @@
  ======================================================================"
 
 
+NetClients addSubspace: #POP!
 Namespace current: NetClients.POP!
 
 NetResponse subclass:  #POPResponse
@@ -313,4 +314,4 @@ defaultResponseClass
     ^POPResponse! !
 
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/SMTP.st
+++ mod/packages/net/SMTP.st
@@ -32,6 +32,7 @@
  ======================================================================"
 
 
+NetClients addSubspace: #SMTP!
 Namespace current: NetClients.SMTP!
 
 NetClient subclass:  #SMTPClient
@@ -284,4 +285,4 @@ smtpVerify: aString
     self checkResponse! !
 
 
-Namespace current: Smalltalk!
+Namespace current: NetClients!


--- orig/packages/net/URIResolver.st
+++ mod/packages/net/URIResolver.st
@@ -32,8 +32,6 @@
  ======================================================================"
 
 
-Namespace current: NetClients!
-
 Object subclass:  #URIResolver
        instanceVariableNames: 'url reporter noCache client entity '
        classVariableNames: ''


--- orig/packages/net/package.xml
+++ mod/packages/net/package.xml
@@ -2,19 +2,31 @@
   <name>NetClients</name>
   <prereq>TCP</prereq>
   <prereq>SUnit</prereq>
-  <filein>Load.st</filein>
 
+  <filein>MIME.st</filein>
+  <filein>Base.st</filein>
+  <filein>ContentHandler.st</filein>
+  <filein>IMAP.st</filein>
+  <filein>POP.st</filein>
+  <filein>SMTP.st</filein>
+  <filein>NNTP.st</filein>
+  <filein>FTP.st</filein>
+  <filein>HTTP.st</filein>
+  <filein>URIResolver.st</filein>
+  <filein>NetServer.st</filein>
+
+  <namespace>NetClients</namespace>
+
+  <file>ChangeLog</file>
   <file>Base.st</file>
-  <file>HTTP.st</file>
-  <file>Load.st</file>
-  <file>NetServer.st</file>
-  <file>MIME.st</file>
   <file>ContentHandler.st</file>
   <file>FTP.st</file>
+  <file>HTTP.st</file>
   <file>IMAP.st</file>
+  <file>MIME.st</file>
   <file>NNTP.st</file>
+  <file>NetServer.st</file>
   <file>POP.st</file>
   <file>SMTP.st</file>
   <file>URIResolver.st</file>
-  <file>ChangeLog</file>
 </package>