/*
	Konwersja 3.0b

	Makro Arexxa: Praktyczne wykorzystanie portu ARexxa do wspóîpracy z
		edytorem CygnusEd 3.5+.
	O ile w CEDzie jest zaznaczony blok, przekonwertowany zostanie tylko ten
	zaznaczony blok. Jeûeli nie ma zaznaczonego bloku, przekonwertowany
	zostanie caîy plik.
	Makro to jest zasadniczo przewidziane do uruchamiania z poziomu CEDa.

	$VER: Konwertuj.ced 1.0 (30.6.94)

	Copyright © 1994 Kamil Iskra
*/

plikpomdir="T:"
plikpom="Konwertuj.temp"
calnazplikpom=plikpomdir || plikpom

OPTIONS RESULTS

/* Host bieûâcy: rexx_ced */

/* Najpierw sprawdzë, czy sâ uruchomione wîaôciwe programy, czy sâ one
	prawidîowo skonfigurowane itp. */

IF ~SHOW("P", "KONWERSJA") THEN
DO
	OKAY1 "Nie jest uruchomiona Konwersja!"
	EXIT 10
END

STATUS ACTUALSIZE
IF RESULT=0 THEN
DO
	OKAY1 "Nie ma czego konwertowaê!"
	EXIT 10
END

ADDRESS "KONWERSJA"
/* Host bieûâcy: KONWERSJA */

POBIERZPREF StanZrod
IF RESULT=-1 THEN
	DO
		POBIERZPREF RozpZrod
		IF RESULT=0 THEN
			DO
				ADDRESS
				/* Host bieûâcy: rexx_ced */
				OKAY1 "Konwersja musi mieê ustalony standard úródîowy" || 'A'X,
					|| "lub wîâczony gadûet 'Rozpoznaj Úródîowy'!"
				EXIT 10
			END
	END
POBIERZPREF StanDoc
IF RESULT=-1 THEN
	DO
		ADDRESS
		/* Host bieûâcy: rexx_ced */
		OKAY1 "Konwersja musi mieê ustalony standard docelowy!"
		EXIT 10
	END
/* Skonfiguruj wîaôciwie Konwersjë */
USTAWPREF ObslugKonc 0
USTAWPREF UkazujPrefs 0
USTAWPREF RodzajNagr 2 /* Na úródîowy */
USTAWPREF Kompresuj 0
USTAWPREF KatZrod plikpomdir

ADDRESS
/* Host bieûâcy: rexx_ced */

STATUS CURSORCOLUMN
numerkolumny=RESULT+1
STATUS CURSORLINE
numerlinii=RESULT+1

'CUT BLOCK'
IF RESULT=0 THEN /* Nie byî zaznaczony blok */
DO
	BEG OF FILE
	MARK
	'END OF FILE'
	'CUT BLOCK'
END

SAVE CLIP AS calnazplikpom

ADDRESS
/* Host bieûâcy: KONWERSJA */

/* Poniûsza linia robi wîaôciwâ robotë */
LADUJ plikpom
IF RC~=0 THEN
DO
	ADDRESS
	/* Host bieûâcy: rexx_ced */
	Okay1 "Bîâd podczas konwersji pliku!"
	PASTE
	ADDRESS COMMAND "Delete >NIL: " || calnazplikpom
	EXIT 10
END

ADDRESS
/* Host bieûâcy: rexx_ced */

INCLUDE FILE calnazplikpom

/* Koïcowe czyszczenie */
JUMPTO numerlinii numerkolumny
ADDRESS COMMAND "Delete >NIL: " || calnazplikpom