OpenXM/src/Macaulay2/m2/ox_m2.c - view

Return to ox_m2.c CVS log

Up to [local] / OpenXM / src / Macaulay2 / m2

File: [local] / OpenXM / src / Macaulay2 / m2 / ox_m2.c (download)

Revision 1.2, Thu Dec 14 05:09:29 2000 UTC (23 years, 5 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +14 -1 lines

/home/mike/... ===> $(OpenXM_HOME)/...
for distribution.

/* $OpenXM: OpenXM/src/Macaulay2/m2/ox_m2.c,v 1.2 2000/12/14 05:09:29 takayama Exp $ */
/* original code from */
/* $Id: ox_m2.c,v 1.2 2000/09/20 17:16:01 mike Exp $ */
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>

#define OXDIR "/home/mike/M2stuff/takayama/rat/"
int main(int argc, char **argv)
{
  char *c,*s1, *s2, *e;
  e = getenv("OpenXM_HOME");
  c = (char *) malloc(strlen(e)+256);
  s1 = (char *) malloc(strlen(e)+256);
  s2 = (char *) malloc(strlen(e)+256);
  strcpy(c,e); strcat(c,"/bin/M2");
  strcpy(s1,e); strcat(s1,"/lib/m2/oxcommon.m2");
  strcpy(s2,e); strcat(s2,"/lib/m2/oxserver.m2");

  dup2(3,0);
  dup2(4,1);
  /*execl("/usr/local/bin/M2", "M2", "-n", "oxcommon.m2", 
       "oxserver.m2", "-e\"OXserver()\"", NULL);
  */
  /*
  execl("/usr/local/bin/M2", "M2", "-n", "-silent", OXDIR "oxcommon.m2", 
       OXDIR "oxserver.m2", NULL);
	   */
  execl(c, "M2", "-n", "-silent", s1, s2, NULL);
  return 0;
}