/* ZjedzSpacje.CED
	$VER: ZjedzSpacje.CED 1.0 (3.9.93)
	Copyright (C) 1993 Kamil Iskra
	Do uūywania z CED'em 3.5 lub nowszym
*/

plikpom1="T:ZjedzSpacje.temp1"
plikpom2="T:ZjedzSpacje.temp2"

OPTIONS RESULTS

ADDRESS 'rexx_ced'

/* Zapamiėtajmy, gdzie staī kursor */
STATUS CURSORCOLUMN
numerkolumny=RESULT+1
STATUS CURSORLINE
numerlinii=RESULT+1

STATUS ACTUALSIZE
IF RESULT=0 THEN
DO
	OKAY1 'Najpierw coō napisz!'
	EXIT 10
END

/* Zamiast normalnie nagraź plik zapisujė go do clipboard'u. Robiė tak,
	gdyū w ten sposób nie powodujė zmiany nazwy obecnie edytowanego pliku, co
	byīoby nieuchronne przy uūyciu 'SAVE AS' */
BEG OF FILE
MARK
'END OF FILE'
CUT
SAVE CLIP AS plikpom1

ADDRESS COMMAND 'ZjadaczSpacji >NIL: ' || plikpom1 || ' ' || plikpom2
IF RC~=0 THEN
DO
	OKAY1 'ZjadaczSpacji miaī jakieō problemy!'
	PASTE /* Przywróź poprzedni wyglād pliku */
	ADDRESS COMMAND 'Delete >NIL: ' || plikpom1
	EXIT 10
END

IF EXISTS(plikpom2) THEN
	nowyplik=plikpom2
ELSE
	/* Jeūeli ZjadaczSpacji zwróciī 0, a nie ma pliku docelowego, to plik
		śródīowy nie zawiera niepotrzebnych spacji (lub tabulatorów) lub teū
		zawiera SAME niepotrzebne spacje (lub tabultory) */
	nowyplik=plikpom1

/* Tak samo, jak na poczātku: nie īadujė pliku przez 'OPEN', bo to
	spowodowaīoby zmianė nazwy obecnie edytowanego pliku. Wolė go wstawiź */
INCLUDE FILE nowyplik

/* Koļcowe czyszczenie: */
JUMPTO numerlinii numerkolumny
ADDRESS COMMAND 'Delete >NIL: ' || plikpom1 || ' ' || plikpom2
EXIT