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

Page: 404 / 438

404 Example Program Listings Appendix G
* is printed, or comment out the exit if you want the program to continue.
*
* Note that this works only on REGISTER based instruments, because it was
* a C-SCPI register-based feature, not a general programming improvement.
* If you’re using MESSAGE instruments, you’ll still have to do SYST:ERR?:
*
* If your test program generates errors on purpose, you probably don’t want
* this error function. If so, set the following "#if 1" to "#if 0". This
* function is most useful when you’re trying to get your program running.
*/
#if 1
/* Set to 0 to skip trapping errors */
/*ARGSUSED*/ /* Keeps lint happy */
void cscpi_error(INST id, int err)
{
char
errorbuf[255]; /* Holds instrument error message */
char idbuf[255]; /* Holds instrument response to *IDN? */
cscpi_exe(id, "*IDN?\n", 6, idbuf, 255);
cscpi_exe(id, "SYST:ERR?\n", 10, errorbuf, 255);
(void) fprintf(stderr, "Instrument error %s from %s\n", errorbuf, idbuf);
}
#endif
/* The following routine allows you to type SCPI commands and see the results.
* If you don’t call this from your program, set the following "#if 1" to
* "#if 0".
*/
#if 1
/* Set to 0 to skip this routine */
void do_interactive(void)
{
char
command[5000];
char result[5000];
int32 error;
char
string[256];
for(;;) {
(void) printf("SCPI command: ");
(void) fflush(stdout);
/* repeat until it actually gets something*/
while (!gets(command));
if (!*command) {
break;
}
result[0] = 0;
cscpi_exe(e1415, command, strlen(command), result, sizeof(result));
INST_QUERY(e1415, "syst:err?", "%d,%s", &error, string);
while ( error ) {
(void) printf("syst:err %d,’%s’\n", error, string);
INST_QUERY(e1415,"syst:err?", "%d,%s", &error, string);
}
if (result[0]) {
(void) printf("result: %s\n", result);
}
}
}
#endif