Datum
lo_create(PG_FUNCTION_ARGS)
{
Oid lobjId = PG_GETARG_OID(0);
#ifdef PGXC
#ifdef XCP
ereport(ERROR,
(errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
errmsg("Postgres-XL does not yet support large objects"),
errdetail("The feature is not currently supported")));
#else
ereport(ERROR,
(errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
errmsg("Postgres-XC does not support large object yet"),
errdetail("The feature is not currently supported")));
#endif
#endif
/*
* We don't actually need to store into fscxt, but create it anyway to
* ensure that AtEOXact_LargeObject knows there is state to clean up
*/
CreateFSContext();
lobjId = inv_create(lobjId);
PG_RETURN_OID(lobjId);
}
static Oid
lo_import_internal(text *filename, Oid lobjOid)
{
File fd;
int nbytes,
tmp;
char buf[BUFSIZE];
char fnamebuf[MAXPGPATH];
LargeObjectDesc *lobj;
Oid oid;
#ifndef ALLOW_DANGEROUS_LO_FUNCTIONS
if (!superuser())
ereport(ERROR,
(errcode(ERRCODE_INSUFFICIENT_PRIVILEGE),
errmsg("must be superuser to use server-side lo_import()"),
errhint("Anyone can use the client-side lo_import() provided by libpq.")));
#endif
CreateFSContext();
/*
* open the file to be read in
*/
text_to_cstring_buffer(filename, fnamebuf, sizeof(fnamebuf));
fd = PathNameOpenFile(fnamebuf, O_RDONLY | PG_BINARY, S_IRWXU);
if (fd < 0)
ereport(ERROR,
(errcode_for_file_access(),
errmsg("could not open server file \"%s\": %m",
fnamebuf)));
/*
* create an inversion object
*/
oid = inv_create(lobjOid);
/*
* read in from the filesystem and write to the inversion object
*/
lobj = inv_open(oid, INV_WRITE, fscxt);
while ((nbytes = FileRead(fd, buf, BUFSIZE)) > 0)
{
tmp = inv_write(lobj, buf, nbytes);
Assert(tmp == nbytes);
}
if (nbytes < 0)
ereport(ERROR,
(errcode_for_file_access(),
errmsg("could not read server file \"%s\": %m",
fnamebuf)));
inv_close(lobj);
FileClose(fd);
return oid;
}
static Oid
lo_import_internal(text *filename, Oid lobjOid)
{
int fd;
int nbytes,
tmp PG_USED_FOR_ASSERTS_ONLY;
char buf[BUFSIZE];
char fnamebuf[MAXPGPATH];
LargeObjectDesc *lobj;
Oid oid;
CreateFSContext();
/*
* open the file to be read in
*/
text_to_cstring_buffer(filename, fnamebuf, sizeof(fnamebuf));
fd = OpenTransientFile(fnamebuf, O_RDONLY | PG_BINARY);
if (fd < 0)
ereport(ERROR,
(errcode_for_file_access(),
errmsg("could not open server file \"%s\": %m",
fnamebuf)));
/*
* create an inversion object
*/
oid = inv_create(lobjOid);
/*
* read in from the filesystem and write to the inversion object
*/
lobj = inv_open(oid, INV_WRITE, fscxt);
while ((nbytes = read(fd, buf, BUFSIZE)) > 0)
{
tmp = inv_write(lobj, buf, nbytes);
Assert(tmp == nbytes);
}
if (nbytes < 0)
ereport(ERROR,
(errcode_for_file_access(),
errmsg("could not read server file \"%s\": %m",
fnamebuf)));
inv_close(lobj);
CloseTransientFile(fd);
return oid;
}
Datum
lo_create(PG_FUNCTION_ARGS)
{
Oid lobjId = PG_GETARG_OID(0);
/*
* We don't actually need to store into fscxt, but create it anyway to
* ensure that AtEOXact_LargeObject knows there is state to clean up
*/
CreateFSContext();
lobjId = inv_create(lobjId);
PG_RETURN_OID(lobjId);
}
/*
* Create LO with initial contents given by a bytea argument
*/
Datum
lo_from_bytea(PG_FUNCTION_ARGS)
{
Oid loOid = PG_GETARG_OID(0);
bytea *str = PG_GETARG_BYTEA_PP(1);
LargeObjectDesc *loDesc;
int written PG_USED_FOR_ASSERTS_ONLY;
CreateFSContext();
loOid = inv_create(loOid);
loDesc = inv_open(loOid, INV_WRITE, fscxt);
written = inv_write(loDesc, VARDATA_ANY(str), VARSIZE_ANY_EXHDR(str));
Assert(written == VARSIZE_ANY_EXHDR(str));
inv_close(loDesc);
PG_RETURN_OID(loOid);
}
/*
* Class: org_postgresql_pljava_internal_LargeObject
* Method: _create
* Signature: (I)Lorg/postgresql/pljava/internal/LargeObject;
*/
JNIEXPORT jobject JNICALL
Java_org_postgresql_pljava_internal_LargeObject__1create(JNIEnv* env, jclass cls, jint flags)
{
jobject result = 0;
BEGIN_NATIVE
PG_TRY();
{
result = Oid_create(inv_create((int)flags));
}
PG_CATCH();
{
Exception_throw_ERROR("inv_create");
}
PG_END_TRY();
END_NATIVE
return result;
}
Datum
lo_create(PG_FUNCTION_ARGS)
{
Oid lobjId = PG_GETARG_OID(0);
ereport(ERROR,
(errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
errmsg("large objects are not supported")));
/*
* We don't actually need to store into fscxt, but create it anyway to
* ensure that AtEOXact_LargeObject knows there is state to clean up
*/
CreateFSContext();
lobjId = inv_create(lobjId);
PG_RETURN_OID(lobjId);
}
/*
* lo_import -
* imports a file as an (inversion) large object.
*/
Datum
lo_import(PG_FUNCTION_ARGS)
{
text *filename = PG_GETARG_TEXT_P(0);
File fd;
int nbytes,
tmp;
char buf[BUFSIZE];
char fnamebuf[MAXPGPATH];
LargeObjectDesc *lobj;
Oid lobjOid;
#ifndef ALLOW_DANGEROUS_LO_FUNCTIONS
if (!superuser())
ereport(ERROR,
(errcode(ERRCODE_INSUFFICIENT_PRIVILEGE),
errmsg("must be superuser to use server-side lo_import()"),
errhint("Anyone can use the client-side lo_import() provided by libpq.")));
#endif
CreateFSContext();
/*
* open the file to be read in
*/
nbytes = VARSIZE(filename) - VARHDRSZ;
if (nbytes >= MAXPGPATH)
nbytes = MAXPGPATH - 1;
memcpy(fnamebuf, VARDATA(filename), nbytes);
fnamebuf[nbytes] = '\0';
fd = PathNameOpenFile(fnamebuf, O_RDONLY | PG_BINARY, 0666);
if (fd < 0)
ereport(ERROR,
(errcode_for_file_access(),
errmsg("could not open server file \"%s\": %m",
fnamebuf)));
/*
* create an inversion object
*/
lobjOid = inv_create(InvalidOid);
/*
* read in from the filesystem and write to the inversion object
*/
lobj = inv_open(lobjOid, INV_WRITE, fscxt);
while ((nbytes = FileRead(fd, buf, BUFSIZE)) > 0)
{
tmp = inv_write(lobj, buf, nbytes);
Assert(tmp == nbytes);
}
if (nbytes < 0)
ereport(ERROR,
(errcode_for_file_access(),
errmsg("could not read server file \"%s\": %m",
fnamebuf)));
inv_close(lobj);
FileClose(fd);
PG_RETURN_OID(lobjOid);
}
void dy_initbasis (int concnt, int factor, double zero_tol)
/*
This routine calls the glpk routine inv_create to initialize the basis
data structures, then sets values for the zero tolerance (eps_tol), pivot
ratio (piv_tol) and number of candidates examined (piv_lim).
NOTE: This routine can be (and typically is) called before any of the main
dylp data structures exist. Be careful what you reference.
Parameters:
concnt: the number of constraints (rows) that the basis representation
should be capable of handling
factor: the planned refactorisation frequency; passed to glpk as the
basis inverse update capacity (i.e., the limit on the number
of pivots between refactorisations)
zero_tol: zero tolerance; a value of 0.0 uses the glpk default
(INV->LUF->eps_tol = 1.0e-15).
Returns: void
*/
{ int sva_size ;
const char *rtnnme = "dy_initbasis" ;
/*
Create the basis. Allow for at least five constraints (also handles
pathological examples with no explicit constraints).
*/
luf_capacity = maxx(concnt,5) ;
luf_basis = inv_create(luf_capacity,factor) ;
if (luf_basis == NULL)
{ if (dy_lp == NULL)
{ errmsg(302,rtnnme,"empty","pre-init",0,"create") ; }
else
{ errmsg(302,rtnnme,dy_sys->nme,dy_prtlpphase(dy_lp->phase,TRUE),
dy_lp->tot.iters,"create") ; }
return ; }
/*
WARNING: We're going to reach inside glpluf to get it to triple the amount
of space that it allocates for the sparse vector area. We're doing this by
triggering the reallocation mechanism built into luf_decomp (called by
inv_decomp).
*/
sva_size = luf_basis->luf->sv_size ;
luf_basis->luf->new_sva = 3*sva_size ;
# ifndef DYLP_NDEBUG
if (dy_opts != NULL && dy_opts->print.basis >= 2)
{ dyio_outfmt(dy_logchn,dy_gtxecho,
"\ninitbasis: %s(%d) basis capacity %d, piv lim %d.",
dy_prtlpphase(dy_lp->phase,TRUE),dy_lp->tot.iters,
luf_basis->luf->n,luf_basis->hh_max) ; }
/*
XX_DEBUG_XX
There's no good way to control this output, given the timing of the call
(before dy_opts is initialised), but it's sometimes useful when debugging.
else
{ dyio_outfmt(dy_logchn,TRUE,
"\ninitbasis: EXTERN(0) basis capacity %d, piv lim %d.",
luf_basis->luf->n,luf_basis->hh_max) ; }
*/
# endif
/*
Set the initial pivot level to {.01,4}, and allow it to drop to {.01,4}.
*/
pivlevel = 0 ;
minpivlevel = 0 ;
if (zero_tol != 0.0) luf_basis->luf->eps_tol = zero_tol ;
luf_basis->luf->piv_tol = pivtols[pivlevel].stable ;
luf_basis->luf->piv_lim = pivtols[pivlevel].look ;
luf_basis->luf->max_gro = 1.0e7 ;
/*
This is the smallest value that can appear on the diagonal of U after a
pivot update. dylp will (in extremis) drop its pivot selection tolerance
tols.pivot to 1e-9 (or thereabouts), so upd_tol had better be less or we
spend a lot of time refactoring. This should probably be adjusted as
needed, in response to adjustments in tols.pivot, but I need to sit down and
really think about the math. In the meantime, this seems to be adequate.
*/
luf_basis->upd_tol = 1.0e-10 ;
return ; }
