source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/fichier_relit_ARCH.c@ 643

Last change on this file since 643 was 637, checked in by ansari, 26 years ago

archediab version 24 initial import
File size: 1.2 KB
Line 
1#include "diabolo.h"
2#include "fichier.h"
3
4#include "tm.h"
5
6
7//*************************************************************************************
8//
9#ifdef _archeops //--------- pour Archeops ------------------------------ ***
10
11
12void exec_lit_fichier_ARCH(int fen,int item,double valeur,...)
13{
14block_type_modele bkt;
15static long pos;
16int fich,type;
17
18fich=(int)infos(fen)->util;
19
20switch(item)
21 {
22 case ouverture : printf("\nlecture du fichier %s \n",titre(fich));
23 pos=0;
24 break;
25
26 case fermeture : printf("fermeture du fichier \n\n");
27 ferme(fich);
28 break;
29
30 case tache_de_fond :
31
32 if ( (pos+12) > longueur(fich) )
33 {
34 printf("fin du fichier \n");
35 ferme(fen);
36 }
37
38 else
39 {
40 int u;
41 def_nom_block
42
43 position(fich,pos);
44 litF(fich,sizeof(block_type_modele),&bkt);
45 type=type_block(&bkt);
46 pos+=longueur_block(&bkt);
47 printf("block %d : %s \n",numero_block(&bkt),nom_block[type]);
48
49 u=tt->tm.pos_ecrit;
50 tt->tm.btm[u].tmtrx=bkt;
51 u++; if(u>=longueur_table_tm) u=0;
52 tt->tm.pos_ecrit=u;
53 }
54
55 break;
56 default : break;
57 }
58}
59
60
61
62#endif
63//
64//*****************************************************************************************
65
Note: See TracBrowser for help on using the repository browser.