/*
 * call-seq:
 *    lrg.export( file )
 *
 * Saves the large object to a file.
 */
static VALUE
pglarge_export(obj, filename)
  VALUE obj, filename;
{
  PGlarge *pglarge = get_pglarge(obj);

  Check_Type(filename, T_STRING);

  if (!lo_export(pglarge->pgconn, pglarge->lo_oid, STR2CSTR(filename))){
  rb_raise(rb_ePGError, PQerrorMessage(pglarge->pgconn));
  }

  return Qnil;
}