/*
** SeqFileSelect
**
** $VER: SeqFileSelect 1.1.0 (5.11.93)
**
** This ARexx script contains a function which selects the FRED sequence
** file to create.  This script must be used in conjunction with the
** SeqFileAppend script.
**
** INPUTS
**	None
**
** RETURN
**	SeqFName -- string describing the sequence file selected.
**
** This script should work with current versions of ARexx.
**
** This script requires ADPro v2.5.0 (or higher).
**
** Copyright © 1993 ASDG, Incorporated
** All Rights Reserved
*/


ADDRESS "ADPro"
OPTIONS RESULTS

NL = '0A'X
SQ = '27'X
DQ = '22'X
TRUE  = 1
FALSE = 0


/*
** Ask if a sequence file should be created/used.  
*/

ADPRO_TO_FRONT

OKAYN '"SeqFileSelect"' '"Create a FRED sequence file?"' '"Yes|No|Cancel"'
IF (RC = 0) THEN DO
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END
ELSE IF (RC = 1) THEN DO
	CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Select FRED Sequence File"' '"ADPRO:Sequences"' '""""' TRUE
	IF (RESULT = DQ||DQ) THEN
		EXIT 10
	ELSE
		SeqFName = RESULT


	/*
	** Replace extension with .seq, if need be

	OldSeqFName = SeqFName
	FileExtPos = (LASTPOS( '.', OldSeqFName )) - 1
	IF (FileExtPos ~= 0) THEN DO
		PeriodPos = LASTPOS( '.', "seq" )
		IF (PeriodPos ~= 0) THEN
			SeqFName = LEFT( OldSeqFName, FileExtPos ) || "seq"
		ELSE
			SeqFName = LEFT( OldSeqFName, FileExtPos ) || ".seq"
	END
	ELSE DO
		PeriodPos = LASTPOS( '.', "seq" )
		IF (PeriodPos ~= 0) THEN
			SeqFName = OldSeqFName || "seq"
		ELSE
			SeqFName = OldSeqFName || ".seq"
	END
	*/


	/*
	** Check for existence.  Ask to append or replace.
	*/

	IF (EXISTS( SeqFName ) = TRUE) THEN DO
		ADPRO_TO_FRONT

		OKAYN '"SeqFileSelect"' '"Sequence file exists.  Append to sequence file?"' '"Append|Replace|Cancel"'
		IF (RC = 0) THEN DO
			SCREEN_TO_FRONT "FRED"
			EXIT 10
		END
		ELSE IF (RC = 2) THEN DO
			ADDRESS COMMAND "Delete >NIL:" SeqFName
			ADDRESS COMMAND "Echo >" || SeqFName
		END

		SCREEN_TO_FRONT "FRED"
	END
	ELSE
		ADDRESS COMMAND "Echo >" || SeqFName
END
ELSE IF (RC = 2) THEN
	SeqFName = "???"

SeqFNameStr = DQ || SeqFName || DQ

SCREEN_TO_FRONT "FRED"

RETURN SeqFNameStr

EXIT 0