home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / commandline.pprx < prev    next >
Encoding:
Text File  |  1992-03-15  |  821 b   |  45 lines
  1. /*
  2. @BCommandLine  @P@ICopyright Gold Disk Inc., February, 1992
  3.  
  4. This Genie allows you to issue AREXX commands to PPage directly. Recommended for advanced users only.
  5. */
  6. signal on error
  7. signal on syntax
  8.  
  9. call ppm_AutoUpdate(0)
  10.  
  11. defvalue    = getclip(ppm_defval)
  12.  
  13. command = ppm_GetForm("Enter Command",40, "Command:"defvalue)
  14. if command = '' then exit_msg()
  15.  
  16.  
  17. /*if upper(left(command, 4)) ~= "PPM_" then command = "ppm_"command*/
  18. if right(command, 1) ~= ')' then command = command"()"
  19.  
  20. call setclip(ppm_defval, command)
  21.  
  22. interpret "returnval = "command
  23.  
  24. call exit_msg(command" = "returnval)
  25.  
  26. error: 
  27. syntax: 
  28. do
  29.     if rc = 16 then exit_msg()
  30.     exit_msg(command ": "errortext(rc))
  31.  
  32. end
  33.  
  34.  
  35. exit_msg:
  36. do
  37.     parse arg message
  38.  
  39.     if message ~= '' then call ppm_Inform(1, message,)
  40.     call ppm_AutoUpdate(1)
  41.     exit
  42. end
  43.  
  44.  
  45.