freem/src/mumps.c - diff

Return to mumps.c CVS log

Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/mumps.c between versions 1.10 and 1.16

version 1.10, 2025/04/01 20:11:46	version 1.16, 2025/04/04 19:43:18
Line 24	Line 24
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.	* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*	*
* $Log$	* $Log$
	* Revision 1.16 2025/04/04 19:43:18 snw
	* Switch to using environment catalog to determine user and group for environment, and remove -u and -g flags from freem
	*
	* Revision 1.15 2025/04/03 20:48:14 snw
	* Improve daemon error diagnostics and bump to 0.63.0-rc3
	*
	* Revision 1.14 2025/04/02 04:50:49 snw
	* Allow vendor routines to be upgraded
	*
	* Revision 1.13 2025/04/02 03:26:22 snw
	* Don't corrupt the terminal if FreeM runs before fmadm configure has been run
	*
	* Revision 1.12 2025/04/02 02:16:27 snw
	* Add fmadm status environment command and move journals to a better location
	*
	* Revision 1.11 2025/04/01 23:21:45 snw
	* fmadm commands for stopping, starting, and restarting environments now functional
	*
* Revision 1.10 2025/04/01 20:11:46 snw	* Revision 1.10 2025/04/01 20:11:46 snw
* Further work on fmadm	* Further work on fmadm
*	*
Line 50	Line 68
* SPDX-License-Identifier: AGPL-3.0-or-later	* SPDX-License-Identifier: AGPL-3.0-or-later
**/	**/

	#define _GNU_SOURCE
#include <stdlib.h>	#include <stdlib.h>
#include <stddef.h>	#include <stddef.h>
#include "mpsdef.h"	#include "mpsdef.h"
Line 106 int main (int argc, char argv, char	Line 125 int main (int argc, char argv, char

int option_index = 0;	int option_index = 0;

	char fm_initialized = FALSE;

char dx_mcode[512];	char dx_mcode[512];
char startup_routine[256];	char startup_routine[256];
short routine_mode;	short routine_mode;
Line 159 int main (int argc, char argv, char	Line 180 int main (int argc, char argv, char
char *cli_rtn_file;	char *cli_rtn_file;
char cli_rtn_name[256];	char cli_rtn_name[256];

	char env_ena[25];

routine_mode = FALSE;	routine_mode = FALSE;
strcpy (m_dialect, "FREEM");	strcpy (m_dialect, "FREEM");

Line 188 int main (int argc, char argv, char	Line 211 int main (int argc, char argv, char

while (1) {	while (1) {

c = getopt_long (argc, argv, "hsfiqRr:n:e:vx:dkpS:u:g:", long_options, &option_index);	c = getopt_long (argc, argv, "hsfiqRr:n:e:vx:dkpS", long_options, &option_index);

if (c == -1) break;	if (c == -1) break;
if (c == '?') freem_usage ();	if (c == '?') freem_usage ();
Line 301 int main (int argc, char argv, char	Line 324 int main (int argc, char argv, char

case 'S': /* --shmsize */	case 'S': /* --shmsize */
shm_init_size = atol (optarg);	shm_init_size = atol (optarg);
break;	break;

case 'u': /* --user */
strncpy (d_username, optarg, 40);
custom_user = TRUE;
break;

case 'g': /* --group */
strncpy (d_groupname, optarg, 40);
custom_group = TRUE;
break;


}	}

Line 324 int main (int argc, char argv, char	Line 336 int main (int argc, char argv, char
extern char *optarg;	extern char *optarg;
extern int optind, optopt;	extern int optind, optopt;

while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkS:u:g:")) != -1) {	while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkS:")) != -1) {

if (c == '?') freem_usage ();	if (c == '?') freem_usage ();

Line 432 int main (int argc, char argv, char	Line 444 int main (int argc, char argv, char
shm_init_size = atol (optarg);	shm_init_size = atol (optarg);
break;	break;

case 'u': /* --user */
strncpy (d_username, optarg, 40);
custom_user = TRUE;
break;

case 'g': /* --group */
strncpy (d_groupname, optarg, 40);
custom_group = TRUE;
break;


}	}
}	}
}	}
Line 456 int main (int argc, char argv, char	Line 457 int main (int argc, char argv, char
#endif	#endif

snprintf (config_file, 4096, "%s/freem/%s/freem.conf", SYSCONFDIR, shm_env);	snprintf (config_file, 4096, "%s/freem/%s/freem.conf", SYSCONFDIR, shm_env);
	snprintf (env_config_file, 4096, "%s/freem/env.conf", SYSCONFDIR);

if (run_daemon == TRUE && geteuid() == 0) {	if (!file_exists (env_config_file)) {
	fprintf (stderr, "freem: environment catalog does not exist; may need to run fmadm configure\n");
	exit (1);
	}

if (custom_group) {	if (!file_exists (config_file)) {
d_grp = getgrnam (d_groupname);	fprintf (stderr, "freem: configuration file for %s does not exist; may need to run fmadm configure\n", shm_env);
	exit (1);
	}

if (d_grp == NULL) {	if (read_profile_string (env_config_file, shm_env, "user", d_username) == FALSE) {
fprintf (stderr, "freem: invalid group '%s'\n", d_groupname);	fprintf (stderr, "freem: could not determine owning user for environment %s\n", shm_env);
exit (1);	exit (1);
}	}

d_gid = d_grp->gr_gid;
}

if (custom_user) {	if (read_profile_string (env_config_file, shm_env, "group", d_groupname) == FALSE) {
d_user = getpwnam (d_username);	fprintf (stderr, "freem: could not determine owning group for environment %s\n", shm_env);
	exit (1);
	}

if (d_user == NULL) {	if (read_profile_string (env_config_file, shm_env, "enabled", env_ena) == FALSE) {
fprintf (stderr, "freem: invalid user '%s'\n", d_username);	fprintf (stderr, "freem: could not discover enabled state for environment %s\n", shm_env);
exit (1);	exit (1);
}	}

d_uid = d_user->pw_uid;	if (strcmp (env_ena, "true") != 0) {
}	fprintf (stderr, "freem: environment %s is administratively disabled\n", shm_env);
else {	exit (1);
d_uid = 0;	}
}
	d_grp = getgrnam (d_groupname);
	if (d_grp == NULL) {
	fprintf (stderr, "freem: invalid group '%s'\n", d_groupname);
	exit (1);
	}
	d_gid = d_grp->gr_gid;

	d_user = getpwnam (d_username);
	if (d_user == NULL) {
	fprintf (stderr, "freem: invalid user '%s'\n", d_username);
	exit (1);
	}
	d_uid = d_user->pw_uid;


	#if defined(__linux__)
	if (run_daemon == FALSE && group_member (d_gid) == 0) {
	fprintf (stderr, "freem: you must be a member of the %s group to use environment %s\n", d_groupname, shm_env);
	exit (1);
	}

	#endif

	if (run_daemon == TRUE) {
	if (geteuid () != 0 && nofork == FALSE) {
	fprintf (stderr, "freem: forking daemon must be run as root\n");
	exit (1);
	}
}	}

if ((nofork == TRUE) && (run_daemon == FALSE)) {	if ((nofork == TRUE) && (run_daemon == FALSE)) {
Line 562 int main (int argc, char argv, char	Line 595 int main (int argc, char argv, char
m_log (1, "failure switching UIDs");	m_log (1, "failure switching UIDs");
exit (1);	exit (1);
}	}
if (chdir (d_user->pw_dir) == -1) {
fprintf (stderr, "freem: chdir failure\n");
m_log (1, "failure in chdir");
exit (1);
}
}	}

}	}
Line 585 int main (int argc, char argv, char	Line 613 int main (int argc, char argv, char
char pidfile_buf[256];	char pidfile_buf[256];
int errsav;	int errsav;

	pid_file_path = (char ) malloc (PATH_MAX sizeof (char));
	NULLPTRCHK(pid_file_path,"main");

snprintf (pid_file_path, PATH_MAX - 1, "%s/freem/run/%s.pid", LOCALSTATEDIR, shm_env);	snprintf (pid_file_path, PATH_MAX - 1, "%s/freem/run/%s.pid", LOCALSTATEDIR, shm_env);

printf (pid_file_path);
m_log (1, pid_file_path);

pid_fd = open (pid_file_path, O_RDWR \| O_CREAT, 0640);	pid_fd = open (pid_file_path, O_RDWR \| O_CREAT, 0640);
errsav = errno;	errsav = errno;

if (pid_fd < 0) {	if (pid_fd < 0) {
	fprintf (stderr, "freem: could not open PID file %s [%s]\n", pid_file_path, strerror (errsav));
m_log (1, "freem: could not open PID file");	m_log (1, "freem: could not open PID file");
m_log (1, strerror (errsav));	m_log (1, strerror (errsav));
exit (1);	exit (1);
Line 601 int main (int argc, char argv, char	Line 630 int main (int argc, char argv, char

if (lockf (pid_fd, F_TLOCK, 0) < 0) {	if (lockf (pid_fd, F_TLOCK, 0) < 0) {
errsav = errno;	errsav = errno;
	fprintf (stderr, "freem: could not lock PID file [%s]\n", strerror (errsav));
m_log (1, "freem: could not lock PID file - perhaps already running?");	m_log (1, "freem: could not lock PID file - perhaps already running?");
m_log (1, strerror (errsav));	m_log (1, strerror (errsav));
exit (1);	exit (1);
Line 609 int main (int argc, char argv, char	Line 639 int main (int argc, char argv, char
sprintf (pidfile_buf, "%ld\n", (long) getpid ());	sprintf (pidfile_buf, "%ld\n", (long) getpid ());
write (pid_fd, pidfile_buf, strlen (pidfile_buf));	write (pid_fd, pidfile_buf, strlen (pidfile_buf));

close (pid_fd);
}	}


Line 642 int main (int argc, char argv, char	Line 671 int main (int argc, char argv, char
strncpy (nsnbuf, nsname, 255);	strncpy (nsnbuf, nsname, 255);
if (init (nsnbuf) == FALSE) {	if (init (nsnbuf) == FALSE) {

set_io (UNIX);	if (fm_initialized) set_io (UNIX);
fprintf (stderr, "\nError initializing FreeM.\n");	fprintf (stderr, "\nError initializing FreeM.\n");

exit (1);	exit (1);

}	}
	else {
	fm_initialized = TRUE;
	}


direct_mode = FALSE;	direct_mode = FALSE;
Line 674 int main (int argc, char argv, char	Line 706 int main (int argc, char argv, char
/* isolate the path from the routine file */	/* isolate the path from the routine file */
strncpy (cli_rtn_path, argv[optind], strrchr (argv[optind], '/') - argv[optind]);	strncpy (cli_rtn_path, argv[optind], strrchr (argv[optind], '/') - argv[optind]);

/* set_io (UNIX);
printf ("cli_rtn_name = '%s' cli_rtn_path = '%s'\n", cli_rtn_name, cli_rtn_path);
set_io (MUMPS);
*/
}	}

/* do we have a file extension? */	/* do we have a file extension? */
Line 714 int main (int argc, char argv, char	Line 742 int main (int argc, char argv, char

}	}


if (!file_exists (config_file)) {	if (!file_exists (config_file)) {

set_io (UNIX);	if (fm_initialized == TRUE) set_io (UNIX);

fprintf (stderr, "\nFreeM has not been configured. Please run 'fmadm configure'.\n\n\n\n");	fprintf (stderr, "\nFreeM has not been configured. Please run 'fmadm configure'.\n\n\n\n");

exit (2);	exit (2);
Line 727 int main (int argc, char argv, char	Line 756 int main (int argc, char argv, char
if (!skip_init) {	if (!skip_init) {
/* initialize FreeM environment */	/* initialize FreeM environment */
strncpy (nsnbuf, nsname, 255);	strncpy (nsnbuf, nsname, 255);
if (init (nsnbuf) == FALSE) {	if (init (nsnbuf) == FALSE) {

set_io (UNIX);	set_io (UNIX);
fprintf (stderr, "\nError initializing FreeM.\n");	fprintf (stderr, "\nError initializing FreeM.\n");

exit (1);	exit (1);

}	}
	else {
	fm_initialized = TRUE;
	}
}	}

if (first_process == TRUE) {	if (first_process == TRUE) {
Line 816 int main (int argc, char argv, char	Line 846 int main (int argc, char argv, char

fprintf (stderr, "freem: terminating\r\n");	fprintf (stderr, "freem: terminating\r\n");
cleanup ();	cleanup ();

exit (0);	exit (0);

}	}
Line 942 void freem_usage(void)	Line 973 void freem_usage(void)
fprintf (stdout, "\t-x <MCODE>\n\t\texecute M code <MCODE> on startup\n\n");	fprintf (stdout, "\t-x <MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
fprintf (stdout, "\t-d\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");	fprintf (stdout, "\t-d\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");
fprintf (stdout, "\t-k\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");	fprintf (stdout, "\t-k\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
fprintf (stdout, "\t-p <PIDFILE>\n\t\tuse <PIDFILE> to record the PID of the FreeM daemon\n\n\n");
fprintf (stdout, "\t-S <BYTES>\n\t\tsets the size of the shared memory segment where FreeM stores the job table, lock table, and IPC table.\n");	fprintf (stdout, "\t-S <BYTES>\n\t\tsets the size of the shared memory segment where FreeM stores the job table, lock table, and IPC table.\n");
#endif	#endif
fprintf (stdout, "\t\t - Each concurrent job takes %d bytes (1 page) of shared memory\n", PG_SIZE);	fprintf (stdout, "\t\t - Each concurrent job takes %d bytes (1 page) of shared memory\n", PG_SIZE);

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

Removed from v.1.10
changed lines
	Added in v.1.16