home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 632.lha / KCommodity_v1.63 / rexx / PASRevision.ced < prev   
Encoding:
Text File  |  1992-02-03  |  774 b   |  49 lines
  1. /*
  2.     Revises a Pascal source code
  3.     The default Port of KCommodity is assumed to be KComm.1.
  4.     This script was written for CygnusED II Pro, but I think it can
  5.     be easily ported to other editors having an ARexx-Port.
  6.  
  7.     Written by : Kai Iske
  8.              Brucknerstrasse 18
  9.              6450 Hanau 1
  10.              GERMANY
  11.              Tel.: +49-(0)6181-850181
  12.  
  13.     THIS SCRIPT IS PUBLIC DOMAIN
  14. */
  15.  
  16. OPTIONS RESULTS
  17. ADDRESS 'rexx_ced'
  18.  
  19.  
  20. STATUS 20
  21. Path = RESULT
  22. IF Path ~= '' THEN
  23. DO
  24.     change current directory Path
  25.     IF (right(Path, 1) ~= ':') | (right(Path, 1) ~= '/') THEN
  26.         Path = Path || '/'
  27. END
  28.  
  29. SAVE
  30.  
  31.  
  32. STATUS 21
  33. filename = RESULT
  34. RevName = Path || filename
  35.  
  36.  
  37. OPTIONS RESULTS
  38. ADDRESS 'KComm.1'
  39. REVISE RevName PAS
  40. RevDone = RESULT
  41.  
  42. OPTIONS RESULTS
  43. ADDRESS 'rexx_ced'
  44.  
  45. cedtofront
  46. IF RevDone = 1 THEN
  47.     open filename
  48. exit
  49.