steig@cs.cornell.edu (Mark J. Steiglitz) (10/27/89)
I have fixed a few minor bugs in pmake. It is still usable only as a demo, because it doesn't choose wisely the machines on which it runs. I am working on enhancing pmake to choose machines more appropriately. The work should be complete by the time that ISIS 2.0 is released later this year. Version 2.0 of pmake will actually be useful for real work rather than just as a demo. Below is a context diff of the changes from pmake 1.3.1 to pmake 1.3.1, patch level 1. Save this file into the demos/pmk directory in your ISIS 1.3.1 distribution and run patch on it using the command: patch <filename Also, please report to me any bugs that you find in pmake. -- |Mark J. Steiglitz, 316 Thurston Ave. Apt. B14, Ithaca, NY 14850, 607-257-7319| |Internet: steig@cs.cornell.edu | |Usenet:..{cmcl2,shasta,uw-beaver,rochester,mailrus}!cornell!steig | |Bitnet: steig@CRNLVAX5 | *** ../../isisv1.3/demos/pmk/pmkdat.h Wed Jun 7 14:54:14 1989 --- pmkdat.h Thu Oct 26 13:58:33 1989 *************** *** 22,28 **** /* directory for scratch output */ /* field sizes and custom types */ ! #define dname_sz 80 /* data item ( file ) name size */ #define dtype int /* file type - 0 = unkenon */ #define sname_sz 2048 /* step name ( invokation string ) size */ #define time_type long --- 28,36 ---- /* directory for scratch output */ /* field sizes and custom types */ ! #include <sys/param.h> ! ! #define dname_sz MAXPATHLEN /* data item ( file ) name size */ #define dtype int /* file type - 0 = unkenon */ #define sname_sz 2048 /* step name ( invokation string ) size */ #define time_type long *** ../../isisv1.3/demos/pmk/pmkexec.c Wed Jun 7 14:54:15 1989 --- pmkexec.c Thu Oct 26 14:43:45 1989 *************** *** 1625,1631 **** sscanf(argv[3],"%d",&my_port); debug = FALSE; sscanf(argv[4],"%d",&num_procs); ! getcwd(my_cwd,fname_sz); } else if (argc=4) { /* no file name - I'm not first. */ --- 1630,1636 ---- sscanf(argv[3],"%d",&my_port); debug = FALSE; sscanf(argv[4],"%d",&num_procs); ! getwd(my_cwd); } else if (argc=4) { /* no file name - I'm not first. */ *** ../../isisv1.3/demos/pmk/pmklib.c Wed Jun 7 14:54:16 1989 --- pmklib.c Thu Oct 26 14:44:25 1989 *************** *** 322,328 **** *prev_slash; /* pointer to / precedeing a /../ */ char my_dir[fname_sz]; ! getcwd(my_dir,fname_sz); /* if first character of name is a /, we're done */ if(!strncmp(p_file,"/",1)) return(strcpy(new_name,p_file)); --- 328,334 ---- *prev_slash; /* pointer to / precedeing a /../ */ char my_dir[fname_sz]; ! getwd(my_dir); /* if first character of name is a /, we're done */ if(!strncmp(p_file,"/",1)) return(strcpy(new_name,p_file)); *************** *** 367,373 **** #ifdef DBGLIB printf("append command %s\n",p_argv[4]); #endif ! getcwd(my_dir,fname_sz); strcpy(cmd_string,"STEP cd "); strcat(cmd_string,my_dir); --- 373,379 ---- #ifdef DBGLIB printf("append command %s\n",p_argv[4]); #endif ! getwd(my_dir); strcpy(cmd_string,"STEP cd "); strcat(cmd_string,my_dir);