I've been working on this a little while. just getting back to it, and I don't think it can be done!

What I'm trying to do is something simple. Write an Arexx macro for WW7 to export the current document as an RTF file. I want it to be saved on the RAM Disk with an .rtf extension and this is where I get stuck.

Out of all the 142 ARexx commands, none I see can give something simple like the current file name. Or at least I didn't see it in the list. Also there is no mentiion of any preset WW variables. They provide custom ARexx support and don't include something as simple as preset variables or commands to get info about the current document?

The only way I can see is for the script to bring up a file requester for the file I want so I can select it but this goes against the point and doesn't automate it.

So, export the current documemt to the RAM Disk as an RTF file, Can WordWorth Arexx do this?

Last edited by Hypex on 10-Jul-2013 at 06:28 AM.

@Hypex

As I see WW7 guide, there is ARexx command SAVEAS:

SAVEAS (ASCII|RTF|WORDPERFECT|TEMPLATE/S,NAME/K)
Saves the current project to the specified filename.

* The filetype is optional, if ommited the file will
be saved in normal Wordworth format.

* NAME specifies the filename for the project. If no
name is provided, the file requester will be
displayed for the user to select a filename.


It looks like that saving as an RTF file is a piece of cake there...

_________________
Copyright (c) by Darek A.D. 2017

@Darek

Yes, that's the command I was hoping to use, but then what name do I specify? I need the file name so I can modify it and give it to SaveAs. I don't know how to get the file name for the document.

Otherwise my options are to overwrite the current file as RTF or let it bring up a file requester asking for a name. And I don't want that, obviously.

@Hypex

I'm not sure that you can. Wordthworths arexx command set is frustratingly 'almost'. Another example you acn PRINT and can change the print optyions, but you can't setup the postscript print options, and choose what file to printofile too.

_________________
BroadBlues On Blues BroadBlues On Amiga Walker Broad

@Hypex

Quote:

what name do I specify? I need the file name so I can modify it and give it to SaveAs. I don't know how to get the file name for the document.

Just ideas...

...what about opening just blank WW document with given name there?

... or what about opening the default WW document, then save it under specified name as first step, and continue on that document later...?

Last edited by Darek on 09-Mar-2013 at 03:45 PM.

_________________
Copyright (c) by Darek A.D. 2017

@Hypex

This would be a really bad hack, but would it be possible to get the filename from the window title? I don't know whether this is possible in ARexx (or whether you need to write a separate C program for that).

@Hypex
I've got three. "The first is for single files, and it came with WW5. The other two are batch converters from WW7. The third one "many-non-rtf to rtf.rexx" is a slight modification that I made to the original script, so that you can use in on a directory that contains a mixture of rtf and non-rtf files. All the files in the directory have to be readable by WW, but it skips .info and .rtf and .rtf.bak files.

Here's the first one, for single files:

/* Convert_To_RTF

      Converts a document to RTF format

      Digita ARexx Script for Wordworth 5
      Copyright ©1996, Digita International Ltd.
      
      Created: 19 January 1996
      Author:  MJ
*/


OPTIONS RESULTS


RequestFile TITLE "Select File to Convert to RTF"
File = Result

If (RC > 0) THEN
   Exit

New
Address Value Result

Open FILENAME File

File = File || ".RTF"

SaveAs RTF NAME File
Close FORCE

/* Many_To_RTF

      Converts a drawer full of documents to RTF format.

      Digita ARexx Script for Wordworth 7
      Copyright ©1998, Digita International Ltd.
      
      Created: 31 May 1996
      Author:  MJ
*/


OPTIONS RESULTS


RequestFile TITLE "Select drawer..." DRAWERSONLY
Drawer = Result

If (RC > 0) THEN
   Exit

OldPort = Address()

Address Command 'List >RAM:WwTemp 'Drawer' NOHEAD PAT=~(#?.info) LFORMAT="%s%s" FILES'
IF Open('listfile', 'RAM:WwTemp', R) THEN DO
   DO Until EOF('listfile')
      File = ReadLn('listfile')

      If File = '' THEN
         Break

      New
      Address Value Result

      Open FILENAME File

      File = File || ".RTF"

      SaveAs RTF NAME File
      Close FORCE

      Address Value OldPort
   END
   Call Close('listfile')

END

Address Command 'Delete >NIL: RAM:WwTemp'

      Converts a drawer full of documents to RTF format, 
      ng falies that are already RTF.

      Digita ARexx Script for Wordworth 7
      Copyright ©1998, Digita International Ltd.
      
      Created: 31 May 1996
      Author:  MJ
*/


OPTIONS RESULTS


RequestFile TITLE "Select drawer..." DRAWERSONLY
Drawer = Result

If (RC > 0) THEN
   Exit

OldPort = Address()

Address Command 'List >RAM:WwTemp 'Drawer' NOHEAD PAT=~(#?.info|#?.RTF|#?.RTF.BAK) LFORMAT="%sIF Open('listfile', 'RAM:WwTemp', R) THEN DO
   DO Until EOF('listfile')
      File = ReadLn('listfile')

      If File = '' THEN
         Break

      New
      Address Value Result

      Open FILENAME File

      File = File || ".RTF"

      SaveAs RTF NAME File
      Close FORCE

      Address Value OldPort
   END
   Call Close('listfile')

END

Address Command 'Delete >NIL: RAM:WwTemp'

@ara:
would it be possible to get the filename from the window title?

Isn't default feature in WW there?

Last edited by Darek on 10-Mar-2013 at 09:54 AM.

_________________
Copyright (c) by Darek A.D. 2017

@Darek

I could open a new document or default but then what? I still don't know what name it is called and still no clue what the file I need is called.

@ara

I suppose I could use some extra commands to locate it by reading Intuition windows pointer and such but it does go beyond the scope of Wordworth. Of course if Wordworth cannot tell me what I need to know I may need to look into it. So simple yet hard to do!

@mr_homm

Thanks for sharing the scripts. Of course, none do what I exacly need, since they rely on asking the user. I can see myself taking the first example and asking the filename because Wordworth cannot or will not give it to me.

@Hypex

In WW& ARexx folder there is script called Save_All.rexx:

/* Save_All

Saves all open documents.

Digita ARexx Script for Wordworth 7
Copyright ©1998, Digita International Ltd.

Created: 19 January 1996
Author: MJ & PB
*/


RequestResponse "Do you wish to Save all open documents?"
IF (RC > 0) THEN
Exit

DO Num = 1 to 20
WwPort = "WORDWORTH." || Num
IF SHOW(PORTS, WwPort) THEN DO
Address Value WwPort
Save
END
END


As I see there, WW7 opens individual & separate WW port there for each document.
So for finding out document name in use you need to find actual active WW port name.



Regarding to my previous idea for knowing name of document is based on different , but easy, approach. Simply you know name of document in advance before opening there.
First you simply save blank WW document under name i.e. WW7Blank.
Now open new WW by simply clicking on WW7Blank icon there, and that's all.

Last edited by Darek on 10-Mar-2013 at 03:43 PM.

_________________
Copyright (c) by Darek A.D. 2017

@Darek

Thanks for your suggestions.

Yes I was aware of the port names it uses. However, they are all named in "WORDWORTH.x"format and so bare no relation to the document name. In any case I can see no command to get the current port name, only to create a new one. Wordworth typical.

Regarding your other idea, in fact I do know the name of the document beccause it's right in front of me! I just don't know how to grab it from a script.

Now I see what you mean about the blank document. I could automate it to save a blank document and load it in again or simply create a new document but then what? The document I want to use is already loaded! And I'm back where I started!

Thought I'd give an update. I decided to go with the file requater as I first posted. But I've wasted hours pulling my hair out geting it to work! I've never wasted so much time on an ARexx script!

I ended up debugging it on the shell just to deal with the WW error silences and actually seeing what was happening. I also looked at some script I wrote years ago just to give me soem hints. I have the ARexx manual and Abacus guide but they didn't help much. I got stuck simply trying to extract the file from the path as I needed to send data to AmjgaDOS and back again.

In the end I gave up on that as a simple operation just got too complcated and replaced with an ARexx one liner. So, after all this, here's the final result. With extra crap in between.

/* Export current document as RTF */

Options Results

RequestFile
If (RC>0) Then Exit

/*
File=Result
WWPort=Address()
Address Command
Result='PathPart FILE="'File'"'
Address Value WWPort
*/

Name=SubStr(Result,LastPos('/',Result)+1)
File="RAM:" || Name || ".rtf"

/*
RequestNotify Name 
*/

SaveAs 'RTF NAME' File

End