home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma30.dms / ma30.adf / Konwersja / Rexx / ObrobkaPP.konrx < prev    next >
Text File  |  1994-08-16  |  2KB  |  83 lines

  1. /*
  2.     Konwersja 3.0b
  3.  
  4.     Makro ARexxa: Test funkcji LADUJ
  5.     Ukazuje jednâ z dodatkowych moûliwoôci, jakâ daje obróbka pliku przez port
  6.     ARexxa: przeprowadza kompresjë pliku tylko wtedy, gdy skompresowany jest
  7.     plik úródîowy.
  8.     Wymaga jednego argumentu: nazwy pliku do obróbki.
  9.  
  10.     $VER: ObrobkaPP.konrx 1.1 (29.6.94)
  11.  
  12.     Copyright © 1993, 1994 Kamil Iskra
  13. */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
  18.  
  19. IF ~ARG() THEN
  20.     DO
  21.         SAY "Brak argumentu!"
  22.         EXIT 10
  23.     END
  24.  
  25. POBIERZPREF StanZrod
  26. IF RESULT=-1 THEN
  27.     DO
  28.         POBIERZPREF RozpZrod
  29.         IF RESULT=0 THEN
  30.             DO
  31.                 SAY "Wymagam ustalonego standardu úródîowego lub wîâczonego ",
  32.                     || "gadûetu 'Rozpoznaj " || 'A'X || "Úródîowy'!"
  33.                 EXIT 10
  34.             END
  35.     END
  36. POBIERZPREF StanDoc
  37. IF RESULT=-1 THEN
  38.     DO
  39.         SAY "Wymagam ustalonego standardu docelowego!"
  40.         EXIT 10
  41.     END
  42.  
  43. POBIERZPREF KatZrod
  44. NazwaKat=RESULT /* Uûywane póúniej */
  45. NazwaPliku=ARG(1)
  46.  
  47. /* Pobierz ostatniâ literë z nazwy katalogu */
  48. IF LENGTH(NazwaKat)~=0 THEN
  49.     OstatLitKat=SUBSTR(NazwaKat, LENGTH(NazwaKat))
  50. ELSE
  51.     OstatLitKat=":" /* Ûeby nie dodawaî "/" */
  52. /* Jeûeli nazwa katalogu nie koïczy sië na ":" lub "/", to trzeba wstawiê "/"
  53.     pomiëdzy nazwâ katalogu a pliku */
  54. IF OstatLitKat=":" | OstatLitKat="/" THEN
  55.     DodajLit=""
  56. ELSE
  57.     DodajLit="/"
  58. /* Uzyskaj caîâ nazwë pliku - îâcznie ze ôcieûkâ dostëpu */
  59. CalaNazwa=NazwaKat || DodajLit || NazwaPliku
  60.  
  61. /* Sprawdú, czy plik jest skompresowany */
  62. IF ~OPEN(Plik, CalaNazwa, "R") THEN
  63.     DO
  64.         SAY "Bîâd otwarcia pliku '" || CalaNazwa || "'!"
  65.         EXIT 10
  66.     END
  67. Naglowek=READCH(Plik, 4)
  68. /* W pliku skompresowanym PowerPackerem 4 pierwsze bajty to PP20 lub PX20 */
  69. Kompresja=(Naglowek=="PP20" | Naglowek=="PX20")
  70. CALL CLOSE(Plik)
  71.  
  72. USTAWPREF Kompresuj Kompresja
  73. USTAWPREF UkazujPrefs 0
  74.  
  75. LADUJ NazwaPliku
  76. IF RC~=0 THEN
  77.     DO
  78.         SAY "Podczas obróbki pliku pojawiîy sië jakieô problemy!"
  79.         EXIT 10
  80.     END
  81.  
  82. SAY "Wszystko poszîo dobrze - plik obsîuûony."
  83.