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


1.1
date	91.11.05.06.09.31;	author mao;	state Exp;
branches;
next	;


desc
@Initial Ported Version
@


1.1
log
@checked in with -k by werner at 1992/01/09 17:03:18
@
text
@/*
 *  oidseq.c --
 * 	Functions for the built-in type "oidseq".
 */

#include "tmp/c.h"
#include "tmp/postgres.h"

RcsId("$Header: RCS/oidseq.c,v 1.1 91/11/05 06:09:31 mao Exp $");

#include "utils/palloc.h"


OidSeq
oidseqin(o)
	char *o;
{
	OidSeq os;
	char *p;

	os = (OidSeq) palloc(sizeof(OidSeqData));

	for (p = o; *p != '\0' && *p != '/'; p++)
		continue;
    
	os->os_oid = atoi(o);
	if (*p == '\0') {
		os->os_seq = 0;
	} else {
		os->os_seq = atoi(++p);
	}

	return (os);
}

char *
oidseqout(o)
	OidSeq o;
{
	char *r;

	r = (char *) palloc(20);
	sprintf(r, "%d/%ud", o->os_oid, o->os_seq);

	return (r);
}

bool
oidseqlt(o1, o2)
	OidSeq o1, o2;
{
	return ((bool) (o1->os_oid < o2->os_oid ||
		       (o1->os_oid == o2->os_oid && o1->os_seq < o2->os_seq)));
}

bool
oidseqle(o1, o2)
	OidSeq o1, o2;
{
	return ((bool) (o1->os_oid < o2->os_oid ||
		       (o1->os_oid == o2->os_oid && o1->os_seq <= o2->os_seq)));
}

bool
oidseqeq(o1, o2)
	OidSeq o1, o2;
{
	return ((bool) (o1->os_oid == o2->os_oid && o1->os_seq == o2->os_seq));
}

bool
oidseqge(o1, o2)
	OidSeq o1, o2;
{
	return ((bool) (o1->os_oid > o2->os_oid ||
		       (o1->os_oid == o2->os_oid && o1->os_seq >= o2->os_seq)));
}

bool
oidseqgt(o1, o2)
	OidSeq o1, o2;
{
	return ((bool) (o1->os_oid > o2->os_oid ||
		       (o1->os_oid == o2->os_oid && o1->os_seq > o2->os_seq)));
}

bool
oidseqne(o1, o2)
	OidSeq o1, o2;
{
	return ((bool) (o1->os_oid != o2->os_oid || o1->os_seq != o2->os_seq));
}

bool
oidseqcmp(o1, o2)
	OidSeq o1, o2;
{
	if (oidseqlt(o1, o2))
		return (-1);
	else if (oidseqeq(o1, o2))
		return (0);
	else
		return (1);
}

OidSeq
mkoidseq(v_oid, v_seq)
	ObjectId v_oid;
	uint32 v_seq;
{
	OidSeq o;

	o = (OidSeq) palloc(sizeof(OidSeqData));
	o->os_oid = v_oid;
	o->os_seq = v_seq;
	return (o);
}
@