view release on metacpan or  search on metacpan

lib/Bio/PhyloXS/Matrices/Datatype.xs  view on Meta::CPAN

			break;
		case _RNA_:
			retval = "rna";
			break;
		case _PROTEIN_:
			retval = "protein";
			break;
		case _STANDARD_:
			retval = "protein";
			break;
		case _CONTINUOUS_:
			retval = "continuous";
			break;
		default:
			warn("Datatype undefined");
			break;
	}
	return retval;
}

char* _to_get_type(Datatype* self) {
	return get_type(self);
}

char get_missing(Datatype* self) {
	return self->missing;
}

Datatype* set_missing(Datatype* self, char missing) {
	self->missing = missing;
	return self;
}

char get_gap(Datatype* self) {
	return self->gap;
}

Datatype* set_gap(Datatype* self, char gap) {
	self->gap = gap;
	return self;
}

void destroy_datatype(Datatype* self) {
	destroy_writable((Writable*)self);
	//Safefree(self);
}
MODULE = Bio::PhyloXS::Matrices::Datatype  PACKAGE = Bio::PhyloXS::Matrices::Datatype  

PROTOTYPES: DISABLE


Datatype *
create (classname)
	const char *	classname

void
initialize_datatype (self)
	Datatype *	self
        PREINIT:
        I32* temp;
        PPCODE:
        temp = PL_markstack_ptr++;
        initialize_datatype(self);
        if (PL_markstack_ptr != temp) {
          /* truly void, because dXSARGS not invoked */
          PL_markstack_ptr = temp;
          XSRETURN_EMPTY; /* return empty stack */
        }
        /* must have used dXSARGS; list context implied */
        return; /* assume stack size is correct */

Datatype *
set_type (self, type)
	Datatype *	self
	char *	type

void
_to_set_type (self, type)
	Datatype *	self
	char *	type
        PREINIT:
        I32* temp;
        PPCODE:
        temp = PL_markstack_ptr++;
        _to_set_type(self, type);
        if (PL_markstack_ptr != temp) {
          /* truly void, because dXSARGS not invoked */
          PL_markstack_ptr = temp;
          XSRETURN_EMPTY; /* return empty stack */
        }
        /* must have used dXSARGS; list context implied */
        return; /* assume stack size is correct */

char *
get_type (self)
	Datatype *	self

char *
_to_get_type (self)
	Datatype *	self

char
get_missing (self)
	Datatype *	self

Datatype *
set_missing (self, missing)
	Datatype *	self
	char	missing

char
get_gap (self)
	Datatype *	self

Datatype *
set_gap (self, gap)
	Datatype *	self
	char	gap

void
destroy_datatype (self)
	Datatype *	self
        PREINIT:
        I32* temp;
        PPCODE:
        temp = PL_markstack_ptr++;
        destroy_datatype(self);
        if (PL_markstack_ptr != temp) {
          /* truly void, because dXSARGS not invoked */
          PL_markstack_ptr = temp;
          XSRETURN_EMPTY; /* return empty stack */
        }
        /* must have used dXSARGS; list context implied */
        return; /* assume stack size is correct */