1 /* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */ 2 /* 3 * Copyright 1987, 1988 by MIT Student Information Processing Board 4 * 5 * For copyright info, see copyright.h. 6 */ 7 8 #include <sys/param.h> 9 #include <sys/types.h> 10 #include <errno.h> 11 #include <sys/file.h> 12 #include <fcntl.h> /* just for O_* */ 13 #include <sys/wait.h> 14 #include "ss_internal.h" 15 #include "copyright.h" 16 17 18 void ss_help (argc, argv, sci_idx, info_ptr) 19 int argc; 20 char const * const *argv; 21 int sci_idx; 22 pointer info_ptr; 23 { 24 char buffer[MAXPATHLEN]; 25 char const *request_name; 26 int code; 27 int fd, child; 28 int idx; 29 ss_data *info; 30 31 request_name = ss_current_request(sci_idx, &code); 32 if (code != 0) { 33 ss_perror(sci_idx, code, ""); 34 return; /* no ss_abort_line, if invalid invocation */ 35 } 36 if (argc == 1) { 37 ss_list_requests(argc, argv, sci_idx, info_ptr); 38 return; 39 } 40 else if (argc != 2) { 41 /* should do something better than this */ 42 snprintf(buffer, sizeof(buffer), 43 "usage:\n\t%s [topic|command]\nor\t%s\n", 44 request_name, request_name); 45 ss_perror(sci_idx, 0, buffer); 46 return; 47 } 48 info = ss_info(sci_idx); 49 if (info->info_dirs == (char **)NULL) { 50 ss_perror(sci_idx, SS_ET_NO_INFO_DIR, (char *)NULL); 51 return; 52 } 53 if (info->info_dirs[0] == (char *)NULL) { 54 ss_perror(sci_idx, SS_ET_NO_INFO_DIR, (char *)NULL); 55 return; 56 } 57 for (idx = 0; info->info_dirs[idx] != (char *)NULL; idx++) { 58 (void) strncpy(buffer, info->info_dirs[idx], sizeof(buffer) - 1); 59 buffer[sizeof(buffer) - 1] = '\0'; 60 (void) strncat(buffer, "/", sizeof(buffer) - 1 - strlen(buffer)); 61 (void) strncat(buffer, argv[1], sizeof(buffer) - 1 - strlen(buffer)); 62 (void) strncat(buffer, ".info", sizeof(buffer) - 1 - strlen(buffer)); 63 if ((fd = open(&buffer[0], O_RDONLY)) >= 0) goto got_it; 64 } 65 if ((fd = open(&buffer[0], O_RDONLY)) < 0) { 66 char buf[MAXPATHLEN]; 67 strncpy(buf, "No info found for ", sizeof(buf) - 1); 68 buf[sizeof(buf) - 1] = '\0'; 69 strncat(buf, argv[1], sizeof(buf) - 1 - strlen(buf)); 70 ss_perror(sci_idx, 0, buf); 71 return; 72 } 73 got_it: 74 switch (child = fork()) { 75 case -1: 76 ss_perror(sci_idx, errno, "Can't fork for pager"); 77 close(fd); 78 return; 79 case 0: 80 (void) dup2(fd, 0); /* put file on stdin */ 81 ss_page_stdin(); 82 default: 83 (void) close(fd); /* what can we do if it fails? */ 84 #ifdef WAIT_USES_INT 85 while (wait((int *)NULL) != child) { 86 #else 87 while (wait((union wait *)NULL) != child) { 88 #endif 89 /* do nothing if wrong pid */ 90 }; 91 } 92 } 93 94 #ifndef USE_DIRENT_H 95 #include <sys/dir.h> 96 #else 97 #include <dirent.h> 98 #endif 99 100 void ss_add_info_dir(sci_idx, info_dir, code_ptr) 101 int sci_idx; 102 char *info_dir; 103 int *code_ptr; 104 { 105 ss_data *info; 106 DIR *d; 107 int n_dirs; 108 char **dirs; 109 110 info = ss_info(sci_idx); 111 if ((info_dir == NULL) || (*info_dir == '\0')) { 112 *code_ptr = SS_ET_NO_INFO_DIR; 113 return; 114 } 115 if ((d = opendir(info_dir)) == (DIR *)NULL) { 116 *code_ptr = errno; 117 return; 118 } 119 closedir(d); 120 dirs = info->info_dirs; 121 for (n_dirs = 0; dirs[n_dirs] != (char *)NULL; n_dirs++) 122 ; /* get number of non-NULL dir entries */ 123 dirs = (char **)realloc((char *)dirs, 124 (unsigned)(n_dirs + 2)*sizeof(char *)); 125 if (dirs == (char **)NULL) { 126 info->info_dirs = (char **)NULL; 127 *code_ptr = errno; 128 return; 129 } 130 info->info_dirs = dirs; 131 dirs[n_dirs + 1] = (char *)NULL; 132 dirs[n_dirs] = strdup(info_dir); 133 *code_ptr = 0; 134 } 135 136 void ss_delete_info_dir(sci_idx, info_dir, code_ptr) 137 int sci_idx; 138 char *info_dir; 139 int *code_ptr; 140 { 141 char **i_d; 142 char **info_dirs; 143 144 info_dirs = ss_info(sci_idx)->info_dirs; 145 for (i_d = info_dirs; *i_d; i_d++) { 146 if (!strcmp(*i_d, info_dir)) { 147 while (*i_d) { 148 *i_d = *(i_d+1); 149 i_d++; 150 } 151 *code_ptr = 0; 152 return; 153 } 154 } 155 *code_ptr = SS_ET_NO_INFO_DIR; 156 } 157