home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of A1200
/
World_Of_A1200.iso
/
programs
/
commodity
/
magiccx
/
rexx
/
scripts.lha
/
BASRevision.ced
< prev
next >
Wrap
Text File
|
1994-08-12
|
1KB
|
91 lines
/*
$VER: BASRevision.ced 1.0 (12.8.94)
Revises an Basic source code
The default Port of MagicCX is assumed to be MCX.
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
63452 Hanau
GERMANY
Tel.: +49-(0)6181-850181
THIS SCRIPT IS PUBLIC DOMAIN
*/
OPTIONS RESULTS
ADDRESS 'rexx_ced'
/*
Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
(Please add complete paths for the files!)
*/
INITVER = 1
INITREV = 0
INSBEFORE = BASInsertBeforeHeader
INSAFTER = BASInsertAfterHeader
/*
Get information about current file
*/
STATUS 20
Path = RESULT
IF Path ~= '' THEN
DO
CHANGE CURRENT DIRECTORY Path
IF (RIGHT(Path, 1) ~= ':') & (RIGHT(Path, 1) ~= '/') THEN
Path = Path || '/'
END
/*
Save file in editor
*/
SAVE
/*
Get FileName of file being edited
*/
STATUS 21
FileName = RESULT
RevName = Path || FileName
/*
Start RCS
*/
QUOTE = '22'X
OPTIONS RESULTS
ADDRESS 'MCX' REVISE 'FILE='QUOTE''RevName''QUOTE 'MODE=BAS' 'PUBSCREEN=CygnusEdScreen1' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
/*
Get results
*/
RevDone = RESULT
/*
No error, reload file
*/
IF RevDone = 'TRUE' THEN
open FileName
ELSE
SAY 'Error occured during revision.'
EXIT