.key project,obj,from,to
.bra {
.ket }
;this script creates an Imagine3.1-staging file for an object-sequence

;Parameters:
; project: full path of the Imagine-project, e.g. "hd1:imagine/wave.imp"
;     obj: object-base-name with path, e.g. "hd0:obj"
;    from: first object, e.g. 1
;    last: last object

;Example: stageit hd1:Grafix/Imagine3.1/test.imp shit:obj 1 12

;Required software: Dust, ISL3.x, CEd and Ed (quickstarter) in your C:-drawer,
;the Rexx-Master must be active, too.

;init
clear
set echo=off

echo "Creating a backup of the old staging-file"
copy {project}/staging {project}/staging.o

echo "Creating a-Dust-script"
echo >T:Dust.tmp "staging3({obj},{from},{to},{from},{to},T:staging.tmp)"

echo "Running Dust"
Dust T:Dust.tmp

echo "Running Destage"
destage {project}/staging T:staging.a

echo "Running CEd"
 Ed T:staging.a
 rx "address 'rexx_ced' 'search for {obj}.'"
 rx "address 'rexx_ced' 'Beg of line'"
 rx "address 'rexx_ced' 'Delete line'"
 rx "address 'rexx_ced' Include file 'T:staging.tmp'"
 rx "address 'rexx_ced' 'Save'"
 rx "address 'rexx_ced' 'Quit'"

echo "Running Restage"
restage T:staging.a {project}/staging

;clean up
delete >NIL: T:Dust.tmp T:staging.a T:staging.tmp

echo "Bye !"
