mirror of
https://github.com/RTimothyEdwards/magic.git
synced 2026-08-29 17:39:28 +02:00
Darryl L. Miles
b3d4ab7980
Argument order and type declaration mismatches:
Label *
portFindLabel(editDef, port, unique, nonEdit)
CellDef *editDef;
bool unique;
bool port; // If TRUE, only look for labels that are ports
bool *nonEdit; // TRUE if label is not in the edit cell
This warrants inspection at call site CmdLQ.c:1712 as both types are bool
is it not so straightforward to check.
It looks like when PORT_MAKE is the option 'port make [index] [dir...]'
port=FALSE is this the correct intention ? This looks ok in that
we're searching for labels to make (upgrade) into ports.
Where as all other 'port ....' commands are operating on items that are
already ports, and ignoring labels.
So the K&R argument name order is also how the call-sites are using it.
void
cmdStatsHier(parent, nuses, child)
CellDef *parent, *child;
int nuses;
This was checked and found ok as callback to ../database/DBcount.c
DBTreeCountPaint(... hiercount, ...)
Due to this not-obvious K&R style also being used in the documentation
this was changed as well (in another commit0.
K&R obsolete syntax removal for C23 compatibility series
209 lines
6.2 KiB
C
209 lines
6.2 KiB
C
/*
|
|
* CmdAuto.c --
|
|
*
|
|
* This file contains functions which act as placeholders for command
|
|
* functions which have been compiled as Tcl modules, using the Tcl
|
|
* interface.
|
|
*
|
|
* *********************************************************************
|
|
* * Copyright (C) 1985, 1990 Regents of the University of California. *
|
|
* * Permission to use, copy, modify, and distribute this *
|
|
* * software and its documentation for any purpose and without *
|
|
* * fee is hereby granted, provided that the above copyright *
|
|
* * notice appear in all copies. The University of California *
|
|
* * makes no representations about the suitability of this *
|
|
* * software for any purpose. It is provided "as is" without *
|
|
* * express or implied warranty. Export of this software outside *
|
|
* * of the United States of America may require an export license. *
|
|
* *********************************************************************
|
|
*/
|
|
|
|
#ifdef MAGIC_WRAPPER
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "tcltk/tclmagic.h"
|
|
#include "utils/magic.h"
|
|
#include "utils/geometry.h"
|
|
#include "windows/windows.h"
|
|
#include "textio/txcommands.h"
|
|
|
|
#ifdef EXT2SIM_AUTO
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* CmdAutoExtToSim() --
|
|
*
|
|
* Tcl auto-loading module routine.
|
|
* This routine replaces CmdExtToSim.
|
|
* The exttosim routine is not loaded at runtime, but is
|
|
* loaded the first time the "exttosim" command is invoked.
|
|
*
|
|
* The job of replacing the appropriate functionTable entries is
|
|
* the responsibility of the initialization function. If something
|
|
* goes wrong with the auto-load, it MUST set an error condition in
|
|
* Tcl or this routine will infinitely recurse!
|
|
*
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
CmdAutoExtToSim(
|
|
MagWindow *w,
|
|
TxCommand *cmd)
|
|
{
|
|
int result;
|
|
|
|
/* Auto-load */
|
|
result = Tcl_Eval(magicinterp, "load " TCL_DIR "/exttosim" SHDLIB_EXT);
|
|
|
|
/* Call function which was originally intended */
|
|
|
|
if (result == TCL_OK)
|
|
WindSendCommand(w, cmd, FALSE);
|
|
}
|
|
#endif /* EXT2SIM_AUTO */
|
|
|
|
#ifdef EXT2SPICE_AUTO
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* CmdAutoExtToSpice() --
|
|
*
|
|
* Tcl auto-loading module routine.
|
|
* This routine replaces CmdExtToSpice.
|
|
* The exttospice routine is not loaded at runtime, but is
|
|
* loaded the first time the "exttospice" command is invoked.
|
|
*
|
|
* The job of replacing the appropriate functionTable entries is
|
|
* the responsibility of the initialization function. If something
|
|
* goes wrong with the auto-load, it MUST set an error condition in
|
|
* Tcl or this routine will infinitely recurse!
|
|
*
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
CmdAutoExtToSpice(
|
|
MagWindow *w,
|
|
TxCommand *cmd)
|
|
{
|
|
int result;
|
|
|
|
/* Auto-load */
|
|
result = Tcl_Eval(magicinterp, "load " TCL_DIR "/exttospice" SHDLIB_EXT);
|
|
|
|
/* Call function which was originally intended */
|
|
|
|
if (result == TCL_OK)
|
|
WindSendCommand(w, cmd, FALSE);
|
|
}
|
|
#endif /* EXT2SPICE_AUTO */
|
|
|
|
#ifdef ROUTE_AUTO
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* CmdAutoRoute() --
|
|
*
|
|
* Tcl auto-loading module routine. If "route" is configured as a
|
|
* Tcl module, then this routine replaces CmdRoute and the other
|
|
* command routines associated with the routing functions. Router
|
|
* routines are not loaded at runtime, but are loaded the first time
|
|
* the "route" ("iroute", "garoute", etc.) command is invoked.
|
|
*
|
|
* The job of replacing the appropriate functionTable entries is
|
|
* the responsibility of the initialization function. If something
|
|
* goes wrong with the auto-load, it MUST set an error condition in
|
|
* Tcl or this routine will infinitely recurse!
|
|
*
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
CmdAutoRoute(
|
|
MagWindow *w,
|
|
TxCommand *cmd)
|
|
{
|
|
int result;
|
|
|
|
/* Auto-load */
|
|
result = Tcl_Eval(magicinterp, "load " TCL_DIR "/tclroute" SHDLIB_EXT);
|
|
|
|
/* Call function which was originally intended */
|
|
|
|
if (result == TCL_OK)
|
|
WindSendCommand(w, cmd, FALSE);
|
|
}
|
|
#endif /* ROUTE_AUTO */
|
|
|
|
#ifdef PLOT_AUTO
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* CmdAutoPlot() --
|
|
*
|
|
* Tcl auto-loading module routine. If "plot" is configured as a
|
|
* Tcl module, then this routine replaces CmdPlot. Plot routines
|
|
* are not loaded at runtime, but are loaded the first time the
|
|
* "plot" command is invoked.
|
|
*
|
|
* The job of replacing the appropriate functionTable entries is
|
|
* the responsibility of the initialization function. If something
|
|
* goes wrong with the auto-load, it MUST set an error condition in
|
|
* Tcl or this routine will infinitely recurse!
|
|
*
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
CmdAutoPlot(
|
|
MagWindow *w,
|
|
TxCommand *cmd)
|
|
{
|
|
int result;
|
|
|
|
/* Auto-load */
|
|
result = Tcl_Eval(magicinterp, "load " TCL_DIR "/tclplot" SHDLIB_EXT);
|
|
|
|
/* Call function which was originally intended */
|
|
|
|
if (result == TCL_OK)
|
|
WindSendCommand(w, cmd, FALSE);
|
|
}
|
|
#endif /* PLOT_AUTO */
|
|
|
|
#ifdef LEF_AUTO
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* CmdAutoLef() --
|
|
*
|
|
* Tcl auto-loading module routine. If "lef" is configured as a
|
|
* Tcl module, then this routine replaces CmdLef. LEF routines
|
|
* are not loaded at runtime, but are loaded the first time the
|
|
* "lef" command is invoked.
|
|
*
|
|
* The job of replacing the appropriate functionTable entries is
|
|
* the responsibility of the initialization function. If something
|
|
* goes wrong with the auto-load, it MUST set an error condition in
|
|
* Tcl or this routine will infinitely recurse!
|
|
*
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
CmdAutoLef(
|
|
MagWindow *w,
|
|
TxCommand *cmd)
|
|
{
|
|
int result;
|
|
|
|
/* Auto-load */
|
|
result = Tcl_Eval(magicinterp, "load " TCL_DIR "/magiclef" SHDLIB_EXT);
|
|
|
|
/* Call function which was originally intended */
|
|
|
|
if (result == TCL_OK)
|
|
WindSendCommand(w, cmd, FALSE);
|
|
}
|
|
#endif /* LEF_AUTO */
|
|
|
|
#endif /* MAGIC_WRAPPER */
|