int main() { gtm_char_t err[maxmsg]; gtm_char_t msg[maxmsg]; gtm_char_t value[maxstr]; gtm_status_t status; gtm_string_t p_value; int failed=0; // Initialization p_value.address = (xc_char_t *) &value; p_value.length = 0; // Initialize GT.M runtime CALLGTM( gtm_init() ); // Initialize the GT.M access routines p_value.address = ( xc_char_t *) &value ; p_value.length = maxstr ; CALLGTM( gtm_ci( "gtminit", &err )); if (0 != strlen( err )) fprintf( stdout, "%s\n", err); // Set a node - note that value can be an arbitrary blob, not just a null terminated string gtm_char_t washington[] = "Washington, DC"; p_value.address = (xc_char_t *) &washington; p_value.length = strlen( "Washington, DC" ); CALLGTM( gtm_ci( "gtmset", "^Capital(\"United States\")", &p_value, &err )); if (0 != strlen( err )) fprintf( stdout, "%s\n", err); // Cleanup GT.M runtime CALLGTM( gtm_exit() ); if( failed == 0 ) { printf("Test PASSED !\n"); } else { printf("Test FAILED !\n"); } return failed; }
int main() { gtm_char_t port[] = "6520"; gtm_char_t logLevel[] = "0"; gtm_char_t msgbuf[BUF_LEN]; gtm_status_t status; status = gtm_init(); if (status != 0) { gtm_zstatus(msgbuf, BUF_LEN); return status; } status = gtm_ci("zappyd", port, logLevel); if (status != 0) { gtm_zstatus(msgbuf, BUF_LEN); fprintf(stderr, "%s\n", msgbuf); return status; } return 0; }
// // Constructor // GTM::GTM() { // // Since GT.M changes the terminal attributes, save the attributes of stderr, stdin and stdout // in order to restore them before exit // tcgetattr( 0, &stdin_sav ); tcgetattr( 1, &stdout_sav ); tcgetattr( 2, &stderr_sav ); // // Clear error message buffer by putting null terminator in first byte // errorMessage[0] = '\0'; // // Initialize GTM // CALLGTM( gtm_init() ); // // Initialization - function descriptors for calling in to GT.M // INITIALIZE_FUNCTION_DESCRIPTOR(gtmget); INITIALIZE_FUNCTION_DESCRIPTOR(gtmkill); INITIALIZE_FUNCTION_DESCRIPTOR(gtmlock); INITIALIZE_FUNCTION_DESCRIPTOR(gtmorder); INITIALIZE_FUNCTION_DESCRIPTOR(gtmquery); INITIALIZE_FUNCTION_DESCRIPTOR(gtmset); INITIALIZE_FUNCTION_DESCRIPTOR(gtmxecute); // // Initialization - structure for return values // this->p_value.address = NULL; this->p_value.length = 0; }