home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma30.dms / ma30.adf / Konwersja / Rexx / Konwertuj.ced next >
Text File  |  1994-08-16  |  2KB  |  113 lines
  1. /*
  2.     Konwersja 3.0b
  3.  
  4.     Makro Arexxa: Praktyczne wykorzystanie portu ARexxa do wspóîpracy z
  5.         edytorem CygnusEd 3.5+.
  6.     O ile w CEDzie jest zaznaczony blok, przekonwertowany zostanie tylko ten
  7.     zaznaczony blok. Jeûeli nie ma zaznaczonego bloku, przekonwertowany
  8.     zostanie caîy plik.
  9.     Makro to jest zasadniczo przewidziane do uruchamiania z poziomu CEDa.
  10.  
  11.     $VER: Konwertuj.ced 1.0 (30.6.94)
  12.  
  13.     Copyright © 1994 Kamil Iskra
  14. */
  15.  
  16. plikpomdir="T:"
  17. plikpom="Konwertuj.temp"
  18. calnazplikpom=plikpomdir || plikpom
  19.  
  20. OPTIONS RESULTS
  21.  
  22. /* Host bieûâcy: rexx_ced */
  23.  
  24. /* Najpierw sprawdzë, czy sâ uruchomione wîaôciwe programy, czy sâ one
  25.     prawidîowo skonfigurowane itp. */
  26.  
  27. IF ~SHOW("P", "KONWERSJA") THEN
  28. DO
  29.     OKAY1 "Nie jest uruchomiona Konwersja!"
  30.     EXIT 10
  31. END
  32.  
  33. STATUS ACTUALSIZE
  34. IF RESULT=0 THEN
  35. DO
  36.     OKAY1 "Nie ma czego konwertowaê!"
  37.     EXIT 10
  38. END
  39.  
  40. ADDRESS "KONWERSJA"
  41. /* Host bieûâcy: KONWERSJA */
  42.  
  43. POBIERZPREF StanZrod
  44. IF RESULT=-1 THEN
  45.     DO
  46.         POBIERZPREF RozpZrod
  47.         IF RESULT=0 THEN
  48.             DO
  49.                 ADDRESS
  50.                 /* Host bieûâcy: rexx_ced */
  51.                 OKAY1 "Konwersja musi mieê ustalony standard úródîowy" || 'A'X,
  52.                     || "lub wîâczony gadûet 'Rozpoznaj Úródîowy'!"
  53.                 EXIT 10
  54.             END
  55.     END
  56. POBIERZPREF StanDoc
  57. IF RESULT=-1 THEN
  58.     DO
  59.         ADDRESS
  60.         /* Host bieûâcy: rexx_ced */
  61.         OKAY1 "Konwersja musi mieê ustalony standard docelowy!"
  62.         EXIT 10
  63.     END
  64. /* Skonfiguruj wîaôciwie Konwersjë */
  65. USTAWPREF ObslugKonc 0
  66. USTAWPREF UkazujPrefs 0
  67. USTAWPREF RodzajNagr 2 /* Na úródîowy */
  68. USTAWPREF Kompresuj 0
  69. USTAWPREF KatZrod plikpomdir
  70.  
  71. ADDRESS
  72. /* Host bieûâcy: rexx_ced */
  73.  
  74. STATUS CURSORCOLUMN
  75. numerkolumny=RESULT+1
  76. STATUS CURSORLINE
  77. numerlinii=RESULT+1
  78.  
  79. 'CUT BLOCK'
  80. IF RESULT=0 THEN /* Nie byî zaznaczony blok */
  81. DO
  82.     BEG OF FILE
  83.     MARK
  84.     'END OF FILE'
  85.     'CUT BLOCK'
  86. END
  87.  
  88. SAVE CLIP AS calnazplikpom
  89.  
  90. ADDRESS
  91. /* Host bieûâcy: KONWERSJA */
  92.  
  93. /* Poniûsza linia robi wîaôciwâ robotë */
  94. LADUJ plikpom
  95. IF RC~=0 THEN
  96. DO
  97.     ADDRESS
  98.     /* Host bieûâcy: rexx_ced */
  99.     Okay1 "Bîâd podczas konwersji pliku!"
  100.     PASTE
  101.     ADDRESS COMMAND "Delete >NIL: " || calnazplikpom
  102.     EXIT 10
  103. END
  104.  
  105. ADDRESS
  106. /* Host bieûâcy: rexx_ced */
  107.  
  108. INCLUDE FILE calnazplikpom
  109.  
  110. /* Koïcowe czyszczenie */
  111. JUMPTO numerlinii numerkolumny
  112. ADDRESS COMMAND "Delete >NIL: " || calnazplikpom
  113.