/*-------------------------------------------------------------------------
 *
 * lotest.cc--
 *    test using large objects with libpq
 *
 * Copyright (c) 1994, Regents of the University of California
 *
 *
 * IDENTIFICATION
 *    $Header: /cvsroot/pgsql/src/interfaces/libpq++/examples/Attic/testlo.cc,v 1.2 1996/11/18 01:44:28 bryanh Exp $
 *
 *-------------------------------------------------------------------------
 */
#include <stdio.h>
#include "libpq++.H"
extern "C" {
#include "libpq/libpq-fs.h"
}

int
main(int argc, char **argv)
{
    char *in_filename, *out_filename;
    char *database;
    PGenv env;
    PGlobj *object;

    if (argc < 4 || argc > 5) {
	fprintf(stderr, "Usage: %s database_name in_filename out_filename [oid]\n",
		argv[0]);
	exit(1);
    }

    database = argv[1];
    in_filename = argv[2];
    out_filename = argv[3];

    /*
     * set up the connection and create a largeobject for us
     */
    if (argc == 4) {
      object = new PGlobj(&env, database);
    } else {
      object = new PGlobj(&env, database, atoi(argv[4]));
    }

    /* check to see that the backend connection was successfully made */
    if (object->status() == CONNECTION_BAD) {
	fprintf(stderr,"Connection to database '%s' failed.\n", database);
	fprintf(stderr,"%s",object->errormessage());
	delete object;
	exit(1);
    }
	
    object->exec("BEGIN");
    printf("importing file \"%s\" ...\n", in_filename);
    object->import(in_filename);
    printf("exporting large object to file \"%s\" ...\n", out_filename);
    object->export(out_filename);
    object->exec("END"); // WHY DOES IT CORE DUMP HERE ???
    delete object;
}