When a new activation of Rexx code is created, that activation copies the settings from the package at initialization to have its own local copy that can then be modified. So changing the settings at the package level will only affect new code activations.
Rick On Wed, Oct 8, 2025 at 7:20 AM Rony G. Flatscher <[email protected]> wrote: > While implementing testwise the mentioned 'options' method in the > Package.cpp class, changes to digits, form, fuzz, conditions take effect > for invoking routines and methods in the same package. > > However, changing the trace option seem to be nullified upon return from > the options~message that changed the default trace opiton for the package, > the change is therefore not reflected in a newly invoked routine or method > of that package. > > Here the ooRexx test program: > > call a_routinesay "---"pkg=.context~packagesay "pkg~options('digits', 20):" > pkg~options('digits', 20)say "digits():" digits() "pkg~options('digits'):" > pkg~options('digits')say "pkg~options('trace', 'results'):" > pkg~options('trace', 'results')say "trace():" trace() "pkg~options('trace'):" > pkg~options('trace')saycall a_routinesay "---".test~a_method > ::routine a_routine > say "#" .line":" .context~name "(".context~executable")" say "#" .line":" > "digits():" digits() > say "#" .line":" "trace() :" trace() > say "#" .line":" "trace('O'):" trace('O') > say "#" .line":" "trace() :" trace() > > a='say "trace() :" trace()' say "#" .line":" 'INTERPRET' a > interpret a > say "#" .line":" "trace() :" trace() > ::class test::method a_method class say "#" .line":" .context~name > "(".context~executable")" "scope:" .context~executable~scope > say "#" .line":" "digits():" digits() > say "#" .line":" "trace() :" trace() > say "#" .line":" "trace('O'):" trace('O') > say "#" .line":" "trace() :" trace() > > a='say "trace() :" trace()' say "#" .line":" 'INTERPRET' a > interpret a > say "#" .line":" "trace() :" trace() > > Here the output (including a debug output from the options method as > currently implemented in Packages.cpp): > > G:\test\orx\options>rexx test3*# 14: A_ROUTINE (a Routine)**# 15: digits(): 9* > # 16: trace() : N > # 17: trace('O'): N > # 18: trace() : O > # 21: INTERPRET say "trace() :" trace() > trace() : O > # 23: trace() : O > --- > ... PackageClass.cpp #2384: arg1/strOptionName=[*digits*], > arg2/*strNewValue=[20]* > pkg~options('digits', 20): 9 > digits(): 9 pkg~options('digits'): 20 > ... PackageClass.cpp #2355: isTraceOff()=0, toString()=[N] > ... PackageClass.cpp #2384: arg1/strOptionName=[*trace*], > arg2/*strNewValue=[results]* > ... PackageClass.cpp #2583: trace 'R', toString()=*[R]**pkg~options('trace', > 'results'): N* > ... PackageClass.cpp #2355: isTraceOff()=0, toString()=[N] > trace(): N pkg~options('trace'): N > *# 14: A_ROUTINE (a Routine)**# 15: digits(): 20* > # 16: trace() : *N* > # 17: trace('O'): N > # 18: trace() : O > # 21: INTERPRET say "trace() :" trace() > trace() : O > # 23: trace() : O > ---*# 27: A_METHOD (a Method) scope: The TEST class**# 28: digits(): 20* > # 29: trace() : *N* > # 30: trace('O'): N > # 31: trace() : O > # 34: INTERPRET say "trace() :" trace() > trace() : O > # 36: trace() : O > > As can be seen from the output, the change of the default digits value at > runtime is possible and if invoking a routine or method defined in that > package will get the changed digits value (from the default digits value). > > However, the same is not true for changing the traceSettings (attempt to > change 'Normal' to 'Results'). It is as if the invocation of the new > 'options' method in Package.cpp gets a temporary > packageSettings.traceSettings (defined in PackageSetting.hpp) which gets > changed, not the packageSettings.traceSettings as defined at Package object > creation. RexxActivation.cpp will set the settings in effect in the method > > /** > * Inherit the settings from our package object. > */ > void RexxActivation::inheritPackageSettings() > { > // just copy the whole initial settings piece. > settings.packageSettings = packageObject->getSettings(); > > // if tracing intermediates, turn on the special fast check flag > settings.intermediateTrace = > settings.packageSettings.traceSettings.tracingIntermediates(); > } > > Here "settings" references ActivationSettings.hpp which has a member > packageSettings which gets its value from the Package object > (getSettings()). At that point in time the packageSettings of the Package > object at creation time get returned, including the default traceSettings. > > The question: is it possible from a method in Package.cpp to get at the > default traceSettings (as defined for the Package object at its creation > time) at runtime, and if so, how? If not, what would be possible approaches > to allow changing the default traceSettings in a Package object? > > TIA for any thoughts, tips, hints! > > ---rony > > P.S.: One idea would be to add a "defaultPackageSettings" to the Package > class and use that explicitly in RexxActivation::inheritPackageSettings() > instead, and change that in the Package class. Would that be feasible, > acceptable? > > > > > _______________________________________________ > Oorexx-devel mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/oorexx-devel >
_______________________________________________ Oorexx-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/oorexx-devel
