static int
Netlist (int argc, char **argv, Coord x, Coord y)
{
NFunc func;
int i, j;
LibraryMenuType *net;
LibraryEntryType *pin;
int net_found = 0;
int pin_found = 0;
#if defined(USE_RE)
int use_re = 0;
#endif
#if defined(HAVE_REGCOMP)
regex_t elt_pattern;
regmatch_t match;
#endif
#if defined(HAVE_RE_COMP)
char *elt_pattern;
#endif
if (!PCB)
return 1;
if (argc == 0)
{
Message (netlist_syntax);
return 1;
}
if (strcasecmp (argv[0], "find") == 0)
func = netlist_find;
else if (strcasecmp (argv[0], "select") == 0)
func = netlist_select;
else if (strcasecmp (argv[0], "rats") == 0)
func = netlist_rats;
else if (strcasecmp (argv[0], "norats") == 0)
func = netlist_norats;
else if (strcasecmp (argv[0], "clear") == 0)
{
func = netlist_clear;
if (argc == 1)
{
netlist_clear (NULL, NULL);
return 0;
}
}
else if (strcasecmp (argv[0], "style") == 0)
func = (NFunc)netlist_style;
else if (strcasecmp (argv[0], "add") == 0)
{
/* Add is different, because the net/pin won't already exist. */
return netlist_add (ARG(1), ARG(2));
}
else if (strcasecmp (argv[0], "sort") == 0)
{
sort_netlist ();
return 0;
}
else if (strcasecmp (argv[0], "freeze") == 0)
{
netlist_frozen ++;
return 0;
}
else if (strcasecmp (argv[0], "thaw") == 0)
{
if (netlist_frozen > 0)
{
netlist_frozen --;
if (netlist_needs_update)
NetlistChanged (0);
}
return 0;
}
else if (strcasecmp (argv[0], "forcethaw") == 0)
{
netlist_frozen = 0;
if (netlist_needs_update)
NetlistChanged (0);
return 0;
}
else
{
Message (netlist_syntax);
return 1;
}
#if defined(USE_RE)
if (argc > 1)
{
int result;
use_re = 1;
for (i = 0; i < PCB->NetlistLib.MenuN; i++)
{
net = PCB->NetlistLib.Menu + i;
if (strcasecmp (argv[1], net->Name + 2) == 0)
use_re = 0;
}
if (use_re)
{
#if defined(HAVE_REGCOMP)
result =
regcomp (&elt_pattern, argv[1],
REG_EXTENDED | REG_ICASE | REG_NOSUB);
if (result)
{
char errorstring[128];
regerror (result, &elt_pattern, errorstring, 128);
Message (_("regexp error: %s\n"), errorstring);
regfree (&elt_pattern);
return (1);
}
#endif
#if defined(HAVE_RE_COMP)
if ((elt_pattern = re_comp (argv[1])) != NULL)
{
Message (_("re_comp error: %s\n"), elt_pattern);
return (false);
}
#endif
}
}
#endif
for (i = PCB->NetlistLib.MenuN-1; i >= 0; i--)
{
net = PCB->NetlistLib.Menu + i;
if (argc > 1)
{
#if defined(USE_RE)
if (use_re)
{
#if defined(HAVE_REGCOMP)
if (regexec (&elt_pattern, net->Name + 2, 1, &match, 0) != 0)
continue;
#endif
#if defined(HAVE_RE_COMP)
if (re_exec (net->Name + 2) != 1)
continue;
#endif
}
else
#endif
if (strcasecmp (net->Name + 2, argv[1]))
continue;
}
net_found = 1;
pin = 0;
if (func == (void *)netlist_style)
{
netlist_style (net, ARG(2));
}
else if (argc > 2)
{
int l = strlen (argv[2]);
for (j = net->EntryN-1; j >= 0 ; j--)
if (strcasecmp (net->Entry[j].ListEntry, argv[2]) == 0
|| (strncasecmp (net->Entry[j].ListEntry, argv[2], l) == 0
&& net->Entry[j].ListEntry[l] == '-'))
{
pin = net->Entry + j;
pin_found = 1;
func (net, pin);
}
}
else
func (net, 0);
}
if (argc > 2 && !pin_found)
{
gui->log ("Net %s has no pin %s\n", argv[1], argv[2]);
return 1;
}
else if (!net_found)
{
gui->log ("No net named %s\n", argv[1]);
}
#ifdef HAVE_REGCOMP
if (use_re)
regfree (&elt_pattern);
#endif
return 0;
}
int
ReadNetlist (char *filename)
{
static char *command = NULL;
char inputline[MAX_NETLIST_LINE_LENGTH + 1];
char temp[MAX_NETLIST_LINE_LENGTH + 1];
FILE *fp;
LibraryMenuType *menu = NULL;
LibraryEntryType *entry;
int i, j, lines, kind;
bool continued;
bool used_popen = false;
int retval = 0;
if (!filename)
return 1; /* nothing to do */
Message (_("Importing PCB netlist %s\n"), filename);
if (EMPTY_STRING_P (Settings.RatCommand))
{
fp = fopen (filename, "r");
if (!fp)
{
Message("Cannot open %s for reading", filename);
return 1;
}
}
else
{
used_popen = true;
free (command);
command = EvaluateFilename (Settings.RatCommand,
Settings.RatPath, filename, NULL);
/* open pipe to stdout of command */
if (*command == '\0' || (fp = popen (command, "r")) == NULL)
{
PopenErrorMessage (command);
return 1;
}
}
lines = 0;
/* kind = 0 is net name
* kind = 1 is route style name
* kind = 2 is connection
*/
kind = 0;
while (fgets (inputline, MAX_NETLIST_LINE_LENGTH, fp))
{
size_t len = strlen (inputline);
/* check for maximum length line */
if (len)
{
if (inputline[--len] != '\n')
Message (_("Line length (%i) exceeded in netlist file.\n"
"additional characters will be ignored.\n"),
MAX_NETLIST_LINE_LENGTH);
else
inputline[len] = '\0';
}
continued = (inputline[len - 1] == '\\') ? true : false;
if (continued)
inputline[len - 1] = '\0';
lines++;
i = 0;
while (inputline[i] != '\0')
{
j = 0;
/* skip leading blanks */
while (inputline[i] != '\0' && BLANK (inputline[i]))
i++;
if (kind == 0)
{
/* add two spaces for included/unincluded */
temp[j++] = ' ';
temp[j++] = ' ';
}
while (!BLANK (inputline[i]))
temp[j++] = inputline[i++];
temp[j] = '\0';
while (inputline[i] != '\0' && BLANK (inputline[i]))
i++;
if (kind == 0)
{
menu = GetLibraryMenuMemory (&PCB->NetlistLib);
menu->Name = strdup (temp);
menu->flag = 1;
kind++;
}
else
{
if (kind == 1 && strchr (temp, '-') == NULL)
{
kind++;
menu->Style = strdup (temp);
}
else
{
entry = GetLibraryEntryMemory (menu);
entry->ListEntry = strdup (temp);
}
}
}
if (!continued)
kind = 0;
}
if (!lines)
{
Message (_("Empty netlist file!\n"));
retval = 1;
}
if (used_popen)
pclose (fp);
else
fclose (fp);
sort_netlist ();
return retval;
}
/* ---------------------------------------------------------------------------
* load PCB
* parse the file with enabled 'PCB mode' (see parser)
* if successful, update some other stuff
*
* If revert is true, we pass "revert" as a parameter
* to the HID's PCBChanged action.
*/
static int
real_load_pcb (char *Filename, bool revert)
{
const char *unit_suffix, *grid_size;
char *new_filename;
PCBType *newPCB = CreateNewPCB (false);
PCBType *oldPCB;
#ifdef DEBUG
double elapsed;
clock_t start, end;
start = clock ();
#endif
new_filename = strdup (Filename);
oldPCB = PCB;
PCB = newPCB;
/* mark the default font invalid to know if the file has one */
newPCB->Font.Valid = false;
/* new data isn't added to the undo list */
if (!ParsePCB (PCB, new_filename))
{
RemovePCB (oldPCB);
CreateNewPCBPost (PCB, 0);
ResetStackAndVisibility ();
/* update cursor location */
Crosshair.X = CLAMP (PCB->CursorX, 0, PCB->MaxWidth);
Crosshair.Y = CLAMP (PCB->CursorY, 0, PCB->MaxHeight);
/* update cursor confinement and output area (scrollbars) */
ChangePCBSize (PCB->MaxWidth, PCB->MaxHeight);
/* enable default font if necessary */
if (!PCB->Font.Valid)
{
Message (_
("File '%s' has no font information, using default font\n"),
new_filename);
PCB->Font.Valid = true;
}
/* clear 'changed flag' */
SetChangedFlag (false);
PCB->Filename = new_filename;
/* just in case a bad file saved file is loaded */
/* Use attribute PCB::grid::unit as unit, if we can */
unit_suffix = AttributeGet (PCB, "PCB::grid::unit");
if (unit_suffix && *unit_suffix)
{
const Unit *new_unit = get_unit_struct (unit_suffix);
if (new_unit)
Settings.grid_unit = new_unit;
}
AttributePut (PCB, "PCB::grid::unit", Settings.grid_unit->suffix);
/* Use attribute PCB::grid::size as size, if we can */
grid_size = AttributeGet (PCB, "PCB::grid::size");
if (grid_size)
{
PCB->Grid = GetValue (grid_size, NULL, NULL);
}
sort_netlist ();
set_some_route_style ();
if (revert)
hid_actionl ("PCBChanged", "revert", NULL);
else
hid_action ("PCBChanged");
#ifdef DEBUG
end = clock ();
elapsed = ((double) (end - start)) / CLOCKS_PER_SEC;
gui->log ("Loading file %s took %f seconds of CPU time\n",
new_filename, elapsed);
#endif
return (0);
}
PCB = oldPCB;
hid_action ("PCBChanged");
/* release unused memory */
RemovePCB (newPCB);
return (1);
}
/* ---------------------------------------------------------------------------
* load PCB
* parse the file with enabled 'PCB mode' (see parser)
* if successful, update some other stuff
*/
int
LoadPCB (char *Filename)
{
PCBTypePtr newPCB = CreateNewPCB (false);
PCBTypePtr oldPCB;
bool units_mm;
#ifdef DEBUG
double elapsed;
clock_t start, end;
start = clock ();
#endif
oldPCB = PCB;
PCB = newPCB;
/* new data isn't added to the undo list */
if (!ParsePCB (PCB, Filename))
{
RemovePCB (oldPCB);
CreateNewPCBPost (PCB, 0);
ResetStackAndVisibility ();
/* update cursor location */
Crosshair.X = MAX (0, MIN (PCB->CursorX, (LocationType) PCB->MaxWidth));
Crosshair.Y =
MAX (0, MIN (PCB->CursorY, (LocationType) PCB->MaxHeight));
Xorig = Crosshair.X - TO_PCB (Output.Width / 2);
Yorig = Crosshair.Y - TO_PCB (Output.Height / 2);
/* update cursor confinement and output area (scrollbars) */
ChangePCBSize (PCB->MaxWidth, PCB->MaxHeight);
/* create default font if necessary */
if (!PCB->Font.Valid)
{
Message (_
("File '%s' has no font information, using default font\n"),
Filename);
CreateDefaultFont ();
}
/* clear 'changed flag' */
SetChangedFlag (false);
PCB->Filename = strdup (Filename);
/* just in case a bad file saved file is loaded */
units_mm = (PCB->Grid != (int) PCB->Grid) ? true : false;
Settings.grid_units_mm = units_mm;
sort_netlist ();
set_some_route_style ();
hid_action ("PCBChanged");
#ifdef DEBUG
end = clock ();
elapsed = ((double) (end - start)) / CLOCKS_PER_SEC;
gui->log ("Loading file %s took %f seconds of CPU time\n",
Filename, elapsed);
#endif
return (0);
}
PCB = oldPCB;
hid_action ("PCBChanged");
/* release unused memory */
RemovePCB (newPCB);
return (1);
}
