1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/***************************************************************************
lib/self_test.c
-------------------
copyright : (C) 2002 by Frank Mori Hess
email : fmhess@users.sourceforge.net
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include "ib_internal.h"
#include <stdlib.h>
int InternalTestSys(ibConf_t *conf, const Addr4882_t addressList[], short resultList[])
{
unsigned int failure_count = 0;
ibBoard_t *board;
int retval;
int i;
if (!conf->is_interface) {
setIberr(EDVR);
return -1;
}
board = interfaceBoard(conf);
retval = is_cic(board);
if (retval <= 0) {
if (retval == 0)
setIberr(ECIC);
return -1;
}
if (!addressListIsValid(addressList)) {
setIberr(EARG);
return -1;
}
if (!numAddresses(addressList)) {
setIberr(EARG);
return -1;
}
retval = InternalSendList(conf, addressList, "*TST?", 4, NLend);
if (retval < 0)
return retval;
for (i = 0; i < numAddresses(addressList); i++) {
char reply[16];
retval = InternalReceive(conf, addressList[i], reply,
sizeof(reply) - 1, STOPend);
if (retval < 0)
return -1;
reply[ThreadIbcnt()] = 0;
resultList[ i ] = strtol(reply, NULL, 0);
if (resultList[i])
failure_count++;
}
setIbcnt(failure_count);
return 0;
}
void TestSys(int boardID, const Addr4882_t addressList[], short resultList[])
{
ibConf_t *conf;
int retval;
conf = enter_library(boardID);
if (!conf) {
exit_library(boardID, 1);
return;
}
retval = InternalTestSys(conf, addressList, resultList);
if (retval < 0) {
exit_library(boardID, 1);
return;
}
exit_library(boardID, 0);
}
|
