OpenXM/src/k097/d.c - diff

Return to d.c CVS log

Up to [local] / OpenXM / src / k097

version 1.8, 2002/02/24 10:27:21

version 1.10, 2003/07/21 12:41:22

Line 1

/* $OpenXM: OpenXM/src/k097/d.c,v 1.7 2001/01/08 05:26:48 takayama Exp $ */

/* $OpenXM: OpenXM/src/k097/d.c,v 1.9 2003/07/13 08:18:27 takayama Exp $ */

/* simple.c, 1996, 1/1 --- 1/5 */

#include <stdio.h>

#include <ctype.h>

#include <setjmp.h>

#include <stdlib.h>

#include <sys/types.h>

#include <sys/stat.h>

#include "d.h"

#include "simple.tab.h"

#include "ox_pathfinder.h"

#if defined(__CYGWIN__)

#define JMP_BUF sigjmp_buf

Line 1111 void showStringBuff(objectp op)

Line 1114 void showStringBuff(objectp op)

fprintf(stderr,"\n");

}

char *getLOAD_K_PATH() {

char *p;

return getLOAD_K_PATH2();

char *p2;

p = getenv("LOAD_K_PATH");

if (p == NULL) {

return("/usr/local/lib/kxx97/yacc/");

}else{

if (strlen(p) == 0) return(p);

if (p[strlen(p)-1] == '/') return(p);

/* Add / */

p2 = (char *) malloc(sizeof(char)*(strlen(p)+3));

if (p2 == NULL) { fprintf(stderr,"No more memory.\n"); exit(10); }

strcpy(p2,p); strcat(p2,"/");

return(p2);

}