Petite erreur dans le nom des variables du define de GENLIB_SET_LO(CAP,RES,SELF)
This commit is contained in:
parent
29f162db02
commit
a3ff537c57
|
@ -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) ;
|
||||
}
|
||||
|
|
|
@ -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)
|
||||
|
||||
/***************************************************************************************/
|
||||
|
||||
|
|
Loading…
Reference in New Issue