Issue GsDevKit#58: rename breakpointExceptionSet to gemServerExceptio…

…nSet

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/instance/gemServerExceptionSet..st

@@ -0,0 +1,4 @@
+accessing
+gemServerExceptionSet: anObject
+
+   gemServerExceptionSet := anObject

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/instance/gemServerExceptionSet.st

@@ -0,0 +1,4 @@
+accessing
+gemServerExceptionSet
+
+   ^gemServerExceptionSet

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/instance/initialize.st

@@ -2,4 +2,4 @@ initialization
 initialize
   super initialize.
   self logErrorsOnly.
-  self breakpointExceptionSet: self class breakpointExceptionSet
+  self gemServerExceptionSet: self class gemServerExceptionSet

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/instance/log.st

@@ -5,6 +5,6 @@ log
       log := ZnGemServerLogSupport new
         enableContinuations: self enableContinuations;
         addListener: self logListener;
-        breakpointExceptionSet: self breakpointExceptionSet;
+        gemServerExceptionSet: self gemServerExceptionSet;
         yourself ].
   ^ log

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/instance/options..st

@@ -0,0 +1,4 @@
+accessing
+options: anObject
+
+   options := anObject

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/methodProperties.json

@@ -6,17 +6,17 @@
 		"authenticator:" : "dkh 12/14/2014 07:35",
 		"bindingAddress" : "dkh 12/14/2014 07:35",
 		"bindingAddress:" : "dkh 12/14/2014 07:35",
-		"breakpointExceptionSet" : "dkh 12/05/2014 15:03",
-		"breakpointExceptionSet:" : "dkh 12/05/2014 15:03",
 		"debugMode" : "dkh 12/14/2014 07:35",
 		"debugMode:" : "dkh 12/14/2014 07:35",
 		"delegate" : "dkh 12/14/2014 07:35",
 		"delegate:" : "dkh 12/14/2014 07:36",
 		"enableContinuations" : "dkh 12/03/2014 12:21",
 		"enableContinuations:" : "dkh 12/04/2014 09:56",
-		"initialize" : "dkh 12/10/2014 14:49",
+		"gemServerExceptionSet" : "dkh 12/20/2014 10:40",
+		"gemServerExceptionSet:" : "dkh 12/20/2014 10:40",
+		"initialize" : "dkh 12/20/2014 10:40",
 		"localUrl" : "dkh 12/13/2014 19:26",
-		"log" : "dkh 12/05/2014 15:03",
+		"log" : "dkh 12/20/2014 10:42",
 		"log:" : "dkh 11/30/2014 11:08",
 		"logDebug:" : "dkh 12/07/2014 10:09",
 		"logErrorsOnly" : "dkh 12/04/2014 06:36",
@@ -26,14 +26,15 @@
 		"logInfo:" : "dkh 12/07/2014 10:09",
 		"logListener" : "dkh 12/03/2014 12:19",
 		"logListener:" : "dkh 12/04/2014 09:56",
-		"logToObjectLog" : "dkh 12/03/2014 12:23",
+		"logToObjectLog" : "dkh 12/13/2014 12:34",
 		"logToTranscript" : "dkh 12/03/2014 12:16",
 		"maximumEntitySize" : "dkh 12/14/2014 07:36",
 		"maximumEntitySize:" : "dkh 12/14/2014 07:36",
 		"optionAt:ifAbsent:" : "dkh 12/14/2014 07:34",
 		"optionAt:ifAbsentPut:" : "dkh 12/14/2014 07:34",
 		"optionAt:put:" : "dkh 12/14/2014 07:33",
 		"options" : "dkh 12/14/2014 09:43",
+		"options:" : "dkh 12/20/2014 10:40",
 		"reader" : "dkh 12/14/2014 07:36",
 		"reader:" : "dkh 12/14/2014 07:36",
 		"route" : "dkh 12/14/2014 07:36",

repository/Zinc-GemStone-Server-Tools.package/ZnGemServer.class/properties.json

@@ -10,7 +10,7 @@
 		"log",
 		"logListener",
 		"logFilter",
-		"breakpointExceptionSet",
+		"gemServerExceptionSet",
 		"options" ],
 	"name" : "ZnGemServer",
 	"pools" : [

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerLogSupport.class/instance/enableContinuations..st

@@ -1,4 +1,4 @@
 accessing
 enableContinuations: anObject
 
-   enableContinuations := anObject
+   enableContinuations := anObject

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerLogSupport.class/instance/gemServerExceptionSet..st

@@ -0,0 +1,3 @@
+exception handling
+gemServerExceptionSet: anObject
+  gemServerExceptionSet := anObject

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerLogSupport.class/instance/gemServerExceptionSet.st

@@ -0,0 +1,4 @@
+accessing
+gemServerExceptionSet
+  gemServerExceptionSet ifNil: [ gemServerExceptionSet := ExceptionSet new ].
+  ^ gemServerExceptionSet

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerLogSupport.class/instance/handleBreakpointException.resumeIfResumable..st

@@ -1,4 +1,4 @@
-breakpoint handling
+exception handling
 handleBreakpointException: exception resumeIfResumable: resumeIfResumable
   "Handle breakpoint or halt, snap off continuation, then resume"
 

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerLogSupport.class/methodProperties.json

@@ -2,11 +2,11 @@
 	"class" : {
 		 },
 	"instance" : {
-		"breakpointExceptionSet" : "dkh 12/05/2014 14:51",
-		"breakpointExceptionSet:" : "dkh 12/05/2014 14:50",
 		"createContinuation:" : "dkh 12/03/2014 14:34",
 		"enableContinuations" : "dkh 12/03/2014 12:14",
 		"enableContinuations:" : "dkh 12/03/2014 12:13",
 		"error:" : "dkh 11/30/2014 19:35",
 		"error:message:" : "dkh 11/30/2014 19:35",
+		"gemServerExceptionSet" : "dkh 12/20/2014 10:41",
+		"gemServerExceptionSet:" : "dkh 12/20/2014 10:41",
 		"handleBreakpointException:resumeIfResumable:" : "dkh 12/11/2014 06:54" } }

repository/Zinc-GemStone-Server-Tools.package/ZnGemServerLogSupport.class/properties.json

@@ -7,7 +7,7 @@
 	"commentStamp" : "",
 	"instvars" : [
 		"enableContinuations",
-		"breakpointExceptionSet" ],
+		"gemServerExceptionSet" ],
 	"name" : "ZnGemServerLogSupport",
 	"pools" : [
 		 ],

repository/Zinc-HTTP.package/DateAndTimeANSI.extension/instance/printHMSOn..st

@@ -6,4 +6,4 @@ printHMSOn: aStream
 		nextPut: $:;
 		nextPutAll: (self minute asString padded: #left to: 2 with: $0);
 		nextPut: $:;
-		nextPutAll: (self second asString padded: #left to: 2 with: $0).
+		nextPutAll: (self second asString padded: #left to: 2 with: $0).

repository/Zinc-HTTP.package/DateAndTimeANSI.extension/instance/printYMDOn..st

@@ -3,4 +3,4 @@ printYMDOn: aStream
 	"Print just YYYY-MM-DD part.
 	If the year is negative, prints out '-YYYY-MM-DD'."
 
-	^self printYMDOn: aStream withLeadingSpace: false.
+	^self printYMDOn: aStream withLeadingSpace: false.

repository/Zinc-HTTP.package/DateAndTimeANSI.extension/instance/printYMDOn.withLeadingSpace..st

@@ -17,4 +17,4 @@ printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo
 		nextPut: $-;
 		nextPutAll: (month asString padded: #left to: 2 with: $0);
 		nextPut: $-;
-		nextPutAll: (day asString padded: #left to: 2 with: $0)
+		nextPutAll: (day asString padded: #left to: 2 with: $0)

repository/Zinc-HTTP.package/HTTPProgress.class/instance/amount..st

@@ -2,4 +2,4 @@ updating
 amount: newValue
 
    "Modify the value of the instance variable 'amount'."
-   amount := newValue
+   amount := newValue

repository/Zinc-HTTP.package/HTTPProgress.class/instance/amount.st

@@ -2,4 +2,4 @@ accessing
 amount
 
    "Return the value of the instance variable 'amount'."
-   ^amount
+   ^amount

repository/Zinc-HTTP.package/HTTPProgress.class/instance/total..st

@@ -2,4 +2,4 @@ updating
 total: newValue
 
    "Modify the value of the instance variable 'total'."
-   total := newValue
+   total := newValue

repository/Zinc-HTTP.package/HTTPProgress.class/instance/total.st

@@ -2,4 +2,4 @@ accessing
 total
 
    "Return the value of the instance variable 'total'."
-   ^total
+   ^total

repository/Zinc-HTTP.package/Integer.extension/instance/print.on.prefix.length.padded..st

@@ -7,5 +7,4 @@ print: positiveNumberString on: aStream prefix: prefix length: minimum padded: z
 				ifTrue: [aStream nextPutAll: prefix; nextPutAll: (String new: padLength withAll: $0)]
 				ifFalse: [aStream nextPutAll: (String new: padLength withAll: Character space); nextPutAll: prefix]]
 		ifFalse: [aStream nextPutAll: prefix].
-	aStream nextPutAll: positiveNumberString
-
+	aStream nextPutAll: positiveNumberString

repository/Zinc-HTTP.package/Integer.extension/instance/printOn.base.length.padded..st

@@ -2,4 +2,4 @@
 printOn: aStream base: base length: minimum padded: zeroFlag
 	| prefix |
 	prefix := self negative ifTrue: ['-'] ifFalse: [String new].
-	self print: (self abs printStringBase: base) on: aStream prefix: prefix length: minimum padded: zeroFlag
+	self print: (self abs printStringBase: base) on: aStream prefix: prefix length: minimum padded: zeroFlag

repository/Zinc-HTTP.package/NotFound.class/instance/object..st

@@ -2,4 +2,4 @@ updating
 object: newValue
 
    "Modify the value of the instance variable 'object'."
-   object := newValue
+   object := newValue

repository/Zinc-HTTP.package/NotFound.class/instance/object.st

@@ -2,4 +2,4 @@ accessing
 object
 
    "Return the value of the instance variable 'object'."
-   ^object
+   ^object

repository/Zinc-HTTP.package/ZnBasicAuthenticator.class/instance/isRequestAuthenticated..st

@@ -4,5 +4,4 @@ isRequestAuthenticated: request
 	authorization := [ request basicAuthentication ] on: Error do: [:err |  ^ false ].
 	username := authorization first.
 	password := authorization second.
-	^ (credentials at: username ifAbsent: [ nil ]) = password
-
+	^ (credentials at: username ifAbsent: [ nil ]) = password

repository/Zinc-HTTP.package/ZnChunkedReadStream.class/instance/collectionSpecies.st

@@ -1,4 +1,3 @@
 accessing
 collectionSpecies
-	^ self isBinary ifTrue: [ ByteArray ] ifFalse: [ String ]
-
+	^ self isBinary ifTrue: [ ByteArray ] ifFalse: [ String ]

repository/Zinc-HTTP.package/ZnChunkedReadStream.class/instance/ensureChunkBufferOfSize..st

@@ -1,4 +1,4 @@
 private
 ensureChunkBufferOfSize: size
 	(chunk notNil and: [ size <= chunk size ]) ifTrue: [ ^ self ].  
-	chunk := self collectionSpecies new: size.
+	chunk := self collectionSpecies new: size.

repository/Zinc-HTTP.package/ZnChunkedReadStream.class/instance/ensureChunkOrAtEnd.st

@@ -3,4 +3,4 @@ ensureChunkOrAtEnd
 	atEnd 
 		ifTrue: [ ^ self ].
 	(chunk isNil or: [ position >= limit ]) 
-		ifTrue: [ self getNextChunk ]
+		ifTrue: [ self getNextChunk ]

repository/Zinc-HTTP.package/ZnChunkedReadStream.class/instance/isBinary.st

@@ -1,3 +1,3 @@
 testing
 isBinary
-	^ stream isBinary
+	^ stream isBinary

repository/Zinc-HTTP.package/ZnChunkedWriteStream.class/instance/isBinary.st

@@ -1,3 +1,3 @@
 testing
 isBinary
-	^ stream isBinary
+	^ stream isBinary

repository/Zinc-HTTP.package/ZnChunkedWriteStream.class/instance/next.putAll.startingAt..st

@@ -4,4 +4,4 @@ next: count putAll: collection startingAt: offset
 	stream next: count putAll: collection startingAt: offset.
 	self crlf.
 	chunkCount := chunkCount + 1.
-	totalSize := totalSize + count
+	totalSize := totalSize + count

repository/Zinc-HTTP.package/ZnClient.class/instance/downloadEntityTo..st

@@ -14,4 +14,4 @@ downloadEntityTo: path
 		do:  [ :fileStream |
 			fileStream binary.
 			self withProgressDo: [
-				self entity writeOn: fileStream ] ]
+				self entity writeOn: fileStream ] ]

repository/Zinc-HTTP.package/ZnClient.class/instance/exceptionSetForIfFail.st

@@ -3,5 +3,4 @@ exceptionSetForIfFail
 	"Return an explicit exception set for which the ifFail block, if any, will be invoked.
 	This could later be cached, instance or class side, if necessary."
 
-	^ Error, NetworkError, ZnParseError, ZnHttpUnsuccessful, ZnUnexpectedContentType 
-
+	^ Error, NetworkError, ZnParseError, ZnHttpUnsuccessful, ZnUnexpectedContentType

repository/Zinc-HTTP.package/ZnClient.class/instance/executeWithRedirectsRemaining..st

@@ -11,5 +11,4 @@ executeWithRedirectsRemaining: redirectCount
 				ifFalse: [
 					self followRedirects 
 						ifTrue: [ ZnTooManyRedirects signal ] ] ].
-	^ self handleResponse
-
+	^ self handleResponse

repository/Zinc-HTTP.package/ZnClient.class/instance/handleRetry..st

@@ -2,4 +2,4 @@ private protocol
 handleRetry: exception
 	self noteRetrying: exception.
 	self close.
-	(Delay forSeconds: self retryDelay) wait.
+	(Delay forSeconds: self retryDelay) wait.

repository/Zinc-HTTP.package/ZnClient.class/instance/resetEntity.st

@@ -5,5 +5,4 @@ resetEntity
 	by #method: for GET or HEAD requests."
 
 	(request notNil and: [ request hasEntity ])
-		ifTrue: [ request resetEntity: nil ]
-
+		ifTrue: [ request resetEntity: nil ]

repository/Zinc-HTTP.package/ZnClient.class/instance/setBasicAuthenticationUsername.password..st

@@ -2,4 +2,4 @@ accessing request
 setBasicAuthenticationUsername: username password: password
 	"Set the username/password for basic authenticationfor the current request."
 
-	request setBasicAuthenticationUsername: username password: password
+	request setBasicAuthenticationUsername: username password: password

repository/Zinc-HTTP.package/ZnClient.class/instance/uploadEntityFrom..st

@@ -11,4 +11,4 @@ uploadEntityFrom: path
 	stream binary.
 	type := ZnMimeType forFilenameExtension: (ZnFileSystemUtils extensionFor: path).
 	length := ZnFileSystemUtils fileSizeFor: path.
-	self entity: (ZnStreamingEntity readFrom: stream usingType: type andLength: length)
+	self entity: (ZnStreamingEntity readFrom: stream usingType: type andLength: length)

repository/Zinc-HTTP.package/ZnClient.class/instance/username.password..st

@@ -2,4 +2,4 @@ accessing request
 username: username password: password
 	"Set the username/password for basic authenticationfor the current request."
 
-	self setBasicAuthenticationUsername: username password: password
+	self setBasicAuthenticationUsername: username password: password

repository/Zinc-HTTP.package/ZnCookie.class/instance/^equals.st

@@ -1,5 +1,4 @@
 comparing
 = aCookie
 	(aCookie isKindOf: self class) ifFalse: [ ^ false ].
-	^ (aCookie name = self name) & (aCookie path = self path) & (aCookie domain = self domain)
-
+	^ (aCookie name = self name) & (aCookie path = self path) & (aCookie domain = self domain)

repository/Zinc-HTTP.package/ZnCookie.class/instance/isInDomain..st

@@ -4,5 +4,4 @@ isInDomain: urlObject
 	domain := (self domain beginsWith: '.')
 		ifTrue: [ self domain copyFrom: 2 to: self domain size ]
 		ifFalse: [ self domain ].
-	^ urlObject host includesSubstring: domain
-
+	^ urlObject host includesSubstring: domain

repository/Zinc-HTTP.package/ZnCookie.class/instance/isInPath..st

@@ -1,4 +1,3 @@
 testing
 isInPath: urlObject
-	^ urlObject pathPrintString includesSubstring: self path
-
+	^ urlObject pathPrintString includesSubstring: self path

repository/Zinc-HTTP.package/ZnCookieJar.class/instance/add..st

@@ -3,5 +3,4 @@ add: aCookie
 	(self removeIfExpired: aCookie) ifTrue: [^nil].
 	self cookies copy do: [:cookie|
 		cookie = aCookie ifTrue: [ self cookies remove: cookie]].
-	self cookies add: aCookie
-
+	self cookies add: aCookie

repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/instance/help..st

@@ -2,5 +2,4 @@ responses
 help: request
 	"Reply with a dynamic HTML page containing links to all pages I support"
 
-	^ ZnResponse ok: (ZnEntity html: self generateHelp)
-
+	^ ZnResponse ok: (ZnEntity html: self generateHelp)

repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/instance/map.to..st

@@ -6,5 +6,4 @@ map: prefix to: handler
 
 	self prefixMap 
 		at: prefix
-		put: handler
-
+		put: handler