version 1.4, 2025/03/09 19:50:47
|
version 1.5, 2025/03/22 18:43:54
|
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/03/22 18:43:54 snw |
|
* Make STRLEN 255 chars and add BIGSTR macro for larger buffers |
|
* |
* Revision 1.4 2025/03/09 19:50:47 snw |
* Revision 1.4 2025/03/09 19:50:47 snw |
* Second phase of REUSE compliance and header reformat |
* Second phase of REUSE compliance and header reformat |
* |
* |
Line 121 void frm_decode_block(db_blockinfo *b, c
|
Line 124 void frm_decode_block(db_blockinfo *b, c
|
void ssvn_global(short action, char *key, char *data) |
void ssvn_global(short action, char *key, char *data) |
{ |
{ |
char gb_ns[STRLEN]; |
char gb_ns[STRLEN]; |
char gb_path[STRLEN]; |
char gb_path[PATHLEN]; |
char gb_cpath[STRLEN]; |
char gb_cpath[PATHLEN]; |
|
|
char ns_key[256]; |
char ns_key[STRLEN]; |
char ns_data[256]; |
char ns_data[STRLEN]; |
|
|
long blkcount; |
long blkcount; |
|
|
Line 162 void ssvn_global(short action, char *key
|
Line 165 void ssvn_global(short action, char *key
|
goto done; |
goto done; |
} |
} |
|
|
snprintf (ns_key, 255, "^$SYSTEM\202MAPPINGS\202GLOBAL\202^%s\201", mref_get_subscript (r, 0)); |
snprintf (ns_key, STRLEN, "^$SYSTEM\202MAPPINGS\202GLOBAL\202^%s\201", mref_get_subscript (r, 0)); |
global (kill_sym, ns_key, data); |
global (kill_sym, ns_key, data); |
|
|
goto done; |
goto done; |
Line 377 done:
|
Line 380 done:
|
short frm_global_exists(char *gbl_namespace, char *gbl_path, char *global_name) |
short frm_global_exists(char *gbl_namespace, char *gbl_path, char *global_name) |
{ |
{ |
char *gpth; |
char *gpth; |
char glofile[STRLEN]; |
char glofile[PATHLEN]; |
char goobuf[STRLEN]; |
char goobuf[STRLEN]; |
|
|
char mapk_buf[255]; |
char mapk_buf[STRLEN]; |
char mapd_buf[255]; |
char mapd_buf[STRLEN]; |
char old_ns[255]; |
char old_ns[STRLEN]; |
|
|
int ierr_sav = OK; |
int ierr_sav = OK; |
|
|
if (global_name[0] != '^') { |
if (global_name[0] != '^') { |
snprintf (mapk_buf, 254, "^$SYSTEM\202MAPPINGS\202GLOBAL\202^%s\201", global_name); |
snprintf (mapk_buf, STRLEN, "^$SYSTEM\202MAPPINGS\202GLOBAL\202^%s\201", global_name); |
} |
} |
else { |
else { |
snprintf (mapk_buf, 254, "^$SYSTEM\202MAPPINGS\202GLOBAL\202%s\201", global_name); |
snprintf (mapk_buf, STRLEN, "^$SYSTEM\202MAPPINGS\202GLOBAL\202%s\201", global_name); |
} |
} |
|
|
global (get_sym, mapk_buf, mapd_buf); |
global (get_sym, mapk_buf, mapd_buf); |
Line 430 short frm_global_exists(char *gbl_namesp
|
Line 433 short frm_global_exists(char *gbl_namesp
|
stcnv_m2c (goobuf); |
stcnv_m2c (goobuf); |
|
|
if (global_name[0] != '^') { |
if (global_name[0] != '^') { |
snprintf (glofile, STRLEN - 1, "%s/^%s", goobuf, global_name); |
snprintf (glofile, PATHLEN, "%s/^%s", goobuf, global_name); |
} |
} |
else { |
else { |
snprintf (glofile, STRLEN - 1, "%s/%s", goobuf, global_name); |
snprintf (glofile, PATHLEN, "%s/%s", goobuf, global_name); |
} |
} |
|
|
strcpy (gbl_path, glofile); |
strcpy (gbl_path, glofile); |