Diff of /incubator/ooRexxShell/oorexxshell.rex [r7649] .. [r7650]  Maximize  Restore

  Switch to unified view

a/incubator/ooRexxShell/oorexxshell.rex b/incubator/ooRexxShell/oorexxshell.rex
...
...
162
                .ooRexxShell~trace(.false)
162
                .ooRexxShell~trace(.false)
163
            when .ooRexxShell~inputrx~caselessEquals("debugon") then
163
            when .ooRexxShell~inputrx~caselessEquals("debugon") then
164
                .ooRexxShell~debug = .true
164
                .ooRexxShell~debug = .true
165
            when .ooRexxShell~inputrx~caselessEquals("debugoff") then
165
            when .ooRexxShell~inputrx~caselessEquals("debugoff") then
166
                .ooRexxShell~debug = .false
166
                .ooRexxShell~debug = .false
167
            when .ooRexxShell~inputrx~caselessEquals("tb") then
168
                .error~say(.ooRexxShell~traceback~makearray~tostring)
167
            when .ooRexxShell~inputrx~caselessEquals("reload") then do
169
            when .ooRexxShell~inputrx~caselessEquals("reload") then do
168
                -- Often, I modify some packages that are loaded by ooRexxShell at startup.
170
                -- Often, I modify some packages that are loaded by ooRexxShell at startup.
169
                -- To benefit from the changes, I have to reload the components.
171
                -- To benefit from the changes, I have to reload the components.
170
                -- Can't do that without leaving the interpreter (to my knowledge).
172
                -- Can't do that without leaving the interpreter (to my knowledge).
171
                .ooRexxShell~RC = .ooRexxShell~reload
173
                .ooRexxShell~RC = .ooRexxShell~reload
...
...
201
    .color~select(.ooRexxShell~infoColor)
203
    .color~select(.ooRexxShell~infoColor)
202
    say
204
    say
203
    say version
205
    say version
204
    .ooRexxShell~sayInterpreters
206
    .ooRexxShell~sayInterpreters
205
    say "? : to invoke ooRexx documentation."
207
    say "? : to invoke ooRexx documentation."
206
    say "Other commands : exit interpreters reload traceoff traceon."
208
    say "Other commands : exit interpreters reload tb traceoff traceon."
207
    .color~select(.ooRexxShell~defaultColor)
209
    .color~select(.ooRexxShell~defaultColor)
208
    return
210
    return
209
211
210
212
211
-------------------------------------------------------------------------------
213
-------------------------------------------------------------------------------
...
...
303
            'start "Rexx Online Documentation"' '"' || value("REXX_HOME",,"ENVIRONMENT") || "\doc\rexxref.pdf" || '"'
305
            'start "Rexx Online Documentation"' '"' || value("REXX_HOME",,"ENVIRONMENT") || "\doc\rexxref.pdf" || '"'
304
        end
306
        end
305
        when .platform~is("aix") | .platform~is("linux") | .platform~is("sunos") then do
307
        when .platform~is("aix") | .platform~is("linux") | .platform~is("sunos") then do
306
            'acroread /opt/oorexx/doc/rexxref.pdf&'
308
            'acroread /opt/oorexx/doc/rexxref.pdf&'
307
        end
309
        end
310
        when .platform~is("macosx") then do
311
            'open "http://www.oorexx.org/docs/"' -- not perfect : switch to Safari but the new window is not visible (at least on my machine).
312
        end
308
        otherwise do
313
        otherwise do
309
            .error~say(.platform~name "has no online help for ooRexx.")
314
            .error~say(.platform~name "has no online help for ooRexx.")
310
        end
315
        end
311
    end
316
    end
312
    address -- restore
317
    address -- restore
...
...
440
        say "[no result]"
445
        say "[no result]"
441
        return
446
        return
442
    end
447
    end
443
    else do
448
    else do
444
        use strict arg object=(result)
449
        use strict arg object=(result)
450
        if object~isA(.CoactivitySupplier) then say pp2(object) -- must not consume the datas
451
        else if object~isA(.array) then say object~ppRepresentation -- condensed output
445
        if object~isA(.Collection) | object~isA(.Supplier) then call dump2 object
452
        else if object~isA(.Collection) | object~isA(.Supplier) then call dump2 object
446
        else say pp2(object)
453
        else say pp2(object)
447
        return object -- To get this value in the variable RESULT
454
        return object -- To get this value in the variable RESULT
448
    end
455
    end
449
456
450
457
...
...
566
573
567
::method init class
574
::method init class
568
    self~isExtended = .false
575
    self~isExtended = .false
569
    self~traceReadline = .false
576
    self~traceReadline = .false
570
    self~traceDispatchCommand = .false
577
    self~traceDispatchCommand = .false
578
    self~traceback = .array~new
571
    self~debug = .false
579
    self~debug = .false
572
580
573
581
574
::method hasLastResult class
582
::method hasLastResult class
575
    expose lastResult
583
    expose lastResult

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks