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

Return to ext.c CVS log

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

version 1.44, 2013/09/22 01:26:07

version 1.46, 2013/09/25 00:05:55

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.43 2012/12/23 01:27:54 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.45 2013/09/22 01:32:10 takayama Exp $ */

#include <stdio.h>

#include <string.h>

#include <sys/types.h>

Line 109 struct object Kextension(struct object obj)

char *abc;

char *abc2;

extern struct context *CurrentContextp;

struct timeval tm;

#if (__CYGWIN__)

extern sigjmp_buf EnvOfStackMachine;

#else

Line 181 struct object Kextension(struct object obj)

Line 182 struct object Kextension(struct object obj)

} */

}else if (strcmp(key,"date")==0) {

if (size != 1) errorKan1("%s\n","[(date)] extension.");

struct timeval tm;

gettimeofday(&tm,NULL);

rob = KpoString(ctime(&((time_t)tm.tv_sec)));

rob = KpoString(ctime((time_t *)&(tm.tv_sec)));

}else if (strcmp(key,"defaultPolyRing")==0) {

if (size != 2) errorKan1("%s\n","[(defaultPolyRing) n] extension.");

rob = KdefaultPolyRing(getoa(obj,1));