Oberon Community Platform Forum
October 23, 2019, 03:23:10 AM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
   Home   Help Search Login Register  
Pages: 1 ... 8 9 [10]
 on: November 15, 2013, 06:54:31 PM 
Started by Bernhard T. - Last post by fld

A2 has no printing support but printing in the Oberon subsystem still
works! With the aid of PrettyPrint.Mod you can create syntax highlighted
Oberon texts of your program sources. PrettyPrint.Mod contains information
on how to do it.

-- Guenter

 on: November 13, 2013, 03:18:37 PM 
Started by Bernhard T. - Last post by peasthope

Any suggestions, how I can print in A2.

Does the Oberon subsystem have the old modules for printing?  Assuming so, what happens when a command is given?

Regards,              ... Peter E.

 on: November 12, 2013, 06:08:06 PM 
Started by Annapurna1 - Last post by Annapurna1

im a bit nebulous about example 16.1 in the latest draft language report...from what i understand..definitions compile to interfaces and library modules compile to static classes ..


but if thats so..then a library module (ie..a static class) cannot implement a definition which is represented as a C# interface.. or are definitions implemented by a static module somewhat akin to C# extension methods?...

could someone pls clarify this?...


 on: November 10, 2013, 02:46:51 AM 
Started by GDC - Last post by Annapurna1
simply delete the line that says "inc(j);" (unlike C#..for- loops in zonnon automatically increment the control variable)...

 on: November 09, 2013, 09:54:41 PM 
Started by peasthope - Last post by peasthope
A filesystem on a volume on a removable store is feasible and useful.  Therefore a UnixAos working directory on a removable volume is a significant possibility.

Normally an ext filesystem contains a directory named lost+found in the root directory.  If the UnixAos working directory is on a removable volume, it will contain a lost+found directory.  When the Find.Panel is used to search in the working directory,  Files.Old("lost+found") will freeze the system.  My initial solution is to add a condition in BrowseFile.
    IF filename = "./lost+found" THEN RETURN END;

Then in the Find.Panel, searches in lo*, in ./lo* and in ./* work.  Provided "lost+found" is not a parameter of Domain, Find.All has no problem.

lost+found might cause a problem in another module.  Can the solution be in Files and be generalized to cover any subdirectory?  Haven't tackled that yet.

Regards,               ... Peter E.

 on: November 01, 2013, 05:27:12 PM 
Started by peasthope - Last post by peasthope
got replaced by
  [Oberon.Start Oberon 0x0 ~]

OK, thanks.  In Configuration.XML, Autostart section, I replaced

... OberonDisplay.Install ...
... Oberon.Call System.Init Oberon ~
<Setting name="Start an Oberon process" value="Oberon.Start Oberon 1260x820 0 12 ~"/>

On this system that leaves the A2 menu exposed.

In revision 5165 of UnixAos most Oberon screen fonts got replaced
by TrueType fonts for better scalability. If you need the old screen fonts ...

I'll happily use TTF and this confirms that Courier is available.
peter@dalton:/usr/aos/fonts$ ls Cour*
Courier_bd.ttf  Courier_bi.ttf  Courier_i.ttf  Courier.ttf

/usr/aos/system/OType.Text explains OTFonts.Make to build fonts for later use and OTFonts.Install to build on demand.  

OTFonts.Make /usr/aos/fonts/Courier.ttf Courier 8 10 Scn Pr3 ~
made four fonts in the working directory which I copied to /usr/aos/fonts/.

peter@dalton:/usr/aos/fonts$ ls -l Cour*
-rw-r--r-- 1 root root   9653 Nov  1 08:12 Courier10.Pr3.Fnt
-rw-r--r-- 1 root root   2377 Nov  1 08:12 Courier10.Scn.Fnt
-rw-r--r-- 1 root root   6655 Nov  1 08:12 Courier8.Pr3.Fnt
-rw-r--r-- 1 root root   2100 Nov  1 08:12 Courier8.Scn.Fnt
-rw-r--r-- 1 root bin  311508 Feb 15  2013 Courier_bd.ttf
-rw-r--r-- 1 root bin  234788 Feb 15  2013 Courier_bi.ttf
-rw-r--r-- 1 root bin  244156 Feb 15  2013 Courier_i.ttf
-rw-r--r-- 1 root bin  302688 Feb 15  2013 Courier.ttf

Then "Script.ChangeFont /usr/aos/fonts/Courier8" works as does "Script.ChangeFont Courier8" in ETHNO.  As suggested in documentation, this text is rougher than text from a primary bitmap font.

I've also put OTFonts.Install in Oberon.Text, InitCommands to try dynamic font building.  Neither "Script.ChangeFont Courier12" nor "Script.ChangeFont Courier12.Scn.Fnt" works.  Will set it aside until another idea turns up.

Thanks for your work and help,              ... Peter E.

 on: October 31, 2013, 02:46:17 PM 
Started by peasthope - Last post by fld
Hi Peter

In revision 5165 of UnixAos most Oberon screen fonts got replaced
by TrueType fonts for better scalability. If you need the old screen fonts
nonetheless you can copy them over from an earlier release or from
the ETH repository.

BTW. You use the old procedure to start the Oberon subsystem which
contains a race condition. In the A2 menu
     Oberon.Call System.Init Oberon ~
got replaced by

 on: October 30, 2013, 10:20:48 PM 
Started by peasthope - Last post by peasthope
A session in the Oberon subsystem leaves this information in the parent terminal.
Autostart: executing Oberon.Call System.Init Oberon ~
{P cpuid= 0, pid= 54 ETH Oberon / LinuxAos (rev.5406)}
Missing: Courier10.Scn.Fnt
Missing: Courier8.Scn.Fnt
Missing: Oberon10.Md6.Fnt
{P cpuid= 0, pid= 55 Oberon started}
Missing: Oberon12b.Md6.Fnt
Missing: Oberon12.Md6.Fnt
Missing: Courier10.Md6.Fnt

What is involved in adding or installing those fonts?

Thanks,                ... Peter E.

 on: October 24, 2013, 04:50:06 PM 
Started by BohdanT - Last post by peasthope
My simple solution without error checking:

You implemented quicker than I could think.  Thanks!    ... Peter E.

 on: October 24, 2013, 11:03:17 AM 
Started by BohdanT - Last post by fnecati
This might be achieved more directly without telnet.

My simple solution without error checking:


Run host applications and commands from LinuxAos

note: similar module exist
for WinAos: Win32.WinApplication.Mod
for A2: WMApplications.Mod

IMPORT Unix, Commands;

PROCEDURE Run*(context : Commands.Context); (* hostcommand *)
VAR cmdpar: ARRAY 256 OF CHAR;
IF context.arg.GetString(cmdpar) THEN
context.error.String("no host command is given!"); context.error.Ln;
END Run;

END Host.

Host.Run "ls *.txt > tmp.txt" ~
SystemTools.ShowFile "tmp.txt" ~
Notepad.Open "tmp.txt" ~
Host.Run "rm tmp.txt" ~

Host.Run "aos"~

Host.Run "gedit Hello.txt" ~

Host.Run "firefox http://www.ocp.inf.ethz.ch/" ~

SystemTools.Free Host ~

Pages: 1 ... 8 9 [10]
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!