PureBoard

Code: Alles auswählen

  listchecker:
; abchecken, ob wirklich Daten, JUNK oder was auch immer kommt...
; JUNK und anderes Unerwartetes darf uns nicht aus dem Tackt werfen

;{
  Debug "listchecker start"
  weitersuchen = #True ; ob wir das file weiter untersuchen
  ;wir suchen solange, bis "weitersuchen" falsch ist
  While weitersuchen
  fourCC = ReadLong()
  
    Select fourCC
    ;laut RIFF-Doku kann auf dieser Ebene folgen:
    ; LIST ->bearbeiten
    ; JUNK ->überlesen
    ; Unregistriert gibts anscheinend noch "IDVX"
    ; als Default sollten wir also alles außer "LIST" einfach überlesen 
    ; und hoffen, daß die Längenangaben stimmen

      Case 'TSIL'
        Debug "FourCC ist LIST"
        ;laut RIFF-Doku können jetzt folgen:
        ;als 1, 'hdrl'
        ;als 2. 'strl' für video
        ;als 3. 'strl' für audio
        ;als 4. 'odml' für einen OpenDML-Chunk -->überspringen
        ;als 5, 'INFO' für einen oder mehrere Text-Informationen
        ;als 6. 'movi' Beginn der Nutzdaten und Ende für uns !
        ;als 7. 'MID ' für Movie Identifier Tags -->überspringen
      Default
        Debug "FourCC ist etwas anderes als LIST -> überlesen"
        If fourCC = 'KNUJ'
          Debug "FourCC ist 'JUNK' --> überlesen"
        ElseIf fourCC = 'XVDI'
          Debug "FourCC ist 'IDVX' --> überlesen"
        Else
          Debug "FourCC unbekannt ---> überlesen"
        EndIf
        sprungweite = ReadLong()
        FileSeek(Loc() + sprungweite)
                
    ; nur zum Test auf FALSCH setzen
    weitersuchen = #False
    EndSelect

  
  Wend

;}
  Return; listchecker

Code: Alles auswählen

listchecker start
FourCC ist LIST
FourCC ist etwas anderes als LIST -> überlesen
FourCC unbekannt ---> überlesen

Code: Alles auswählen

weitersuchen = #False