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

Return to primitive.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/primitive.c between version 1.19 and 1.22

version 1.19, 2004/09/20 02:11:22

version 1.22, 2013/11/06 06:44:48

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.18 2004/09/17 02:42:57 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/primitive.c,v 1.21 2005/07/03 11:08:54 ohara Exp $ */

/* primitive.c */

/* The functions in this module were in stackmachine.c */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <signal.h>

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

#include "extern2.h"

#include "gradedset.h"

#include "kclass.h"

#include <sys/types.h>

Line 422 void KdefinePrimitiveFunctions() {

Line 425 void KdefinePrimitiveFunctions() {

int executePrimitive(ob)

struct object ob;

{

struct object ob1;

struct object ob1 = OINIT;

struct object ob2;

struct object ob2 = OINIT;

struct object ob3;

struct object ob3 = OINIT;

struct object ob4;

struct object ob4 = OINIT;

struct object ob5;

struct object ob5 = OINIT;

struct object rob;

struct object rob = OINIT;

struct object obArray[OB_ARRAY_MAX];

struct object obArray2[OB_ARRAY_MAX];

int size;

Line 440 int executePrimitive(ob)

Line 443 int executePrimitive(ob)

FILE *fp;

char *fname;

int rank;

struct object oMat;

struct object oMat = OINIT;

static int timerStart = 1;

static struct tms before, after;

static time_t before_real, after_real;

struct object oInput;

struct object oInput = OINIT;

char *str;

int ccflag = 0;

extern int KeepInput;

Line 1581 int executePrimitive(ob)

Line 1584 int executePrimitive(ob)

if (QuoteMode && (status & DO_QUOTE)) {

/* generate tree object, for kan/k0 */

struct object qob;

struct object qob = OINIT;

struct object qattr;

struct object qattr = OINIT;

struct object qattr2;

struct object qattr2 = OINIT;

if (i==0) { Kpop(); Kpop();}

qob = newObjectArray(3);

qattr = newObjectArray(1);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>