home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
ma30.dms
/
ma30.adf
/
Konwersja
/
Rexx
/
ObrobkaPP.konrx
< prev
next >
Wrap
Text File
|
1994-08-16
|
2KB
|
83 lines
/*
Konwersja 3.0b
Makro ARexxa: Test funkcji LADUJ
Ukazuje jednâ z dodatkowych moûliwoôci, jakâ daje obróbka pliku przez port
ARexxa: przeprowadza kompresjë pliku tylko wtedy, gdy skompresowany jest
plik úródîowy.
Wymaga jednego argumentu: nazwy pliku do obróbki.
$VER: ObrobkaPP.konrx 1.1 (29.6.94)
Copyright © 1993, 1994 Kamil Iskra
*/
OPTIONS RESULTS
ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
IF ~ARG() THEN
DO
SAY "Brak argumentu!"
EXIT 10
END
POBIERZPREF StanZrod
IF RESULT=-1 THEN
DO
POBIERZPREF RozpZrod
IF RESULT=0 THEN
DO
SAY "Wymagam ustalonego standardu úródîowego lub wîâczonego ",
|| "gadûetu 'Rozpoznaj " || 'A'X || "Úródîowy'!"
EXIT 10
END
END
POBIERZPREF StanDoc
IF RESULT=-1 THEN
DO
SAY "Wymagam ustalonego standardu docelowego!"
EXIT 10
END
POBIERZPREF KatZrod
NazwaKat=RESULT /* Uûywane póúniej */
NazwaPliku=ARG(1)
/* Pobierz ostatniâ literë z nazwy katalogu */
IF LENGTH(NazwaKat)~=0 THEN
OstatLitKat=SUBSTR(NazwaKat, LENGTH(NazwaKat))
ELSE
OstatLitKat=":" /* Ûeby nie dodawaî "/" */
/* Jeûeli nazwa katalogu nie koïczy sië na ":" lub "/", to trzeba wstawiê "/"
pomiëdzy nazwâ katalogu a pliku */
IF OstatLitKat=":" | OstatLitKat="/" THEN
DodajLit=""
ELSE
DodajLit="/"
/* Uzyskaj caîâ nazwë pliku - îâcznie ze ôcieûkâ dostëpu */
CalaNazwa=NazwaKat || DodajLit || NazwaPliku
/* Sprawdú, czy plik jest skompresowany */
IF ~OPEN(Plik, CalaNazwa, "R") THEN
DO
SAY "Bîâd otwarcia pliku '" || CalaNazwa || "'!"
EXIT 10
END
Naglowek=READCH(Plik, 4)
/* W pliku skompresowanym PowerPackerem 4 pierwsze bajty to PP20 lub PX20 */
Kompresja=(Naglowek=="PP20" | Naglowek=="PX20")
CALL CLOSE(Plik)
USTAWPREF Kompresuj Kompresja
USTAWPREF UkazujPrefs 0
LADUJ NazwaPliku
IF RC~=0 THEN
DO
SAY "Podczas obróbki pliku pojawiîy sië jakieô problemy!"
EXIT 10
END
SAY "Wszystko poszîo dobrze - plik obsîuûony."