home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / compresshtml / vorlage_modul.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-03-07  |  2.4 KB  |  77 lines
  1. /** $VER: Version 0.01 (23 Feb 1999), by Thorsten Willert
  2. ******************************************************************************
  3. ** VERSION    : 0.01
  4. ** PROGRAMM   : Vorlage_Modul.rexx
  5. ** AUTHOR     : Thorsten Willert
  6. ** DISCRIPTION: Vorlage für CompressHTML- Module
  7. ** DATE       : 23 Feb. 1999
  8. ** STATUS     : FREEWARE
  9. ** REQUIRES   : ARexx ;-)
  10. **
  11. ** Erstellt mit Hilfe des ARexxWizards 0.2
  12. ** © 1998, by Thorsten Willert
  13. *****************************************************************************/
  14.  
  15. SIGNAL ON ERROR
  16. SIGNAL ON SYNTAX
  17.  
  18. PARSE ARG In,Out,Data,Path,Prefs /* Eingabedatei,Ausgabedatei,ModulPfad,Ursprungspfad,Voreinstellungen */
  19.  
  20. /* !! Es werden noch keine Voreinstellungen übergeben !! */
  21.  
  22. IF In = "INFO" THEN
  23. DO
  24.     RETURN 100","0","0","1 /* Typ,Art,PRE,65k
  25.  
  26.                               Typ:
  27.                               0 = HTML
  28.                               1 = ARexx
  29.                               2 = AmigaGuide
  30.                             100 = ASCII ;-)
  31.  
  32.                               Art:
  33.                               0 = Compressor
  34.                               1 = Decompressor
  35.                               5 = Preprozessor
  36.  
  37.                               PRE:
  38.                               0 = HTML-Dateien mit PRE-formatiertem Text werden nicht
  39.                                   unterstützt.
  40.                               1 = HTML-Dateien mit PRE-formatiertem Text werden
  41.                                   unterstützt.
  42.  
  43.                               65k:
  44.                               0 = Dateien größer 65k werden nicht bearbeitet
  45.                               1 = Dateien größer 65k werden nicht bearbeitet
  46.  
  47.                               !! Diese Informationen braucht CompressHTML um die
  48.                               Dateien VOR der Übergabe an das Modul, richtig
  49.                               behandlen/testen zu können !! */
  50. END
  51. ELSE
  52. DO
  53.  
  54.     CALL OPEN( InDatei,  In ,"R")
  55.     CALL OPEN( OutDatei, Out,"W")
  56.  
  57.         /* Hier steht dann die Bearbeitungsroutine */
  58.  
  59.         /* Beispiel für einen "ASCII-Compressor" ;-))
  60.         (er entfernt alle Leerzeichen am Zeilenende) */
  61.         CALL WRITELN( OutDatei , STRIP( READLN( InDatei ), 'E' )
  62.  
  63.     CALL CLOSE( InDatei)
  64.     CALL CLOSE( OutDatei)
  65.  
  66.     RETURN 1 /* Bearbeitung war erfolgreich, muß zurückgegeben werden! */
  67. END
  68.  
  69. RETURN 0
  70.  
  71. /*****************************************************************************/
  72.  
  73. ERROR:
  74. SYNTAX:
  75.  
  76. RETURN RC","SIGL /* Fehlermeldung wird dann von CompressHTML ausgegeben! */
  77.