Petite erreur dans le nom des variables du define de GENLIB_SET_LO(CAP,RES,SELF)

This commit is contained in:
Pierre Nguyen Tuong 2002-08-16 20:16:46 +00:00
parent 29f162db02
commit a3ff537c57
2 changed files with 38 additions and 4 deletions

View File

@ -71,7 +71,7 @@
#include "mbkgen.h"
#define __GENLIB__
#include "mgn.h"
static char rcsid[] = "$Id: genlib.c,v 1.8 2002/08/14 19:18:24 pnt Exp $";
static char rcsid[] = "$Id: genlib.c,v 1.9 2002/08/16 20:16:45 pnt Exp $";
/*******************************************************************************
* global variables used in genlib *
@ -4391,6 +4391,14 @@ void genLOCAP(char type,double capa,char *tcon,char *bcon,char *name)
(void)addlocap(WORK_LOFIG,type,capa,s_tcon,s_bcon,name) ;
}
/*******************************************************************************
* function genSET_LOCAP *
*******************************************************************************/
void genSET_LOCAP(char *figname,char *capname,double newcap)
{
setlocap(getlofig(figname,'A'),capname,newcap) ;
}
/*******************************************************************************
* function LORES *
@ -4451,6 +4459,15 @@ void genLORES(char type,double resi,char *rcon1,char *rcon2,char *name)
(void)addlores(WORK_LOFIG,type,resi,s_rcon1,s_rcon2,name) ;
}
/*******************************************************************************
* function genSET_LORES *
*******************************************************************************/
void genSET_LORES(char *figname,char *resname,double newres)
{
setlores(getlofig(figname,'A'),resname,newres) ;
}
/*******************************************************************************
* function LOSELF *
*******************************************************************************/
@ -4509,3 +4526,12 @@ void genLOSELF(char type,double self,char *scon1,char *scon2,char *name)
(void)addloself(WORK_LOFIG,type,self,s_scon1,s_scon2,name) ;
}
/*******************************************************************************
* function genSET_LOSELF *
*******************************************************************************/
void genSET_LOSELF(char *figname,char *selfname,double newself)
{
setloself(getlofig(figname,'A'),selfname,newself) ;
}

View File

@ -117,6 +117,10 @@ extern void genLOCAP(char type,double capa,char *tcon,char *bcon,char *name)
extern void genLORES(char type,double resi,char *rcon1,char *rcon2,char *name) ;
extern void genLOSELF(char type,double self,char *scon1,char *scon2,char *name) ;
extern void genSET_LOCAP(char *figname,char *capname,double newcap) ;
extern void genSET_LORES(char *figname,char *resname,double newres) ;
extern void genSET_LOSELF(char *figname,char *selfname,double newself) ;
/***************************************************************************************/
@ -274,9 +278,13 @@ extern char *genNAME(char *, ...);
/********************************* Analogical world ************************************/
#define GENLIB_LOCAP(type,capa,tcon,bcon,name) genLOCAP(type,capa,tcon,bcon,name)
#define GENLIB_LORES(type,resi,rcon1,rcon2,name) genLORES(type,resi,rcon1,rcon2,name)
#define GENLIB_LOSELF(type,self,scon1,scon2,name) genLOSELF(type,self,scon1,scon2,name)
#define GENLIB_LOCAP(type,capa,tcon,bcon,name) genLOCAP(type,capa,tcon,bcon,name)
#define GENLIB_LORES(type,resi,rcon1,rcon2,name) genLORES(type,resi,rcon1,rcon2,name)
#define GENLIB_LOSELF(type,self,scon1,scon2,name) genLOSELF(type,self,scon1,scon2,name)
#define GENLIB_SET_LOCAP(figname,capname,newcap) genSET_LOCAP(figname,capname,newcap)
#define GENLIB_SET_LORES(figname,resname,newres) genSET_LORES(figname,resname,newres)
#define GENLIB_SET_LOSELF(figname,selfname,newself) genSET_LOSELF(figname,selfname,newself)
/***************************************************************************************/