home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / workbench / hypertext_dtc / arexx / viewsource.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-12-13  |  1.9 KB  |  79 lines
  1. /*
  2. ** $PROJECT: HTDS ARexx scripts
  3. **
  4. ** $VER: viewsearch.rexx 40.2 (13.12.97)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1997 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: Stefan.Ruppert@informatik.fh-wiesbaden.de
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 13.12.97 : 040.002 : tempory index starts now by 1 and delay cut to 100
  15. ** 30.03.97 : 040.001 : initial
  16. */
  17.  
  18. Parse Arg args
  19. Options Results
  20.  
  21. /* --------------------------- needed libraries --------------------------- */
  22.  
  23. Call AddLib('rexxsupport.library',0,-30,0)
  24. Call AddLib('rexxdossupport.library',0,-30,0)
  25.  
  26. /* ------------------------ end customize section ------------------------- */
  27.  
  28. If ReadArgs(args,'DUMMY','VIEWSRC.') Then Do
  29.  
  30.    buffer = ''
  31.    screen = ''
  32.    nodename = ''
  33.    path     = ''
  34.    mvargs = ''
  35.    'GETATTR OBJECT=OBJECT FIELD=BUFFER   VAR=BUFFER'
  36.    'GETATTR OBJECT=OBJECT FIELD=PATH     VAR=PATH'
  37.    'GETATTR OBJECT=OBJECT FIELD=NODENAME VAR=NODENAME'
  38.    'GETATTR OBJECT=APPLICATION FIELD=SCREEN VAR=SCREEN'
  39.  
  40.    If screen ~= '' Then
  41.       mvargs = mvargs || ' PUBSCREEN="' || screen || '"'
  42.  
  43.    tmpfile = 'T:htdsviewsource'
  44.    i = 1
  45.    Do While Exists(tmpfile || i)
  46.       i = i + 1
  47.    End
  48.    tmpfile = tmpfile || i
  49.  
  50.    portname = 'HTDSVIEWSRC.' || i
  51.    mvargs   = mvargs || ' PORTNAME="' || portname || '"'
  52.  
  53.    If Open('fh',tmpfile,'w') Then Do
  54.       Call WriteLn('fh',buffer)
  55.       Call Close('fh')
  56.       /* clear var */
  57.       buffer = ''
  58.       ADDRESS COMMAND 'run >NIL: MultiView ' || tmpfile || mvargs
  59.  
  60.       portname = portname || '.1'
  61.       say portname
  62.       ADDRESS COMMAND 'WaitForPort ' || portname
  63.       ADDRESS VALUE portname
  64.  
  65.       title = 'Source of : ' || path
  66.       If nodename ~= '' Then
  67.      title = title || '/' || nodename
  68.  
  69.       'SETATTR OBJECT=OBJECT FIELD=TITLE VAR=TITLE'
  70.  
  71.       Do While Show('P',portname)
  72.      Call Delay(100)
  73.       End
  74.  
  75.       ADDRESS COMMAND 'Delete >NIL: ' || tmpfile
  76.    End
  77. End
  78.  
  79.