I had set out to better integrate e-uae with Linux/Gnome. The requirements were:

1) Ability to launch either an a500 or a1200 from the adf's context menu in Nautilus.
2) The file action would find all disks in the set and attach the first four to uae. If the adf file name does not adhere to TOSEC naming standard (Filename (Disk x of y).adf), thae single disk would still be attached to uae and you would have to manually select the others as needed.
3) The GUI would never be seen. Once you double click your adf, the game would appear in a window. Once you exit the game you see nothing more.

I was able to accomplish this with some Perl magic and a custom build of uae. MorphOS is already to launch adfs via double click but it does not find the other disks in the set (Disk x of y)... I am wondering if something like this can be done in ARexx? I don't know if it supports regex or not. If anyone would like to take this on I could send you the perl code and perhaps it can be done in ARexx. Who knows.. Just a thought. :)

Perl scripts work in MorphOS if you have the SDK installed.

I'll convert that to a rexx equivalent as soon as i'm done with my current stuff. :)

Rexx has no regexp, but for the thing you do, a simple:
parse var filename basename '(Disk ' index ' of ' total ').adf' would be enough to set the basename, index and total variables. In fact, listing the directory and looking for the adfs is more work than the parsing part. :)

[ Edited by Fab on 2010/6/13 16:03 ]

Would it be possible to include Perl as standard with MorphOS? Without trying to sound presumptuous, OS X includes Perl, so would it be an issue for Morph?

I beat you to it, Fab. I emailed you the REXX script. I will hash out a couple of final details and then convert those last two commands to AREXX. I think it'll work. :)

@gdanko

Quote:

Not really - Perl relies heavily on the GeekGadgets environment that has to be present / setup for it to work. We do not want to clutter the default system installation with all the /bin, /usr, /home, etc *nix crap. It's certainly possible to remove such dependancies from Perl, but that's probably too much work.

[ Edited by jacadcaps on 2010/6/16 17:17 ]

Quote:

Fair enough. I can respect that.

better UAE integration has been a wish for some time, glad its getting done. Good job guys and good collaboration.

Well I can't wait seeing I never got it going anyways

Quote:

I finally got the DVI > SVGA adapter for my Mac Mini back home so I will do more extensive testing with the rexx script and work with Fab to get the page updated. It will work. :)

My script is working in that all the disks are hunted down and a working uae command string is generated. However, I don't know how to get ARexx to execute an external command. :(

In perl I can do:
system("$command");

How is this done in ARexx?

easy:

address command <command string>

If you need to change current directory for whatever reason, you'd use:
pragma('D', <new directory>);

gdanko

How are you? Any updates on this project? :)

Yup! Over the weekend I worked on it and it's working.
* The script logs to the ram disk
* The script finds the first four disks of your set and maps them to dh0-3
* Disks not found are logged to the log file
* If your adf is not of the filename format "Title (Disk x of y).adf" then just that adf is mapped to dh0 and disk swaps will be manual.

Many thanks to Fab for answering my ARexx questions. This was my first foray into the ARexx world. :)

[ Edited by gdanko on 2010/6/21 7:15 ]

Quote:

Here is the script. You map it to your application/x-adf mime type and you're ready to go. For now you'll need one for a500 and one for a1200.

The mapping will look like this:
>nil: Data:Scripts/uae-a500.rexx %sp

Fab will hopefully integrate this into his howto so I won't reinvent the wheel and put up a new page.

/* uae-a500.rexx */
parse ARG adf_filename

/* strip double quotes from the filename since this breaks exist */
strlen = length(adf_filename)
if right(adf_filename, 1) = '"' then do
adf_filename = substr(adf_filename, 1, strlen -1)
strlen = length(adf_filename)
end

if left(adf_filename, 1) = '"' then do
adf_filename = substr(adf_filename, 2, strlen -1)
end

parse var adf_filename basename '(Disk 'index' of 'total').adf'

base_dir = "System:Applications/e-uae"

single_disk = "Yes"
counter = 1
log_file = "RAM:e-uae.log"
uae = base_dir"/e-uae"

/* arexx's time/date functions are weak */
month = date(M)
month = substr(month, 1, 3)
date = date(U)
date = substr(date, 4, 2)

datestamp = month date
timestamp = datestamp time(N)

/* open the log file for writing */
if open('FH', log_file, 'w') then do
call writeln('FH', timestamp "Starting")
end

uae_command = uae "-f" base_dir"/conf/A500-hires.conf"

/* hunt for disks 1-4 of any game and map them if they exist */
do while counter <= total
filename = basename"(Disk" counter "of" total").adf"
if exists(filename) then do
single disk = "No"
call close('ADF')
call writeln('FH', timestamp "Mapping" filename "to dh"counter-1)
uae_command = uae_command "-"counter-1 '"'filename'"'
end
else
call writeln('FH', timestamp "Unable to find "filename)

counter = counter + 1
end

/* only one disk to be mapped */
if single_disk = "Yes" then do
call writeln('FH', timestamp "Mapping" adf_filename "to dh0")
uae_command = uae_command "-0 " '"'adf_filename'"'

call writeln('FH', timestamp "The command is: "uae_command)
call close('FH')

/* launch uae */
address command uae_command

Hmm the editor stripped my tab stops :) Oh well.

[ Edited by gdanko on 2010/6/23 0:31 ]

Very cool! Thanks alot man... I wonder if some dev in free time could do a quick interface or button to launch the arexx script.. I remember Targhan did some stuff like this way back when..

Quote:

And what did you have in mind for that interface?
I dont think it will be needed. If you do as suggested and add it to the mime prefs you can set it to be a part of the right-click popup menu, or/and you can set it as an action when double-clicking on the file.
btw: a similar function have been available earlier, it was included in the pack ultimate, and was based on some scripts made by Fab.(included in the e-uae bonus drawer in some e-uae archives as well)...if I remember this correctly
So I have the pack installed, and I already have these menu items on adf files, like "Runinuae A1200" and "RunInUae A500".

What is different I think is that this new script have added the function to locate the additional disks in a set, so this is an improvement :)

Yes, use this script as action instead of the simple previous command. Locating disks automagically is certainly better. )

You need to update the mime action as well

gdanko:
"The Editor stripped my tab stops"

Thats probably why just editing the script makes this requestor pop up:
'Please insert volume "System: in any drive'

What did change in the editor?

Guys
I think what i'm trying to suggest is to make it as PLUG AND GO for the User as possible. As we get new users for Morphos from Amigaland it would be cool to have some kind of built in gui prefs for UAE so we can just double click launch adf files without much config... do you know what Im getting at?

I think this is one of the features missing from Morphos is better uae integration..

All works now.

With Magnetic on this one, As I've struggled with getting this going. Instead of revisting past failures (previous attempts thread) can some one simplify it again for me? I more or less have the basic stuff. Will this give me an environment to run non adf such as programs/ games which reside still on the dusty 1200?
Oh and totally lost on the mime app concept.
Thanks!!

Quote:

I agree with you 100%. Though I don't know how well this would work as far as including a "control panel" in for an OpenSource app in a commercial OS. However, OS X has stuff like Samba and whatnot so I imagine you COULD include UAE in MorphOS.

Quote:

You're simply mapping *.adf files with an action, ie; open UAE with these options. Not much to it.