env1.c

/*
 * Copyright (C) 2005-2016 Christoph Rupp (chris@crupp.de).
 * All Rights Reserved.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * See the file COPYING for License information.
 */

/**
 * A simple example, which creates a database environment with
 * several databases.
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h> /* for exit() */
#include <ups/upscaledb.h>

void
error(const char *foo, ups_status_t st) {
  printf("%s() returned error %d: %s\n", foo, st, ups_strerror(st));
  exit(-1);
}

#define MAX_DBS           2

#define DBNAME_CUSTOMER   1
#define DBNAME_ORDER      2

#define MAX_CUSTOMERS     4
#define MAX_ORDERS        8

/* A structure for the "customer" database */
typedef struct {
  uint32_t id;       /* customer id */
  char name[32];      /* customer name */
  /* ... additional information could follow here */
} customer_t;

/* A structure for the "orders" database */
typedef struct {
  uint32_t id;            /* order id */
  uint32_t customer_id;   /* customer id */
  char assignee[32];       /* assigned to whom? */
  /* ... additional information could follow here */
} order_t;

int
main(int argc, char **argv) {
  int i;
  ups_status_t st;               /* status variable */
  ups_db_t *db[MAX_DBS];         /* upscaledb database objects */
  ups_env_t *env;                /* upscaledb environment */
  ups_cursor_t *cursor[MAX_DBS]; /* a cursor for each database */

  ups_key_t key = {0};
  ups_key_t cust_key = {0};
  ups_key_t ord_key = {0};
  ups_record_t record = {0};
  ups_record_t cust_record = {0};
  ups_record_t ord_record = {0};

  ups_parameter_t params[] = {
    {UPS_PARAM_KEY_TYPE, UPS_TYPE_UINT32},
    {0, }
  };

  customer_t customers[MAX_CUSTOMERS] = {
    { 1, "Alan Antonov Corp." },
    { 2, "Barry Broke Inc." },
    { 3, "Carl Caesar Lat." },
    { 4, "Doris Dove Brd." }
  };

  order_t orders[MAX_ORDERS] = {
    { 1, 1, "Joe" },
    { 2, 1, "Tom" },
    { 3, 3, "Joe" },
    { 4, 4, "Tom" },
    { 5, 3, "Ben" },
    { 6, 3, "Ben" },
    { 7, 4, "Chris" },
    { 8, 1, "Ben" }
  };

  /* Now create a new upscaledb Environment */
  st = ups_env_create(&env, "test.db", 0, 0664, 0);
  if (st != UPS_SUCCESS)
    error("ups_env_create", st);

  /*
   * Then create the two Databases in this Environment; each Database
   * has a name - the first is our "customer" Database, the second
   * is for the "orders"
   *
   * All database keys are uint32_t types.
   */
  st = ups_env_create_db(env, &db[0], DBNAME_CUSTOMER, 0, &params[0]);
  if (st != UPS_SUCCESS)
    error("ups_env_create_db (customer)", st);
  st = ups_env_create_db(env, &db[1], DBNAME_ORDER, 0, &params[0]);
  if (st != UPS_SUCCESS)
    error("ups_env_create_db (order)", st);

  /* Create a Cursor for each Database */
  for (i = 0; i < MAX_DBS; i++) {
    st = ups_cursor_create(&cursor[i], db[i], 0, 0);
    if (st != UPS_SUCCESS) {
      printf("ups_cursor_create() failed with error %d\n", st);
      return (-1);
    }
  }

  /* Insert a few customers in the first database */
  for (i = 0; i < MAX_CUSTOMERS; i++) {
    key.size = sizeof(int);
    key.data = &customers[i].id;

    record.size = sizeof(customer_t);
    record.data = &customers[i];

    st = ups_db_insert(db[0], 0, &key, &record, 0);
    if (st != UPS_SUCCESS)
      error("ups_db_insert (customer)", st);
  }

  /* And now the orders in the second database */
  for (i = 0; i < MAX_ORDERS; i++) {
    key.size = sizeof(int);
    key.data = &orders[i].id;

    record.size = sizeof(order_t);
    record.data = &orders[i];

    st = ups_db_insert(db[1], 0, &key, &record, 0);
    if (st != UPS_SUCCESS)
      error("ups_db_insert (order)", st);
  }

  /*
   * To demonstrate even more functions: close all objects, then
   * re-open the environment and the two databases.
   *
   * Note that ups_env_close automatically calls ups_db_close on all
   * databases.
   */
  for (i = 0; i < MAX_DBS; i++) {
    st = ups_cursor_close(cursor[i]);
    if (st != UPS_SUCCESS)
      error("ups_cursor_close", st);
  }
  st = ups_env_close(env, 0);
  if (st != UPS_SUCCESS)
    error("ups_env_close", st);

  /* Now reopen the environment and the databases */
  st = ups_env_open(&env, "test.db", 0, 0);
  if (st != UPS_SUCCESS)
    error("ups_env_open", st);
  st = ups_env_open_db(env, &db[0], DBNAME_CUSTOMER, 0, 0);
  if (st != UPS_SUCCESS)
    error("ups_env_open_db (customer)", st);
  st = ups_env_open_db(env, &db[1], DBNAME_ORDER, 0, 0);
  if (st != UPS_SUCCESS)
    error("ups_env_open_db (order)", st);

  /* Re-create a cursor for each database */
  for (i = 0; i < MAX_DBS; i++) {
    st = ups_cursor_create(&cursor[i], db[i], 0, 0);
    if (st != UPS_SUCCESS) {
      printf("ups_cursor_create() failed with error %d\n", st);
      return (-1);
    }
  }

  /*
   * Now start the query - we want to dump each customer with his
   * orders
   *
   * We have a loop with two cursors - the first cursor looping over
   * the database with customers, the second loops over the orders.
   */
  while (1) {
    customer_t *customer;

    st = ups_cursor_move(cursor[0], &cust_key, &cust_record,
            UPS_CURSOR_NEXT);
    if (st != UPS_SUCCESS) {
      /* reached end of the database? */
      if (st == UPS_KEY_NOT_FOUND)
        break;
      else
        error("ups_cursor_next(customer)", st);
    }

    customer = (customer_t *)cust_record.data;

    /* print the customer id and name */
    printf("customer %d ('%s')\n", customer->id, customer->name);

    /*
     * The inner loop prints all orders of this customer. Move the
     * cursor to the first entry.
     */
    st = ups_cursor_move(cursor[1], &ord_key, &ord_record,
            UPS_CURSOR_FIRST);
    if (st != UPS_SUCCESS) {
      /* reached end of the database? */
      if (st == UPS_KEY_NOT_FOUND)
        continue;
      else
        error("ups_cursor_next(order)", st);
    }

    do {
      order_t *order = (order_t *)ord_record.data;

      /* print this order, if it belongs to the current customer */
      if (order->customer_id == customer->id)
        printf("  order: %d (assigned to %s)\n",
            order->id, order->assignee);

      st = ups_cursor_move(cursor[1], &ord_key,
          &ord_record, UPS_CURSOR_NEXT);
      if (st != UPS_SUCCESS) {
        /* reached end of the database? */
        if (st == UPS_KEY_NOT_FOUND)
          break;
        else
          error("ups_cursor_next(order)", st);
      }
    } while (1);
  }

  /*
   * Now close the environment handle; the flag UPS_AUTO_CLEANUP will
   * automatically close all databases and cursors
   */
  st = ups_env_close(env, UPS_AUTO_CLEANUP);
  if (st != UPS_SUCCESS)
    error("ups_env_close", st);

  printf("success!\n");
  return (0);
}