Derniers sujets
» Photocopies
Ven 24 Mar 2017 - 9:44 par Symoon

» microdisc maison...
Mer 22 Mar 2017 - 17:38 par ]0[v]

» F83-Standard par Thierry Bestel
Mer 22 Mar 2017 - 14:11 par ]0[v]

» Revues
Ven 17 Mar 2017 - 11:40 par Oric1-Atmos

» connecteur 12 broches sur atmos
Jeu 9 Mar 2017 - 8:57 par Oric1-Atmos

» Toujours plus vite...
Mer 8 Mar 2017 - 19:32 par Symoon

» CEO-MAG 323
Mer 8 Mar 2017 - 6:54 par Symoon

» Jeu: Saga du Dr Genius
Mar 7 Mar 2017 - 22:41 par maximus

» 1984 - Il était une fois l'Aigle d'OR
Sam 4 Mar 2017 - 20:25 par maximus

» CEO-Mag 322
Dim 26 Fév 2017 - 19:32 par didierv

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 25 Fév 2015 - 14:01
Connexion

Récupérer mon mot de passe

Statistiques
Nous avons 115 membres enregistrés
L'utilisateur enregistré le plus récent est Oric1-Atmos

Nos membres ont posté un total de 5186 messages dans 365 sujets
Portail ORIC




Oricutron: Pb gestion des fichiers .tap

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

Oricutron: Pb gestion des fichiers .tap

Message  assinie le Mar 14 Juil 2015 - 16:06

Bonjour,

En testant Tyrann3 avec oricutron, j'ai trouvé 2 bugs dans la gestion des fichiers .tap.
Les problèmes sont situés dans le fichier tape.c:

Premier big::
Dans la fonction tape_load_tap
Code:

  // TAP
  else if (memcmp(oric->tapebuf, "\x16\x16\x16", 3) == 0)
  {
    oric->rawtape = SDL_FALSE;

    // I give up trying to do anything clever.
    // Just allow an extra byte for broken tape images.
    oric->tapelen++;
  }
Ce code a probablement été ajouté pour prendre en compte les fichiers incorrects (ceux à qui il manque le dernier octet), mais dans la fonction tape_patches
Code:

        if( ( oric->cpu.read( &oric->cpu, oric->pch_fd_getname_addr ) != 0 ) &&
            ( oric->autoinsert ) )
        {
          // Only do this if there is no tape inserted, or we're at the
          // end of the current tape, or the filename ends in .TAP, .ORT or .WAV
          if( ( !oric->tapebuf ) ||
              ( oric->tapeoffs >= oric->tapelen ) ||
              ( ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".tap" ) == 0 ) ) ||
              ( ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".ort" ) == 0 ) ) ||
              ( ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".wav" ) == 0 ) ) )
          {
            tape_autoinsert( oric );
            oric->cpu.write( &oric->cpu, oric->pch_fd_getname_addr, 0 );
          }
        }
      }
le test oric->tapeoffs >= oric->tapelen n'est jamais vrai et le  BASIC attend en vain le dernier octet dans le cas d'un fichier incorrect.
Un contournement possible est de remplacer le test par oric->tapeoffs >= oric-tapelen-1
Je n'e pense pas que cette modification entraine d'autres bugs (mais on ne sait jamais)

L'autre solution consiste à ajouter systématiquement l'extension .TAP dans toutes les instructions BASIC, ce qui déclenchera le test   ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".tap" ) == 0 ) ) et force le chargement du fichier. C'est ce que j'avais indiqué pour Tyrann3.

Second bug:
Pour le reproduire:

  1. Mettre deux fichiers dans le répertoire tapes, par exemple PROG1.TAP et PROG2.TAP.
  2. Lancer oricutron
  3. CLOAD "PROG1"
  4. CLOAD "PROG2"

-> Le second fichier n'est jamais chargé.

Le bug est dans la fonction  tape_autoinsert():
Code:

void tape_autoinsert( struct machine *oric )
{
  char *odir;
  int i;

  if( strncmp( (char *)&oric->mem[oric->pch_fd_getname_addr], oric->lasttapefile, 16 ) == 0 )
    oric->mem[oric->pch_fd_getname_addr] = 0;

  // Try and load the tape image
  strcpy( tapefile, oric->lasttapefile );
  i = (int)strlen(tapefile);

  odir = getcwd( NULL, 0 );
  chdir( tapepath );
  tape_load_tap( oric, tapefile );    // <--- Ligne 1088
  if( !oric->tapebuf )
  {
    // Try appending .tap
    strcpy( &tapefile[i], ".tap" );
    tape_load_tap( oric, tapefile );
  }
  if( !oric->tapebuf )
  {
    // Try appending .ort
    strcpy( &tapefile[i], ".ort" );
    tape_load_tap( oric, tapefile );
  }
  
  if( oric->tapebuf )
  {
    // We already inserted this one. Don't re-insert it when we get to the end. */
    oric->lasttapefile[0] = 0;
  }
    
  chdir( odir );
  free( odir );
}

Je pense que c'est parce que tape_autoinsert, en ligne 1088, essaye d'abord de charger un fichier "PROG2" , via la fonction tape_load_tap(), fichier qui n'existe pas.
Le problème est que  oric->tapebuf n'est pas vide (il contient PROG1.TAP) de ce fait les tests suivants ne sont pas satisfaits et on n'essaye pas de charger un fichier avec les extensions .tap ou .ort.

On peut corriger ça en modifiant la fonction tape_patches au mêm niveau que pour le bug précédent, en ajoutant
Code:
if ( oric->tapeoffs >= oric->tapelen -1) tape_eject( oric );
juste avant
Code:
tape_autoinsert( oric );
ou alors, on peut modifier la fonction tape_autoinsert pour qu'elle teste le code de retour de tape_load_tap.
Ce qui donne:
Code:

void tape_autoinsert( struct machine *oric )
{
  char *odir;
  int i;
  SDL_bool tape_found;

  if( strncmp( (char *)&oric->mem[oric->pch_fd_getname_addr], oric->lasttapefile, 16 ) == 0 )
    oric->mem[oric->pch_fd_getname_addr] = 0;

  // Try and load the tape image
  strcpy( tapefile, oric->lasttapefile );
  i = (int)strlen(tapefile);

  odir = getcwd( NULL, 0 );
  chdir( tapepath );
  tape_found = tape_load_tap( oric, tapefile );
  if( !tape_found )
  {
    // Try appending .tap
    strcpy( &tapefile[i], ".tap" );
    tape_found = tape_load_tap( oric, tapefile );
  }
  if( !tape_found )
  {
    // Try appending .ort
    strcpy( &tapefile[i], ".ort" );
    tape_load_tap( oric, tapefile );
  }
  
  if( oric->tapebuf )
  {
    // We already inserted this one. Don't re-insert it when we get to the end. */
    oric->lasttapefile[0] = 0;
  }
    
  chdir( odir );
  free( odir );
}
Je ne sais pas si le dernier test  if( oric->tapebuf ) doit être modifier ou non (ça marche sans le changer).

Le patch complet (pour une révision r644 ou supérieure):
Code:

--- tape.c 2014-11-16 22:53:00.000000000 +0100
+++ tape.c.new 2015-07-14 15:07:14.104774319 +0200
@@ -1075,6 +1075,7 @@
 {
   char *odir;
   int i;
+  SDL_bool tape_found;
 
   if( strncmp( (char *)&oric->mem[oric->pch_fd_getname_addr], oric->lasttapefile, 16 ) == 0 )
     oric->mem[oric->pch_fd_getname_addr] = 0;
@@ -1085,14 +1086,14 @@
 
   odir = getcwd( NULL, 0 );
   chdir( tapepath );
-  tape_load_tap( oric, tapefile );
-  if( !oric->tapebuf )
+  tape_found = tape_load_tap( oric, tapefile );
+  if( !tape_found )
   {
     // Try appending .tap
     strcpy( &tapefile[i], ".tap" );
     tape_load_tap( oric, tapefile );
   }
-  if( !oric->tapebuf )
+  if( !tape_found )
   {
     // Try appending .ort
     strcpy( &tapefile[i], ".ort" );
@@ -1161,7 +1162,7 @@
           // Only do this if there is no tape inserted, or we're at the
           // end of the current tape, or the filename ends in .TAP, .ORT or .WAV
           if( ( !oric->tapebuf ) ||
-              ( oric->tapeoffs >= oric->tapelen ) ||
+              ( oric->tapeoffs >= oric->tapelen -1 ) ||
               ( ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".tap" ) == 0 ) ) ||
               ( ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".ort" ) == 0 ) ) ||
               ( ( i > 3 ) && ( strcasecmp( &oric->lasttapefile[i-4], ".wav" ) == 0 ) ) )

Remarques:

  • J'ai fait ces tests avec la dernière version du SVN (r663).
  • Concernant le permier bug, il semble que la gestion des fichiers incorrects était différente jusqu'à la r638, je n'ai pas vérifier cette révision.
avatar
assinie

Messages : 166
Date d'inscription : 09/02/2014

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  Hialmar le Mar 14 Juil 2015 - 19:04

Merci pour les patchs.

Je vais les appliquer dès que possible.

Edit : Sauf si ISS me bat comme d'habitude Wink


Dernière édition par Hialmar le Mar 14 Juil 2015 - 21:46, édité 1 fois

_________________
Hialmar
Membre du CEO et de Silicium.
avatar
Hialmar
Admin

Messages : 814
Date d'inscription : 03/03/2014
Age : 46
Localisation : Toulouse

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  iss le Mar 14 Juil 2015 - 21:09

Not this time Hialmar Smile. Today is soldering day for me...
avatar
iss

Messages : 33
Date d'inscription : 30/10/2014

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  Hialmar le Mer 22 Juil 2015 - 20:21

J'ai mis les modifs sur le SVN.

Ça marche beaucoup mieux pour Tyrann 3 mais j'ai encore eu un bug tout à l'heure. Il se produit quand on fuit un combat.
Il faut que je cherche d'où ça vient.

Il y a aussi encore des tap qui ne marchent pas avec Oricutron mais qui marchent avec Euphoric comme le Hobbit trouvé sur oric.org.

_________________
Hialmar
Membre du CEO et de Silicium.
avatar
Hialmar
Admin

Messages : 814
Date d'inscription : 03/03/2014
Age : 46
Localisation : Toulouse

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  assinie le Mer 22 Juil 2015 - 21:47

A quel moment tu as un problème de chargement avec le Hobbit?
Je viens de le charger et il démarre correctement.
avatar
assinie

Messages : 166
Date d'inscription : 09/02/2014

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  soft-bug le Mer 22 Juil 2015 - 21:55

Pour faire fonctionner The Hobbit sur Oricutron, sélectionner Oric 1 et non pas Oric Atmos.
avatar
soft-bug
Ministre des Finances

Messages : 3
Date d'inscription : 19/01/2014
Localisation : Colombes (92)

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  Hialmar le Mer 22 Juil 2015 - 22:08

Ah merci je vais essayer.

_________________
Hialmar
Membre du CEO et de Silicium.
avatar
Hialmar
Admin

Messages : 814
Date d'inscription : 03/03/2014
Age : 46
Localisation : Toulouse

Revenir en haut Aller en bas

Re: Oricutron: Pb gestion des fichiers .tap

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

Poster un nouveau sujet   Répondre au sujet
 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum