freem/src/xecline.c - diff

Return to xecline.c CVS log

Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/xecline.c between versions 1.1.1.1 and 1.6

version 1.1.1.1, 2025/01/19 02:04:04	version 1.6, 2025/03/22 21:44:32
Line 1	Line 1
/*	/*
* *	* $Id$
* * *
* * *
* ***************
* * * * *
* * MUMPS *
* * * * *
* ***************
* * *
* * *
* *
*
* xecline.c
* freem interpreter proper	* freem interpreter proper
*	*
*	*
* Author: Serena Willis <jpw@coherent-logic.com>	* Author: Serena Willis <snw@coherent-logic.com>
* Copyright (C) 1998 MUG Deutschland	* Copyright (C) 1998 MUG Deutschland
* Copyright (C) 2020 Coherent Logic Development LLC	* Copyright (C) 2020, 2025 Coherent Logic Development LLC
*	*
*	*
* This file is part of FreeM.	* This file is part of FreeM.
Line 35	Line 23
* You should have received a copy of the GNU Affero Public License	* You should have received a copy of the GNU Affero Public License
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.	* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*	*
	* $Log$
	* Revision 1.6 2025/03/22 21:44:32 snw
	* Make the startup messages fewer and add environment name to direct-mode prompt
	*
	* Revision 1.5 2025/03/09 19:50:47 snw
	* Second phase of REUSE compliance and header reformat
	*
	*
	* SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
	* SPDX-License-Identifier: AGPL-3.0-or-later
**/	**/

#include <stdlib.h>	#include <stdlib.h>
Line 2021 set10:	Line 2019 set10:
goto err;	goto err;
}	}

sec += day * 86400 + timezone;	sec += day * 86400 + FreeM_timezone;
day = timezone;	day = FreeM_timezone;

sh_ts.tv_sec = sec;	sh_ts.tv_sec = sec;

Line 2042 set10:	Line 2040 set10:
clock = time (0L);	clock = time (0L);
ctdata = localtime (&clock);	ctdata = localtime (&clock);

if (day -= (timezone = ctdata->tm_tzadj)) {	if (day -= (FreeM_timezone = ctdata->tm_tzadj)) {
sec -= day;	sec -= day;
tzoffset += day;	tzoffset += day;
stime (&sec);	stime (&sec);
Line 7210 direct_mode:	Line 7208 direct_mode:

if (quiet_mode == FALSE) {	if (quiet_mode == FALSE) {
if (tp_level == 0) {	if (tp_level == 0) {
snprintf (fmrl_prompt, 255, "\r\n%s> ", nsname);	snprintf (fmrl_prompt, 255, "\r\n%s.%s> ", shm_env, nsname);
}	}
else {	else {
snprintf (fmrl_prompt, 255, "\r\nTL%d:%s> ", tp_level, nsname);	snprintf (fmrl_prompt, 255, "\r\nTL%d:%s.%s> ", tp_level, shm_env, nsname);
}	}
}	}
set_io (UNIX);	set_io (UNIX);
Line 7484 void rbuf_dump(void)	Line 7482 void rbuf_dump(void)


printf ("ROUTINE BUFFER CONFIGURATION\r\n");	printf ("ROUTINE BUFFER CONFIGURATION\r\n");
printf (" ROUTINE BUFFER COUNT: %d\r\n", NO_OF_RBUF);	printf (" ROUTINE BUFFER COUNT: %ld\r\n", NO_OF_RBUF);
printf (" MAX. ROUTINE BUFFER COUNT: %d\r\n", MAXNO_OF_RBUF);	printf (" MAX. ROUTINE BUFFER COUNT: %d\r\n", MAXNO_OF_RBUF);
printf (" DEFAULT ROUTINE BUFFER SIZE (EACH): %d BYTES\r\n", DEFPSIZE0 - 1);	printf (" DEFAULT ROUTINE BUFFER SIZE (EACH): %d BYTES\r\n", DEFPSIZE0 - 1);
printf (" CURRENT ROUTINE BUFFER SIZE (EACH): %d BYTES\r\n\r\n", PSIZE0 - 1);	printf (" CURRENT ROUTINE BUFFER SIZE (EACH): %ld BYTES\r\n\r\n", PSIZE0 - 1);
printf ("BUFFERS IN USE:\r\n\r\n");	printf ("BUFFERS IN USE:\r\n\r\n");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.1.1.1
changed lines
	Added in v.1.6