[Oberon] ETHO is an engineer's tool,

eas lab lab.eas at gmail.com
Sat May 24 16:24:48 CEST 2014


rather than just a F/B twitter app.

This is ETHO:ALO for rPi, still being ported/developed,
building on decades of proven/tested work.

Select a task to test the current capabilities of ETHO:ALO
Traversing the Dir-tree ?
OFSTools.Mount home LinuxFS /home/ ~
System.Directory home:* ==... 31 files
System.Directory home:*\d ==... shows which are dirS [4096 size]
=> select one: home:Suspend   26.11.2012 01:30:18  159086
klux /home/Suspend == unix format
EditTools.OpenUnix /home/Suspend
=?=> took few seconds to laod this 159K TextFrame; but looks good.
--
! Now for a task where ETHO excels (sp?)
/home/Suspend has got bad M$ chars, eg. 2 lines look like:--
   point.  A user typically employs this facility via an interactive interâÄé
   face  supplied  jointly by the operating system kernel's terminal driver
but should read:  [such problems mess my TextToSpeech]
   point.  A user typically employs this facility via an interactive inter-
   face  supplied  jointly by the operating system kernel's terminal driver
It's difficult to replace these non-ASCII chars with *nix
[let's see if this works: Hex.Open Suspend == WOW, yes!
Now just paste from <the Hex.Open Viewer>;
OK, I remember that <Hex.Open Viewer> is 'abnormal': contents can't be
selected. But I can see the 3-bad-chars: âÄé == E2 80 90 <-- nonASCII.
AND in ETHO you can color them -- but when this mail is posted, they
may become invisible?]
So now, ETHO:ALO simply replaces the 3badChars with "-", via 2
mouse operations. Interestingly, the find/replaceALL was much faster
than the LoadViewer.
===> So, Store the fixed file, and let's walk-thru /usr
--
OFSTools.Mount usr LinuxFS /usr/ ~
System.Directory usr:*\d == ...
usr:lib   06.02.2014 08:34:13  12288
11 files use 68K bytes
--
OFSTools.Mount usr:lib LinuxFS /usr/lib/ ~
System.Directory usr:lib*\d ==
usr:lib   06.02.2014 08:34:13  12288


=?=> only one; why not print "1 files use 12K bytes"
Lets go to Linux mc to see ?
No, /usr/lib/ has many files & sub-dirs.
What have I done wrong?

ALO chose the name "usr:lib" for /usr/lib/,
so I should NOT use that. Let's try:
OFSTools.Mount UsrLib LinuxFS /usr/lib/ ~
== UsrLib: OFSLinuxFiles: Can't open directory

IIRC, LNO OFSTools.Mount adds an entry to: System.Watch
But here:ALO, I get only:-
System.Watch
        18387K of 22528K memory free
        18028K contiguous memory free
It could be a problem, if the list-of-mounted can't be shown?
--
Let's reStart ALO:b140523 to see if we can:
OFSTools.Mount UsrLib LinuxFS /usr/lib/ ~
Yes ! == UsrLib: mounted
System.Directory UsrLib:*\d == ...
UsrLib:coreutils   28.10.2012 22:54:57   4096  <- a dir
UsrLib:aspell   28.10.2012 23:33:44  12288 <- probable TxtFile?
...
228 files use 135605K bytes <- that's better!
--
Hex.Open UsrLib:aspell == TRAP 103  HALT statement
Hex.Open aspell == TRAP 103  HALT statement
klux aspell == TRAP 103  HALT statement

klux UsrLib:aspell == TRAP 103  HALT statement
--
=> reStart ALO:b140523 to see if we can:
OFSTools.Mount UsrLib LinuxFS /usr/lib/ ~ == ok
Hex.Open UsrLib:aspell == TRAP 103  HALT statement
EditTools.OpenUnix aspell ==TRAP 103  HALT statement
EditTools.OpenUnix oberon.log == ...
ListModels loaded.
Hex loaded.
Received Trap nr. -103 at Trap handling level 0
...
TextDocs loaded.
EditTools loaded.
Received Trap nr. -103 at Trap handling level 0
Processor State:
R0  = 00000000H  R1  = 0008ACFCH  R2  = 00000000H  R3  = 00000000H
R4  = BEA03FF0H  R5  = 012F89FCH  R6  = 012F87BCH  R7  = 00081200H
R8  = 00081200H  R9  = 0129B600H  RA = 00000009H  RB = BEA0401CH
FP  = BEA04024H  SP  = 00000240H  LR  = 010000BCH  CPSR= 0008BE6CH
DefaultTrapHandler: Received signal nr. -103 in Kernel PC=000849A4H (00003718H)
Kernel  PC = 00004944
...
Interesting insight to ARM's 12 registers?


== Tea time.



More information about the Oberon mailing list