moduletool.rexx

/* $VER: ModuleTool.rexx 1.0 (11.05.2018) by gh0stless */
/* Zum Erstellen von Modullisten für Delitracker      */

options results

SIGNAL ON break_c
SIGNAL ON failure
SIGNAL ON halt
SIGNAL ON ioerr
SIGNAL ON syntax

IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN DO
   IF ~ADDLIB('rexxreqtools.library',0,-30) THEN DO
      SAY 'need the <rexxreqtools.library> !!!'
      EXIT(10)
   END
END

IF ~SHOW('LIBRARIES','rexxarplib.library') THEN DO
   IF ~ADDLIB('rexxarplib.library',0,-30,0) THEN DO
      SAY 'need the <rexxarplib.library> !!!'
      EXIT(10)
   END
END

datei = rtfilerequest('ram:','My Playlist','create a new list:',,,)
IF ~rtresult THEN EXIT(10)
platte = rtfilerequest('DH0:',,'Where are the songs ?','create','rtfi_flags = freqf_nofiles',)
IF ~rtresult THEN EXIT(10)

a = open('ausgabe',datei,'W')

Summe = 0
Andir = 0
PostMsg(270,60,'ModuleTool 0.1 by gh0stless\'Summe' Module')
b = writeln('ausgabe','MODLIST')
Summe = KATALOG(platte)
a = rtezrequest('In all: 'Summe' Modules','Super!',,,)
a = close ("ausgabe")
TheEnd(0)


KATALOG:procedure expose Summe Andir
arg path
   Anz_Dirs = filelist(path'#?',DirListe,D,E)
   IF Anz_Dirs >0 THEN DO
    Andir = Andir + Anz_Dirs
    do j = 1 to Anz_Dirs
     Summe=KATALOG(Dirliste.j'/',1)
    end
   END
   Anz_Modu = filelist(path'(#?.mod)',FileListe,F,E)
   IF Anz_Modu = 0 THEN Return Summe
   do a = 1 to Anz_Modu
      b = writeln('ausgabe',FileListe.a)
   end
   Summe = Summe+Anz_Modu
   PostMsg(270,60,'ModuleTool 1.0 by gh0stless\'Summe' Module\in 'Andir' directory(s)')
return Summe

/* Normales Ende */

TheEnd: procedure
 parse arg ErrCode
 PostMsg()

 CALL REMLIB('rexxarplib.library')
 CALL REMLIB('rexxreqtools.library')
 address COMMAND 'avail >NIL: flush'

 EXIT(ErrCode)
return


/* Fehlerbehandlung */

break_c:
failure:
halt:
ioerr:
syntax:
 say '+++ Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)
 say SOURCELINE(sigl)
 IF app ~= '00000000'x THEN
    CALL TR_DELETEAPP (app)
 EXIT(10)