int
tb_activity_remove(lua_State *L) {
tb_activity_record &record = g_dbrecord._tb_activity_record;
int rc;
int statement = cli_statement(g_session, "select * from tb_activity where activity_id = %activity_id");
if (statement < 0) {
return luaL_error(L, "Failed to call cli_statement(%s)", get_cli_error_msg(statement));
}
if ( (rc = cli_parameter(statement, "%activity_id", cli_int8, &record.activity_id)) != cli_ok ) {
cli_free(statement);
return luaL_error(L, "Failed to call cli_parameter(%s)", get_cli_error_msg(rc));
}
rc = cli_fetch(statement, cli_for_update);
if ( rc < 0 ) {
cli_free(statement);
return luaL_error(L, "Failed to call cli_fetch(%s)", get_cli_error_msg(rc));
}
rc = cli_remove(statement);
if ( rc != cli_ok ) {
cli_free(statement);
return luaL_error(L, "Failed to call cli_remove(%s)", get_cli_error_msg(rc));
}
sqldao dao;
dao.sql = (char*)malloc(1000);
snprintf(dao.sql, 1000, "delete from tb_activity where activity_id = %ld;", record.activity_id);
queue_push(&g_sqlqueue, &dao);
rc = cli_free(statement);
if (rc != cli_ok) {
return luaL_error(L, "Failed to call cli_free(%s)", get_cli_error_msg(rc));
}
return 0;
}
int main()
{
char_t* databaseName = _T("clitest");
char_t* filePath = _T("clitest2.fdb");
int statement, statement2;
int session;
int table_created = 0;
int rc;
size_t i;
cli_oid_t oid;
person p, p2;
memset(&p, 0, sizeof(p)); /* correctly initialize array fields */
memset(&p2, 0, sizeof(p2)); /* correctly initialize array fields */
session = cli_create(databaseName, filePath, 0, 0, 4*1024*1024, 4*1024*1024, 512*1024, 0);
if (session < 0) {
fprintf(stderr, "cli_open failed with code %d\n", session);
return EXIT_FAILURE;
}
rc = cli_create_table(session, "persons", sizeof(person_descriptor)/sizeof(cli_field_descriptor),
person_descriptor);
if (rc == cli_ok) {
table_created = 1;
rc = cli_alter_index(session, "persons", "salary", cli_indexed);
if (rc != cli_ok) {
fprintf(stderr, "cli_alter_index failed with code %d\n", rc);
return EXIT_FAILURE;
}
rc = cli_alter_index(session, "persons", "name", cli_indexed);
if (rc != cli_ok) {
fprintf(stderr, "cli_alter_index 2 failed with code %d\n", rc);
return EXIT_FAILURE;
}
} else if (rc != cli_table_already_exists && rc != cli_not_implemented) {
fprintf(stderr, "cli_create_table failed with code %d\n", rc);
return EXIT_FAILURE;
}
p.name = "John Smith";
p.salary = 75000;
p.address = "1 Guildhall St., Cambridge CB2 3NH, UK";
p.weight = 80.3;
p.subordinates.size = 0;
rc = cli_insert_struct(session, "persons", &p, &oid);
if (rc != cli_ok) {
fprintf(stderr, "cli_insert failed with code %d\n", rc);
return EXIT_FAILURE;
}
p.name = "Joe Cooker";
p.salary = 100000;
p.address = "Outlook drive, 15/3";
p.weight = 80.3;
p.subordinates.size = 1;
p.subordinates.data = &oid;
rc = cli_insert_struct(session, "persons", &p, &oid);
if (rc != cli_ok) {
fprintf(stderr, "cli_insert 2 failed with code %d\n", rc);
return EXIT_FAILURE;
}
statement = cli_prepare_query(session,
"select * from persons where "
"length(subordinates) < %i and salary > %li");
if (statement < 0) {
fprintf(stderr, "cli_statement 2 failed with code %d\n", rc);
return EXIT_FAILURE;
}
rc = cli_execute_query(statement, cli_view_only, &p, 2, (cli_int8_t)90000);
if (rc != 1) {
fprintf(stderr, "cli_fetch 1 returns %d instead of 1\n", rc);
return EXIT_FAILURE;
}
rc = cli_execute_query(statement, cli_for_update, &p, 10, (cli_int8_t)50000);
if (rc != 2) {
fprintf(stderr, "cli_fetch 2 returns %d instead of 2\n", rc);
return EXIT_FAILURE;
}
statement2 = cli_prepare_query(session, "select * from persons where current = %p");
if (statement2 < 0) {
fprintf(stderr, "cli_statement 3 failed with code %d\n", rc);
return EXIT_FAILURE;
}
while ((rc = cli_get_next(statement)) == cli_ok) {
printf("%s\t%ld\t%f\t%s\n", p.name, (long)p.salary, p.weight, p.address);
if (p.subordinates.size > 0) {
printf("Manages:\n");
for (i = 0; i < p.subordinates.size; i++) {
rc = cli_execute_query(statement2, cli_view_only, &p2, *((cli_oid_t*)p.subordinates.data + i));
if (rc != 1) {
fprintf(stderr, "cli_fetch by oid failed with code %d\n", rc);
return EXIT_FAILURE;
}
if ((rc = cli_get_first(statement2)) != cli_ok) {
fprintf(stderr, "cli_get_first failed with code %d\n", rc);
return EXIT_FAILURE;
}
printf("\t%s\n", p2.name);
}
}
p.salary = p.salary*90/100;
rc = cli_update(statement);
if (rc != cli_ok) {
fprintf(stderr, "cli_update failed with code %d\n", rc);
return EXIT_FAILURE;
}
}
if (rc != cli_not_found) {
fprintf(stderr, "cli_get_next failed with code %d\n", rc);
return EXIT_FAILURE;
}
if ((rc = cli_free(statement)) != cli_ok ||
(rc = cli_free(statement2)) != cli_ok)
{
fprintf(stderr, "cli_free 2 failed with code %d\n", rc);
return EXIT_FAILURE;
}
if ((rc = cli_commit(session)) != cli_ok) {
fprintf(stderr, "cli_commit failed with code %d\n", rc);
return EXIT_FAILURE;
}
statement = cli_prepare_query(session, "select * from persons order by salary");
if (statement < 0) {
fprintf(stderr, "cli_statement 4 failed with code %d\n", rc);
return EXIT_FAILURE;
}
rc = cli_execute_query(statement, cli_for_update, &p);
if (rc != 2) {
fprintf(stderr, "cli_fetch 4 failed with code %d\n", rc);
return EXIT_FAILURE;
}
printf("New salaries:\n");
while ((rc = cli_get_prev(statement)) == cli_ok) {
printf("\t%d\n", (int)p.salary);
}
if (rc != cli_not_found) {
fprintf(stderr, "cli_get_prev failed with code %d\n", rc);
return EXIT_FAILURE;
}
if ((rc = cli_remove(statement)) != cli_ok) {
fprintf(stderr, "cli_remove failed with code %d\n", rc);
return EXIT_FAILURE;
}
if ((rc = cli_free(statement)) != cli_ok) {
fprintf(stderr, "cli_free 3 failed with code %d\n", rc);
return EXIT_FAILURE;
}
if (table_created) {
rc = cli_drop_table(session, "persons");
if (rc != cli_ok) {
fprintf(stderr, "cli_drop_table failed with code %d\n", rc);
return EXIT_FAILURE;
}
}
if ((rc = cli_close(session)) != cli_ok) {
fprintf(stderr, "cli_close failed with code %d\n", rc);
return EXIT_FAILURE;
}
printf("*** CLI test sucessfully passed!\n");
return EXIT_SUCCESS;
}
