/* $VER: CompareTextsStart.ced 1.0 (16-Aug-2000) by A.Greve
**
** Vergleicht zeilenweise ab den aktuellen Zeilen 2 Texte
** in den ersten beiden Views. Anzeige der ersten unter-
** schiedlichen Stelle im ersten View. Programmabbruch mit
** beliebiger Taste.
**
** Benötigt CygnusEd (getestet mit v4.20) und optional
** die rexxreqtools.library.
** Die Variablen "script" und "edname" müssen ggf. an
** die lokalen Pfade angepasst werden.
**
** Bei vorhandener rexxreqtools.library :
** Wenn das Script nicht von CED gestartet wurde, werden
** die 2 Dateien per ASL-Requester abgefragt und danach
** versucht, CED mit beiden Dateien zu starten. Nach dem
** Start von CED wird das Script "script" (der eigentliche
** Vergleicher) auf der Funktionstaste installiert, die
** durch die Variable "fkey" definiert wird.
*/

script = 'CED:cedscripts/CompareTexts.ced'
edname = 'CED:Ed -s'
fkey   = 1

/**********************************************************/

lf   = '0a'x
rqt1 = ' Datei nicht gewählt,'lf'Programmabbruch !'
rqt2 = 'Meldung...'
rqt3 = ' Datei auswählen'

IF (fkey < 1) | (fkey > 10) THEN fkey = 1

IF ADDRESS() = 'REXX' THEN DO									/* Gestartet von extern ?   */
	IF SHOW(p,'CYGNUSED') THEN DO								/* Läuft CEd ?              */
		ADDRESS 'CYGNUSED'										/* Ja -> adressieren        */
		CEDTOFRONT												/*       und nach vorne     */
	END
	ELSE DO														/* CEd läuft noch nicht     */
		IF ~SHOW('L','rexxreqtools.library') THEN DO			/* RexxReqTools einbinden   */
		   IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN DO	/* Library nicht gefunden   */
		      SAY 'Kann die <rexxreqtools.library> nicht öffnen!'
		      EXIT(0)
		   END
		END
		file1 = RTFILEREQUEST(,,'Erste'rqt3)
		IF file1 = '' THEN DO									/* Datei 1 nicht ausgewählt */
			CALL RTEZREQUEST('Erste'rqt1,,rqt2)
			EXIT(0)
		END
		file2 = RTFILEREQUEST(,,'Zweite'rqt3)
		IF file2 = '' THEN DO									/* Datei 2 nicht ausgewählt */
			CALL RTEZREQUEST('Zweite'rqt1,,rqt2)
			EXIT(0)
		END
		ADDRESS COMMAND edname' 'file1' 'file2					/* CED lädt beide Dateien   */
		ADDRESS 'CYGNUSED'										/* CED adressieren          */
		"INSTALL DOS/AREXX COMMAND" fkey script					/* Programm auf F.. legen   */
		PREVIOUS VIEW
		EXIT(0)
	END
END