lib/ss/help.c

   1 /*
   2  * Copyright 1987, 1988 by MIT Student Information Processing Board
   3  *
   4  * Permission to use, copy, modify, and distribute this software and
   5  * its documentation for any purpose is hereby granted, provided that
   6  * the names of M.I.T. and the M.I.T. S.I.P.B. not be used in
   7  * advertising or publicity pertaining to distribution of the software
   8  * without specific, written prior permission.  M.I.T. and the
   9  * M.I.T. S.I.P.B. make no representations about the suitability of
  10  * this software for any purpose.  It is provided "as is" without
  11  * express or implied warranty.
  12  */
  13
  14 #include "config.h"
  15 #ifdef HAVE_UNISTD_H
  16 #include <unistd.h>
  17 #endif
  18 #ifdef HAVE_STDLIB_H
  19 #include <stdlib.h>
  20 #endif
  21 #ifdef HAVE_ERRNO_H
  22 #include <errno.h>
  23 #else
  24 extern int errno;
  25 #endif
  26 #include <fcntl.h>
  27 #include <sys/param.h>
  28 #include <sys/types.h>
  29 #include <sys/file.h>
  30 #ifdef NEED_SYS_FCNTL_H
  31 /* just for O_* */
  32 #include <sys/fcntl.h>
  33 #endif
  34 #ifdef HAVE_SYS_WAIT_H
  35 #include <sys/wait.h>
  36 #endif
  37 #include "ss_internal.h"
  38
  39 void ss_help(int argc, char const * const *argv, int sci_idx, pointer info_ptr)
  40 {
  41     char *buffer;
  42     char const *request_name;
  43     int code;
  44     int fd, child;
  45     register int idx;
  46     register ss_data *info;
  47
  48     request_name = ss_current_request(sci_idx, &code);
  49     if (code != 0) {
  50         ss_perror(sci_idx, code, "");
  51         return;         /* no ss_abort_line, if invalid invocation */
  52     }
  53     if (argc == 1) {
  54         ss_list_requests(argc, argv, sci_idx, info_ptr);
  55         return;
  56     }
  57     else if (argc != 2) {
  58         /* should do something better than this */
  59         buffer = malloc(80+2*strlen(request_name));
  60         if (!buffer) {
  61                 ss_perror(sci_idx, 0,
  62                           "couldn't allocate memory to print usage message");
  63                 return;
  64         }
  65         sprintf(buffer, "usage:\n\t%s [topic|command]\nor\t%s\n",
  66                 request_name, request_name);
  67         ss_perror(sci_idx, 0, buffer);
  68         free(buffer);
  69         return;
  70     }
  71     info = ss_info(sci_idx);
  72     if (info->info_dirs == (char **)NULL) {
  73         ss_perror(sci_idx, SS_ET_NO_INFO_DIR, (char *)NULL);
  74         return;
  75     }
  76     if (info->info_dirs[0] == (char *)NULL) {
  77         ss_perror(sci_idx, SS_ET_NO_INFO_DIR, (char *)NULL);
  78         return;
  79     }
  80     for (fd = -1, idx = 0; info->info_dirs[idx] != (char *)NULL; idx++) {
  81         buffer = malloc(strlen (info->info_dirs[idx]) + 1 +
  82                         strlen (argv[1]) + 6);
  83         if (!buffer) {
  84             ss_perror(sci_idx, 0,
  85                       "couldn't allocate memory for help filename");
  86             return;
  87         }
  88         (void) strcpy(buffer, info->info_dirs[idx]);
  89         (void) strcat(buffer, "/");
  90         (void) strcat(buffer, argv[1]);
  91         (void) strcat(buffer, ".info");
  92         fd = open(buffer, O_RDONLY);
  93         free(buffer);
  94         if (fd >= 0)
  95             break;
  96     }
  97     if (fd < 0) {
  98 #define MSG "No info found for "
  99         char *buf = malloc(strlen (MSG) + strlen (argv[1]) + 1);
 100         strcpy(buf, MSG);
 101         strcat(buf, argv[1]);
 102         ss_perror(sci_idx, 0, buf);
 103         free(buf);
 104         return;
 105     }
 106     switch (child = fork()) {
 107     case -1:
 108         ss_perror(sci_idx, errno, "Can't fork for pager");
 109         (void) close(fd);
 110         return;
 111     case 0:
 112         (void) dup2(fd, 0); /* put file on stdin */
 113         ss_page_stdin();
 114     default:
 115         (void) close(fd); /* what can we do if it fails? */
 116         while (wait(NULL) != child) {
 117             /* do nothing if wrong pid */
 118         };
 119     }
 120 }
 121
 122 #ifndef HAVE_DIRENT_H
 123 #include <sys/dir.h>
 124 #else
 125 #include <dirent.h>
 126 #endif
 127
 128 void ss_add_info_dir(int sci_idx, char *info_dir, int *code_ptr)
 129 {
 130     register ss_data *info;
 131     DIR *d;
 132     int n_dirs;
 133     register char **dirs;
 134
 135     info = ss_info(sci_idx);
 136     if (info_dir == NULL || *info_dir == '\0') {
 137         *code_ptr = SS_ET_NO_INFO_DIR;
 138         return;
 139     }
 140     if ((d = opendir(info_dir)) == (DIR *)NULL) {
 141         *code_ptr = errno;
 142         return;
 143     }
 144     closedir(d);
 145     dirs = info->info_dirs;
 146     for (n_dirs = 0; dirs[n_dirs] != (char *)NULL; n_dirs++)
 147         ;               /* get number of non-NULL dir entries */
 148     dirs = (char **)realloc((char *)dirs,
 149                             (unsigned)(n_dirs + 2)*sizeof(char *));
 150     if (dirs == (char **)NULL) {
 151         info->info_dirs = (char **)NULL;
 152         *code_ptr = errno;
 153         return;
 154     }
 155     info->info_dirs = dirs;
 156     dirs[n_dirs + 1] = (char *)NULL;
 157     dirs[n_dirs] = malloc((unsigned)strlen(info_dir)+1);
 158     strcpy(dirs[n_dirs], info_dir);
 159     *code_ptr = 0;
 160 }
 161
 162 void ss_delete_info_dir(int sci_idx, char *info_dir, int *code_ptr)
 163 {
 164     register char **i_d;
 165     register char **info_dirs;
 166
 167     info_dirs = ss_info(sci_idx)->info_dirs;
 168     for (i_d = info_dirs; *i_d; i_d++) {
 169         if (!strcmp(*i_d, info_dir)) {
 170             while (*i_d) {
 171                 *i_d = *(i_d+1);
 172                 i_d++;
 173             }
 174             *code_ptr = 0;
 175             return;
 176         }
 177     }
 178     *code_ptr = SS_ET_NO_INFO_DIR;
 179 }