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

Page: 392 / 438

392 Example Program Listings Appendix G
/* Main program */
/*ARGSUSED*/
/* Keeps lint happy */
int main(int argc, char *argv[])
{
/* Main program local variable declarations */
char *algorithm; /* Algorithm string */
int alg_num; /* Algorithm number being loaded */
char string[333]; /* Holds error information */
int32 error; /* Holds error number */
#if 0 /* Set to 1 if reading algorithm files */
/* Check pass parameters */
if ((argc < 2) || (argc > 33)) { /* Must have 1 to 32 algorithms */
usage(argv[0]);
exit(1);
}
#endif
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 */