[Oberon] run-time error 26 => Stream not Open!

[Fernando Passold]

Helo people,

    Excuse me about mine intrusion....

    I find a interesting thing related with the Module wich causes
the problem I inform sooner. By curiosity I type the command:

The first time:
XO> TelnetServer.ShowCommands NeuralTool.Mod  ~

[BEGIN | EXCEPTION]
- Trap kind: Stream not Open (26)
- Task Entry: Shells.ExecutionHandler.Run
- Task Id: 12
- Task Status: Halted
- Trapped Procedure Frame: Modules.ReadStringCompressed
- Current Instruction Pointer: 0003958CH
- Relative PC: 124
- Stack Dump Follows:

  Modules.ReadStringCompressed             PC: 124


    Wow!!!

On a second time:
XO> TelnetServer.ShowCommands NeuralTool.Mod  ~
Commands of NeuralTool

  XOClient.Execute NeuralTool.CriaRede ~
  XOClient.Execute NeuralTool.ChangeLrType ~
  XOClient.Execute NeuralTool.InitRedeForceControl ~
  XOClient.Execute NeuralTool.InitRedeJointPosControl ~
  XOClient.Execute NeuralTool.InitRedeJointPosOpContro ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~
  XOClient.Execute NeuralTool. ~

XO>

    So nice!!!!

    It does not seems "natural"... How I like XO/2 (ironic).
It seems that I have the file NeuralTool.Mod corrupted despite
the fact the XCompiler runs over it!!!! But it was no the problem
as I could verifie (COpy & Paste using external ASCii Editor: PDE).

    And most insterestig: the command related with the
"rbf" object works fine - why?

    Now, I have noticed that the XO/2 have truncated the name
of the Procedure called: "PROCEDURE InitRedeJointPosOpControl*;"
by:
" XOClient.Execute NeuralTool.InitRedeJointPosOpContro ~
  XOClient.Execute NeuralTool. ~
"
    I will try to reduce the name of this procedure...
Ok... this works:

XO> TelnetServer.ShowCommands NeuralTool.Mod  ~
Commands of NeuralTool

  XOClient.Execute NeuralTool.CriaRede ~
  XOClient.Execute NeuralTool.ChangeLrType ~
  XOClient.Execute NeuralTool.InitRedeForceControl ~
  XOClient.Execute NeuralTool.InitRedeJointPosControl ~
  XOClient.Execute NeuralTool.InitRedeJointOpControl ~
  XOClient.Execute NeuralTool.RedRidingHoodNet ~
  XOClient.Execute NeuralTool.ShowDadosIniRede ~
  XOClient.Execute NeuralTool.SetLr ~
  XOClient.Execute NeuralTool.SetFlatSpot ~
  XOClient.Execute NeuralTool.SetMom ~
  XOClient.Execute NeuralTool.SetNoise ~
  XOClient.Execute NeuralTool.SetTaxasLrMom ~
  XOClient.Execute NeuralTool.ShowW ~
  XOClient.Execute NeuralTool.ShowNNenergy ~
  XOClient.Execute NeuralTool.ShowNNErros ~
  XOClient.Execute NeuralTool.ShowNNData ~
  XOClient.Execute NeuralTool.ShowNNTaxaErros ~
  XOClient.Execute NeuralTool.ShowPar ~
  XOClient.Execute NeuralTool.ShowPatterns ~
  XOClient.Execute NeuralTool.TrainRedNet ~

XO>

    And now the other commands related with "net" object
works.... at least!!!

thanks, and excuse me about mine introduction,



Fernando
.............................
FeRnando Passold
Doutorando DAS/LAI - UFSC - Florianópolis/SC
(48) 331 7597 / (48) 234 8503
ICQ: 171216144

                                           ^^
      ^^      ..                                       ..
              []                                       []
            .:[]:_          ^^                       ,:[]:.
          .: :[]: :-.                             ,-: :[]: :.
        .: : :[]: : :`._                       ,.': : :[]: : :.
      .: : : :[]: : : : :-._               _,-: : : : :[]: : : :.
  _..: : : : :[]: : : : : : :-._________.-: : : : : : :[]: : : : :-._
  _:_:_:_:_:_:[]:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:_:[]:_:_:_:_:_:_
  !!!!!!!!!!!![]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![]!!!!!!!!!!!!!
  ^^^^^^^^^^^^[]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[]^^^^^^^^^^^^^
              []                                       []
              []                                       []
              []                                       []
   ~~^-~^_~^~/  \~^-~^~_~^-~_^~-^~_^~~-^~_~^~-~_~-^~_^/  \~^-~_~^-~~-
  ~ _~~- ~^-^~-^~~- ^~_^-^~~_ -~^_ -~_-~~^- _~~_~-^_ ~^-^~~-_^-~ ~^
     ~ ^- _~~_-  ~~ _ ~  ^~  - ~~^ _ -  ^~-  ~ _  ~~^  - ~_   - ~^_~
       ~-  ^_  ~^ -  ^~ _ - ~^~ _   _~^~-  _ ~~^ - _ ~ - _ ~~^ -
         ~^ -_ ~^^ -_ ~ _ - _ ~^~-  _~ -_   ~- _ ~^ _ -  ~ ^-
              ~^~ - _ ^ - ~~~ _ - _ ~-^ ~ __- ~_ - ~  ~^_-
                  ~ ~- ^~ -  ~^ -  ~ ^~ - ~~  ^~ - ~