version 1.4, 2025/04/09 19:52:02
|
version 1.5, 2025/04/13 04:22:43
|
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.5 2025/04/13 04:22:43 snw |
|
* Fix snprintf calls |
|
* |
* Revision 1.4 2025/04/09 19:52:02 snw |
* Revision 1.4 2025/04/09 19:52:02 snw |
* Eliminate as many warnings as possible while building with -Wall |
* Eliminate as many warnings as possible while building with -Wall |
* |
* |
Line 304 void merr_set_ecode_ierr (void)
|
Line 307 void merr_set_ecode_ierr (void)
|
char *cod; |
char *cod; |
char *t; |
char *t; |
|
|
cod = (char *) malloc (256 * sizeof (char)); |
cod = (char *) malloc (MERR_COD_LENGTH * sizeof (char)); |
NULLPTRCHK(cod,"merr_set_ecode_ierr"); |
NULLPTRCHK(cod,"merr_set_ecode_ierr"); |
|
|
t = (char *) malloc (256 * sizeof (char)); |
t = (char *) malloc (MERR_COD_LENGTH * sizeof (char)); |
NULLPTRCHK(t,"merr_set_ecode_ierr"); |
NULLPTRCHK(t,"merr_set_ecode_ierr"); |
|
|
if ((merr_num_to_code (merr (), cod)) == -1) goto done; |
if ((merr_num_to_code (merr (), cod)) == -1) goto done; |
|
|
snprintf (t, 255, ",%s,\201", cod); |
snprintf (t, MERR_COD_LENGTH - 1, ",%s,\201", cod); |
merr_set_ecode (t); |
merr_set_ecode (t); |
|
|
job_set_ecode (pid, cod); |
job_set_ecode (pid, cod); |
Line 399 void merr_dump (int num, char *rtn, char
|
Line 402 void merr_dump (int num, char *rtn, char
|
stcnv_m2c (real_ecode); |
stcnv_m2c (real_ecode); |
real_ecode [strlen (real_ecode) - 1] = NUL; |
real_ecode [strlen (real_ecode) - 1] = NUL; |
|
|
snprintf (tbuf, STRLEN, "^$JOB\202%d\202USER_ERRORS\202%s\201", pid, &user_ecode[1]); |
snprintf (tbuf, STRLEN - 1, "^$JOB\202%d\202USER_ERRORS\202%s\201", pid, &user_ecode[1]); |
tbuf [stlen (tbuf) - 1] = '\201'; |
tbuf [stlen (tbuf) - 1] = '\201'; |
|
|
global (get_sym, tbuf, dbuf); |
global (get_sym, tbuf, dbuf); |
Line 420 void merr_dump (int num, char *rtn, char
|
Line 423 void merr_dump (int num, char *rtn, char
|
|
|
|
|
if (!stlen (err_suppl)) { |
if (!stlen (err_suppl)) { |
snprintf (tbuf, STRLEN, "\r\n>> Error %s: %s in %s.%s::%s [$STACK = %d]\r\n\201", real_ecode, nem, shm_env, nsn, nrt, nstx); |
snprintf (tbuf, STRLEN - 1, "\r\n>> Error %s: %s in %s.%s::%s [$STACK = %d]\r\n\201", real_ecode, nem, shm_env, nsn, nrt, nstx); |
} |
} |
else { |
else { |
stcnv_m2c (err_suppl); |
stcnv_m2c (err_suppl); |
snprintf (tbuf, STRLEN, "\r\n>> Error %s: %s (%s) in %s::%s [$STACK = %d]\r\n\201", real_ecode, nem, err_suppl, nsn, nrt, nstx); |
snprintf (tbuf, STRLEN - 1, "\r\n>> Error %s: %s (%s) in %s::%s [$STACK = %d]\r\n\201", real_ecode, nem, err_suppl, nsn, nrt, nstx); |
err_suppl[0] = EOL; |
err_suppl[0] = EOL; |
} |
} |
write_m (tbuf); |
write_m (tbuf); |