/*
	Revises a Pascal source code
	The default Port of KCommodity is assumed to be KComm.1.
	This script was written for CygnusED II Pro, but I think it can
	be easily ported to other editors having an ARexx-Port.

	Written by : Kai Iske
			 Brucknerstrasse 18
			 6450 Hanau 1
			 GERMANY
			 Tel.: +49-(0)6181-850181

	THIS SCRIPT IS PUBLIC DOMAIN
*/

OPTIONS RESULTS
ADDRESS 'rexx_ced'


STATUS 20
Path = RESULT
IF Path ~= '' THEN
DO
	change current directory Path
	IF (right(Path, 1) ~= ':') & (right(Path, 1) ~= '/') THEN
		Path = Path || '/'
END

SAVE


STATUS 21
filename = RESULT
RevName = Path || filename


OPTIONS RESULTS
ADDRESS 'KComm.1' REVISE RevName PAS
RevDone = RESULT

cedtofront
IF RevDone = 1 THEN
	open filename
exit