Mercurial > hg > xemacs-beta
view src/sunpro.c @ 801:2b676dc88c66
[xemacs-hg @ 2002-04-01 03:58:02 by ben]
bug fixes (e.g. ballooning on X windows)
Makefile.in.in: Try to make the Makefile notice if its source Makefile.in.in is
changed, and regenerate and run itself.
Use a bigger default SHEAP_ADJUSTMENT on Cygwin; otherwise you
can't compile under Mule if a Lisp file has changed. (can't run
temacs)
TODO.ben-mule-21-5: update.
mule/mule-cmds.el: Hash the result of mswindows-get-language-environment-from-locale,
since it's very expensive (and causes huge ballooning of memory
under X Windows, since it's called from x-get-resource).
cl-extra.el, code-files.el, files.el, simple.el, subr.el, x-faces.el: Create new string-equal-ignore-case, based on built-in
compare-strings -- compare strings ignoring case without the need
to generate garbage by calling downcase. Use it in equalp and
elsewhere.
alloc.c, bytecode.c, chartab.c, data.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-unixoid.c, extents.c, file-coding.c, fileio.c, fns.c, glyphs.c, gutter.c, lisp-union.h, lisp.h, mule-charset.c, nt.c, process-unix.c, process.c, specifier.c, symbols.c, sysdep.c, sysdep.h, text.c, toolbar.c: Try to implement GC triggering based on percentage of total memory
usage. Not currently activated (percentage set to 0) because not
quite working. Add `memory-usage' primitive to return XEmacs'
idea of its memory usage.
Add primitive compare-strings, compatible with FSF 21.1 -- can
compare any part of two strings, optionally ignoring case.
Improve qxe() functions in text.c for text comparison.
Use RETURN_NOT_REACHED to try to avoid warnings about unreachable
code.
Add volatile_make_int() to fix warning in unix_send_process().
author | ben |
---|---|
date | Mon, 01 Apr 2002 03:59:04 +0000 |
parents | 943eaba38521 |
children | 04bc9d2f42c7 |
line wrap: on
line source
/* Sunpro-specific routines. Copyright (C) 1994 Sun Microsystems, Inc. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include <config.h> #include "lisp.h" /* #### The following junk used to be in lisp/prim/files.el. It obviously doesn't belong there, but should go somewhere. (if (fboundp 'ut-log-text) ;; #### Sun stuff; what is this? (ut-log-text "Reading a file.")) */ /* Whether usage tracking is turned on (Sun only) */ Lisp_Object Vusage_tracking; #ifdef USAGE_TRACKING #include <ut.h> #endif DEFUN ("ut-log-text", Fut_log_text, 1, MANY, 0, /* Log a usage-tracking message if `usage-tracking' is non-nil. Args are the same as to `format'. Returns whether the message was actually logged. If usage-tracking support was not compiled in, this function has no effect and always returns `nil'. See function `has-usage-tracking-p'. */ (int nargs, Lisp_Object *args)) { #ifdef USAGE_TRACKING Lisp_Object xs; unsigned char *s; if (!NILP (Vusage_tracking)) { xs = Fformat (nargs, args); CHECK_STRING (xs); s = XSTRING_DATA (xs); ut_log_text ((char *) s); } return Vusage_tracking; #else return Qnil; #endif } /************************************************************************/ /* initialization */ /************************************************************************/ void syms_of_sunpro (void) { DEFSUBR (Fut_log_text); } void vars_of_sunpro (void) { DEFVAR_LISP ("usage-tracking", &Vusage_tracking /* Whether usage tracking is turned on (Sun internal use only). Has no effect if usage tracking support has not been compiled in. */ ); Vusage_tracking = Qnil; Fprovide (intern ("sparcworks")); #ifdef USAGE_TRACKING Fprovide (intern ("usage-tracking")); #endif } void init_sunpro (void) { Vusage_tracking = Qnil; #ifdef USAGE_TRACKING if (!purify_flag) { /* Enabled only when not dumping an executable */ Vusage_tracking = Qt; ut_initialize ("xemacs", NULL, NULL); } #endif }