Mercurial > hg > xemacs-beta
view netinstall/log.cc @ 1346:01c57eb70ae9
[xemacs-hg @ 2003-03-09 02:27:27 by ben]
To: xemacs-patches@xemacs.org
i.c: Sleep between calls to check for I/O, since these calls are non-blocking.
behavior.el: Allow other keywords for forward compatibility.
cl-macs.el: Rewrite to eliminate byte-compiler warning when `return' is used
without `finally'.
cmdloop.el: Avoid truncated error messages for `end-of-file' and the like.
cmdloop.el: Avoid char-int error after syncing.
files.el: Eliminate byte-compile warnings.
printer.el: Fix line-width calculations.
#### This used to work. Someone's changes (perhaps by
Michael Sperber?) seem to have messed something up.
simple.el: Use new clear-left-side functions to avoid messages ending up on
the same line as other output.
xemacs.mak: Add override for info/ as well when separate source/build dirs.
xemacs.mak: Order sections in main build process and add comments. Add
additional dependencies to try and prevent later steps from
happening when failures in earlier steps have occurred.
Makefile.in.in: Order sections in main build process and add comments. Add
additional dependencies to try and prevent later steps from
happening when failures in earlier steps have occurred.
alloc.c: Don't arbitrarily clear Vconfigure_info_directory since it
messes up separate build/source dirs.
console.c, console.h, device-msw.c, device.c: Add accidentally omitted msprinter console and data descriptions.
print.c, console-msw.c: Add clear-left-side functionality to help keep stdio/stderr
output from separate sources on separate lines. Generalize
the different kinds of debugging output. Add dpa().
profile.c: Add better docs on Unix/Windows differences.
regex.c: Fix problems with rel-alloc compilation caused by previous patch.
emacs.c: Seg fault rather than abort on Cygwin, since gdb doesn't trap
aborts properly.
console-gtk-impl.h, console-gtk.h, console-msw.h, console-x-impl.h, console-x.h, dialog-gtk.c, dialog-x.c, event-msw.c, frame-gtk.c, frame-x.c, frameslots.h, glyphs-gtk.c, glyphs-x.c, gui-gtk.c, gui-x.c, inline.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, scrollbar-gtk.c, scrollbar-x.c, ui-gtk.c: Delete popup-data object. Delete menubar_data field from frames,
since its usage is frame-specific. Delete menubar-msw.h,
gui-x.h, gui-gtk.h. Clean up handling of lwlib callback data
GCPRO'ing and add missing GCPRO recomputation in widget code.
author | ben |
---|---|
date | Sun, 09 Mar 2003 02:27:46 +0000 (2003-03-09) |
parents | 685b588e92d8 |
children |
line wrap: on
line source
/* * Copyright (c) 2000, Red Hat, Inc. * * This program 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 of the License, or * (at your option) any later version. * * A copy of the GNU General Public License can be found at * http://www.gnu.org/ * * Written by DJ Delorie <dj@redhat.com> * */ /* The purpose of this file is to centralize all the logging functions. */ #include "win32.h" #include <stdio.h> #include <stdarg.h> #include <stdlib.h> #include <time.h> #include "resource.h" #include "msg.h" #include "log.h" #include "dialog.h" #include "state.h" #include "concat.h" #include "mkdir.h" struct LogEnt { LogEnt *next; int flags; time_t when; char msg[1]; }; static LogEnt *first_logent = 0; static LogEnt **next_logent = &first_logent; void log (int flags, char *fmt, ...) { char buf[1000]; va_list args; va_start (args, fmt); vsprintf (buf, fmt, args); LogEnt *l = (LogEnt *) malloc (sizeof (LogEnt) + strlen (buf) + 20); l->next = 0; l->flags = flags; time (&(l->when)); *next_logent = l; next_logent = &(l->next); char *b = l->msg; if (flags & LOG_TIMESTAMP) { struct tm *tm = localtime (&(l->when)); strftime (b, 1000, "%Y/%m/%d %H:%M:%S ", tm); b += strlen (b); } strcpy (b, buf); msg ("LOG: %d %s", l->flags, l->msg); } void log_save (int babble, char *filename, int append) { static int been_here = 0; if (been_here) return; been_here = 1; mkdir_p (0, filename); FILE *f = fopen (filename, append ? "at" : "wt"); if (!f) { fatal (IDS_NOLOGFILE, filename); return; } LogEnt *l; for (l=first_logent; l; l=l->next) { if (babble || !(l->flags & LOG_BABBLE)) { fputs (l->msg, f); if (l->msg[strlen(l->msg)-1] != '\n') fputc ('\n', f); } } fclose (f); been_here = 0; } void exit_setup (int exit_code) { static int been_here = 0; if (been_here) ExitProcess (1); been_here = 1; if (exit_msg) note (exit_msg); log (LOG_TIMESTAMP, "Ending XEmacs install"); if (source == IDC_SOURCE_DOWNLOAD || !root_dir) { log_save (LOG_BABBLE, "setup.log.full", 0); log_save (0, "setup.log", 1); } else { log_save (LOG_BABBLE, concat (root_dir, "/setup.log.full", 0), 0); log_save (0, concat (root_dir, "/setup.log", 0), 1); } ExitProcess (exit_code); }