comparison src/doc.c @ 104619:90578b9cc2d2

* Makefile.in (buildobj.h): New target. (doc.o): Depend on it. (temacs${EXEEXT}): Don't generate buildobj.lst. (mostlyclean): Delete buildobj.h, not buildobj.lst. * makefile.w32-in ($(SRC)/buildobj.h): New target. ($(BLD)/doc.$(O)): Depend on it. (make-buildobj-CMD, make-buildobj-SH): New targets. (Syntax help provided by Eli Zaretskii.) ($(TEMACS)): Don't generate buildobj.lst. * doc.c: Include buildobj.h. (buildobj): New static variable. (Fsnarf_documentation): Use it, instead of opening and reading buildobj.lst.

104618:7c3b132bf9bb

#include "lisp.h"
#include "buffer.h"
#include "keyboard.h"
#include "character.h"
#include "keymap.h"

#ifdef HAVE_INDEX
extern char *index P_ ((const char *, int));
#endif

      if ((ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK) > COMPILED_DOC_STRING)
	ASET (fun, COMPILED_DOC_STRING, make_number (offset));
    }
}


DEFUN ("Snarf-documentation", Fsnarf_documentation, Ssnarf_documentation,
       1, 1, 0,
       doc: /* Used during Emacs initialization to scan the `etc/DOC...' file.
This searches the `etc/DOC...' file for doc strings and

  strcat (name, SDATA (filename)); 	/*** Add this line ***/

  /* Vbuild_files is nil when temacs is run, and non-nil after that.  */
  if (NILP (Vbuild_files))
  {
    size_t cp_size = 0;
    size_t to_read;
    int nr_read;
    char *cp = NULL;
    char *beg, *end;

    fd = emacs_open ("buildobj.lst", O_RDONLY, 0);
    if (fd < 0)
      report_file_error ("Opening file buildobj.lst", Qnil);

    filled = 0;
    for (;;)
      {
        cp_size += 1024;
        to_read = cp_size - 1 - filled;
        cp = xrealloc (cp, cp_size);
        nr_read = emacs_read (fd, &cp[filled], to_read);
        filled += nr_read;
        if (nr_read < to_read)
          break;
      }

    emacs_close (fd);
    cp[filled] = 0;

    for (beg = cp; *beg; beg = end)
      {
        int len;

        while (*beg && isspace (*beg)) ++beg;

          len -= 2;  /* Just take .o if it ends in .obj  */

        if (len > 0)
          Vbuild_files = Fcons (make_string (beg, len), Vbuild_files);
      }

    xfree (cp);
  }

  fd = emacs_open (name, O_RDONLY, 0);
  if (fd < 0)
    report_file_error ("Opening doc string file",

104619:90578b9cc2d2

#include "lisp.h"
#include "buffer.h"
#include "keyboard.h"
#include "character.h"
#include "keymap.h"
#include "buildobj.h"

#ifdef HAVE_INDEX
extern char *index P_ ((const char *, int));
#endif

      if ((ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK) > COMPILED_DOC_STRING)
	ASET (fun, COMPILED_DOC_STRING, make_number (offset));
    }
}

static const char buildobj[] = BUILDOBJ;

DEFUN ("Snarf-documentation", Fsnarf_documentation, Ssnarf_documentation,
       1, 1, 0,
       doc: /* Used during Emacs initialization to scan the `etc/DOC...' file.
This searches the `etc/DOC...' file for doc strings and

  strcat (name, SDATA (filename)); 	/*** Add this line ***/

  /* Vbuild_files is nil when temacs is run, and non-nil after that.  */
  if (NILP (Vbuild_files))
  {
    const char *beg, *end;

    for (beg = buildobj; *beg; beg = end)
      {
        int len;

        while (*beg && isspace (*beg)) ++beg;

          len -= 2;  /* Just take .o if it ends in .obj  */

        if (len > 0)
          Vbuild_files = Fcons (make_string (beg, len), Vbuild_files);
      }
  }

  fd = emacs_open (name, O_RDONLY, 0);
  if (fd < 0)
    report_file_error ("Opening doc string file",