head	1.1;
access
	werner
	shectman;
symbols;
locks; strict;
comment	@ * @;


1.1
date	91.09.26.12.22.05;	author kemnitz;	state Exp;
branches;
next	;


desc
@Initial Ported Version
@


1.1
log
@checked in with -k by werner at 1992/01/09 17:03:16
@
text
@/*
 * lo_regprocs.c - registered "in" and "out" functions for large object
 * ADT's.
 *
 * $Header: RCS/lo_regprocs.c,v 1.1 91/09/26 12:22:05 kemnitz Exp Locker: kemnitz $
 */

#include <sys/file.h>
#include "tmp/c.h"
#include "utils/large_object.h"

/*
 * These routines allow the user to import and export Postgres PURE_FILE
 * large objects.
 */

extern LargeObject *NewLargeObject();

char *
lo_filein(filename)

char *filename;

{
	return((char *) NewLargeObject(filename, PURE_FILE));
}

char *
lo_fileout(object)

LargeObject *object;

{
    char *retval; 

    Assert(PointerIsValid(object));

    retval = (char *) palloc(strlen(object->lo_ptr.filename) + 1);

    strcpy(retval, object->lo_ptr.filename);
    return(retval);
}
@