Skip to content

P
proview
Commit b432bcce authored by claes's avatar claes
Browse files
Options

Obsolete classes removed

parent acf58315
Hide whitespace changes
Inline Side-by-side
Showing with 28 additions and 5707 deletions
src/exe/co_convert/src/cnv_classread_struct.cpp
View file @ b432bcce
......@@ -662,9 +662,6 @@ int ClassRead::struct_cixstr_to_classid( char *cix_str, pwr_tClassId *cid)
{ "pwr_eCix_System", pwr_eCix_System},
{ "pwr_eCix_LibHier", pwr_eCix_LibHier},
{ "pwr_eCix_DocHier", pwr_eCix_DocHier},
{ "pwr_eCix_SystemVersion", pwr_eCix_SystemVersion},
{ "pwr_eCix_NodeVersion", pwr_eCix_NodeVersion},
{ "pwr_eCix_BootVersion", pwr_eCix_BootVersion},
{ "pwr_eCix_AttrXRef", pwr_eCix_AttrXRef},
{ "pwr_eCix_Menu", pwr_eCix_Menu},
{ "pwr_eCix_MenuSeparator", pwr_eCix_MenuSeparator},
......
src/exp/inc/src/pwr_class.h
View file @ b432bcce
......@@ -58,12 +58,9 @@ typedef struct pwr_s_GraphPlcConnection pwr_sGraphPlcConnection;
typedef struct pwr_s_Buffer pwr_sBuffer;
typedef struct pwr_s_Param pwr_sParam;
typedef struct pwr_s_PlantHier pwr_sPlantHier;
typedef struct pwr_s_BootVersion pwr_sBootVersion;
typedef struct pwr_s_Node pwr_sNode;
typedef struct pwr_s_NodeVersion pwr_sNodeVersion;
typedef struct pwr_s_Appl pwr_sAppl;
typedef struct pwr_s_System pwr_sSystem;
typedef struct pwr_s_SystemVersion pwr_sSystemVersion;
typedef struct pwr_s_MenuCascade pwr_sMenuCascade;
typedef struct pwr_s_MenuButton pwr_sMenuButton;
typedef struct pwr_s_Object pwr_sObject;
......@@ -215,9 +212,6 @@ typedef enum {
pwr_eCix_System = 33,
pwr_eCix_LibHier = 34,
pwr_eCix_DocHier = 35,
pwr_eCix_SystemVersion = 36,
pwr_eCix_NodeVersion = 37,
pwr_eCix_BootVersion = 38,
pwr_eCix_AttrXRef = 39,
pwr_eCix_Menu = 40,
pwr_eCix_MenuSeparator = 41,
......@@ -281,9 +275,6 @@ typedef enum {
pwr_eClass_System = pwr_ClassId(pwr_eCix_System),
pwr_eClass_LibHier = pwr_ClassId(pwr_eCix_LibHier),
pwr_eClass_DocHier = pwr_ClassId(pwr_eCix_DocHier),
pwr_eClass_SystemVersion = pwr_ClassId(pwr_eCix_SystemVersion),
pwr_eClass_NodeVersion = pwr_ClassId(pwr_eCix_NodeVersion),
pwr_eClass_BootVersion = pwr_ClassId(pwr_eCix_BootVersion),
pwr_eClass_AttrXRef = pwr_ClassId(pwr_eCix_AttrXRef),
pwr_eClass_Menu = pwr_ClassId(pwr_eCix_Menu),
pwr_eClass_MenuSeparator = pwr_ClassId(pwr_eCix_MenuSeparator),
......@@ -917,53 +908,6 @@ struct pwr_s_System
char SystemGroup[80];
};
struct pwr_s_SystemVersion
{
pwr_tProjVersion RsmoVersion;
pwr_tTime RsmoCreTime;
pwr_tUInt32 RsmoCardinality;
pwr_tUInt32 RsmoBodySize;
pwr_tProjVersion RpmoVersion;
pwr_tTime RpmoCreTime;
pwr_tUInt32 RpmoCardinality;
pwr_tUInt32 RpmoBodySize;
pwr_tProjVersion RcoVersion;
pwr_tTime RcoCreTime;
pwr_tUInt32 RcoCardinality;
pwr_tUInt32 RcoBodySize;
};
struct pwr_s_BootVersion
{
pwr_tProjVersion BootVersion;
pwr_tTime BootCreTime;
pwr_tObjid Node[256];
pwr_tProjVersion DnoVersion[256];
};
struct pwr_s_NodeVersion
{
pwr_tObjid Node;
pwr_tUInt32 Cardinality;
pwr_tUInt32 BodySize;
pwr_tProjVersion DnoVersion;
pwr_tTime DnoCreTime;
pwr_tUInt32 DnoCardinality;
pwr_tUInt32 DnoBodySize;
pwr_tProjVersion RsmoVersion;
pwr_tTime RsmoCreTime;
pwr_tUInt32 RsmoCardinality;
pwr_tUInt32 RsmoBodySize;
pwr_tProjVersion RpmoVersion;
pwr_tTime RpmoCreTime;
pwr_tUInt32 RpmoCardinality;
pwr_tUInt32 RpmoBodySize;
pwr_tProjVersion RcoVersion;
pwr_tTime RcoCreTime;
pwr_tUInt32 RcoCardinality;
pwr_tUInt32 RcoBodySize;
};
struct pwr_s_Node
{
pwr_tString80 Description;
......
src/lib/rt/src/rt_io_base.c
View file @ b432bcce
......@@ -54,18 +54,6 @@ pwr_dImport pwr_BindIoMethods(Ao_HVAO4);
pwr_dImport pwr_BindIoMethods(Ai_HVAI32);
pwr_dImport pwr_BindIoMethods(Ai_AI32uP);
pwr_dImport pwr_BindIoMethods(Co_PI24BO);
#if defined(OS_ELN)
pwr_dImport pwr_BindIoMethods(RTP_DIOC);
pwr_dImport pwr_BindIoMethods(Rack_RTP);
pwr_dImport pwr_BindIoMethods(Ai_7436);
pwr_dImport pwr_BindIoMethods(Ao_7455_20);
pwr_dImport pwr_BindIoMethods(Ao_7455_30);
pwr_dImport pwr_BindIoMethods(Pd_7435_26);
pwr_dImport pwr_BindIoMethods(Di_7437_37);
pwr_dImport pwr_BindIoMethods(Do_7437_83);
pwr_dImport pwr_BindIoMethods(Co_7435_33);
pwr_dImport pwr_BindIoMethods(Co_7437_33);
#endif
#if defined(OS_LYNX)
pwr_dImport pwr_BindIoMethods(Pb_Profiboard);
......@@ -88,18 +76,6 @@ pwr_BindIoClasses(Base) = {
pwr_BindIoClass(Ai_HVAI32),
pwr_BindIoClass(Ai_AI32uP),
pwr_BindIoClass(Co_PI24BO),
#if defined(OS_ELN)
pwr_BindIoClass(RTP_DIOC),
pwr_BindIoClass(Rack_RTP),
pwr_BindIoClass(Ai_7436),
pwr_BindIoClass(Ao_7455_20),
pwr_BindIoClass(Ao_7455_30),
pwr_BindIoClass(Pd_7435_26),
pwr_BindIoClass(Di_7437_37),
pwr_BindIoClass(Do_7437_83),
pwr_BindIoClass(Co_7435_33),
pwr_BindIoClass(Co_7437_33),
#endif
#if defined(OS_LYNX)
pwr_BindIoClass(Pb_Profiboard),
pwr_BindIoClass(Pb_DP_Slave),
......
src/lib/rt/src/rt_io_convert.c deleted 100644 → 0
View file @ acf58315
/* rt_io_convert.c -- <short description>
PROVIEW/R
Copyright (C) 1996, 2000 by Mandator AB.
IO conversion PROVIEW/R. */
#if defined(OS_ELN)
# include string
# include stdlib
# include stdio
#else
# include <string.h>
# include <stdlib.h>
# include <stdio.h>
#endif
#include "pwr.h"
#include "pwr_class.h"
#include "pwr_baseclasses.h"
#include "rt_io_msg.h"
#include "co_cdh.h"
#include "rt_errh.h"
static pwr_tStatus io_ConvertAI (
void *ChanObjP,
pwr_tClassId ChanType,
void *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static pwr_tStatus io_ConvertAO (
void *ChanObjP,
pwr_sClass_Ao_7455_30 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static pwr_tStatus io_ConvSensor (
pwr_sClass_ChanAi *ChanObjP,
pwr_tClassId ChanType,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static pwr_tStatus io_ConvSensorType (
void *ChanObjP,
pwr_tUInt16 SensorTypeCode,
pwr_tFloat32 *SigValueP
);
static void io_ConvSensorPol (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static void io_ConvSensorTab (
pwr_sClass_ChanAit *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static pwr_tStatus io_ConvDevAI (
pwr_sClass_Ai_7436 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP
);
static void io_ConvDevPolAI (
pwr_sClass_Ai_7436 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP
);
static void io_ConvSensorType_0 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
);
static void io_ConvSensorType_1 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
);
static void io_ConvSensorType_2 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
);
static void io_ConvSensorType_3 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
);
static pwr_tStatus io_ConvOutput(
pwr_sClass_ChanAo *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static void io_ConvOutputPol (
pwr_sClass_ChanAo *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
);
static void io_ConvDevPolAO (
pwr_sClass_Ao_7455_30 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP
);
/************************************************************************
*
* Name: io_Convert
*
* Type: pwr_tInt32 return ParamStatus
*
* TYPE PARAMETER IOGF DESCRIPTION
* void *ChanObjP I Pointer to channel object
* void *ConfigObjP I Pointer to card object
* pwr_tUInt16 *RawValueP I Pointer to raw value
* pwr_tFloat32 *SigValueP I Pointer to signal value
* pwr_tFloat32 *ActValueP I Pointer to actual value
* pwr_tUInt16 ChanTypeCode I Channel object type.
* pwr_cClass_ChanAi, pwr_cClass_ChanAit
* or pwr_cClass_ChanAo
* (see pinc$:ot_def.h.)
*
*
* Description: Convert AI-signals from raw value to actual value
* and AO-signals from actual value to raw value.
*
* Object AI:
* - Convert raw value to signal value and store it in RTDB.
* - Convert signal value to actual value and store it in RTDB.
*
* Object AO:
* - Convert actual value to signal value and store it in RTDB.
* - Convert signal value to raw value and store it in RTDB.
*************************************************************************/
pwr_tStatus io_Convert (
void *ChanObjP,
void *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP,
pwr_tClassId ChanTypeCode
)
{
pwr_tStatus sts = IO__SUCCCONV;
switch (ChanTypeCode) {
case pwr_cClass_ChanAi:
sts = io_ConvertAI (ChanObjP, ChanTypeCode, ConfigObjP,
RawValueP, SigValueP, ActValueP);
break;
case pwr_cClass_ChanAit:
sts = io_ConvertAI (ChanObjP, ChanTypeCode, ConfigObjP,
RawValueP, SigValueP, ActValueP);
break;
case pwr_cClass_ChanAo:
sts = io_ConvertAO (ChanObjP, ConfigObjP, RawValueP,
SigValueP, ActValueP);
break;
default:
return (IO__WROOBJTYPE);
break;
}
return (sts);
}
/************************************************************************
*
* Namn : io_ConvertAI
*
* Typ : pwr_tInt32 returnerar ParamStatus
*
* TYP PARAMETER IUGF BESKRIVNING
* void *ChanObjP I Pointer to channel object
* pwr_tUInt16 ChanType I Channel object type.
* pwr_cClass_ChanAi,
* pwr_cClass_ChanAit or
* pwr_cClass_ChanAo
* (see pinc$:ot_def.h.)
* void *ConfigObjP I Pointer to card object
* pwr_tUInt16 *RawValueP I Pointer to raw value
* pwr_tFloat32 *SigValueP I Pointer to signal value
* pwr_tFloat32 *ActValueP I Pointer to actual value
*
* Upphov : Ingemar Ljungdahl Hmtad frn COMTEST
* (Revision, se filhuvud)
*
* Beskrivning : Omvandlar AI frn rvrde (Rtdb) till signalvrde och
* signalvrde till rvrde och lgger signalvrde och
* rvrde i Rtdb.
*************************************************************************/
static pwr_tStatus io_ConvertAI (
void *ChanObjP,
pwr_tClassId ChanType,
void *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
)
{
pwr_tStatus sts = IO__SUCCCONV;
/* Rawvalue -> Sigvalue */
sts = io_ConvDevAI(ConfigObjP, RawValueP, SigValueP);
/* Sigvalue -> Actualvalue */
sts = io_ConvSensor(ChanObjP, ChanType, SigValueP, ActValueP);
return (sts);
}
/************************************************************************
*
* Namn : io_ConvDevAI
*
* Typ : int returnerar ParamStatus
*
* TYP PARAMETER IUGF BESKRIVNING
* int ChanIndex I Anger kanal p kortet
* (0 - (antal kanaler-1)).
* Config_AI_Object *ConfigObjP G Pekare till config objekt
* uns int *RawValueP G Pekare till rvrdet
* float *SigValueP G Pekare till signalvrdet
*
* Upphov : Ingemar Ljungdahl (Revision, se filhuvud)
*
* Beskrivning : Kortpolynomtyp bestms och omvandling sker enligt beskrivning
* fr kortet
*************************************************************************/
static pwr_tStatus io_ConvDevAI (
pwr_sClass_Ai_7436 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP
)
{
pwr_tStatus sts = IO__SUCCCONV;
switch (ConfigObjP->DevPolyType) {
case 0: /* No Conversion */
break;
case 1: /* Conv normal device polynomial */
io_ConvDevPolAI (ConfigObjP, RawValueP, SigValueP);
break;
default: /* Device poly type out of range */
errh_CErrLog(IO__INFOCONVDEV, errh_ErrArgL(ConfigObjP->DevPolyType), NULL);
return (IO__CONVAI);
break;
}
return (sts);
}
/************************************************************************
*
* Namn : io_ConvDevPolAI
*
* Typ : void
*
* TYP PARAMETER IUGF BESKRIVNING
* int ChanIndex I Anger kanal p kortet
* (0 - (antal kanaler-1)).
* Config_AI_Object *ConfigObjP G Pekare till config objekt
* uns int *RawValueP G Pekare till rvrdet
* float *SigValueP G Pekare till signalvrdet
*
* Upphov : Ingemar Ljungdahl Hmtad frn COMTEST
* (Revision, se filhuvud)
*
* Beskrivning : Omvandlar vrdet genom ett definierat polynom fr
* aktuellt kort
*************************************************************************/
static void io_ConvDevPolAI (
pwr_sClass_Ai_7436 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP)
{
pwr_tUInt16 i;
pwr_tUInt16 VectLen;
pwr_tFloat32 *PolCoeffP;
pwr_tFloat64 Result;
VectLen = 2; /* Max polynomdegree = 2 */
PolCoeffP = &(ConfigObjP->DevPolyCoef1);
Result = 0;
for (i = VectLen; i > 0; i--) {
Result = ((pwr_tInt16 )*RawValueP * Result) + *PolCoeffP;
PolCoeffP--;
}
*SigValueP = Result;
}
/************************************************************************
*
* Namn : io_ConvSensor
*
* Typ : int returnerar ParamStatus
*
* TYP PARAMETER IUGF BESKRIVNING
* int ChanIndex I Anger kanal p kortet
* (0 - (antal kanaler-1)).
* Config_AI_Object *ConfigObjP G Pekare till config objekt
* void *ConvTabObjP G Pekare till omvandlingstabell objekt
* vid tabellslagning
* float *SigValueP G Pekare till signalvrdet
* float *ActValueP G Pekare till signalvrdet
*
* Upphov : Ingemar Ljungdahl Hmtad frn COMTEST
* (Revision, se filhuvud)
*
* Beskrivning :Omvandlingskod bestms och omvandling sker enligt beskrivning
* fr givaren
*************************************************************************/
static pwr_tStatus io_ConvSensor (
pwr_sClass_ChanAi *ChanObjP,
pwr_tClassId ChanType,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
) {
pwr_tStatus sts = IO__SUCCCONV;
sts = io_ConvSensorType(ChanObjP, ChanObjP->SensorTypeCode, SigValueP);
switch (ChanType) {
case pwr_cClass_ChanAi: /* Conv sensor pol */
io_ConvSensorPol(ChanObjP, SigValueP, ActValueP);
break;
case pwr_cClass_ChanAit: /* Conv table */
io_ConvSensorTab((pwr_sClass_ChanAit *)ChanObjP, SigValueP, ActValueP);
break;
default:
errh_CErrLog(IO__INFOCONVSENS,errh_ErrArgL(ChanType), NULL);
return (IO__CONVAI);
break;
}
return (sts);
} /* END io_ConvSensor */
/************************************************************************
*
* Namn : io_ConvSensorType
*
* Typ : int returnerar ParamStatus
*
* TYP PARAMETER IUGF BESKRIVNING
* int ChanIndex I Anger kanal p kortet
* (0 - (antal kanaler-1)).
* uns int SensorTypeCode I
* void *ConfigObjP G Pekare till config objekt
* float *SigValueP G Pekare till signalvrdet
*
* Upphov : Ingemar Ljungdahl Hmtad frn COMTEST
* (Revision, se filhuvud)
*
* Beskrivning : Anrop till Hrdkodade omvandlingsfunktioner fr speciella
* givare, t.ex. termoelement.
*
*************************************************************************/
static pwr_tStatus io_ConvSensorType (
void *ChanObjP,
pwr_tUInt16 SensorTypeCode,
pwr_tFloat32 *SigValueP
) {
pwr_tStatus sts = IO__SUCCCONV;
switch (SensorTypeCode) {
case 0: /* AI normal */
io_ConvSensorType_0 (ChanObjP, SigValueP);
break;
case 1: /* TK-low */
io_ConvSensorType_1 (ChanObjP, SigValueP);
break;
case 2: /* TK-high */
io_ConvSensorType_2 (ChanObjP, SigValueP);
break;
case 3: /* TR-ref */
io_ConvSensorType_3 (ChanObjP, SigValueP);
break;
default:
errh_CErrLog(IO__INFOSENSTYPE,errh_ErrArgL(SensorTypeCode), NULL);
return (IO__CONVAI);
break;
}
return (sts);
} /* END io_ConvSensorType */
/************************************************************************
*
* Namn : io_ConvSensorType_0
*
* Typ :
*
* Upphov : Ingemar Ljungdahl Hmtad frn io_ConvSensorType
* (Revision, se filhuvud)
*
* Beskrivning : omvandling av givartype nummer 0, normal
*************************************************************************/
static void io_ConvSensorType_0 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
) {
} /* END io_ConvSensorType_0 */
/************************************************************************
*
* Namn : io_ConvSensorType_1
*
* Typ :
*
* TYP PARAMETER IUGFR BESKRIVNING
*
* Upphov : Ingemar Ljungdahl Hmtad frn io_ConvSensorType
* (Revision, se filhuvud)
*
* Beskrivning : omvandling av givartype nummer 1, TK-low
*************************************************************************/
static void io_ConvSensorType_1 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
) {
} /* END io_ConvSensorType_1 */
/************************************************************************
*
* Namn : io_ConvSensorType_2
*
* Typ :
*
* TYP PARAMETER IUGFR BESKRIVNING
*
* Upphov : Ingemar Ljungdahl Hmtad frn io_ConvSensorType
* (Revision, se filhuvud)
*
* Beskrivning : Omvandling av givartype nummer 2, TK-high
*************************************************************************/
static void io_ConvSensorType_2 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
) {
} /* END io_ConvSensorType_2 */
/************************************************************************
*
* Namn : io_ConvSensorType_3
*
* Typ :
*
* TYP PARAMETER IUGFR BESKRIVNING
*
* Upphov : Ingemar Ljungdahl Hmtad frn io_ConvSensorType
* (Revision, se filhuvud)
*
* Beskrivning : omvandling av givartype nummer 3, TR-ref
*************************************************************************/
static void io_ConvSensorType_3 (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP
) {
} /* END io_ConvSensorType_3 */
/************************************************************************
*
* Namn : io_ConvSensorPol
*
* Typ : void
*
* TYP PARAMETER IUGF BESKRIVNING
* int ChanIndex I Anger kanal p kortet
* (0 - (antal kanaler-1)).
* Config_AI_Object *ConfigObjP G Pekare till config objekt
* float *SigValueP G Pekare till signalvrdet
* float *ActValueP G Pekare till rvrdet
*
* Upphov : Ingemar Ljungdahl Hmtad frn COMTEST
* (Revision, se filhuvud)
*
* Beskrivning : Omvandlar signalvrde till rvrde genom ett definierat
* polynom fr aktuell givare
*
*************************************************************************/
static void io_ConvSensorPol (
pwr_sClass_ChanAi *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
) {
pwr_tUInt16 i;
pwr_tUInt16 VectLen;
pwr_tFloat32 *PolCoeffP;
pwr_tFloat64 Result;
VectLen = 3; /* Max polynomdegree = 2 */
PolCoeffP = &(ChanObjP->SensorPolyCoef2);
Result = 0;
for (i = VectLen; i > 0; i--) {
Result = (*SigValueP * Result) + *PolCoeffP;
PolCoeffP--;
}
*ActValueP = Result;
} /* END io_ConvSensorPol */
/************************************************************************
*
* Namn : io_ConvSensorTab
*
* Typ : void
*
* TYP PARAMETER IUGF BESKRIVNING
* Conv_Table_Object *ConvTabObjP G Pekare till config objekt
* float *SigValueP G Pekare till signalvrdet
* float *ActValueP G Pekare till rvrdet
*
* Upphov : Ingemar Ljungdahl Hmtad frn COMTEST
* (Revision, se filhuvud)
*
* Beskrivning : Omvandlar signalvrde till rvrde genom tabellslagning.
* Skningen i tabellen sker genom binrskning.
*
*************************************************************************/
static void io_ConvSensorTab (
pwr_sClass_ChanAit *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
) {
pwr_tFloat32 Slope;
pwr_tFloat32 Intercept;
pwr_tFloat32 TransTabValue;
pwr_tUInt16 First = 0;
pwr_tUInt16 Middle;
pwr_tUInt16 Last;
Last = ChanObjP->NoOfCoordinates;
while ((Last - First) > 1) {
Middle = (First+Last) / 2;
TransTabValue = ChanObjP->InValue[Middle];
if (*SigValueP < TransTabValue)
Last = Middle;
else
First = Middle;
}
Intercept = ChanObjP->Intercept[First];
Slope = ChanObjP->Slope[First];
*ActValueP = Intercept + *SigValueP * Slope;
} /* END io_ConvSensorTab */
/************************************************************************
*
* Namn : io_ConvertAO
*
* Typ : INT returnerar ParamStatus
*
* TYP PARAMETER IUGF BESKRIVNING
* int ChanIndex I Anger kanal p kortet
* (0 - (antal kanaler-1)).
* void *ConfigObjP G Pekare till config objekt
* uns int *RawValueP G Pekare till rvrdet
* float *SigValueP G Pekare till signalvrdet
* float *ActValueP G Pekare till rvrdet
*
* Upphov : Ingemar Ljungdahl Hmtad frn io_ConvertAO
* (Revision, se filhuvud)
*
* Beskrivning : Omvandlar AO-Objekt frn rvrde (Rtdb) till signalvrde och
* signalvrde till rvrde och lgger signalvrde och
* rvrde i Rtdb.
*************************************************************************/
static pwr_tStatus io_ConvertAO (
void *ChanObjP,
pwr_sClass_Ao_7455_30 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
) {
pwr_tStatus sts = IO__SUCCCONV;
/* Actualvalue -> Sigvalue */
sts = io_ConvOutput (ChanObjP, SigValueP, ActValueP);
/* Sigvalue -> Rawvalue */
switch (ConfigObjP->DevPolyType) {
case 0:
/* No Conversion */
break;
case 1:
/* Conv normal device polynomial */
io_ConvDevPolAO(ConfigObjP, RawValueP, SigValueP);
break;
default:
/* Device poly type out of range */
errh_CErrLog(IO__INFOCONVDEV, errh_ErrArgL(ConfigObjP->DevPolyType), NULL);
return (IO__CONVAO);
break;
}
return (sts);
} /* END io_ConvertAO */
/* Omvandling sker enligt beskrivning fr utsignalen.
vervakning av signalvrde (max och min). */
static pwr_tStatus io_ConvOutput (
pwr_sClass_ChanAo *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
) {
pwr_tInt32 sts = IO__SUCCCONV;
/* Conv output pol */
io_ConvOutputPol (ChanObjP, SigValueP, ActValueP);
if (*SigValueP < ChanObjP->ChannelSigValRangeLow)
*SigValueP = ChanObjP->ChannelSigValRangeLow;
if (*SigValueP > ChanObjP->ChannelSigValRangeHigh)
*SigValueP = ChanObjP->ChannelSigValRangeHigh;
return (sts);
} /* END io_ConvOutput */
/* Omvandlar rvrde till signalvrde genom ett definierat
polynom fr aktuell utsignal. */
static void
io_ConvOutputPol (
pwr_sClass_ChanAo *ChanObjP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP
)
{
pwr_tUInt16 i;
pwr_tUInt16 VectLen;
pwr_tFloat32 *PolCoeffP;
pwr_tFloat64 Result = 0;
VectLen = 2; /* Max polynomdegree = 1 */
PolCoeffP = &(ChanObjP->OutPolyCoef1);
for (i = VectLen; i > 0; i--) {
Result = (*ActValueP * Result) + *PolCoeffP;
PolCoeffP--;
}
*SigValueP = Result;
}
/* Omvandlar signalvrde till rvrde vrdet genom ett
definierat polynom fr aktuellt kort. */
static void
io_ConvDevPolAO (
pwr_sClass_Ao_7455_30 *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP
)
{
pwr_tUInt16 i;
pwr_tUInt16 VectLen;
pwr_tFloat32 *PolCoeffP;
pwr_tFloat64 Result;
VectLen = 2; /* Max polynomdegree = 1 */
PolCoeffP = &(ConfigObjP->DevPolyCoef1);
Result = 0;
for (i = VectLen; i > 0; i--) {
Result = (*SigValueP * Result) + *PolCoeffP;
PolCoeffP--;
}
*RawValueP = Result;
}
src/lib/rt/src/rt_io_convert.h deleted 100644 → 0
View file @ acf58315
/* rt_io_convert.g -- <short description>
PROVIEW/R
Copyright (C) 1996 by Comator Process AB.
IO conversion PROVIEW/R. */
pwr_tStatus io_Convert (
void *ChanObjP,
void *ConfigObjP,
pwr_tUInt16 *RawValueP,
pwr_tFloat32 *SigValueP,
pwr_tFloat32 *ActValueP,
pwr_tClassId ChanTypeCode
);
src/lib/rt/src/rt_io_utils.c deleted 100644 → 0
View file @ acf58315
/* rt_io_utils.c -- <short description>
PROVIEW/R
Copyright (C) 1996 by Comator Process AB.
This module contains the access routines to the
runtime IO. */
#ifdef OS_ELN
# include ctype
# include $vaxelnc
# include stdio
# include string
#else
# include <stdio.h>
# include <string.h>
# include <ctype.h>
#endif
#if defined OS_VMS
# include <ssdef.h>
#endif
#include "pwr_baseclasses.h"
#include "co_cdh.h"
#include "rt_gdh_msg.h"
#include "rt_io_msg.h"
#include "rt_gdh.h"
#include "rt_io_utils.h"
static pwr_tInt32 io_GetConInfo (pwr_tPathName FromName,
pwr_tPathName ToName,
pwr_tObjid *ToId);
/************************************************************************
*
* Name: io_SetParTestValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassid ObjType I Type of object (numeric).
* pwr_cClass_Ao,
* pwr_cClass_Do
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Ao -> Pointer to a float
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter TestValue in channel
* object and one bit in parameter TestValue1 or 2 in card object.
*************************************************************************/
pwr_tInt32 io_SetParTestValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFloat32 FVal;
pwr_tUInt16 ChanNumber;
pwr_tUInt16 TestMask;
pwr_tObjid CardObjid;
pwr_tObjid NewCardObjid;
pwr_tClassId CardObjType;
pwr_tFullName FullName;
pwr_tFullName CardName;
pwr_tFullName TestOnName;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, FullName, &Id);
if(EVEN(Sts)) return(Sts);
strcpy(TestOnName, FullName);
strcat(TestOnName, ".TESTVALUE");
switch(ObjType)
{
case pwr_cClass_Ao:
FVal = *(pwr_tFloat32 *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &FVal, sizeof(pwr_tFloat32));
if(EVEN(Sts)) return(Sts);
break;
case pwr_cClass_Do:
BVal = *(pwr_tBoolean *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
strcat (FullName, ".NUMBER");
Sts = gdh_GetObjectInfo(FullName, &ChanNumber,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
Sts = gdh_GetParent(Id, &CardObjid);
if(EVEN(Sts)) return(Sts);
while(Sts != GDH__NO_SIBLING)
{
Sts = gdh_GetObjectClass(CardObjid, &CardObjType);
if (EVEN(Sts)) return (Sts);
if (CardObjType == pwr_cClass_Do_HVDO32 ||
CardObjType == pwr_cClass_Do_7437_83) /*Card object found*/
{
Sts = gdh_ObjidToName (CardObjid, CardName,
sizeof(pwr_tFullName), cdh_mNName);
if (EVEN(Sts)) return (Sts);
if(ChanNumber <= 15) /* Use mask 1 */
{
strcat (CardName, ".TESTVALUE1");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
else /* Use mask 2 */
{
strcat (CardName, ".TESTVALUE2");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
if(BVal == 1) /* Set bit in mask */
TestMask |= (1 << ChanNumber);
else /* Reset bit in mask */
TestMask &= ~(1 << ChanNumber);
Sts = gdh_SetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
return(IO__SUCCESS);
}
Sts = gdh_GetNextSibling(CardObjid,&NewCardObjid);
if (EVEN(Sts)) return (Sts);
if(Sts != GDH__NO_SIBLING) CardObjid = NewCardObjid;
} /* End while */
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_SetParTestValue */
/************************************************************************
*
* Name: io_GetParTestValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Ao,
* pwr_cClass_Do
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Ao -> Pointer to a float
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter TestValue in channel object.
*************************************************************************/
pwr_tInt32 io_GetParTestValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFloat32 FVal;
pwr_tFullName FullName;
pwr_tFullName Name;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, Name, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (FullName, Name);
strcat (FullName, ".TESTVALUE");
switch(ObjType)
{
case pwr_cClass_Ao:
Sts = gdh_GetObjectInfo(FullName, &FVal, sizeof(pwr_tFloat32));
if(EVEN(Sts)) return(Sts);
*(pwr_tFloat32 *)ValueP = FVal;
Sts = IO__SUCCESS;
break;
case pwr_cClass_Do:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_GetParTestValue */
/************************************************************************
*
* Name: io_SetParTestOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Ao,
* pwr_cClass_Do
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Ao -> Pointer to a boolean
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter TestOn in channel
* object and one bit in parameter TestMask1 or 2 in card object.
*************************************************************************/
pwr_tInt32 io_SetParTestOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tUInt16 ChanNumber;
pwr_tUInt16 TestMask;
pwr_tObjid CardObjid;
pwr_tObjid NewCardObjid;
pwr_tClassId CardObjType;
pwr_tFullName TestOnName;
pwr_tFullName FullName;
pwr_tFullName CardName;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, FullName, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (TestOnName, FullName);
strcat (TestOnName, ".TESTON");
switch(ObjType)
{
case pwr_cClass_Ao:
BVal = *(pwr_tBoolean *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
Sts = IO__SUCCESS;
break;
case pwr_cClass_Do:
/** Store value in card object **/
BVal = *(pwr_tBoolean *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
strcat (FullName, ".NUMBER");
Sts = gdh_GetObjectInfo(FullName, &ChanNumber,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
Sts = gdh_GetParent(Id, &CardObjid);
if(EVEN(Sts)) return(Sts);
while(Sts != GDH__NO_SIBLING)
{
Sts = gdh_GetObjectClass(CardObjid, &CardObjType);
if (EVEN(Sts)) return (Sts);
if (CardObjType == pwr_cClass_Do_HVDO32 ||
CardObjType == pwr_cClass_Do_7437_83) /*Card object found*/
{
Sts = gdh_ObjidToName (CardObjid, CardName,
sizeof(pwr_tFullName), cdh_mNName);
if (EVEN(Sts)) return (Sts);
if(ChanNumber <= 15) /* Use mask 1 */
{
strcat (CardName, ".TESTMASK1");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
else /* Use mask 2 */
{
strcat (CardName, ".TESTMASK2");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
if(BVal == 1) /* Set bit in mask */
TestMask |= (1 << ChanNumber);
else /* Reset bit in mask */
TestMask &= ~(1 << ChanNumber);
Sts = gdh_SetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
return(IO__SUCCESS);
}
Sts = gdh_GetNextSibling(CardObjid,&NewCardObjid);
if(EVEN(Sts))
if(Sts != GDH__NO_SIBLING) return (Sts);
if(Sts != GDH__NO_SIBLING) CardObjid = NewCardObjid;
} /* End while */
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_SetParTestOn */
/************************************************************************
*
* Name: io_GetParTestOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Ao,
* pwr_cClass_Do
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Ao -> Pointer to a boolean
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter TestOn in channel object.
*************************************************************************/
pwr_tInt32 io_GetParTestOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFullName FullName;
pwr_tFullName Name;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, Name, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (FullName, Name);
strcat (FullName, ".TESTON");
switch(ObjType)
{
case pwr_cClass_Ao:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
case pwr_cClass_Do:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_GetParTestOn */
/************************************************************************
*
* Name: io_SetParInvertOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* - pwr_cClass_Di,
* - pwr_cClass_Do
*
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter InvertOn in channel
* object and one bit in parameter InvMask1 or 2 in card object.
*************************************************************************/
pwr_tInt32 io_SetParInvertOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tUInt16 ChanNumber;
pwr_tUInt16 TestMask;
pwr_tObjid CardObjid;
pwr_tObjid NewCardObjid;
pwr_tClassId CardObjType;
pwr_tFullName TestOnName;
pwr_tFullName FullName;
pwr_tFullName CardName;
pwr_tObjid Id;
pwr_tBoolean Found;
Sts = io_GetConInfo (ObjName, FullName, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (TestOnName, FullName);
strcat (TestOnName, ".INVERTON");
/** Store value in channel object **/
BVal = *(pwr_tBoolean *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
strcat (FullName, ".NUMBER");
Sts = gdh_GetObjectInfo(FullName, &ChanNumber,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
/** Store value in card object **/
Sts = gdh_GetParent(Id, &CardObjid);
if(EVEN(Sts)) return(Sts);
while(Sts != GDH__NO_SIBLING)
{
Found = FALSE;
Sts = gdh_GetObjectClass(CardObjid, &CardObjType);
if (EVEN(Sts)) return (Sts);
if(ObjType == pwr_cClass_Di) /* DI object */
{
if (CardObjType == pwr_cClass_Di_DIX2 ||
CardObjType == pwr_cClass_Di_7437_37) /*DI card object found*/
Found = TRUE;
}
else /* DO object */
{
if (CardObjType == pwr_cClass_Do_HVDO32 ||
CardObjType == pwr_cClass_Do_7437_83) /*DO card object found*/
Found = TRUE;
}
if (Found)
{
Sts = gdh_ObjidToName (CardObjid, CardName,
sizeof(pwr_tFullName), cdh_mNName);
if (EVEN(Sts)) return (Sts);
if(ChanNumber <= 15) /* Use mask 1 */
{
strcat (CardName, ".INVMASK1");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
else /* Use mask 2 */
{
strcat (CardName, ".INVMASK2");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
if(BVal == 1) /* Set bit in mask */
TestMask |= (1 << ChanNumber);
else /* Reset bit in mask */
TestMask &= ~(1 << ChanNumber);
Sts = gdh_SetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
return(IO__SUCCESS);
}
Sts = gdh_GetNextSibling(CardObjid,&NewCardObjid);
if(EVEN(Sts))
if(Sts != GDH__NO_SIBLING) return (Sts);
if(Sts != GDH__NO_SIBLING) CardObjid = NewCardObjid;
} /* End while */
return(Sts);
} /* END io_SetParInvertOn */
/************************************************************************
*
* Name: io_GetParInvertOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Di,
* pwr_cClass_Do
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter InvertOn from channel object.
*************************************************************************/
pwr_tInt32 io_GetParInvertOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFullName FullName;
pwr_tFullName Name;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, Name, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (FullName, Name);
strcat (FullName, ".INVERTON");
switch(ObjType)
{
case pwr_cClass_Di:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
case pwr_cClass_Do:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_GetParInvertOn */
/************************************************************************
*
* Name: io_SetParConversionOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tObjid ObjType I Type of object (numeric).
* - pwr_cClass_Di,
* - pwr_cClass_Do
*
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Ai -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter ConversionOn in
* channel object and one bit in parameter ConvMask1 or 2 in
* card object.
*************************************************************************/
pwr_tInt32 io_SetParConversionOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tUInt16 ChanNumber;
pwr_tUInt16 TestMask;
pwr_tObjid CardObjid;
pwr_tObjid NewCardObjid;
pwr_tClassId CardObjType;
pwr_tFullName TestOnName;
pwr_tFullName FullName;
pwr_tFullName CardName;
pwr_tObjid Id;
pwr_tBoolean Found;
Sts = io_GetConInfo (ObjName, FullName, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (TestOnName, FullName);
strcat (TestOnName, ".CONVERSIONON");
/** Store value in channel object **/
BVal = *(pwr_tBoolean *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
strcat (FullName, ".NUMBER");
Sts = gdh_GetObjectInfo(FullName, &ChanNumber, sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
/** Store value in card object **/
Sts = gdh_GetParent(Id, &CardObjid);
if(EVEN(Sts)) return(Sts);
while(Sts != GDH__NO_SIBLING)
{
Found = FALSE;
Sts = gdh_GetObjectClass(CardObjid, &CardObjType);
if (EVEN(Sts)) return (Sts);
if(ObjType == pwr_cClass_Di) /* DI object */
{
if (CardObjType == pwr_cClass_Di_DIX2 ||
CardObjType == pwr_cClass_Di_7437_37) /*DI card object found*/
Found = TRUE;
}
if (Found)
{
Sts = gdh_ObjidToName (CardObjid, CardName, sizeof(pwr_tFullName), cdh_mNName);
if (EVEN(Sts)) return (Sts);
if(ChanNumber <= 15) /* Use mask 1 */
{
strcat (CardName, ".CONVMASK1");
Sts = gdh_GetObjectInfo(CardName, &TestMask, sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
else /* Use mask 2 */
{
strcat (CardName, ".CONVMASK2");
Sts = gdh_GetObjectInfo(CardName, &TestMask, sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
if(BVal == 1) /* Set bit in mask */
TestMask |= (1 << ChanNumber);
else /* Reset bit in mask */
TestMask &= ~(1 << ChanNumber);
Sts = gdh_SetObjectInfo(CardName, &TestMask, sizeof(pwr_tUInt16));
return(IO__SUCCESS);
}
Sts = gdh_GetNextSibling(CardObjid,&NewCardObjid);
if(EVEN(Sts))
if(Sts != GDH__NO_SIBLING) return (Sts);
if(Sts != GDH__NO_SIBLING) CardObjid = NewCardObjid;
} /* End while */
return(Sts);
} /* END io_SetParConversionOn */
/************************************************************************
*
* Name: io_GetParConversionOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Di,
* pwr_cClass_Ai
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Ai -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter ConversiOn from
* channel object.
*************************************************************************/
pwr_tInt32 io_GetParConversionOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFullName FullName;
pwr_tFullName Name;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, Name, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (FullName, Name);
strcat (FullName, ".CONVERSIONON");
switch(ObjType)
{
case pwr_cClass_Di:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
case pwr_cClass_Ai:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_GetParConversionOn */
/************************************************************************
*
* Name: io_SetParFixedOutValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* - pwr_cClass_Ao,
* - pwr_cClass_Do
*
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Ao -> Pointer to a float
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter FixedOutValue in
* channel object and one bit in parameter FixedOutValue1 or 2
* in card object.
*************************************************************************/
pwr_tInt32 io_SetParFixedOutValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFloat32 FVal;
pwr_tUInt16 ChanNumber;
pwr_tUInt16 TestMask;
pwr_tObjid CardObjid;
pwr_tObjid NewCardObjid;
pwr_tClassId CardObjType;
pwr_tFullName FullName;
pwr_tFullName CardName;
pwr_tFullName TestOnName;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, FullName, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (TestOnName, FullName);
strcat (TestOnName, ".FIXEDOUTVALUE");
switch(ObjType)
{
case pwr_cClass_Ao:
FVal = *(pwr_tFloat32 *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &FVal, sizeof(pwr_tFloat32));
if(EVEN(Sts)) return(Sts);
break;
case pwr_cClass_Do:
/** Store value in channel object **/
BVal = *(pwr_tBoolean *)ValueP;
Sts = gdh_SetObjectInfo(TestOnName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
strcat (FullName, ".NUMBER");
Sts = gdh_GetObjectInfo(FullName, &ChanNumber,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
/** Store value in card object **/
Sts = gdh_GetParent(Id, &CardObjid);
if(EVEN(Sts)) return(Sts);
while(Sts != GDH__NO_SIBLING)
{
Sts = gdh_GetObjectClass(CardObjid, &CardObjType);
if (EVEN(Sts)) return (Sts);
if (CardObjType == pwr_cClass_Do_HVDO32 ||
CardObjType == pwr_cClass_Do_7437_83) /*Card object found*/
{
Sts = gdh_ObjidToName (CardObjid, CardName,
sizeof(pwr_tFullName), cdh_mNName);
if (EVEN(Sts)) return (Sts);
if(ChanNumber <= 15) /* Use mask 1 */
{
strcat (CardName, ".FIXEDOUTVALUE1");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
else /* Use mask 2 */
{
strcat (CardName, ".FIXEDOUTVALUE2");
Sts = gdh_GetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
if(EVEN(Sts)) return(Sts);
}
if(BVal == 1) /* Set bit in mask */
TestMask |= (1 << ChanNumber);
else /* Reset bit in mask */
TestMask &= ~(1 << ChanNumber);
Sts = gdh_SetObjectInfo(CardName, &TestMask,
sizeof(pwr_tUInt16));
return(IO__SUCCESS);
}
Sts = gdh_GetNextSibling(CardObjid,&NewCardObjid);
if (EVEN(Sts)) return (Sts);
if(Sts != GDH__NO_SIBLING) CardObjid = NewCardObjid;
} /* End while */
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_SetParFixedOutValue */
/************************************************************************
*
* Name: io_GetParFixedOutValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Ao,
* pwr_cClass_Do
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Ao -> Pointer to a float
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter TestValue in channel object.
*************************************************************************/
pwr_tInt32 io_GetParFixedOutValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP)
{
pwr_tInt32 Sts;
pwr_tBoolean BVal;
pwr_tFloat32 FVal;
pwr_tFullName FullName;
pwr_tFullName Name;
pwr_tObjid Id;
Sts = io_GetConInfo (ObjName, Name, &Id);
if(EVEN(Sts)) return(Sts);
strcpy (FullName, Name);
strcat (FullName, ".FIXEDOUTVALUE");
switch(ObjType)
{
case pwr_cClass_Ao:
Sts = gdh_GetObjectInfo(FullName, &FVal, sizeof(pwr_tFloat32));
if(EVEN(Sts)) return(Sts);
*(pwr_tFloat32 *)ValueP = FVal;
Sts = IO__SUCCESS;
break;
case pwr_cClass_Do:
Sts = gdh_GetObjectInfo(FullName, &BVal, sizeof(pwr_tBoolean));
if(EVEN(Sts)) return(Sts);
*(pwr_tBoolean *)ValueP = BVal;
Sts = IO__SUCCESS;
break;
default:
Sts = IO__BADOBJTYPE;
break;
}
return(Sts);
} /* END io_GetParFixedOutValue */
/************************************************************************
*
* Name: io_GetConInfo (FromName, ToName, ToId)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName FromName I NULL terminated object name string.
* FromName must be the name of signal
* object or channel object.
* pwr_tPathName ToName O NULL terminated object name string.
* Name of signal object or channel object.
* pwr_tObjid *ToId O Object iD of signal object or
* channel object.
*
* Description: This routine fetches the name of signal object or channel
* object and it's object id.
*************************************************************************/
pwr_tInt32 io_GetConInfo (
pwr_tPathName FromName,
pwr_tPathName ToName,
pwr_tObjid *ToId)
{
pwr_tInt32 Sts;
pwr_tFullName FullName;
strcpy (FullName, FromName);
strcat (FullName, ".SIGCHANCON");
Sts = gdh_GetObjectInfo(FullName, ToId, sizeof(pwr_tObjid));
if(EVEN(Sts)) return(Sts);
Sts = gdh_ObjidToName (*ToId, ToName, sizeof(pwr_tFullName), cdh_mNName);
if(EVEN(Sts)) return(Sts);
return(Sts);
} /* END io_GetConInfo */
src/lib/rt/src/rt_io_utils.h deleted 100644 → 0
View file @ acf58315
#ifndef rt_io_utils_h
#define rt_io_utils_h
/* rt_io_utils.h -- <short description>
PROVIEW/R
Copyright (C) 1996 by Comator Process AB.
<Description>. */
/************************************************************************
*
* Name: io_GetParConversionOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Di,
* pwr_cClass_Ai
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Ai -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter ConversiOn from
* channel object.
*************************************************************************/
pwr_tInt32 io_GetParConversionOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_GetParInvertOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* pwr_cClass_Di,
* pwr_cClass_Do
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine fetches the parameter InvertOn from channel object.
*************************************************************************/
pwr_tInt32 io_GetParInvertOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_SetParConversionOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* - pwr_cClass_Di,
* - pwr_cClass_Do
*
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Ai -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter ConversionOn in
* channel object and one bit in parameter ConvMask1 or 2 in
* card object.
*************************************************************************/
pwr_tInt32 io_SetParConversionOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_SetParInvertOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* - pwr_cClass_Di,
* - pwr_cClass_Do
*
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Di -> Pointer to a boolean
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter InvertOn in channel
* object and one bit in parameter InvMask1 or 2 in card object.
*************************************************************************/
pwr_tInt32 io_SetParInvertOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_SetParTestValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* pwr_tClassid ObjType I Type of object (numeric).
* OT_AO, OT_DO (see pinc$:ot_def.h).
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* OT_AO -> Pointer to a float value.
* OT_DO -> Pointer to a boolean value.
*
* Description: This routine is used to change parameter TestValue in channel
* object and parameters TestValue1,2 in card object.
*************************************************************************/
extern pwr_tInt32 io_SetParTestValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_GetParTestValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* pwr_tClassId ObjType I Type of object (numeric).
* OT_AO, OT_DO (see pinc$:ot_def.h).
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* OT_AO -> Pointer to a float value.
* OT_DO -> Pointer to a boolean value.
*
* Description: This routine fetches the parameter TestValue in channel object.
*************************************************************************/
extern pwr_tInt32 io_GetParTestValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_SetParTestOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* pwr_tClassId ObjType I Type of object (numeric).
* OT_AO, OT_DO (see pinc$:ot_def.h).
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* OT_AO -> Pointer to a boolean value.
* OT_DO -> Pointer to a boolean value.
*
* Description: This routine is used to change parameter TestOn in channel
* object and parameters TestMask1,2 in card object.
*************************************************************************/
extern pwr_tInt32 io_SetParTestOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_GetParTestOn(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* pwr_tClassId ObjType I Type of object (numeric).
* OT_AO, OT_DO (see pinc$:ot_def.h).
* pwr_tAddress ValueP O Pointer to a buffer.
* The buffer is filled with the
* requested information.
* OT_AO -> Pointer to a boolean value.
* OT_DO -> Pointer to a boolean value.
*
* Description: This routine fetches the parameter TestOn in channel object.
*************************************************************************/
extern pwr_tInt32 io_GetParTestOn (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
/************************************************************************
*
* Name: io_SetParFixedOutValue(ObjName, ObjType, ValueP)
*
* Type: pwr_tInt32 return value is a standard format condition code.
*
* TYPE PARAMETER IOGF DESCRIPTION
* pwr_tPathName ObjName I NULL terminated object name string.
* ObjName must be the name of signal
* object.
* pwr_tClassId ObjType I Type of object (numeric).
* - pwr_cClass_Ao,
* - pwr_cClass_Do
*
* pwr_tAddress ValueP I Pointer to a buffer filled with
* information.
* pwr_cClass_Ao -> Pointer to a float
* value.
* pwr_cClass_Do -> Pointer to a boolean
* value.
*
* Description: This routine is used to change parameter FixedOutValue in
* channel object and one bit in parameter FixedOutValue1 or 2
* in card object.
*************************************************************************/
pwr_tInt32 io_SetParFixedOutValue (
pwr_tPathName ObjName,
pwr_tClassId ObjType,
pwr_tAddress ValueP);
#endif /* if defined */
src/wbl/pwrb/src/pwrb_c_aanalyse.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_aanalyse.wb_load -- the AAnalyse class.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! Defines the class AAnalyse.
!
! Range ldh_eDId_Base
!
!/**
! @Version 1.0
! @Summary Analyse the value of analog values in trace
! Analyse the value of analog values in trace.
! This object is obsolete since V3.0
!*/
SObject pwrb:Class
Object AAnalyse $ClassDef 1
Body SysBody
Attr Flags |= pwr_mClassDef_DevOnly
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object DevBody $ObjBodyDef 2
Object Node $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr GraphName = "In"
Attr DebAnnot = 1
EndBody
EndObject
Object PlcNode $Buffer 2
Body SysBody
Attr Class = pwr_eClass_PlcNode
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 13
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 12
Attr graphindex = 19
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr compmethod = 2
Attr compindex = 0
Attr tracemethod = 8
Attr traceindex = 2
Attr objname = "AAnalyse"
Attr graphname = "AAnalyse"
Attr debugpar = ""
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ai_7436.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_ai_7436.wb_load -- Defines the class Ai_7436.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! RTP Analog Input card 7436
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
Object Ai_7436 $ClassDef 5
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Ai_7436"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object DevPolyType $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevPolyCoef0 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevPolyCoef1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object MaxNoOfChannels $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object DiffInput $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object VoltageRange $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object Process $Attribute 15
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 16
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Ai_7436
Body RtBody
Attr IOSysType = 3
Attr MaxNoOfChannels = 8
Attr DiffInput = 1
Attr DevPolyType = 1
Attr DevPolyCoef1 = 0.0025
Attr Process = 2
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Ai_7436-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Ai_7436-postUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Ai_7436-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ai_vmic3113a.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_ai_vmic3113a.wb_load -- Defines the class Ai_vmic3113a.
!
! PROVIEW/R
! Copyright (C) 1997 by Comator Process AB.
!
! VMIC: Ai card VMIVME-3113A
!
!
SObject pwrb:Class
Object Ai_Vmic3113A $ClassDef 262
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Ai_Vmic3113A"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object DevPolyType $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object DevPolyCoef0 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object DevPolyCoef1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object MaxNoOfChannels $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object TwoComplement $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object Polling $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object Process $Attribute 15
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 16
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Ai_Vmic3113A
Body RtBody
Attr IOSysType = 5
Attr Description = "AI Card VMIVME-3133A from VMIC"
Attr MaxNoOfChannels = 64
Attr DevPolyType = 1
Attr DevPolyCoef1 = 4.8840049e-3
Attr TwoComplement = 1
Attr Process = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ao_7455_20.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_ao_7455_20.wb_load -- Defines the class Ao_7455_20.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! RTP Analog Output card 7455_20.
!
!
SObject pwrb:Class
Object Ao_7455_20 $ClassDef 11
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Ao_7455_20"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object DevPolyType $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevPolyCoef0 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevPolyCoef1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object MaxNoOfChannels $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object Process $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Ao_7455_20
Body RtBody
Attr IOSysType = 3
Attr DevPolyType = 1
Attr DevPolyCoef1 = 0.0025
Attr MaxNoOfChannels = 1
Attr Process = 2
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Ao_7455_20-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Ao_7455_20-PostUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Ao_7455_20-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ao_7455_30.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_ao_7455_30.wb_load -- Defines the class Ao_7455_30.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! RTP Analog Output card 7455_30.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
Object Ao_7455_30 $ClassDef 12
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Ao_7455_30"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object DevPolyType $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevPolyCoef0 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevPolyCoef1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object MaxNoOfChannels $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object Process $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Ao_7455_30
Body RtBody
Attr IOSysType = 3
Attr DevPolyType = 1
Attr DevPolyCoef1 = 0.0025
Attr MaxNoOfChannels = 4
Attr Process = 2
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Ao_7455_30-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Ao_7455_30-PostUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Ao_7455_30-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ao_vmic4800.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_ao_vmic4800.wb_load -- Defines the class Ao_Vmic4800.
!
! PROVIEW/R
! Copyright (C) 199699 by Mandator AB.
!
! VMIC Analog Output card VMIVME-4800.
!
!
SObject pwrb:Class
Object Ao_Vmic4800 $ClassDef 263
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Ao_Vmic4800"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object DevPolyType $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object DevPolyCoef0 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object DevPolyCoef1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object MaxNoOfChannels $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object TwoComplement $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object Process $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 15
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Ao_Vmic4800
Body RtBody
Attr IOSysType = 5
Attr Description = "AO Card VMIVME-4800 from VMIC"
Attr DevPolyType = 1
Attr DevPolyCoef1 = 0.0025
Attr MaxNoOfChannels = 8
Attr Process = 2
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_co_7435_33.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_co_7435_33.wb_load -- Defines the class Co_7435_33.
!
! PROVIEW/R
! Copyright (C) 1996,99 by Mandator AB.
!
! RTP 12/16 Bit counter card.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
Object Co_7435_33 $ClassDef 70
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Co_7435_33"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ConvMask $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MaxNoOfCounters $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object COAbsFlag $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object NoOfBits $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object Process $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Co_7435_33
Body RtBody
Attr IOSysType = 4
Attr ErrorSoftLimit = 20
Attr ErrorHardLimit = 100
Attr COAbsFlag = 1
Attr NoOfBits = 16
Attr MaxNoOfCounters = 1
Attr ConvMask = 1
Attr Process = 1
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Co_7435_33-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Co_7435_33-PostUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Co_7435_33-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_co_7437_33.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_co_7437_33.wb_load -- Defines the class Co_7437_33.
!
! PROVIEW/R
! Copyright (C) 1996,99 by Mandator AB.
!
! RTP 4 x 16 Bit counter card.
!
SObject pwrb:Class
Object Co_7437_33 $ClassDef 71
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Co_7437_33"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ConvMask $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MaxNoOfCounters $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object COAbsFlag $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 4
EndBody
EndObject
Object NoOfBits $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object CardAddress $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object Process $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Co_7437_33
Body RtBody
Attr IOSysType = 4
Attr ErrorSoftLimit = 20
Attr ErrorHardLimit = 100
Attr COAbsFlag = 1
Attr NoOfBits = 16
Attr MaxNoOfCounters = 4
Attr ConvMask = 15
Attr Process = 1
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Co_7437_33-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Co_7437_33-PostUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Co_7437_33-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_co_ipquadrature.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_co_ipquadrature.wb_load -- Defines the class Co_IpQuadrature.
!
! PROVIEW/R
! Copyright (C) 1996,99 by Mandator AB.
!
! Greenspring IP-Quadrature counter.
!
!
SObject pwrb:Class
Object Co_IpQuadrature $ClassDef 264
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Co_IpQuadrature"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Slot $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Char"
EndBody
EndObject
Object ConvMask $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object CoAbsFlag $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 4
EndBody
EndObject
Object EnableTermination1_2 $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object EnableTermination3_4 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!
! Counter 1
!
Object QuadMultFact1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object YDeterminesDirection1 $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertX1 $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertY1 $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertZ1 $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object ClearOnZ1 $Attribute 15
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object HoldOnZ1 $Attribute 16
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!
! Counter 2
!
Object QuadMultFact2 $Attribute 17
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object YDeterminesDirection2 $Attribute 18
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertX2 $Attribute 19
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertY2 $Attribute 20
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertZ2 $Attribute 21
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object ClearOnZ2 $Attribute 22
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object HoldOnZ2 $Attribute 23
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!
! Counter 3
!
Object QuadMultFact3 $Attribute 24
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object YDeterminesDirection3 $Attribute 25
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertX3 $Attribute 26
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertY3 $Attribute 27
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertZ3 $Attribute 28
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object ClearOnZ3 $Attribute 29
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object HoldOnZ3 $Attribute 30
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!
! Counter 4
!
Object QuadMultFact4 $Attribute 31
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object YDeterminesDirection4 $Attribute 32
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertX4 $Attribute 33
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertY4 $Attribute 34
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object InvertZ4 $Attribute 35
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object ClearOnZ4 $Attribute 36
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object HoldOnZ4 $Attribute 37
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
!
!
!
Object ErrorCount $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MaxNoOfChannels $Attribute 38
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
Object Process $Attribute 39
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 40
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Co_IpQuadrature
Body RtBody
Attr Description = "IP-Quadrature counter from Greenspring"
Attr ConvMask = 15
Attr QuadMultFact1 = 4
Attr QuadMultFact2 = 4
Attr QuadMultFact3 = 4
Attr QuadMultFact4 = 4
Attr MaxNoOfChannels = 4
Attr Process = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_danalyse.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_danalyse.wb_load -- Defines the class DAnalyse.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
Object DAnalyse $ClassDef 81
Body SysBody
Attr Flags |= pwr_mClassDef_DevOnly
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object DevBody $ObjBodyDef 2
Object Node $Input 1
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
Attr GraphName = "In"
Attr DebAnnot = 1
EndBody
EndObject
Object PlcNode $Buffer 2
Body SysBody
Attr Class = pwr_eClass_PlcNode
EndBody
EndObject
EndObject
Object GraphPlcNode $GraphPlcNode
Body SysBody
Attr object_type = 14
Attr parameters[0] = 1
Attr parameters[1] = 0
Attr parameters[2] = 0
Attr parameters[3] = 0
Attr subwindows = 0
Attr graphmethod = 12
Attr graphindex = 20
Attr default_mask[0] = 1
Attr default_mask[1] = 0
Attr segname_annotation = 0
Attr compmethod = 2
Attr compindex = 0
Attr tracemethod = 8
Attr traceindex = 1
Attr objname = "DAnalyse"
Attr graphname = "DAnalyse"
Attr debugpar = ""
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_dbdistribute.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_dbdistribute.wb_load -- Defines the class DbDistribute.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! Obsolete from V3.3.
!*/
!
SObject pwrb:Class
Object DbDistribute $ClassDef 84
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
EndBody
Object DevBody $ObjBodyDef 2
Object TargetNode $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object TargetProject $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_di_7437_37.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_di_7437_37.wb_load -- Defines the class Di_7437_37.
!
! PROVIEW/R
! Copyright (C) 1996,99 by Mandator AB.
!
! RTP Digital Input card 7437_37.
!
SObject pwrb:Class
Object Di_7437_37 $ClassDef 89
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Di_7437_37"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ConvMask1 $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object ConvMask2 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object InvMask1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object InvMask2 $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object MaxNoOfChannels $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object CardAddress $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object Process $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 15
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Di_7437_37
Body RtBody
Attr IOSysType = 3
Attr MaxNoOfChannels = 16
Attr Process = 1
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Di_7437_37-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Di_7437_37-PostUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Di_7437_37-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_directorydbconfig.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_directorydbconfig.wb_load -- Defines the class DirectoryDbConfig.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! Obsolete from V3.3.
!*/
!
SObject pwrb:Class
Object DirectoryDbConfig $ClassDef 88
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "DirectoryDbConfig"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_do_7437_83.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_do_7437_83.wb_load -- Defines the class Do_7437_83.
!
! PROVIEW/R
! Copyright (C) 1996,99 by Mandator AB.
!
! RTP Digital Output card 7437_83.
!
SObject pwrb:Class
Object Do_7437_83 $ClassDef 98
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Do_7437_83"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object DevName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DevNumber $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorCount $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object InvMask1 $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object InvMask2 $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object TestMask1 $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object TestMask2 $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object TestValue1 $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object TestValue2 $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_STATE
EndBody
EndObject
Object FixedOutValue1 $Attribute 14
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object FixedOutValue2 $Attribute 15
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object MaxNoOfChannels $Attribute 16
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object CardAddress $Attribute 17
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object Process $Attribute 18
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 19
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template Do_7437_83
Body RtBody
Attr IOSysType = 3
Attr MaxNoOfChannels = 16
Attr Process = 1
EndBody
EndObject
Object AnteAdopt $DbCallBack
Body SysBody
Attr MethodName = "Do_7437_83-AnteAdopt"
EndBody
EndObject
Object PostUnadopt $DbCallBack
Body SysBody
Attr MethodName = "Do_7437_83-PostUnadopt"
EndBody
EndObject
Object PostAdopt $DbCallBack
Body SysBody
Attr MethodName = "Do_7437_83-PostAdopt"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_ipmux.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_ipmux.wb_load -- Defines the class IpMux.
!
! PROVIEW/R
! Copyright (C) 1997,99 by Mandator AB.
!
! Interay IP-MUX.
!
SObject pwrb:Class
Object IpMux $ClassDef 265
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "IpMux"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Slot $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$Char"
EndBody
EndObject
Object Process $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 4
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object Template IpMux
Body RtBody
Attr Description = "IpMux from Interay"
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_line_lat.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_line_lat.wb_load -- Defines the class Line_LAT.
!
! PROVIEW/R
! Copyright (C) 1996,99 by Mandator AB.
!
! <Description>.
!
SObject pwrb:Class
Object Line_LAT $ClassDef 142
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Line_LAT"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object LatDevName $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String16"
EndBody
EndObject
Object ServerName $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object ServerPortName $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$String40"
EndBody
EndObject
Object DisplayIsScope $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object EscapeRec $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object Echo $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object PassAllBits $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
Object EightBit $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
EndObject
Object Template Line_LAT
Body RtBody
Attr DisplayIsScope = 0
Attr EscapeRec = 0
Attr Echo = 0
Attr PassAllBits = 1
Attr EightBit = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_muxmod.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_muxmod.wb_load -- Defines the class MuxMod.
!
! PROVIEW/R
! Copyright (C) 1997,99 by Mandator AB.
!
! Greenspring MuxMod card, handles DI and DO.
!
SObject pwrb:Class
Object MuxMod $ClassDef 266
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "MuxMod"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object NodeNumber $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
EndBody
EndObject
Object GroupIsOutput $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 5
EndBody
EndObject
Object ConvMask $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 5
EndBody
EndObject
Object InvMask $Attribute 8
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 5
EndBody
EndObject
Object TestMask $Attribute 9
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 5
EndBody
EndObject
Object TestValue $Attribute 10
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 5
EndBody
EndObject
Object FixedOutValue $Attribute 11
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
Attr Flags |= PWR_MASK_ARRAY
Attr Elements = 5
EndBody
EndObject
Object ErrorCount $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_STATE
Attr Flags |= PWR_MASK_INVISIBLE
EndBody
EndObject
Object ErrorSoftLimit $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ErrorHardLimit $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MaxNoOfChannels $Attribute 12
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
Object Process $Attribute 13
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 14
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object ChannelAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template MuxMod
Body RtBody
Attr Description = "MUXMOD from Interay"
Attr ConvMask[0] = 255
Attr ConvMask[1] = 255
Attr ConvMask[2] = 255
Attr ConvMask[3] = 255
Attr ConvMask[4] = 255
Attr MaxNoOfChannels = 40
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_rack_rtp.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_rack_rtp.wb_load -- Defines the class Rack_RTP.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
Object Rack_RTP $ClassDef 187
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "Rack_RTP"
EndBody
Object IOSysType $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object Description $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object MaxNoOfCards $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
Attr Flags |= PWR_MASK_CONST
EndBody
EndObject
Object RackAddress $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
EndObject
Object Template Rack_RTP
Body RtBody
Attr IOSysType = 3
Attr MaxNoOfCards = 16
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_rtp_dioc.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_rtp_dioc.wb_load -- Defines the class RTP_DIOC.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! RTP Distibuted IO Controller object.
!
! Range ldh_eDId_Base
!
SObject pwrb:Class
Object RTP_DIOC $ClassDef 197
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "RTP_DIOC"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Address $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
EndBody
EndObject
Object ScanInterval $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$Float32"
EndBody
EndObject
Object TimeOutTime $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object NoOfReXmissions $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt8"
EndBody
EndObject
Object CommOk $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$Boolean"
EndBody
EndObject
EndObject
Object Template RTP_DIOC
Body RtBody
Attr Address = 0
Attr ScanInterval = 5.0
Attr TimeOutTime = 2000
Attr NoOfReXmissions = 3
Attr CommOk = 1
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_security.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_security.wb_load -- Defines the class Security.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! Obsolete from V3.4
!*/
!
SObject pwrb:Class
Object Security $ClassDef 198
Body SysBody
Attr Flags |= pwr_mClassDef_DevOnly
Attr Flags |= pwr_mClassDef_TopObject
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_DevBodyOnly
EndBody
Object DevBody $ObjBodyDef 2
Object SystemGroup $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String16"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_systemdistribute.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_systemdistribute.wb_load -- Defines the class SystemDistribute.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! @Version 1.0
! @Summary Obsolete from V4.0.
! @b Obsolete from V4.0
! The SystemDistribute object configures distribution of ELN
! system files generated by EBUILD.
!
! One SystemDistribute object causes one system file to be copied from
! the development project environment to a process or operator station.
!
! The object reside in the project volume beneath a NodeConfig object.
! The specified file will be copied to the boot node of the NodeConfig
! object, which is specified in the BootNode attribute.
!
! The distribution is carried out by the distribution window in the
! navigator, or by pwr_cmd with the command 'copy system' or 'copy all'.
!
! @b See also
! @classlink NodeConfig pwrb_NodeConfig.html
! @classlink ApplDistribute pwrb_ApplDistribute.html
! @classlink GraphDistribute pwrb_GraphDistribute.html
!*/
!
SObject pwrb:Class
Object SystemDistribute $ClassDef 235
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
EndBody
Object DevBody $ObjBodyDef 2
!/**
! @Summary Source file specification.
! Source file specification.
!
! Example
! $pwrp_load/vxeln1.sys
!*/
Object Source $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
!/**
! @Summary Target file specification.
! Target file specification.
! Should only be supplied if the target path or filename differs
! from the source.
! If the ELN node is booting from a local disk, the target filename
! should be '[sys0.sysexe]sysboot.exe'
!*/
Object Target $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_tracedbconfig.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_tracedbconfig.wb_load -- Defines the class TraceDbConfig.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!/**
! Obsolete from V3.4
!*/
!
SObject pwrb:Class
Object TraceDbConfig $ClassDef 85
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_Standard
Attr Flags |= pwr_mClassDef_TopObject
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "TraceDbConfig"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object Id $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$String32"
EndBody
EndObject
EndObject
Object NavigatorPosnn $Menu
Object Pointed $Menu
Object OpenDb $MenuButton
Body SysBody
Attr ButtonName = "Open Db..."
Attr MethodName = "DbConfig-OpenDb"
EndBody
EndObject
EndObject
EndObject
Object NavigatorPoson $Menu
Object Pointed $Menu
Object OpenDb $MenuButton
Body SysBody
Attr ButtonName = "Open Db..."
Attr MethodName = "DbConfig-OpenDb"
EndBody
EndObject
EndObject
EndObject
Object NavigatorPosos $Menu
Object Pointed $Menu
Object OpenDb $MenuButton
Body SysBody
Attr ButtonName = "Open Db..."
Attr MethodName = "DbConfig-OpenDb"
EndBody
EndObject
EndObject
EndObject
Object NavigatorPosms $Menu
Object Pointed $Menu
Object OpenDb $MenuButton
Body SysBody
Attr ButtonName = "Open Db..."
Attr MethodName = "DbConfig-OpenDb"
EndBody
EndObject
EndObject
EndObject
Object NavigatorPosmn $Menu
Object Pointed $Menu
Object OpenDb $MenuButton
Body SysBody
Attr ButtonName = "Open Db..."
Attr MethodName = "DbConfig-OpenDb"
EndBody
EndObject
EndObject
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_c_vipc616.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_c_vipc616.wb_load -- Defines the class VIPC616.
!
! PROVIEW/R
! Copyright (C) 1997,99 by Mandator AB.
!
! Greenspring IP Carrier VIPC616.
!
SObject pwrb:Class
Object VIPC616 $ClassDef 267
Body SysBody
Attr Editor = pwr_eEditor_AttrEd
Attr Method = pwr_eMethod_RtAndDevBodies
Attr Flags |= pwr_mClassDef_IO
EndBody
Object RtBody $ObjBodyDef 1
Body SysBody
Attr StructName = "VIPC616"
EndBody
Object Description $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$String80"
EndBody
EndObject
Object IoAddress $Attribute 2
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt16"
EndBody
EndObject
Object MemoryAddress $Attribute 3
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MemoryBase $Attribute 4
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MemorySlotSize $Attribute 5
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object MaxNoOfSlots $Attribute 6
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
Object Process $Attribute 7
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
EndBody
EndObject
Object ThreadObject $Intern 8
Body SysBody
Attr TypeRef = "pwrs:Type-$Objid"
EndBody
EndObject
EndObject
Object DevBody $ObjBodyDef 2
Object SlotAllocation $Attribute 1
Body SysBody
Attr TypeRef = "pwrs:Type-$UInt32"
Attr Flags |= PWR_MASK_NOEDIT
EndBody
EndObject
EndObject
Object Template VIPC616
Body RtBody
Attr Description = "IP Carrier card VIPC616 from Greenspring"
Attr MemoryBase = 24
Attr MemorySlotSize = 128
Attr MaxNoOfSlots = 4
EndBody
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_l_base.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_l_base.wb_load -- Defines basic layouts.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!
SObject wb:
Object layout $Layout
EndObject
EndSObject
!
SObject wb:layout
Object Navigator $Group
Object w2 $Group
Object $PlantHier $Group
EndObject
Object $LibHier $Group
EndObject
Object $Alias $Group
EndObject
Object $MountObject $Group
EndObject
EndObject
Object w3 $Group
Object Security $Group
EndObject
Object $NodeHier $Group
EndObject
Object $Node $Group
EndObject
Object $Layout $Group
EndObject
EndObject
EndObject
Object Configurator $Group
Object w1 $Group
Object Plant $Group
Object $PlantHier $Group
EndObject
Object Signals $GroupRef
EndObject
Object DataStorage $Group
Object DsFast $Group
EndObject
Object DsHist $Group
EndObject
Object DsTrend $Group
EndObject
EndObject
Object Supervision $Group
Object ASup $Group
EndObject
Object DSup $Group
EndObject
EndObject
Object PlcPgm $Group
EndObject
Object Backup $Group
EndObject
Object $LibHier $Group
EndObject
Object $DocHier $Group
EndObject
Object $MountObject $Group
EndObject
Object $Alias $Group
EndObject
EndObject
Object Node $Group
Object $NodeHier $Group
EndObject
Object $Node $Group
EndObject
Object $MountObject $Group
EndObject
Object $CreateVolume $Group
EndObject
Object $MountVolume $Group
EndObject
Object Servers $Group
Object Backup_Conf $Group
EndObject
Object DsFastConf $Group
EndObject
Object DsHistServer $Group
EndObject
Object DsTrendConf $Group
EndObject
Object IOHandler $Group
EndObject
Object MessageHandler $Group
EndObject
Object PlcProcess $Group
EndObject
Object PlcThread $Group
EndObject
Object WebHandler $Group
EndObject
EndObject
Object IO_RTP $Group
Object Rack_RTP $Group
EndObject
Object Cards $Group
Object Di_7437_37 $Group
EndObject
Object Do_7437_83 $Group
EndObject
Object Ai_7436 $Group
EndObject
Object Ao_7455_20 $Group
EndObject
Object Ao_7455_30 $Group
EndObject
EndObject
Object Channels $GroupRef
EndObject
Object DIOC $Group
Object Line_LAT $Group
EndObject
Object RTP_DIOC $Group
EndObject
EndObject
Object IOHandler $Group
EndObject
EndObject
Object IO_SSAB $Group
Object Rack_SSAB $Group
EndObject
Object Cards $Group
Object Di_DIX2 $Group
EndObject
Object Do_HVDO32 $Group
EndObject
Object Ai_HVAI32 $Group
EndObject
Object Ai_AI32uP $Group
EndObject
Object Ao_HVAO4 $Group
EndObject
Object Co_PI24BO $Group
EndObject
Object PID_1uP $Group
EndObject
EndObject
Object Channels $GroupRef
EndObject
Object IOHandler $Group
EndObject
EndObject
Object IO_VME $Group
Object Rack_VME $Group
EndObject
Object Cards $Group
Object Ai_Vmic3113A $Group
EndObject
Object Ao_Vmic4800 $Group
EndObject
Object IP $Group
Object VIPC616 $Group
EndObject
Object Co_IpQuadrature $Group
EndObject
Object IpMux $Group
EndObject
Object MuxMod $Group
EndObject
EndObject
EndObject
Object Channels $Group
EndObject
Object IOHandler $Group
EndObject
EndObject
Object Profibus $Group
Object Masters $Group
Object Pb_Profiboard $Group
EndObject
EndObject
Object Slaves $Group
Object Pb_DP_Slave $Group
EndObject
Object Pb_ET200M $Group
EndObject
Object Pb_NPBA12 $Group
EndObject
Object Pb_Euro2500 $Group
EndObject
EndObject
Object Modules $Group
Object Pb_Di $Group
EndObject
Object Pb_Do $Group
EndObject
Object Pb_Ai $Group
EndObject
Object Pb_Ao $Group
EndObject
EndObject
EndObject
Object Operator $Group
Object OpPlace $Group
EndObject
Object User $Group
EndObject
Object EventPrinter $Group
EndObject
Object Form $Group
EndObject
Object Graph $Group
EndObject
Object XttGraph $Group
EndObject
Object OpAppl $Group
EndObject
Object OpApplMsg $Group
EndObject
EndObject
Object $Appl $Group
EndObject
Object PlotGroup $Group
EndObject
Object CycleSup $Group
EndObject
Object NodeLinkSup $Group
EndObject
EndObject
Object AllClasses $Group
Object pwrs $GroupRef
EndObject
Object pwrb $GroupRef
EndObject
EndObject
EndObject
Object w2 $Group
Object $PlantHier $Group
EndObject
Object $LibHier $Group
EndObject
Object $Alias $Group
EndObject
Object $MountObject $Group
EndObject
EndObject
Object w3 $Group
Object Security $Group
EndObject
Object $NodeHier $Group
EndObject
Object $Node $Group
EndObject
Object $Layout $Group
EndObject
EndObject
EndObject
Object ClassNavigator $Group
Object w2 $Group
Object $ClassHier $Group
EndObject
Object $TypeHier $Group
EndObject
EndObject
Object w3 $Group
Object $System $Group
EndObject
EndObject
EndObject
Object ClassConfigurator $Group
Object w1 $Group
Object AllClasses $Group
Object pwrs $GroupRef
EndObject
Object pwrb $GroupRef
EndObject
EndObject
EndObject
Object w2 $Group
Object $ClassHier $Group
EndObject
Object $TypeHier $Group
EndObject
EndObject
Object w3 $Group
Object $System $Group
EndObject
EndObject
EndObject
Object ProjectNavigator $Group
Object w2 $Group
Object DbConfig $Group
EndObject
Object DirectoryDbConfig $Group
EndObject
Object TraceDbConfig $Group
EndObject
EndObject
Object w3 $Group
Object $System $Group
EndObject
Object NodeConfig $Group
EndObject
Object FriendNodeConfig $Group
EndObject
EndObject
EndObject
Object ProjectConfigurator $Group
Object w1 $Group
Object Volume $Group
Object ClassVolumeConfig $Group
EndObject
Object CommonClassDistribute $Group
EndObject
Object DbConfig $Group
EndObject
Object DbDistribute $Group
EndObject
Object TraceDbConfig $Group
EndObject
Object DirectoryDbConfig $Group
EndObject
Object $PlantHier $Group
EndObject
Object RootVolumeConfig $Group
EndObject
Object SharedVolumeConfig $Group
EndObject
Object SubVolumeConfig $Group
EndObject
Object VolumeDistribute $Group
EndObject
EndObject
Object Node $Group
Object ApplDistribute $Group
EndObject
Object ClassVolumeLoad $Group
EndObject
Object FriendNodeConfig $Group
EndObject
Object GraphDistribute $Group
EndObject
Object NodeConfig $Group
EndObject
Object $NodeHier $Group
EndObject
Object RootVolumeLoad $Group
EndObject
Object SharedVolumeLoad $Group
EndObject
Object SubVolumeLoad $Group
EndObject
Object $System $Group
EndObject
Object SystemDistribute $Group
EndObject
EndObject
EndObject
Object w2 $Group
Object DbConfig $Group
EndObject
Object DirectoryDbConfig $Group
EndObject
Object TraceDbConfig $Group
EndObject
EndObject
Object w3 $Group
Object $System $Group
EndObject
Object NodeConfig $Group
EndObject
Object FriendNodeConfig $Group
EndObject
Object $Layout $Group
EndObject
EndObject
EndObject
Object PlcEditor $Group
Object w1 $Group
Object Grafcet $Group
Object InitStep $Group
EndObject
Object Order $Group
EndObject
Object OrderAct $Group
EndObject
Object Reset_SO $Group
EndObject
Object SetCond $Group
EndObject
Object SsBegin $Group
EndObject
Object SsEnd $Group
EndObject
Object Step $Group
EndObject
Object SubStep $Group
EndObject
Object Trans $Group
EndObject
EndObject
Object IO $Group
Object ApCollect $Group
EndObject
Object ApDistribute $Group
EndObject
Object BCDDo $Group
EndObject
Object CStoAo $Group
EndObject
Object CStoAp $Group
EndObject
Object CStoAv $Group
EndObject
Object CStoIp $Group
EndObject
Object DataCollect $Group
EndObject
Object DiBCD $Group
EndObject
Object DpCollect $Group
EndObject
Object DpDistribute $Group
EndObject
Object GetAi $Group
EndObject
Object GetAo $Group
EndObject
Object GetAp $Group
EndObject
Object GetAv $Group
EndObject
Object GetData $Group
EndObject
Object GetDi $Group
EndObject
Object GetDo $Group
EndObject
Object GetDp $Group
EndObject
Object GetDv $Group
EndObject
Object GetIp $Group
EndObject
Object GetPi $Group
EndObject
Object Gray $Group
EndObject
Object PiPos $Group
EndObject
Object ResDo $Group
EndObject
Object ResDp $Group
EndObject
Object ResDv $Group
EndObject
Object SetDo $Group
EndObject
Object SetDp $Group
EndObject
Object SetDv $Group
EndObject
Object StoAo $Group
EndObject
Object StoAp $Group
EndObject
Object StoAv $Group
EndObject
Object StoDo $Group
EndObject
Object StoDp $Group
EndObject
Object StoDv $Group
EndObject
Object StoIp $Group
EndObject
EndObject
Object Logic $Group
Object ASup $Group
EndObject
Object And $Group
EndObject
Object Count $Group
EndObject
Object DSup $Group
EndObject
Object Edge $Group
EndObject
Object Inv $Group
EndObject
Object Or $Group
EndObject
Object Pulse $Group
EndObject
Object SR_R $Group
EndObject
Object SR_S $Group
EndObject
Object Timer $Group
EndObject
Object Wait $Group
EndObject
Object Waith $Group
EndObject
Object XOr $Group
EndObject
Object CSub $Group
EndObject
EndObject
Object Analog $Group
Object Adelay $Group
EndObject
Object AArithm $Group
EndObject
Object CArithm $Group
EndObject
Object Comph $Group
EndObject
Object Compl $Group
EndObject
Object Curve $Group
EndObject
Object DArithm $Group
EndObject
Object DataArithm $Group
EndObject
Object Filter $Group
EndObject
Object Limit $Group
EndObject
Object Maxmin $Group
EndObject
Object PiSpeed $Group
EndObject
Object Ramp $Group
EndObject
Object Select $Group
EndObject
Object ScanTime $Group
EndObject
Object Speed $Group
EndObject
Object Sum $Group
EndObject
Object Table $Group
EndObject
Object Timint $Group
EndObject
EndObject
Object Control $Group
Object Inc3P $Group
EndObject
Object Mode $Group
EndObject
Object Out2P $Group
EndObject
Object PID $Group
EndObject
Object PidX $Group
EndObject
Object Pos3P $Group
EndObject
EndObject
Object Drive $Group
Object Drive $Group
EndObject
Object MValve $Group
EndObject
Object Posit $Group
EndObject
Object Valve $Group
EndObject
EndObject
Object Backup $Group
Object Backup $Group
EndObject
EndObject
Object Edit $Group
Object BodyText $Group
EndObject
Object Document $Group
EndObject
Object DocUser1 $Group
EndObject
Object DocUser2 $Group
EndObject
Object Frame $Group
EndObject
Object Head $Group
EndObject
Object Point $Group
EndObject
Object ShowPlcAttr $Group
EndObject
Object Text $Group
EndObject
Object Title $Group
EndObject
EndObject
Object Trace $Group
Object AAnalyse $Group
EndObject
Object DAnalyse $Group
EndObject
EndObject
EndObject
Object w2 $Group
Object ConPlc $Group
Object ConDigital $Group
EndObject
Object ConAnalog $Group
EndObject
Object ConFeedbackDigital $Group
EndObject
Object ConFeedbackAnalog $Group
EndObject
Object ConExecuteOrder $Group
EndObject
EndObject
Object ConGrafcet $Group
Object ConGrafcet $Group
EndObject
Object StepConv $Group
EndObject
Object StepDiv $Group
EndObject
Object TransConv $Group
EndObject
Object TransDiv $Group
EndObject
EndObject
Object ConDocumentation $Group
Object Solid $Group
Object ConThinNoArr $Group
EndObject
Object ConThinOneArr $Group
EndObject
Object ConThinTwoArr $Group
EndObject
Object ConMeNoArr $Group
EndObject
Object ConMeOneArr $Group
EndObject
Object ConMeTwoArr $Group
EndObject
EndObject
Object Dashed $Group
Object ConDaThinNoArr $Group
EndObject
Object ConDaThinOneArr $Group
EndObject
Object ConDaThinTwoArr $Group
EndObject
Object ConDaMeNoArr $Group
EndObject
Object ConDaMeOneArr $Group
EndObject
Object ConDaMeTwoArr $Group
EndObject
EndObject
Object SharpCorners $Group
Object ConReMeNoArr $Group
EndObject
Object ConReMeOneArr $Group
EndObject
Object ConReMeTwoArr $Group
EndObject
EndObject
EndObject
EndObject
EndObject
Object Channels $Group
Object ChanDi $Group
EndObject
Object ChanDo $Group
EndObject
Object ChanAi $Group
EndObject
Object ChanAit $Group
EndObject
Object ChanAo $Group
EndObject
Object ChanCo $Group
EndObject
EndObject
Object Signals $Group
Object Di $Group
EndObject
Object Do $Group
EndObject
Object Dv $Group
EndObject
Object Ai $Group
EndObject
Object Ao $Group
EndObject
Object Av $Group
EndObject
Object Co $Group
EndObject
Object Po $Group
EndObject
EndObject
EndSObject
src/wbl/pwrb/src/pwrb_l_simul.wb_load deleted 100644 → 0
View file @ acf58315
! pwrb_l_simul.wb_load -- Defines layouts for simulation objects.
!
! PROVIEW/R
! Copyright (C) 1996 by Comator Process AB.
!
! <Description>.
!
!
SObject wb:layout-PlcEditor-w1
Object Simulate $Group
Object CStoAi $Group
EndObject
Object StoAi $Group
EndObject
Object ResDi $Group
EndObject
Object SetDi $Group
EndObject
Object StoDi $Group
EndObject
Object StoPi $Group
EndObject
EndObject
EndSObject
wb/exe/wb/src/wb.cpp
View file @ b432bcce
......@@ -74,7 +74,6 @@ static Widget mainwindow;
static ldh_tWBContext wbctx;
static int announce = 0;
static int appl_count = 0;
static char wb_db_id[40] = "";
/* ????? Ska vara volymsid */
int pwr_vsel_success( void *vselctx,
......@@ -150,14 +149,6 @@ int psts(unsigned long int sts, FILE *logfile)
return sts & 1;
}
int wb_get_db_id( void)
{
int sts;
sts = utl_get_database_id( wb_db_id);
return sts;
}
static void wb_find_wnav_cb( void *ctx, pwr_tOid oid)
{
char title[80];
......@@ -567,9 +558,6 @@ int main( int argc, char *argv[])
XtSetValues( toplevel, args, 1);
}
sts = wb_get_db_id();
psts(sts, NULL);
if ( sw_projectvolume) {
Wtt *wtt;
......
wb/lib/wb/src/wb_c_chanai.c
View file @ b432bcce
......@@ -23,10 +23,10 @@ static pwr_tStatus SyntaxCheck (
int *ErrorCount, /* accumulated error count */
int *WarningCount /* accumulated waring count */
) {
pwr_tStatus sts;
// pwr_tStatus sts;
sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
if (EVEN(sts)) return sts;
// sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
// if (EVEN(sts)) return sts;
return PWRB__SUCCESS;
}
......
wb/lib/wb/src/wb_c_chanao.c
View file @ b432bcce
......@@ -23,10 +23,10 @@ static pwr_tStatus SyntaxCheck (
int *ErrorCount, /* accumulated error count */
int *WarningCount /* accumulated waring count */
) {
pwr_tStatus sts;
// pwr_tStatus sts;
sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
if (EVEN(sts)) return sts;
// sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
// if (EVEN(sts)) return sts;
return PWRB__SUCCESS;
}
......
wb/lib/wb/src/wb_c_chandi.c
View file @ b432bcce
......@@ -23,10 +23,10 @@ static pwr_tStatus SyntaxCheck (
int *ErrorCount, /* accumulated error count */
int *WarningCount /* accumulated waring count */
) {
pwr_tStatus sts;
// pwr_tStatus sts;
sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
if (EVEN(sts)) return sts;
// sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
// if (EVEN(sts)) return sts;
return PWRB__SUCCESS;
}
......
wb/lib/wb/src/wb_c_chando.c
View file @ b432bcce
......@@ -23,10 +23,10 @@ static pwr_tStatus SyntaxCheck (
int *ErrorCount, /* accumulated error count */
int *WarningCount /* accumulated waring count */
) {
pwr_tStatus sts;
// pwr_tStatus sts;
sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
if (EVEN(sts)) return sts;
// sts = wsx_CheckSigChanCon( Session, Object, ErrorCount, WarningCount);
// if (EVEN(sts)) return sts;
return PWRB__SUCCESS;
}
......
wb/lib/wb/src/wb_goenm4.c
View file @ b432bcce
......@@ -28,8 +28,6 @@ typedef enum {
goen_eGraphIndex_SSBegin = 12,
goen_eGraphIndex_SSEnd = 13,
goen_eGraphIndex_ShowPlcAttr = 15,
goen_eGraphIndex_AAnalyse = 19,
goen_eGraphIndex_DAnalyse = 20,
goen_eGraphIndex_MpsIn = 25,
goen_eGraphIndex_MpsQueue = 26,
goen_eGraphIndex_MpsStack = 27,
......
wb/lib/wb/src/wb_i_base_methods.c
View file @ b432bcce
......@@ -6,19 +6,14 @@
#include "wb_pwrs.h"
pwr_dImport pwr_BindMethods(ASup);
pwr_dImport pwr_BindMethods(Ai_7436);
pwr_dImport pwr_BindMethods(Ai_HVAI32);
pwr_dImport pwr_BindMethods(Ai_AI32uP);
pwr_dImport pwr_BindMethods(Ao_7455_20);
pwr_dImport pwr_BindMethods(Ao_7455_30);
pwr_dImport pwr_BindMethods(Ao_HVAO4);
pwr_dImport pwr_BindMethods(Ao_AO8uP);
pwr_dImport pwr_BindMethods(Backup);
pwr_dImport pwr_BindMethods(Co_7435_33);
pwr_dImport pwr_BindMethods(Co_7437_33);
pwr_dImport pwr_BindMethods(Co_PI24BO);
pwr_dImport pwr_BindMethods(Di_7437_37);
pwr_dImport pwr_BindMethods(Co_CO4uP);
pwr_dImport pwr_BindMethods(Di_DIX2);
pwr_dImport pwr_BindMethods(Do_7437_83);
pwr_dImport pwr_BindMethods(Do_HVDO32);
pwr_dImport pwr_BindMethods(DsFast);
pwr_dImport pwr_BindMethods(DsHist);
......@@ -36,12 +31,16 @@ pwr_dImport pwr_BindMethods(ChanAi);
pwr_dImport pwr_BindMethods(ChanAit);
pwr_dImport pwr_BindMethods(ChanAo);
pwr_dImport pwr_BindMethods(ChanCo);
pwr_dImport pwr_BindMethods(ChanIi);
pwr_dImport pwr_BindMethods(ChanIo);
pwr_dImport pwr_BindMethods(Di);
pwr_dImport pwr_BindMethods(Do);
pwr_dImport pwr_BindMethods(Ai);
pwr_dImport pwr_BindMethods(Ao);
pwr_dImport pwr_BindMethods(Co);
pwr_dImport pwr_BindMethods(Po);
pwr_dImport pwr_BindMethods(Ii);
pwr_dImport pwr_BindMethods(Io);
pwr_dImport pwr_BindMethods(XttGraph);
pwr_dImport pwr_BindMethods(WebGraph);
pwr_dImport pwr_BindMethods(OpPlace);
......@@ -53,19 +52,14 @@ pwr_dImport pwr_BindMethods(NodeConfig);
pwr_dExport pwr_BindClasses(Base) = {
pwr_BindClass(ASup),
pwr_BindClass(Ai_7436),
pwr_BindClass(Ai_HVAI32),
pwr_BindClass(Ai_AI32uP),
pwr_BindClass(Ao_7455_20),
pwr_BindClass(Ao_7455_30),
pwr_BindClass(Ao_HVAO4),
pwr_BindClass(Ao_AO8uP),
pwr_BindClass(Backup),
pwr_BindClass(Co_7435_33),
pwr_BindClass(Co_7437_33),
pwr_BindClass(Co_PI24BO),
pwr_BindClass(Di_7437_37),
pwr_BindClass(Co_CO4uP),
pwr_BindClass(Di_DIX2),
pwr_BindClass(Do_7437_83),
pwr_BindClass(Do_HVDO32),
pwr_BindClass(DsFast),
pwr_BindClass(DsHist),
......@@ -83,12 +77,16 @@ pwr_dExport pwr_BindClasses(Base) = {
pwr_BindClass(ChanAit),
pwr_BindClass(ChanAo),
pwr_BindClass(ChanCo),
pwr_BindClass(ChanIi),
pwr_BindClass(ChanIo),
pwr_BindClass(Di),
pwr_BindClass(Do),
pwr_BindClass(Ai),
pwr_BindClass(Ao),
pwr_BindClass(Co),
pwr_BindClass(Po),
pwr_BindClass(Ii),
pwr_BindClass(Io),
pwr_BindClass(XttGraph),
pwr_BindClass(WebGraph),
pwr_BindClass(OpPlace),
......
wb/lib/wb/src/wb_utl.c
View file @ b432bcce
......@@ -9366,277 +9366,6 @@ int utl_get_systemobject(
return FOE__SUCCESS;
}
/*************************************************************************
*
* Name: utl_get_securityobject()
*
* Type void
*
* Type Parameter IOGF Description
* ldh_tWBContext ldhwb I ldh worcbench.
* ldh_tSesContext ldhses I ldh session.
* pwr_tObjid * Objdid O system objdid.
*
* Description:
* Get the system object objid and the systemname attribute.
* If no session is open yet, the workbench should be supplied.
*
**************************************************************************/
int utl_get_securityobject(
ldh_tWBContext wbctx,
ldh_tSesContext ldhses,
pwr_tObjid *security_objid,
char *group
)
{
static pwr_tObjid stored_objid = {0,0};
int sts, size, found;
pwr_tClassId class;
ldh_tVolContext volctx;
ldh_tSesContext l_ldhses;
char *group_ptr;
pwr_tObjid objid;
if ( group != NULL)
*group = 0;
l_ldhses = ldhses;
if ( ldhses != NULL && cdh_ObjidIsNotNull( stored_objid))
{
/* Check that the stored systemobject still exist */
sts = ldh_GetObjectClass( ldhses, stored_objid, &class);
if ( ODD(sts))
{
*security_objid = stored_objid;
if ( group != NULL)
{
sts = ldh_GetObjectPar( ldhses, objid, "DevBody",
"SystemGroup", (char **)&group_ptr, &size);
if ( EVEN(sts)) return sts;
strcpy( group, group_ptr);
free((char *) group_ptr);
}
return FOE__SUCCESS;
}
}
/* System object not stored, or stored object not found */
if ( ldhses != NULL)
{
sts = ldh_GetVolumeRootList( l_ldhses, ldh_cWBVol, &objid);
}
else
{
/* Session is not supplied. Attach the workbench volume */
sts = ldh_AttachVolume( wbctx, ldh_cWBVol, &volctx);
if ( EVEN(sts)) return sts;
sts = ldh_OpenSession(&l_ldhses, volctx,ldh_eAccess_ReadOnly,
ldh_eUtility_Login);
if ( EVEN(sts)) return sts;
sts = ldh_GetRootList( l_ldhses, &objid);
}
found = 0;
while ( ODD(sts) )
{
sts = ldh_GetObjectClass( l_ldhses, objid, &class);
if ( EVEN(sts)) return sts;
if ( class == pwr_cClass_Security)
{
found = 1;
break;
}
sts = ldh_GetNextSibling( l_ldhses, objid, &objid);
}
if ( found)
{
if ( group != NULL)
{
sts = ldh_GetObjectPar( l_ldhses, objid, "DevBody",
"SystemGroup", (char **)&group_ptr, &size);
if ( EVEN(sts)) return sts;
strcpy( group, group_ptr);
free((char *) group_ptr);
}
}
if ( ldhses == NULL)
{
sts = ldh_CloseSession( l_ldhses);
if (EVEN(sts)) return sts;
sts = ldh_DetachVolume( wbctx, volctx);
if (EVEN(sts)) return sts;
}
if ( !found )
return FOE__OBJECT;
*security_objid = objid;
return FOE__SUCCESS;
}
/*************************************************************************
*
* Name: utl_set_database_id()
*
* Type int
*
* Type Parameter IOGF Description
*
* Description: Set wb database.
*
**************************************************************************/
int utl_set_database_id( char *dbid)
{
#if defined OS_VMS
pwr_tStatus sts;
char lnm_value[80];
char dbfile[100];
char found_file[256];
sprintf( lnm_value, "PWRP_ROOT:[COMMON.DB.%s]", dbid);
// Check if db exist
strcpy( dbfile, lnm_value);
strcat( dbfile, "WB.RDB");
sts = dcli_search_file( dbfile, found_file, DCLI_DIR_SEARCH_INIT);
dcli_search_file( dbfile, found_file, DCLI_DIR_SEARCH_END);
if ( EVEN(sts)) return sts;
sts = dir_DefineLogical( "PWRP_DB", lnm_value, "LNM$PROCESS");
if ( EVEN(sts)) return sts;
#else
pwr_tStatus sts;
char dbname[80];
char cmd[256];
char systemname[80];
char systemgroup[80];
char *server;
char filename[120];
char id[80];
cdh_ToLower( id, dbid);
// Check if db exist
dcli_translate_filename( filename, "$pwr_exe/pwrp_env.sh");
sprintf( cmd, "%s show db %s", filename, id);
sts = system( cmd);
if ( sts >> 8 == 1)
sts = 0;
else
sts = 1;
if ( EVEN(sts))
return FOE__NODB;
utl_get_systemname( systemname, systemgroup);
cdh_ToLower( systemname, systemname);
server = getenv( "pwrp_mysql_server");
if ( server)
sprintf( dbname, "%s:%s_%s_%s", server, systemname, id, pwrv_cWbdbVersionShortStr);
else
sprintf( dbname, ":%s_%s_%s", systemname, id, pwrv_cWbdbVersionShortStr);
sts = setenv( "PWRP_DB", dbname, 1);
if ( sts != 0)
return FOE__SH;
#endif
return FOE__SUCCESS;
}
/*************************************************************************
*
* Name: utl_get_database_id()
*
* Type void
*
* Type Parameter IOGF Description
*
* Description:
* Get current database id.
*
**************************************************************************/
int utl_get_database_id( char *id)
{
#if defined OS_VMS
char found_file[80];
char dev[80];
char dir[80];
char file[80];
char type[80];
int version;
char *s;
pwr_tStatus sts;
char db_str[80];
sts = dcli_search_file( "pwrp_db:wb.rdb", found_file, DCLI_DIR_SEARCH_INIT);
dcli_search_file( "pwrp_db:wb.rdb", found_file, DCLI_DIR_SEARCH_END);
if ( EVEN(sts)) return sts;
sts = dcli_parse_filename( found_file, dev, dir, file, type, &version);
if ( EVEN(sts)) return sts;
s = strrchr( dir, '.');
if ( s)
strcpy( db_str, ++s);
else
strcpy( db_str, dir);
db_str[ strlen(db_str)-1] = 0;
strcpy( id, db_str);
#else
int sts;
char *s1, *s2;
char projectname[80];
char envstr[80];
char version_str[10];
sts = utl_get_projectname( projectname);
if ( EVEN(sts)) return sts;
cdh_ToLower( projectname, projectname);
s1 = getenv( "PWRP_DB");
if ( s1 == 0)
return 0;
cdh_ToLower( envstr, s1);
cdh_ToLower( version_str, pwrv_cWbdbVersionShortStr);
s2 = strchr( envstr, ':');
if ( s2 == NULL)
return 0;
s2++;
if ( strncmp( s2, projectname, strlen(projectname)) != 0)
return 0;
s1 = strrchr( envstr, '_');
if ( s1 == NULL)
return 0;
if ( strcmp( s1+1, version_str) != 0)
return 0;
*s1 = 0;
if ( strcmp( s2, projectname) == 0)
/* DbDirectory */
strcpy( id, "");
else if ( strlen(projectname) + 1 >= strlen( s2))
return 0;
else
strcpy( id, s2 + strlen(projectname) + 1);
#endif
return FOE__SUCCESS;
}
/*************************************************************************
*
* Name: utl_get_listconfig_object()
......
wb/lib/wb/src/wb_utl.h
View file @ b432bcce
......@@ -322,13 +322,6 @@ int utl_get_systemobject(
char *systemgroup
);
int utl_get_securityobject(
ldh_tWBContext wbctx,
ldh_tSesContext ldhses,
pwr_tObjid *security_objid,
char *group
);
int utl_sortchildren (
ldh_tSesContext ldhses,
char *parent_name,
......@@ -491,7 +484,4 @@ int utl_revert (
int confirm
);
int utl_get_database_id( char *id);
int utl_set_database_id( char *dbid);
#endif
wb/lib/wb/src/wb_wblnode.cpp
View file @ b432bcce
......@@ -149,12 +149,6 @@ static wbl_sSym classes[] =
,{ "pwr_eCix_LibHier", pwr_eCix_LibHier }
,{ "pwr_eClass_DocHier", pwr_eClass_DocHier }
,{ "pwr_eCix_DocHier", pwr_eCix_DocHier }
,{ "pwr_eClass_SystemVersion", pwr_eClass_SystemVersion }
,{ "pwr_eCix_SystemVersion", pwr_eCix_SystemVersion }
,{ "pwr_eClass_NodeVersion", pwr_eClass_NodeVersion }
,{ "pwr_eCix_NodeVersion", pwr_eCix_NodeVersion }
,{ "pwr_eClass_BootVersion", pwr_eClass_BootVersion }
,{ "pwr_eCix_BootVersion", pwr_eCix_BootVersion }
,{ "pwr_eClass_AttrXRef", pwr_eClass_AttrXRef }
,{ "pwr_eCix_AttrXRef", pwr_eCix_AttrXRef }
,{ "pwr_eClass_Menu", pwr_eClass_Menu }
......
wb/lib/wb/src/wb_wnav_command.cpp
View file @ b432bcce
......@@ -59,7 +59,6 @@ extern "C" {
extern "C" {
#include "wb_wccm.h"
#include "flow_x.h"
#include "wb_distr.h"
#include "co_api.h"
}
......@@ -163,8 +162,7 @@ dcli_tCmdTable wnav_command_table[] = {
"/FILE", "/LOCAL", "/INITSTEP",
"/MAXOBJECTS", "/VOLUME", "/ALL", "/TYPE",
"/OPTION", "/TERMINAL", "/OUTPUT",
"/FULL", "/APPEND", "/EXACTORDER",
"/NODE", "/BUSNUMBER", ""}
"/FULL", "/APPEND", "/EXACTORDER", ""}
},
{
"COMPILE",
......@@ -215,7 +213,7 @@ dcli_tCmdTable wnav_command_table[] = {
&wnav_copy_func,
{ "dcli_arg1", "/FIRST", "/LAST", "/AFTER", "/BEFORE",
"/HIERARCHY", "/SOURCE", "/DESTINATION", "/NAME",
"/NODE", "/BUSNUMBER", "/NOCONFIRM", "/VERBOSE", "/KEEPREFERENCES", ""}
"/KEEPREFERENCES", ""}
},
{
"CUT",
......@@ -342,7 +340,7 @@ dcli_tCmdTable wnav_command_table[] = {
"/CLASS", "/HIERARCHY", "/NAME", "/ATTRIBUTE",
"/SIGNALOBJECTSEG", "/SIGCHANCONSEG",
"/SHOSIGCHANCON", "/SHODETECTTEXT", "/VOLUMENAME",
"/DBID", "/VALUE", ""}
"/VALUE", ""}
},
{
"SETUP",
......@@ -1306,30 +1304,7 @@ static int wnav_set_func( void *client_data,
}
else if ( strncmp( arg1_str, "DB", strlen( arg1_str)) == 0)
{
char dbid[80] ;
pwr_tStatus sts;
if ( EVEN( dcli_get_qualifier( "/DBID", dbid)))
{
if ( EVEN( dcli_get_qualifier( "dcli_arg2", dbid)))
{
wnav->message('E', "Qualifier required");
return WNAV__QUAL;
}
}
if ( wnav->wbctx != 0 )
{
wnav->message('E', "Db is already open");
return WNAV__DBOPEN;
}
sts = utl_set_database_id( dbid);
if ( EVEN(sts))
{
wnav->message(' ', wnav_get_message(sts));
return sts;
}
wnav->message('E', "command \"set db\" is obsolete");
}
else
{
......@@ -1750,99 +1725,6 @@ static int wnav_show_func( void *client_data,
}
return sts;
}
else if ( strncmp( arg1_str, "LOADFILES", strlen( arg1_str)) == 0)
{
// Command is "SHOW LOADFILES"
char nodestr[80];
char busnumberstr[80];
char *nodestr_p;
int busnumber;
int nr;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
if ( ODD( dcli_get_qualifier( "/BUSNUMBER", busnumberstr))) {
nr = sscanf( busnumberstr, "%d", &busnumber);
if ( nr != 1) {
wnav->message('E', "Syntax error");
return WNAV__SYNTAX;
}
}
else
busnumber = 0;
sts = distr_show_load( nodestr_p, NULL, busnumber, 0);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "APPLICATIONS", strlen( arg1_str)) == 0)
{
// Command is "SHOW APPLICATIONS"
char nodestr[80];
char *nodestr_p;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
sts = distr_show_applications( nodestr_p, 0, distr_eFile_Appl);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "SYSTEM", strlen( arg1_str)) == 0)
{
// Command is "SHOW GRAPH"
char nodestr[80];
char *nodestr_p;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
sts = distr_show_applications( nodestr_p, 0, distr_eFile_System);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "GRAPH", strlen( arg1_str)) == 0)
{
// Command is "SHOW GRAPH"
char nodestr[80];
char *nodestr_p;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
sts = distr_show_applications( nodestr_p, 0, distr_eFile_Graph);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else
{
wnav->message('E', "Unknown qualifier");
......@@ -3001,149 +2883,6 @@ static int wnav_copy_func( void *client_data,
return sts;
}
}
else if ( strncmp( arg1_str, "LOADFILES", strlen( arg1_str)) == 0)
{
// Command is "COPY LOADFILES"
char nodestr[80];
char busnumberstr[80];
char *nodestr_p;
int busnumber;
int nr;
int confirm;
int sts;
int verbose;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
if ( ODD( dcli_get_qualifier( "/BUSNUMBER", busnumberstr))) {
nr = sscanf( busnumberstr, "%d", &busnumber);
if ( nr != 1) {
wnav->message('E', "Syntax error");
return WNAV__SYNTAX;
}
}
else
busnumber = 0;
confirm = EVEN( dcli_get_qualifier( "/NOCONFIRM", NULL));
verbose = ODD( dcli_get_qualifier( "/VERBOSE", NULL));
sts = distr_copy_load( nodestr_p, busnumber, 0, confirm, 0, verbose);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "GRAPH", strlen( arg1_str)) == 0)
{
// Command is "COPY GRAPH"
char nodestr[80];
char *nodestr_p;
int confirm;
int sts;
int verbose;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
confirm = EVEN( dcli_get_qualifier( "/NOCONFIRM", NULL));
verbose = ODD( dcli_get_qualifier( "/VERBOSE", NULL));
sts = distr_copy_applications( nodestr_p, confirm, 0, distr_eFile_Graph, verbose);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "APPLICATIONS", strlen( arg1_str)) == 0)
{
// Command is "COPY APPLICATIONS"
char nodestr[80];
char *nodestr_p;
int confirm;
int sts;
int verbose;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
confirm = EVEN( dcli_get_qualifier( "/NOCONFIRM", NULL));
verbose = ODD( dcli_get_qualifier( "/VERBOSE", NULL));
sts = distr_copy_applications( nodestr_p, confirm, 0, distr_eFile_Appl, verbose);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "SYSTEM", strlen( arg1_str)) == 0)
{
// Command is "COPY SYSTEM"
char nodestr[80];
char *nodestr_p;
int confirm;
int sts;
int verbose;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
confirm = EVEN( dcli_get_qualifier( "/NOCONFIRM", NULL));
verbose = ODD( dcli_get_qualifier( "/VERBOSE", NULL));
sts = distr_copy_applications( nodestr_p, confirm, 0, distr_eFile_System, verbose);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else if ( strncmp( arg1_str, "ALL", strlen( arg1_str)) == 0)
{
// Command is "COPY ALL"
char nodestr[80];
char *nodestr_p;
int confirm;
int sts;
int verbose;
if ( ODD( dcli_get_qualifier( "dcli_arg2", nodestr)))
nodestr_p = nodestr;
else {
if ( ODD( dcli_get_qualifier( "/NODE", nodestr)))
nodestr_p = nodestr;
else
nodestr_p = NULL;
}
confirm = EVEN( dcli_get_qualifier( "/NOCONFIRM", NULL));
verbose = ODD( dcli_get_qualifier( "/VERBOSE", NULL));
sts = distr_copy_all( nodestr_p, confirm, 0, verbose);
if ( EVEN(sts))
wnav->message(' ', wnav_get_message(sts));
return sts;
}
else
{
wnav->message('E', "Syntax error");
......
wb/lib/wb/src/wb_wtt.cpp
View file @ b432bcce
......@@ -39,8 +39,6 @@ extern "C" {
#include "wb_lfu.h"
#include "wb_login.h"
#include "wb_distr.h"
#include "wb_distr_wind.h"
#if defined OS_VMS
#include "wb_ate.h"
#include "wb_sped.h"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7