OpenXM/src/kan96xx/Kan/rat.c - diff

Return to rat.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.3, 2001/05/04 01:06:25

version 1.5, 2005/07/03 11:08:54

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.4 2005/06/16 05:07:23 takayama Exp $ */

/* rat.c: rational functions */

#include <stdio.h>

#include <stdlib.h>

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

Line 14 struct object KnewRationalFunction0(op1,op2)

Line 15 struct object KnewRationalFunction0(op1,op2)

objectp op1;

objectp op2;

{

struct object rob;

struct object rob = OINIT;

rob.tag = SrationalFunction;

Knumerator(rob) = op1;

Kdenominator(rob) = op2;