luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

database: DBTechInitPlane() consumer (DBPlaneLongNameTbl constify)

This commit is contained in:
Darryl L. Miles 2025-08-25 11:13:38 +01:00 committed by R. Timothy Edwards
parent 5093182f4a
commit c8fe30398b
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
commands/CmdFI.c
View File

@ -1824,7 +1824,7 @@ CmdGoto(
/* are multiple layers drawn at the indicated point. */
#ifdef MAGIC_WRAPPER
Tcl_SetResult(magicinterp, DBTypeLongName(ttype), NULL);
Tcl_SetResult(magicinterp, (char*)DBTypeLongName(ttype), NULL); /* Tcl treats as const */
#else
TxPrintf("node %s is type %s\n", s, DBTypeLongName(ttype));
#endif

2
commands/CmdRS.c
View File

@ -2534,7 +2534,7 @@ CmdSetLabel(
else
#ifdef MAGIC_WRAPPER
Tcl_SetResult(magicinterp,
DBTypeLongNameTbl[DefaultLabel->lab_type],
(char*)DBTypeLongNameTbl[DefaultLabel->lab_type], /* Tcl treats as const */
TCL_VOLATILE);
#else
TxPrintf("%s\n", DBTypeLongNameTbl[DefaultLabel->lab_type]);

6
database/DBtechtype.c
View File

@ -45,7 +45,7 @@ HashTable DBTypeAliasTable;
/* Planes and their names */
int DBNumPlanes;
char *DBPlaneLongNameTbl[PL_MAXTYPES];
const char *DBPlaneLongNameTbl[PL_MAXTYPES];
NameList dbPlaneNameLists = {NULL, NULL, NULL, (ClientData)0, FALSE};
@ -116,10 +116,10 @@ NameList *dbTechNameAddOne();
*/
void
DBTechInitPlane()
DBTechInitPlane(void)
{
DefaultPlane *dpp;
char *cp;
const char *cp;
/* Clear out any old information */
if (dbPlaneNameLists.sn_next != NULL)

4
database/database.h.in
View File

@ -785,7 +785,7 @@ extern int DBTechNamePlane(), DBTechNoisyNamePlane();
extern PlaneMask DBTechNameMask(), DBTechNoisyNameMask();
extern PlaneMask DBTechTypesToPlanes();
extern bool DBTechTypesOnPlane();
extern void DBTechInitPlane();
extern void DBTechInitPlane(void);
extern void DBTypeInit();
extern void DBTechInitType();
extern void DBTechInitCompose();
@ -1059,7 +1059,7 @@ extern int DBNumPlanes;
extern HashTable DBTypeAliasTable;
/* Gives the official long name of each plane: */
extern char *DBPlaneLongNameTbl[NP];
extern const char *DBPlaneLongNameTbl[NP];
/* Gives a short name for each plane: */
extern const char *DBPlaneShortName();