/* Wstaw katalog w tekst
 *
 * Skrypt: Maciaîek Grzegorz
 * Wymagania: AmiTekstPro (dowolna wersja)
 *            biblioteki: rexxsupport.library
 *                        rexxreqtools.library
 *
 * Skrypt jest napisany jest uniwersalnie i moîe byê bez problemu
 * wykorzystany do innych celów podmieniajâc ostatnie trzy procedury.
 * Program pyta sie o katalog i pobiera z niego wszystkie pliki.
 */

OPTIONS RESULTS

IF ~SHOW( L , 'rexxsupport.library' ) THEN
	CALL ADDLIB( 'rexxsupport.library' , 0 , -30 )
IF ~SHOW( L , 'rexxreqtools.library' ) THEN
	CALL ADDLIB( 'rexxreqtools.library' , 0 , -30 )

dirname=RTFILEREQUEST('sys:',,'Wybierz katalog z przerabianymi plikami','Wybierz','rtfi_flags=freqf_nofiles rt_pubscrname=AmiTekstPro',wyb)

IF wyb=0 THEN
	EXIT 0

dirfiles=showdir(dirname)
ile=WORDS(dirfiles)

CALL _init

DO l=1 TO ile
	file=dirname || WORD(dirfiles,l)
	IF EXISTS(file) THEN CALL _action file
END

CALL _end

EXIT 0

/* procedura inicjujaca */
_init: PROCEDURE
RETURN

/* procedura wywoîywana kolejno z wszystkimi nazwami */
_action: PROCEDURE
PARSE ARG filename

	TEXT filename||'0A'X

RETURN

/* procedura konczaca */
_end: PROCEDURE

RETURN