Commit c1eb6d91 authored by eg's avatar eg

.

parent 0a435b18
This source diff could not be displayed because it is too large. You can view the blob instead.
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 8-Jan-2000 14:48 (eg)
* Last file update: 30-Dec-2005 17:30 (eg)
* Last file update: 13-Sep-2005 22:41 (eg)
*
* This implementation is built by reverse engineering on an old SUNOS 4.1.1
* stdio.h. It has been simplified to fit the needs for STklos. In particular
......@@ -92,7 +92,7 @@ static void unregister_port(SCM port)
static void close_all_ports(void)
{
struct port_list *tmp, *cur;
for (cur = all_file_ports; cur ; cur = cur->next) {
tmp = GET_FAKE_POINTER(cur->port);
PORT_RELEASE(tmp) = nop_release_port;
......
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 5-Jan-2000 12:17 (eg)
* Last file update: 8-Dec-2005 15:31 (eg)
* Last file update: 7-May-2005 15:50 (eg)
*/
......
......@@ -2,7 +2,7 @@
*
* s i g n a l . c -- Signal handling
*
* Copyright 1993-2005 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* Copyright 1993-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
*
*
* This program is free software; you can redistribute it and/or modify
......@@ -22,7 +22,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 10-Oct-1995 07:55
* Last file update: 30-Dec-2005 17:42 (eg)
* Last file update: 4-Jan-2006 13:52 (eg)
*
*/
......@@ -134,7 +134,7 @@ static void sighup(int i)
{
/* FIXME: perhaps we should be more verbose */
fprintf(stderr, "Received a SIGHUP signal.\n");
exit(4);
exit(0);
}
......
......@@ -20,7 +20,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 17-Feb-1993 12:27
* Last file update: 4-Nov-2005 20:57 (eg)
* Last file update: 22-Aug-2005 12:01 (eg)
*
*/
......@@ -179,7 +179,7 @@ static off_t Sseek(void *stream, off_t offset, int whence)
static void sport_print(SCM obj, SCM port) /* Generic printing of string ports */
{
char buffer[MAX_PATH_LENGTH + 50];
char buffer[MAX_PATH_LENGTH + 20];
sprintf(buffer, "#[%s-string-port %lx%s]",
ISPORTP(obj) ? "input" : "output",
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment