riscv
/
alliance
mirror of https://gitlab.lip6.fr/vlsi-eda/alliance.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Modification appels de fonctions yymachin en elpyymachin ;-)

This commit is contained in:
Dominique Ledu 2002-06-12 12:54:39 +00:00
parent a82f70899e
commit 97698a15cd
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
alliance/src/elp/src/elp.c
View File

@ -18,7 +18,7 @@
#include <stdlib.h>
#include "elp.h"
extern FILE *yyin ;
extern FILE *elpyyin ;
char elpTechnoName[elpSTRINGSIZE] ;
char elpTechnoFile[elpSTRINGSIZE] ;
double elpTechnoVersion ;
@ -32,7 +32,7 @@ double elpVoltage[elpVOLTNUM] ;
double elpCapa[elpTRANSNUM][elpCAPANUM] ;
double elpGeneral[elpGENERALNUM] = {0.0,0.0,1000.0} ;
char elpLang = elpDEFLANG ;
int yylineno ;
int elpyylineno ;
/*****************************************************************************/
/* function elpenv() */
@ -83,23 +83,23 @@ elpFCT short elpLoadElp()
{
/* ouverture du fichier techno */
if((yyin = fopen(elpTechnoFile,"r")) == NULL)
if((elpyyin = fopen(elpTechnoFile,"r")) == NULL)
{
elpError(1000,elpTechnoFile) ; /* si fichier pas ouvert => erreur 1000 */
return 1000 ; /* arret de la procedure elp */
}
yylineno = 1 ;
elpyylineno = 1 ;
/* appel au parser pour chargement */
if(yyparse() != 0)
if(elpyyparse() != 0)
{
elpError(1002,elpTechnoFile) ; /* si erreur chergement => erreur 1002 */
return 1002 ; /* arret de la procedure elp */
}
/* fermeture du fichier techno */
if(fclose(yyin) != 0)
if(fclose(elpyyin) != 0)
elpError(1003,elpTechnoFile) ; /* si fermeture ko => erreur 1003 */
/* type de model du fichier elp */