HP VXI 75000 C Series, User'S And Scpi Programming Manual

Page: 406 / 438

406 Example Program Listings Appendix G
INST_STARTUP(); /* Initialize the C-SCPI routines */
#if 0 /* Set to 1 to open interface session */
/* If you need to open a VXI device session, here’s how to do it. You need
* a VXI device session if the V382 is to source or respond to VXI
* backplane triggers (SICL ixtrig or ionintr calls).
*/
if (! (vxi = iopen("vxi"))) {
(void) fprintf(stderr, "SICL error: failed to open vxi interface.\n");
(void) fprintf(stderr, "SICL error %d: %s\n",
igeterrno(), igeterrstr(igeterrno()));
exit(1);
}
#endif
/* Open the E1415 device session with error checking. Copy and modify
* these lines if you need to open other instruments.
*/
INST_OPEN(e1415, E1415_ADDR); /* Open the E1415 */
if (! e1415) {
/* Did it open? */
(void) fprintf(stderr, "Failed to open the E1415 at address %s\n",
E1415_ADDR);
(void) fprintf(stderr, "C-SCPI open error was %d\n", cscpi_open_error);
(void) fprintf(stderr, "SICL error was %d: %s\n",
igeterrno(), igeterrstr(igeterrno()));
exit(1);
}
/* Check for startup errors */
INST_QUERY(e1415,"syst:err?\n", "%d,%S", &error, string);
if (error) {
(void) printf("syst:err %d,%s\n", error, string);
exit(1);
}
/* Usually, you’ll want to start from a known instrument state. The
* following provides this.
*/
INST_CLEAR(e1415); /* Selected device clear */
INST_SEND(e1415, "*RST;*CLS\n");
#if 0 /* Set to 1 to do self test */
/* Does the E1415 pass self-test? */
{
int test_result; /* Result of E1415 self-test */
test_result = -1; /* Make sure it gets assigned */
INST_QUERY(e1415, "*TST?\n", "%d", &test_result);
if (test_result) {
(void) fprintf(stderr, "E1415A failed self-test\n");
exit(1);
}
}
#endif