code:

---

DEFINT a-z
REM $INCLUDE Exec.bh
REM $INCLUDE DOS.bh
REM $INCLUDE Intuition.bh
LIBRARY OPEN "dos.library"
LIBRARY OPEN "intuition.library"
LIBRARY OPEN "exec.library"

CONST MaxSkins=200
CONST MaxEbenen=10:REM maximale Verzeichnisstiefe
CONST MaxDirs=100 :REM maximale Anzahl Verzeichnisse pro Verzeichniss

DIM Skin$(MaxSkins,1)
DIM DIR$(MaxEbenen,MaxDIRs),DIRCount(MaxDIRs),DirNr(MaxDIRs)

SCREEN 1,640,512,1,4
WINDOW 2,,,128,1

 ASkins=0
 FIBlock&=AllocVec&(FileInfoBlock_sizeof%,MEMF_PUBLIC&)
 DIR$(0,0)="Daten"
 DIRCount(0)=0
 DIRNr(0)=0
 Ebene=1
 WHILE Ebene
  v$=""
  FOR x=0 TO Ebene-1
   v$=v$+DIR$(DIRCount(x),x)
   IF x<Ebene-1 THEN v$=v$+"/"
  NEXT
  PRINT v$
  FileLock&=Lock&(SADD(v$+CHR$(0)),ACCESS_READ&)
  IF FileLock&=0 THEN
   Var$=STR$(IOErr$)
   PRINT "Fehler_SkinlisteLaden"
   Ebene=0
  ELSE
   Status=Examine(FileLock&,FIBlock&)
   WHILE Status
    Status=ExNext(FileLock&,FIBlock&)
    IF Status THEN
     FileName$=PEEK$(FIBlock&+fib_FileName%)
     IF PEEKL(FIBlock&+fib_DirEntryType%)>0 THEN
      PRINT "(verzeichniss)"FileName$
      INCR DIRNr(Ebene)
      DIR$(DIRNr(Ebene),Ebene)=FileName$
     ELSE
      PRINT"(file)"FileName$
      IF RIGHT$(FileName$,4)=".dat" THEN
       INCR ASkins
       Skin$(ASkins,0)=MID$(FileName$,1,LEN(FileName$)-4)
       Skin$(ASKins,1)=v$+"/"
      END IF
     END IF
    END IF
   WEND
   UnLock FileLock&
  END IF

WeitereDIRs:
  IF DIRCount(Ebene)<DIRNr(Ebene)THEN
   INCR DIRCount(Ebene)
   INCR Ebene
  ELSE
   WHILE Ebene
    DIRNr(Ebene)=0
    DIRCount(Ebene)=0
    DECR Ebene
    IF Ebene THEN IF DIRCount(Ebene)<DIRNr(Ebene)THEN WeitereDIRs
   WEND
  END IF
 WEND
 IF ASkins=0 THEN PRINT "Fehler_SkinlisteKeine"
 IF ASkins>1 THEN
  REM Sortiere Skinliste
  FOR x=1 TO ASkins-1
   t$=Skin$(x,0):z=x
   FOR y=x+1 TO ASkins
    IF Skin$(y,0)<t$ THEN t$=Skin$(y,0):z=y
   NEXT
   SWAP Skin$(x,0),Skin$(z,0)
   SWAP Skin$(x,1),Skin$(z,1)
  NEXT
 END IF
 
FreeVec FIBlock&

---

[ - Antworten - Zitieren - Direktlink - ]

C code:

---

/* Tags for AllocDosObject(). */

#define ADO_Dummy	(TAG_USER + 2000)

/* Tags for DOS_FILEHANDLE only. */
  /* Sets up the filehandle for the specified mode. Definitions are in
     <dos/dos.h> */
#define ADO_FH_Mode	(ADO_Dummy + 1) /* Sets up FH to the specified mode. */

/* Tags for DOS_CLI. If you do not specify these, dos will use reasonable
   default values. All these tags specify the buffer length for certain
   strings. */
  /* Length of current directory buffer. */
#define ADO_DirLen	(ADO_Dummy + 2)
  /* Length of command name buffer. */
#define ADO_CommNameLen (ADO_Dummy + 3)
  /* Length of command file buffer. */
#define ADO_CommFileLen (ADO_Dummy + 4)
  /* Length of buffer for CLI prompt. */
#define ADO_PromptLen	(ADO_Dummy + 5)

#endif /* DOS_DOSTAGS_H */

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Kaesebroetchen:
P.s. Warum steigst du eigentlich nicht auf C um ? Dann könntest du dein Programm für alle Amiga-artigen System kompilieren.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Wie ich eben gesehn habe, hat sich wohl da seit OS1.2 "etwas" getan.

ExAll ist da wohl besser.
Da muß wohl noch einiges an dem Code poliert werden. Aber erst mal verstehn was da in denn Docs steht, da hab ich leider so meine Probleme.
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

C code:

---

#include <stdio.h>
#include <stdlib.h>

#include <proto/dos.h>

int main(int argc, char *argv[])
{
  BPTR Extras;
  APTR FIB1;

  Extras = Lock("sys:extras",SHARED_LOCK );

  FIB1 = AllocDosObject(DOS_FIB, TAG_DONE );
  Examine(Extras, FIB1 );
  FreeDosObject(DOS_FIB,FIB1);

  system("PAUSE");
  return 0;
}

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
@Kaesebroetchen:

hm, wie extrahiere ich die Daten?
--

---

C code:

---

/* Structure used to describe a directory entry. Note that not all fields
   are supported by all filesystems. This structure should be allocated
   with AllocDosObject(). */
struct FileInfoBlock
{
    LONG	     fib_DiskKey;
      /* See <dos/dosextens.h> for definitions. Generally: if this is >= 0
         the file described is a directory, otherwise it is a plain file. */
    LONG	     fib_DirEntryType;
      /* The filename (null-terminated). */
    UBYTE	     fib_FileName[MAXFILENAMELENGTH];
    LONG	     fib_Protection;   /* The protection bits (see below). */
    LONG	     fib_EntryType;
    LONG	     fib_Size;         /* The size of the file. */
    LONG	     fib_NumBlocks;    /* Number of blocks used for file. */
    struct DateStamp fib_Date;         /* Date of last change to file. */
    UBYTE	     fib_Comment[MAXCOMMENTLENGTH];  /* The filecomment (null-terminated). */
    UWORD	     fib_OwnerUID;     /* UserID of fileowner. */
    UWORD	     fib_OwnerGID;     /* GroupID of fileowner. */
    UBYTE	     fib_Reserved[32]; /* PRIVATE */
};

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

ScanDir(path) {
  While ExNext(path) {
    If IsDir?
      ScanDir(path+dir) <= das ist eine Rekursion
    Else
      File found!
  }
}

ScanDir("Root:") <= starte z.B. bei "Root:"

---

"Rekursion" ist das, wo im Informatik Unterricht in der Schule die Mädchen aussteigen.

Oder da fällt mir der noch ein:
"Um Rekursion zu verstehen, muss man zunächst einmal die Rekursion verstehen."
--
Thilo Köhler, Author von:
HD-Rec, Sweeper, Samplemanager, ArTKanoid, Monkeyscript, Toadies, AsteroidsTR, TuiTED, PosTED, TKPlayer, AudioConverter, ScreenCam, PerlinFX, MapEdit, TK AB3 Includes und viele mehr...
Homepage: http://www.hd-rec.de



[ Dieser Beitrag wurde von Der_Wanderer am 28.01.2008 um 22:05 Uhr geändert. ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Andreas_Wolf:
> imperativ

Ich glaube, du meinst "iterativ" :-)

---

Nein, er meint "prozedurale Iteration" Iterieren kann man sowohl rekursiv als auch nicht-rekursiv (imperativ ist da wohl nicht ganz der richtige Begriff), wobei letzteres Stack- und Debugging-freundlicher ist, Rekursion hingegen vor allem "eleganteren" Sourcecode ergibt (weil kürzer und, sofern man verstanden hat, daß man, um Rekursion zu verstehen, Rekursion verstehen muß, auch leichter lesbar )

Ich denke aber, daß es einstweilen sinnvoller ist, erst einmal den eigentlichen Fehler in Ralfs Vorgehensweise zu finden und zu beheben, bevor er den Code komplett umstrickt und mit Rekursion evtl. noch mehr Fehler einbaut.

Grüße

--
---

µA1 PPC 750GX-800
A4000 PPC 604e-233

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zja, die Verzeichnissdurchsuchung bekomme ich wohl ohne Bugs nicht hin... hm. Jedenfalls produziert wohl als noch ein instabiles System. MuForce zeigt nichts an, aber ich sehs am Menu(!) an, das es einiges im System verhaut...
--
http://www.alternativercomputerclub.de.vu

[ - Antworten - Zitieren - Direktlink - ]

code:

---

ListeSkins:
 ASkins=0
 FIBlock&=AllocDosObject&(DOS_FIB&,TAG_DONE&)
 IF FIBlock&=0 THEN
  Var$=STR$(FileInfoBlock_sizeof%)
  LocMeldung Fehler_SkinlistSpeicher
  RETURN
 END IF
 DIR$(0,0)="Daten"
 DIRCount(0)=0
 DIRNr(0)=0
 Ebene=1
 WHILE Ebene
  v$=""
  FOR x=0 TO Ebene-1
   v$=v$+DIR$(DIRCount(x),x)
   IF x<Ebene-1 THEN v$=v$+"/"
  NEXT
  FileLock&=Lock&(SADD(v$+CHR$(0)),SHARED_LOCK&)
  IF FileLock&=0 THEN
   Var$=STR$(IOErr$)
   LocMeldung Fehler_SkinlisteLaden
   Ebene=0
  ELSE
   Status=Examine(FileLock&,FIBlock&)
   WHILE Status
    Status=ExNext(FileLock&,FIBlock&)
    IF Status THEN
     FileName$=PEEK$(FIBlock&+fib_FileName%)
     IF PEEKL(FIBlock&+fib_DirEntryType%)>0 THEN
      INCR DIRNr(Ebene)
      DIR$(DIRNr(Ebene),Ebene)=FileName$
     ELSE
      IF RIGHT$(FileName$,4)=".dat" THEN
       OeffneDat v$+"/"+FileName$
       Dat a
       IF a$=="SUDOKU_V1.4"THEN
        Dat a
       ELSE
        IF InstrDat("Spielart")THEN Dat a
       END IF
       IF a=Opt(34) AND ASkins<MaxSkins THEN
        INCR ASkins
        Skin$(ASkins,0)=MID$(FileName$,1,LEN(FileName$)-4)
        Skin$(ASKins,1)=v$+"/"
       END IF
      END IF
     END IF
    END IF
   WEND
   UnLock FileLock&
  END IF

WeitereDIRs:
  IF DIRCount(Ebene)<DIRNr(Ebene)THEN
   INCR DIRCount(Ebene)
   INCR Ebene
  ELSE
   WHILE Ebene
    DIRNr(Ebene)=0
    DIRCount(Ebene)=0
    DECR Ebene
    IF Ebene THEN IF DIRCount(Ebene)<DIRNr(Ebene)THEN WeitereDIRs
   WEND
  END IF
 WEND
 FreeDosObject DOS_FIB&,FIBlock&
 ...

---

[ - Antworten - Zitieren - Direktlink - ]

@Ralf27:

Bist Du Dir sicher, daß der Fehler nur aus dem Abschnitt kommt? Soweit ich das überblicken kann, sieht das Ganze soweit ok aus und dürfte auch nicht im Speicher "rumsauen" (Du schriebst ja, daß damit wohl Menüpunkte durcheinandergewürfelt werden, was eigentlich nur bei einem Speicherleck passieren kann).

OeffneDat() und InstrDat() sind sauber? Hast Du die beiden mal näher untersucht? Gerade bei Laderoutinen lauert gern mal der "Kollege Null-Zeiger", das solltest Du also ausschließen können, bevor wir in dem obigen Teil weiterschauen. Ich kann da nämlich so ohne weiteres nichts dramatisches entdecken...

Grüße

--
---

µA1 PPC 750GX-800
A4000 PPC 604e-233

[ - Antworten - Zitieren - Direktlink - ]

code:

---

FUNCTION InstrDat(a$)
 SHARED Dat$,DatP
 STATIC a
 a=INSTR(UCASE$(Dat$),UCASE$(a$)+"=")
 IF a THEN DatP=a+LEN(a$)
 InstrDat=a
END FUNCTION

SUB OeffneDat(FileName$)
 SHARED Dat$,DatP
 STATIC a$,t$,l,x
 LeseDateiAlsString FileName$,a$
 a$=a$+","+CHR$(10):DatP=0
 Dat$="":l=LEN(a$)
 REM Kommentar loeschen
 FOR x=1 TO l
  t$=MID$(a$,x,1)
  IF t$<>";"THEN
   Dat$=Dat$+t$
  ELSE
   x=INSTR(x,a$,CHR$(10))-1
  END IF
 NEXT
END SUB

SUB LeseDateiAlsString(FileName$,a$)
 SHARED Fehler,Var$
 STATIC FIBlock&,h&,l&,junk&
 a$=""
 FIBlock&=AllocDosObject&(DOS_FIB&,TAG_END&)
 IF FIBlock& THEN
  h&=xOpen&(SADD(FileName$+CHR$(0)),MODE_OLDFILE&)
  IF h& THEN
   IF ExamineFH&(h&,FIBlock&)THEN
    l&=PEEKL(FIBlock&+fib_Size%)
    a$=SPACE$(l&)
    IF l&<>xRead&(h&,SADD(a$),l&)THEN Fehler=Fehler_DateiFertiglesen
   ELSE
    Fehler=Fehler_DateiVerarbeiten
   END IF
   junk&=xClose&(h&)
  ELSE
   Fehler=Fehler_DateiOeffnen
  END IF
  FreeDosObject DOS_FIB&,FIBlock&
 ELSE
  Var$=STR$(FileInfoBlock_sizeof%)
  LocMeldung Fehler_SkinlistSpeicher
 END IF
END SUB

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Ralf27:
Im folgenden sind die Routinen. Ich kann da keinen Fehler finden.
Bei LeseDateiAlsString benutze ich einen eigenen FIBlock.

---

BASIC code:

---

REM $INCLUDE DOS.bh
LIBRARY OPEN "dos.library"

Action$="Scanning Skins"+CHR$(0)

numFoundFiles&=0
DIM foundFiles$(numFoundFiles&+10)

SUB Push(file$)
SHARED foundFiles$(),numFoundFiles&
LOCAL copy$, newCapacity&
  IF numFoundFiles&>=UBOUND(foundFiles$) THEN
    DIM copy$(numFoundFiles&)
    FOR i&=0 TO numFoundFiles&:copy$(i&)=foundFiles$(i&):NEXT
    newCapacity&=UBOUND(foundFiles$)*2
    REDIM foundFiles$(newCapacity&)
    FOR i&=0 TO numFoundFiles&:foundFiles$(i&)=copy$(i&):NEXT
    ERASE copy$
  END IF
  foundFiles$(numFoundFiles&)=file$
  INCR numFoundFiles&
END SUB

FUNCTION SubLock&(ParentLock&, fileName&)
LOCAL old&
  old&=CurrentDir&(ParentLock&)
  SubLock&=Lock&(fileName&, SHARED_LOCK&)
  dummy&=CurrentDir&(old&)
END FUNCTION

FUNCTION scan&(DirLock&,dirName$)
LOCAL fib&,status&,subDir&,code&,fileName$
  fib&=AllocDosObject&(DOS_FIB&,TAG_DONE&)
  IF fib&=0 THEN scan&=ERROR_NO_FREE_STORE&:EXIT FUNCTION
  status&=Examine(DirLock&,fib&)
  IF status& = 0 THEN HandleError
  status&=ExNext(DirLock&,fib&)
  WHILE status&
    fileName$=PEEK$(fib&+fib_FileName%)
    type&=PEEKL(fib&+fib_DirEntryType%)
    IF type&>=0 AND type&<>ST_SOFTLINK& THEN
      subDir&=SubLock&(DirLock&, fib&+fib_FileName%)
      IF subDir&=0 THEN HandleError
      subStatus&=scan&(subDir&, dirName$+fileName$+"/")
      UnLock subDir&
      IF subStatus& THEN scan&=subStatus&: GOTO ResultSet
    ELSE
      IF UCASE$(RIGHT$(fileName$,4))=".DAT" THEN Push(dirName$+fileName$)
    END IF
    status&=ExNext(DirLock&,fib&)
  WEND
  code&=IoErr&()
  IF code&=ERROR_NO_MORE_ENTRIES& THEN scan&=0 ELSE scan&=code&
  FreeDosObject DOS_FIB&,fib&
  EXIT FUNCTION
HandleError:
  scan&=IoErr&()
ResultSet:
  FreeDosObject DOS_FIB&,fib&
END FUNCTION

dir&=CurrentDir&(0&)
Code&=Scan&(dir&, "")
x&=CurrentDir&(dir&)

IF Code& THEN
  Reason$=SPACE$(LEN(Action$)+81)
  msgLen&=Fault&(Code&, SADD(Action$), SADD(Reason$), LEN(Reason$))
  Reason$=LEFT$(Reason$, msgLen&)
  PRINT Reason$
ELSE
  ? numFoundFiles&;" files"
  FOR f&=0 TO numFoundFiles&-1
    PRINT f&;foundFiles$(f&)
  NEXT f&
END IF

END

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Holger:

Zitat:

---

Original von Ralf27:
Im folgenden sind die Routinen. Ich kann da keinen Fehler finden.
Bei LeseDateiAlsString benutze ich einen eigenen FIBlock.

---

Warum eigentlich? Nach Examine/ExNext hast Du doch schon einen FileInfoBlock, aus dem Du die Dateilänge auslesen kannst. Warum übergibst Du sie nicht einfach der Leseroutine und sparst Dir ein weiteres Examine?

---

Zitat:

---

Wie auch immer, hier mal ein Stück Code als Gedankenanregung:

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von inq:
@Ralf27:
hoi.
das wird der fehler sein. examine_ schiebt die FIB daten immer in den selben vorher allozierten memblock; nach exnext_ sind die daten anders. wenn du den FIB behalten willst, musst du die entspr. daten zwischenspeichern. übrigens sollte man speicher für dos-anw prinzipiell mit MEMF_CLEAR allozieren-kann einigen ärger sparen :-)

---

code:

---

So, follow these steps to examine a directory:
 1) Pass a Lock and a FileInfoBlock to Examine().  The lock must
    be on the directory you wish to examine.
 2) Pass ExNext() the same lock and FileInfoBlock.
 3) Do something with the information returned in the FileInfoBlock.
    Note that the fib_DirEntryType field is positive for directories,
    negative for files.
 4) Keep calling ExNext() until it returns FALSE.  Check IoErr()
    to ensure that the reason for failure was ERROR_NO_MORE_ENTRIES.

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

Function.l scan {path.s}
DEFTYPE.FileInfoBlock fib
lock.l = Lock_(&path.s,#ACCESS_READ)
If lock
  If Examine_ (lock,&fib)
    While ExNext_(lock,&fib)
      filename.s = path.s+"/"+Peek.s(&fibfib_FileName)
      If fibfib_DirEntryType<0
        ; Datei!
      Else
        ; Verzeichnis!
        scan{filename.s}
      End If
    Wend
  End If
  UnLock_ lock
End If
End Function

scan{"DH0:ScanFromHere"}

---

code:

---

*fib.FileInfoBlock = AllocDosObject_ (#DOS_FIB,#TAG_DONE)
...
FreeDosObject_ #DOS_FIB,*fib

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Der_Wanderer:
So mache ich das in Amiblitz3, und das funktioniert:

code:

---

Function.l scan {path.s}
DEFTYPE.FileInfoBlock fib
lock.l = Lock_(&path.s,#ACCESS_READ)
If lock
  If Examine_ (lock,&fib)
    While ExNext_(lock,&fib)
      filename.s = path.s+"/"+Peek.s(&fibfib_FileName)
...
End Function

scan{"DH0:ScanFromHere"}

---

---

hoi.
(besserwissermodus)
entschuldige bitte, dass ich das o.g. gerade erst bemerke, aber hast du für den fall <path.s="DH0:"> auch noch das gefühl, es würde funktionieren?
(/besserwissermodus)
gruss
inq

[ - Antworten - Zitieren - Direktlink - ]