|
|
| version 1.1, 2025/01/19 02:04:04 | version 1.5, 2025/03/22 21:44:32 |
|---|---|
| Line 1 | Line 1 |
| /* | /* |
| * * | * $Id$ |
| * * * | |
| * * * | |
| * *************** | |
| * * * * * | |
| * * MUMPS * | |
| * * * * * | |
| * *************** | |
| * * * | |
| * * * | |
| * * | |
| * | |
| * mumps.c | |
| * main module of freem | * main module of freem |
| * | * |
| * | * |
| * 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.5 2025/03/22 21:44:32 snw | |
| * Make the startup messages fewer and add environment name to direct-mode prompt | |
| * | |
| * Revision 1.4 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 766 int main (int argc, char **argv, char ** | Line 764 int main (int argc, char **argv, char ** |
| stcnv_m2c (verstr); | stcnv_m2c (verstr); |
| fprintf (stderr, "Coherent Logic Development FreeM version %s\r\n", verstr); | fprintf (stderr, "Coherent Logic Development FreeM version %s\r\n", verstr); |
| fprintf (stderr, "freem: shared memory for environment %s initialized (%d bytes of shared memory @ '%p')\r\nfreem: system ready\r\n", shm_env, shm_init_size, shm_config->dta); | fprintf (stderr, "freem: shared memory for environment %s initialized (%ld bytes of shared memory @ '%p')\r\nfreem: system ready\r\n", shm_env, (long) shm_init_size, shm_config->dta); |
| for (;;) { | for (;;) { |
| Line 886 int main (int argc, char **argv, char ** | Line 884 int main (int argc, char **argv, char ** |
| snprintf (version, 255, "\r\nCoherent Logic Development FreeM version %s [DIALECT: %s%s]\r\n\201", verstr, m_dialect, (restricted_mode == TRUE ? "/RESTRICTED" : "")); | snprintf (version, 255, "\r\nCoherent Logic Development FreeM version %s [DIALECT: %s%s]\r\n\201", verstr, m_dialect, (restricted_mode == TRUE ? "/RESTRICTED" : "")); |
| write_m (version); | write_m (version); |
| snprintf (version, 255, "Copyright (C) 2014, 2020, 2021, 2023 Coherent Logic Development LLC\r\n\r\n\201"); | snprintf (version, 255, "Copyright (C) 2014, 2020, 2021, 2023, 2025 Coherent Logic Development LLC\r\n\r\n\201"); |
| write_m (version); | write_m (version); |
| /* | |
| printf ("Environment: \t%s\r\n", shm_env); | printf ("Environment: \t%s\r\n", shm_env); |
| printf ("Environment Daemon:\tPID %d\r\n", shm_config->hdr->first_process); | printf ("Environment Daemon:\tPID %d\r\n", shm_config->hdr->first_process); |
| printf ("Interpreter Process:\tPID %d\r\n", pid); | printf ("Interpreter Process:\tPID %d\r\n", pid); |
| */ | |
| } | } |
| else { | else { |