home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / htext.lzh / hypertext / Rexx / test.dme < prev    next >
Encoding:
Text File  |  1990-12-23  |  531 b   |  27 lines
  1. /* this is a sample rexx macro to dump a file right into HT.... */
  2.  
  3. /* now get the filename we were called with */
  4. parse arg name
  5.  
  6.  /* if we don't have a full path name, build one... */
  7.  if (index(name, ":") = 0 & index(name, "/") = 0) then do
  8.    cur_dir = pragma(D)
  9.  
  10.    if length(cur_dir) > lastpos(':' , cur_dir) then
  11.      name = cur_dir || '/' || name
  12.    else
  13.      name = cur_dir || name
  14.  end
  15.  
  16. /* make sure HT has started up... */
  17. call startht.rexx()
  18.  
  19. /* and tell HT to load it */
  20. address HT LOAD name
  21.  
  22. /* we're done */
  23. exit
  24.  
  25.  
  26.  
  27.