This is beard.c in view mode; [Download] [Up]
/*-------------------------------------------------------------------------
*
* beard.c--
* sample routines to use large objects
*
* Copyright (c) 1994, Regents of the University of California
*
*
* IDENTIFICATION
* /usr/local/devel/pglite/cvs/src/tutorial/C-code/beard.c,v 1.1 1995/03/09 22:59:36 andrew Exp
*
*-------------------------------------------------------------------------
*/
typedef struct ImageHdr {
int size;
} ImageHdr;
#define BUFSIZE 10
/*
* beard -
* clips lower 1/3 of picture and return as large object
*/
Oid
beard(Oid picture)
{
Oid beard;
int pic_fd, beard_fd;
ImageHdr ihdr;
char buf[BUFSIZE];
int cc;
if ((pic_fd = lo_open(picture, INV_READ)) == -1)
elog(WARN, "Cannot access picture large object");
if (lo_read(pic_fd, (char*)&ihdr, sizeof(ihdr)) != sizeof(ihdr))
elog(WARN, "Picture large object corrupted");
beardOffset = (ihdr.size / 3) * 2;
/*
* new large object
*/
if ((beard = lo_creat(INV_MD)) == 0) /* ?? is this right? */
elog(WARN, "Cannot create new large object");
if ((beard_fd = lo_open(beard, INV_WRITE)) == -1)
elog(WARN, "Cannot access beard large object");
lo_lseek(pic_fd, beardOffset, SET_CUR);
while ((cc = lo_read(pic_fd, buf, BUFSIZE)) > 0) {
if (lo_write(beard_fd, buf, cc) != cc)
elog(WARN, "error while writing large object");
}
lo_close(pic_fd);
lo_close(beard_fd);
return beard;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.