home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / HF-ABS22.LHA / AmigaBase / ARexx / rxｷEnd < prev    next >
Encoding:
Text File  |  1995-02-03  |  1.7 KB  |  46 lines
  1. /*==============================================================*/
  2. /*  rx·End                                                      */
  3. /*  $VER: V 01.00 (13.11.94)              AUTHOR: Falk Hildner  */
  4. /*==============================================================*/
  5. /*  Beendet AmigaBase-Projekt                                   */
  6. /*--------------------------------------------------------------*/
  7. /*  Aufruf:                                                     */
  8. /*  -------                                                     */
  9. /*  RX [Pfad/]rx·End projektname [aenderung [loeschdatei]]      */
  10. /*                                                              */
  11. /*  projektname  - ausführlicher Pfad des Projektes             */
  12. /*  aenderung    - Schwellwert für Anzahl der Änderungen im     */
  13. /*                 Projekt, ab denen das Projekt neu gespei-    */
  14. /*                 chert wird                                   */
  15. /*  loeschdatei  - zu löschendes Verzeichnis oder Datei         */
  16. /*                 (z.B. zum Löschen einer Hilfsdatei)          */
  17. /*==============================================================*/
  18.  
  19. OPTIONS RESULTS
  20. PARSE ARG projektname aenderung loeschdatei
  21. IF aenderung == "" THEN aenderung = 0
  22. I = 0
  23. NUMERIC DIGITS 1
  24. DO I = 1 TO 9
  25.  portname = COMPRESS("REXX_AB" || I)
  26.  IF INDEX(SHOW("PORTS"),portname) > 0 THEN
  27.   DO
  28.   ADDRESS (portname)
  29.   projektname1 = projektname
  30.   PROJECT (projektname1)
  31.   init = RESULT
  32.   DO WHILE (init == 0) & (LENGTH(projektname1) > 0)
  33.    projektname1 = SUBSTR(projektname1,2)
  34.    PROJECT (projektname1)
  35.    init = RESULT
  36.   END
  37.   IF init == 1 THEN
  38.    DO
  39.    STATUS CHANGES
  40.    IF RESULT > aenderung THEN SAVE
  41.    QUIT FORCE
  42.   END
  43.  END
  44. END
  45. IF loeschdatei > "" THEN ADDRESS COMMAND "DELETE " || loeschdatei || " ALL FORCE"
  46.