Tcl Source Code

You're welcome.

[6a997a7f19eaa6fa] provides several improvements:

• package require tcl::oo forces the initialization through new oo::_init command (so one could circumvent the delayed init issues for mockup, injection etc);
• update of mocked-up command by execution (although it wouldn't "fix" every case sane, see below);
• code review, dedeplication, etc.

As for mz previous mocked-up example, it'd work now, and would not enter endless loop anymore, but the mock-up becomes outdated (replaced by mentioned update after lazy load), see the new diff (red is lazy branch):

  % rename ::oo::class ::oo::_mocked_class;
  % proc ::oo::class args { puts "mockup $args"; tailcall ::oo::_mocked_class {*}$args }
  % ::oo::class create A
  mockup create A
  ::A
  % ::oo::class create B
- mockup create B
  ::B

So as one can see, the mock-up is quasi removed here. And the only solution would be to use package require tcl::oo before mocking-up or injection to force the initialization.

Alternative would to create all this command properly (to point to correct handler).
Or as already said, a new facility able to load NS on demand by first access to it (in any resolver, etc). In my opinion, that would be the only right way.

Thanks for taking a look. I will test the C API with Itcl, which triggered my memory that I think TDBC also uses it.

I think it should be possible to protect the infinite recursion with the mockup as well. Will check.

Nice thing.

As for objections or rather theoretical breakage, I think the way you did it is one of the best under these circumstances (without having namespace-based lazy-load facility).

For instance one can rewrite `package require tcl::oo` to force initialisation, so could help for some theoretical case it is really needed (for example like below).

And the possible breakage may be theoretic endless loop in TclOOInitModuleObjCmd, if some command gets injected, mocked-up etc, e. g. by something like this (red is lazy branch):

  % rename ::oo::class ::oo::_mocked_class;
  % proc ::oo::class args { puts "mockup $args"; tailcall ::oo::_mocked_class {*}$args }
  % ::oo::class create A
  mockup create A
- too many nested evaluations (infinite loop?)
+ ::A

As for improvements, I'd later provide my attempt.

> Looking for an extension that uses it ...

I think, Itcl would be good candidate (v4.x is based on tclOO).

Note: the branch has not been tested with TclOO's C API. Looking for an extension that uses it ...