... 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 <[EMAIL PROTECTED]>
* 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 [EMAIL PROTECTED]/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>
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
