archie/prospero/user/p__vfsetup.c
2024-05-27 16:13:40 +02:00

151 lines
4.3 KiB
C

/*
* Copyright (c) 1992, 1993 by the University of Southern California
*
* For copying and distribution information, please see the file
* <usc-license.h>
*/
#include <usc-license.h>
#include <stdio.h>
#include <string.h>
#include <psite.h>
#include <pfs.h>
#include <pcompat.h>
#include <perrno.h>
#include <pmachine.h>
char *prog;
int pfs_debug = 0;
char *getenv();
/* P__VFSETUP: This implements the user command 'vfsetup'
* It is intended to be called from an alias named 'vfsetup'.
*/
void
main(int argc,char *argv[])
{
int reset = 0;
int tmp;
char vsdesc_host[100];
char vsdesc_file[100];
char vsname[100];
char *progname = argv[0];
char vsfname[100];
FILE *vsdesc;
char *colon;
int shellflag; /* shell flag for p__print_shellstring() */
char *shellname = NULL; /* passed to p__get_shellflag() */
prog = progname;
p_initialize("ufP", 0, (struct p_initialize_st *) NULL);
*vsdesc_host = '\0';
*vsdesc_file = '\0';
*vsname = '\0';
for (;;) {
if ((argc > 1) && (strncmp(argv[1],"-D",2) == 0)) {
pfs_debug = 1; /* Default debug level */
sscanf(argv[1],"-D%d",&pfs_debug);
argc--;argv++;
continue;
}
if ((argc > 2) && strequal(argv[1], "-s")) {
shellname = argv[2];
argc--; argv++;
argc--; argv++;
continue;
}
break; /* neither option matched. */
}
if((argc == 4) && (strcmp(argv[1],"-n") == 0)) {
/* parse the native values */
strcpy(vsdesc_host,argv[2]);
strcpy(vsdesc_file,argv[3]);
}
else if ((argc == 3) && (strcmp(argv[1],"-r") == 0)) {
/* parse name of the vs and look it up, but ignore */
/* the present virtual system, and do the search from */
/* the initial one. (reset to starting configuration) */
strcpy(vsname,argv[2]);
reset = 1;
}
else if ((argc == 3) && (strcmp(argv[1],"-v") == 0)) {
/* parse name of the vs and look it up, but treat the */
/* name as an absolute name relative to current */
/* location instead of relative to VIRTUAL-SYSTEMS */
strcpy(vsname,argv[2]);
}
else if (argc == 2) {
/* parse the name of the vs and look it up. */
/* Kludge: if VSWORK_HOST is defined, then the search */
/* will be relative to our current virtual system, so */
/* the name should be prepended with /VIRTUAL-SYSTEMS */
/* Aditionally, if the name includes any namespace */
/* operators, they should all precede the /VIRT... */
strcpy(vsname,argv[1]);
colon = strrchr(vsname,':');
if(colon) *(colon+1) = '\0';
else *vsname = '\0';
strcat(vsname,(pget_wdhost() ? "/VIRTUAL-SYSTEMS/" : ""));
colon = strrchr(argv[1],':');
if(colon) strcat(vsname,colon+1);
else strcat(vsname,argv[1]);
}
else if ((argc == 1) || ((argc == 3) && (strcmp(argv[1],"-f") == 0))) {
if(argc == 1) {
strcpy(vsfname,getenv("HOME"));
strcat(vsfname,"/.virt-sys");
}
else strcpy(vsfname,argv[2]);
if((vsdesc = fopen(vsfname,"r")) == NULL) {
fprintf(stderr,"%s: Can't open system description file - %s\n",
progname,vsfname);
exit(1);
}
fscanf(vsdesc,"%s %s",vsdesc_host,vsdesc_file);
fclose(vsdesc);
}
else {
fprintf(stderr,"usage: %s [-s shellname ] [-n host file, -f file, [-r,v] vsname]\n",
progname);
exit(1);
}
tmp = vfsetenv((reset ? NULL : vsdesc_host),
(reset ? NULL : vsdesc_file),
vsname);
if(tmp == VFSN_NOT_A_VS) {
fprintf(stderr,"%s: %s is not a virtual system\n",progname,
(*vsname ? vsname : vsdesc_file));
exit(1);
}
else if(tmp) {
fprintf(stderr,"%s",progname);
perrmesg(" failed: ", tmp, NULL);
exit(1);
}
if(pwarn) pwarnmesg("WARNING: ",0,NULL);
shellflag = p__get_shellflag(shellname);
if (!shellflag) {
fprintf(stderr, "vfsetup: %s\n", p_err_string);
exit(1);
}
p__print_shellstring(0x1F | shellflag);
exit(0);
}