commands/elle/eehelp.c

   1 /* ELLE - Copyright 1982, 1987 by Ken Harrenstien, SRI International
   2  *      This software is quasi-public; it may be used freely with
   3  *      like software, but may NOT be sold or made part of licensed
   4  *      products without permission of the author.
   5  */
   6 /*      EEHELP - Help function
   7  */
   8
   9 #include "elle.h"                      /* include structure definitions */
  10
  11
  12 #if FX_DESCRIBE
  13 /* EFUN: "Describe" */
  14 /*      DESCRIBE - Help-command hack.
  15 **      Crude approximation of EMACS function.
  16 */
  17 static struct buffer *help_buf;
  18
  19 f_describe()
  20 {       register char *cp;
  21         register int i, c;
  22         char str[10];
  23         struct buffer *savbuf, *b, *make_buf();
  24         chroff bdot;
  25
  26         saynow("Help for command: ");
  27         i = cmd_idx(c = cmd_read());            /* Get function idx for cmd */
  28         if(c&CB_META) sayntoo("M-");
  29         if(i == FN_PFXMETA)
  30           {     sayntoo("M-");
  31                 i = cmd_idx(c = (cmd_read() | CB_META));
  32           }
  33         else if(i == FN_PFXEXT)
  34           {     sayntoo("^X-");
  35                 i = cmd_idx(c = (cmd_read() | CB_EXT));
  36           }
  37         str[0] = c&0177;
  38         str[1] = 0;
  39         sayntoo(str);
  40
  41         /* Now read in the help file, if necessary */
  42         savbuf = cur_buf;
  43         if(help_buf)
  44                 chg_buf(help_buf);
  45         else
  46           {
  47                 saynow("Loading ");
  48                 sayntoo(ev_helpfile);
  49                 sayntoo("...");
  50                 chg_buf(help_buf = make_buf(" **HELP**"));
  51                 if(read_file(ev_helpfile) == 0)
  52                   {     chg_buf(savbuf);
  53                         kill_buf(help_buf);
  54                         help_buf = 0;
  55                         return;
  56                   }
  57           }
  58
  59
  60         /* Find function index in current buffer */
  61         cp = str;
  62         *cp++ = '<';
  63         *cp++ = 'F';
  64         cp = dottoa(cp, (chroff)i);
  65         *cp++ = '>';
  66         e_gobob();
  67         if(e_search(str, cp-str, 0) == 0)
  68                 sayntoo(" No help found");
  69         else
  70           {
  71                 bdot = e_dot();
  72                 while(!e_lblankp()) e_gonl();   /* Move past 1st blank line */
  73                 b = make_buf(" *SHOW*");
  74                 sb_sins((SBBUF *)b, e_copyn(bdot - e_dot()));
  75                 mk_showin(b);                   /* Show the stuff */
  76                 kill_buf(b);
  77                 sayclr();
  78           }
  79         chg_buf(savbuf);
  80 }
  81 #endif /*FX_DESCRIBE*/