home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
util
/
edit
/
polyed
/
rexx
/
getattr.rexx
next >
Wrap
OS/2 REXX Batch file
|
1994-09-22
|
2KB
|
102 lines
/*
** $VER: getattr.ped 1.0 (30.8.94) written by Robert Brandner
**
** Demo of the usage of the GETATTR command
*/
/* enable return codes */
OPTIONS RESULTS
/* is PolyEd out there ? */
if ~SHOW("Ports", "POLYED.1") then do
say "Please start PolyEd before running this program."
exit
end
ADDRESS POLYED.1
/* First, how to get all informations on the application:
** The informations are placed in nodes of the stem variable APP.
** If we don't use a stem variable all informations are put into
** the variable RESULT, seperated by spaces.
*/
'GETATTR APPLICATION STEM APP.'
say "Informations about PolyEd"
say "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"
say "Version :" APP.VERSION
say "Pub Screen :" APP.SCREEN
say "Current Project:" APP.CURRENT
say "Findstring :" APP.VAR_FINDSTRING
say "Changestring :" APP.VAR_CHANGESTRING
say "Learning :" APP.FLAG_LEARNING
say "Right Border :" APP.VAR_RIGHTBORDER
say "Overwrite :" APP.FLAG_OVERWRITE
say
say "and so on..."
say "You may now ask for information of specific fields."
say "See documentation for the available fields."
say "Enter no field name for leaving the loop."
say ""
OPTIONS prompt "application field:"
pull field
do while field ~= ""
'GETATTR APPLICATION FIELD' field
say field || ":" RESULT
say ""
pull field
end
/* Now we get a list of all projects */
OPTIONS PROMPT
say
say "Press <return> for a list of the projects:"
pull
say
'GETATTR PROJECTS STEM P.'
say "Here is a list of the" P.PROJECTS.COUNT "projects of PolyEd:"
say
do i=0 to P.PROJECTS.COUNT-1 /* from 0 to COUNT-1 ! */
say "["i+1"]" P.PROJECTS.i
/* Here we get the informations on one project
** into the stem variable PR. Variables must not be quoted, because
** ARexx does not evalute them if they are.
*/
'GETATTR' PROJECT P.PROJECTS.i STEM PR.
say substr("", 1, 3+length(i)+length(P.PROJECTS.i), "¯") /* :^) */
say 'ARexx port :' PR.AREXX
say 'complete filename :' PR.FILENAME
say 'file portion :' PR.FILE
say 'path portion :' PR.PATH
say 'modifications :' PR.CHANGES
say 'lines :' PR.LINES
say
end i
/* Now a list of the macros */
say
say "Press <return> for a list of the macros:"
pull
say
'GETATTR MACROS STEM M.'
say "Here is a list of the" M.MACROS.COUNT "macros of PolyEd:"
say
do i=0 to M.MACROS.COUNT-1
say M.MACROS.i
end i