GBJ can miss static exception handlers, especially SigAbort

GBJ sets up several dynamic exception handlers to trap any error that might
occur during event processing, particularly for problems that might occur
during message transmission between the java client and the gem server.

Static exception handlers defined in your application will not be triggered
if their associated exception occurs while GBJ's dynamic handlers are in
effect.

In addition, if your static exception handler is for #rtErrSignalAbort
(error 6009) and sigAbort handling is enabled using System>>enableSignaledAbortError,
the triggering of this error while GBJ dynamic exception handlers are in
effect can cause spurious errors when the flow of control during message
processing is disrupted by the return from the dynamic exception handler.
These errors include
"Out of Sequence" errors on the java client or references to a non-existent
key in aGbjTransportBuffer in gem smalltalk code.

Workaround:

The following code resolves this problem on GBJ 2.3 for sigAbort errors.
Customers using earlier versions should check that the modified methods
are consistent with their version.  If your problem involves a different
error, replace "6009" with the appropriate error number.

! Fix for sigAbort variation of bug 41956
!
! Note: can be extended to cover other exceptions as needed..
!
! This code is based off of GBJ 2.3
!
! File-in as SystemUser and commit
!
category: 'Event Handling'
method: GsbFramework
handleEvent: anEvent

    Exception category: nil number: nil do:
        [ :ex :cat :num :args || response |

    "fix 41956: resignal sigAborts"
    (num == 6009)
     ifTrue: [
         ex resignal: cat number: num args: args ]
     ifFalse: [

         response := self eventErrorHandler
             value: ex
             value: cat
             value: num
             value: args.
         response == nil ifFalse:
             [^response]].
    ]. "fix 41956"

    (myConfiguration at: #verbose) ifTrue: [
      self log: #GsbEvent object: anEvent].
    self computeEventDateTime.
    anEvent handleEvent.
    self heartbeat
%
category: 'Startup'
method: GbjServer
startup3
    "Run the SMF until the Java client quits."

    | pm reporting |
    Exception category: nil number: nil do: [ :ex :cat :num :args |

    "fix 41956: resignal sigAborts"
    (num == 6009)
     ifTrue: [
         ex resignal: cat number: num args: args ]
     ifFalse: [

        (GbjError isEventError: cat number: num)
        ifTrue: [    "GemStone event error"
            self event: (GbjError category: cat number: num args: args)
]
        ifFalse: [
            self logError: (GbjError category: cat number: num args: args).
            self close.
            ^0 ].
        nil ].

     ]. "fix 41956"

    Exception category: GbjSignals number: nil do: [ :ex :cat :num :args
|
        ex remove.
        ((num = clientClosedConnection) _or: [num = clientTimedOut])
        ifTrue: [
            self log: (GbjError category: cat number: num args: args) messageText.
            self close.
            ^0 ].
        ex resignal: cat number: num args: args.
        nil ].
    self profileServer ifTrue: [
        self log: 'Server profile requested by client'.
        pm := ProfMonitor new.
        pm startMonitoring.
        ].
    self framework eventLoop.
    (pm ~~ nil) ifTrue: [
        reporting := true.
        pm stopMonitoring; gatherResults; removeFile.
        self log: (pm reportDownTo: 1).
        pm removeResults.
        ].
    self close.
    ^0
%