/* ---------------------------------------------------------------------------
* writes PCB to file
*/
static int
WritePCB (FILE * FP)
{
Cardinal i;
WritePCBInfoHeader (FP);
WritePCBDataHeader (FP);
WritePCBFontData (FP);
WriteAttributeList (FP, &PCB->Attributes, "");
WriteViaData (FP, PCB->Data);
WriteElementData (FP, PCB->Data);
WritePCBRatData (FP);
for (i = 0; i < max_copper_layer + 2; i++)
WriteLayerData (FP, i, &(PCB->Data->Layer[i]));
WritePCBNetlistData (FP);
return (STATUS_OK);
}
/* ---------------------------------------------------------------------------
* writes PCB to file
*/
static int
WritePCB (FILE * FP)
{
Cardinal i;
if (Settings.SaveMetricOnly)
set_allow_readable (ALLOW_MM);
else
set_allow_readable (ALLOW_READABLE);
WritePCBInfoHeader (FP);
WritePCBDataHeader (FP);
WritePCBFontData (FP);
WriteAttributeList (FP, &PCB->Attributes, "");
WriteViaData (FP, PCB->Data);
WriteElementData (FP, PCB->Data);
WritePCBRatData (FP);
for (i = 0; i < max_copper_layer + 2; i++)
WriteLayerData (FP, i, &(PCB->Data->Layer[i]));
WritePCBNetlistData (FP);
return (STATUS_OK);
}
/* ---------------------------------------------------------------------------
* writes layer data
*/
static void
WriteLayerData (FILE * FP, Cardinal Number, LayerType *layer)
{
GList *n;
/* write information about non empty layers */
if (layer->LineN || layer->ArcN || layer->TextN || layer->PolygonN ||
(layer->Name && *layer->Name))
{
fprintf (FP, "Layer(%i ", (int) Number + 1);
PrintQuotedString (FP, (char *)EMPTY (layer->Name));
fputs (")\n(\n", FP);
WriteAttributeList (FP, &layer->Attributes, "\t");
for (n = layer->Line; n != NULL; n = g_list_next (n))
{
LineType *line = n->data;
pcb_fprintf (FP, "\tLine[%mr %mr %mr %mr %mr %mr %s]\n",
line->Point1.X, line->Point1.Y,
line->Point2.X, line->Point2.Y,
line->Thickness, line->Clearance,
F2S (line, LINE_TYPE));
}
for (n = layer->Arc; n != NULL; n = g_list_next (n))
{
ArcType *arc = n->data;
pcb_fprintf (FP, "\tArc[%mr %mr %mr %mr %mr %mr %ma %ma %s]\n",
arc->X, arc->Y, arc->Width,
arc->Height, arc->Thickness,
arc->Clearance, arc->StartAngle,
arc->Delta, F2S (arc, ARC_TYPE));
}
for (n = layer->Text; n != NULL; n = g_list_next (n))
{
TextType *text = n->data;
pcb_fprintf (FP, "\tText[%mr %mr %d %d ",
text->X, text->Y,
text->Direction, text->Scale);
PrintQuotedString (FP, (char *)EMPTY (text->TextString));
fprintf (FP, " %s]\n", F2S (text, TEXT_TYPE));
}
for (n = layer->Polygon; n != NULL; n = g_list_next (n))
{
PolygonType *polygon = n->data;
int p, i = 0;
Cardinal hole = 0;
fprintf (FP, "\tPolygon(%s)\n\t(", F2S (polygon, POLYGON_TYPE));
for (p = 0; p < polygon->PointN; p++)
{
PointType *point = &polygon->Points[p];
if (hole < polygon->HoleIndexN &&
p == polygon->HoleIndex[hole])
{
if (hole > 0)
fputs ("\n\t\t)", FP);
fputs ("\n\t\tHole (", FP);
hole++;
i = 0;
}
if (i++ % 5 == 0)
{
fputs ("\n\t\t", FP);
if (hole)
fputs ("\t", FP);
}
pcb_fprintf (FP, "[%mr %mr] ", point->X, point->Y);
}
if (hole > 0)
fputs ("\n\t\t)", FP);
fputs ("\n\t)\n", FP);
}
fputs (")\n", FP);
}
}
/* ---------------------------------------------------------------------------
* writes element data
*/
static void
WriteElementData (FILE * FP, DataType *Data)
{
GList *n, *p;
for (n = Data->Element; n != NULL; n = g_list_next (n))
{
ElementType *element = n->data;
/* only non empty elements */
if (!element->LineN && !element->PinN && !element->ArcN
&& !element->PadN)
continue;
/* the coordinates and text-flags are the same for
* both names of an element
*/
fprintf (FP, "\nElement[%s ", F2S (element, ELEMENT_TYPE));
PrintQuotedString (FP, (char *)EMPTY (DESCRIPTION_NAME (element)));
fputc (' ', FP);
PrintQuotedString (FP, (char *)EMPTY (NAMEONPCB_NAME (element)));
fputc (' ', FP);
PrintQuotedString (FP, (char *)EMPTY (VALUE_NAME (element)));
pcb_fprintf (FP, " %mr %mr %mr %mr %d %d %s]\n(\n",
element->MarkX, element->MarkY,
DESCRIPTION_TEXT (element).X - element->MarkX,
DESCRIPTION_TEXT (element).Y - element->MarkY,
DESCRIPTION_TEXT (element).Direction,
DESCRIPTION_TEXT (element).Scale,
F2S (&(DESCRIPTION_TEXT (element)), ELEMENTNAME_TYPE));
WriteAttributeList (FP, &element->Attributes, "\t");
for (p = element->Pin; p != NULL; p = g_list_next (p))
{
PinType *pin = p->data;
pcb_fprintf (FP, "\tPin[%mr %mr %mr %mr %mr %mr ",
pin->X - element->MarkX,
pin->Y - element->MarkY,
pin->Thickness, pin->Clearance,
pin->Mask, pin->DrillingHole);
PrintQuotedString (FP, (char *)EMPTY (pin->Name));
fprintf (FP, " ");
PrintQuotedString (FP, (char *)EMPTY (pin->Number));
fprintf (FP, " %s]\n", F2S (pin, PIN_TYPE));
}
for (p = element->Pad; p != NULL; p = g_list_next (p))
{
PadType *pad = p->data;
pcb_fprintf (FP, "\tPad[%mr %mr %mr %mr %mr %mr %mr ",
pad->Point1.X - element->MarkX,
pad->Point1.Y - element->MarkY,
pad->Point2.X - element->MarkX,
pad->Point2.Y - element->MarkY,
pad->Thickness, pad->Clearance, pad->Mask);
PrintQuotedString (FP, (char *)EMPTY (pad->Name));
fprintf (FP, " ");
PrintQuotedString (FP, (char *)EMPTY (pad->Number));
fprintf (FP, " %s]\n", F2S (pad, PAD_TYPE));
}
for (p = element->Line; p != NULL; p = g_list_next (p))
{
LineType *line = p->data;
pcb_fprintf (FP, "\tElementLine [%mr %mr %mr %mr %mr]\n",
line->Point1.X - element->MarkX,
line->Point1.Y - element->MarkY,
line->Point2.X - element->MarkX,
line->Point2.Y - element->MarkY,
line->Thickness);
}
for (p = element->Arc; p != NULL; p = g_list_next (p))
{
ArcType *arc = p->data;
pcb_fprintf (FP, "\tElementArc [%mr %mr %mr %mr %ma %ma %mr]\n",
arc->X - element->MarkX,
arc->Y - element->MarkY,
arc->Width, arc->Height,
arc->StartAngle, arc->Delta,
arc->Thickness);
}
fputs ("\n\t)\n", FP);
}
}
/* ---------------------------------------------------------------------------
* writes layer data
*/
static void
WriteLayerData (FILE * FP, Cardinal Number, LayerTypePtr layer)
{
int n;
/* write information about non empty layers */
if (layer->LineN || layer->ArcN || layer->TextN || layer->PolygonN ||
(layer->Name && *layer->Name))
{
fprintf (FP, "Layer(%i ", (int) Number + 1);
PrintQuotedString (FP, (char *)EMPTY (layer->Name));
fputs (")\n(\n", FP);
WriteAttributeList (FP, &layer->Attributes, "\t");
for (n = 0; n < layer->LineN; n++)
{
LineTypePtr line = &layer->Line[n];
fprintf (FP, "\tLine[%i %i %i %i %i %i %s]\n",
(int) line->Point1.X, (int) line->Point1.Y,
(int) line->Point2.X, (int) line->Point2.Y,
(int) line->Thickness, (int) line->Clearance,
F2S (line, LINE_TYPE));
}
for (n = 0; n < layer->ArcN; n++)
{
ArcTypePtr arc = &layer->Arc[n];
fprintf (FP, "\tArc[%i %i %i %i %i %i %i %i %s]\n",
(int) arc->X, (int) arc->Y, (int) arc->Width,
(int) arc->Height, (int) arc->Thickness,
(int) arc->Clearance, (int) arc->StartAngle,
(int) arc->Delta, F2S (arc, ARC_TYPE));
}
for (n = 0; n < layer->TextN; n++)
{
TextTypePtr text = &layer->Text[n];
fprintf (FP, "\tText[%i %i %i %i ",
(int) text->X, (int) text->Y,
(int) text->Direction, (int) text->Scale);
PrintQuotedString (FP, (char *)EMPTY (text->TextString));
fprintf (FP, " %s]\n", F2S (text, TEXT_TYPE));
}
for (n = 0; n < layer->PolygonN; n++)
{
PolygonTypePtr polygon = &layer->Polygon[n];
int p, i = 0;
Cardinal hole = 0;
fprintf (FP, "\tPolygon(%s)\n\t(", F2S (polygon, POLYGON_TYPE));
for (p = 0; p < polygon->PointN; p++)
{
PointTypePtr point = &polygon->Points[p];
if (hole < polygon->HoleIndexN &&
p == polygon->HoleIndex[hole])
{
if (hole > 0)
fputs ("\n\t\t)", FP);
fputs ("\n\t\tHole (", FP);
hole++;
i = 0;
}
if (i++ % 5 == 0)
{
fputs ("\n\t\t", FP);
if (hole)
fputs ("\t", FP);
}
fprintf (FP, "[%i %i] ", (int) point->X, (int) point->Y);
}
if (hole > 0)
fputs ("\n\t\t)", FP);
fputs ("\n\t)\n", FP);
}
fputs (")\n", FP);
}
}
/* ---------------------------------------------------------------------------
* writes element data
*/
static void
WriteElementData (FILE * FP, DataTypePtr Data)
{
int n, p;
for (n = 0; n < Data->ElementN; n++)
{
ElementTypePtr element = &Data->Element[n];
/* only non empty elements */
if (!element->LineN && !element->PinN && !element->ArcN
&& !element->PadN)
continue;
/* the coordinates and text-flags are the same for
* both names of an element
*/
fprintf (FP, "\nElement[%s ", F2S (element, ELEMENT_TYPE));
PrintQuotedString (FP, (char *)EMPTY (DESCRIPTION_NAME (element)));
fputc (' ', FP);
PrintQuotedString (FP, (char *)EMPTY (NAMEONPCB_NAME (element)));
fputc (' ', FP);
PrintQuotedString (FP, (char *)EMPTY (VALUE_NAME (element)));
fprintf (FP, " %i %i %i %i %i %i %s]\n(\n",
(int) element->MarkX, (int) element->MarkY,
(int) (DESCRIPTION_TEXT (element).X -
element->MarkX),
(int) (DESCRIPTION_TEXT (element).Y -
element->MarkY),
(int) DESCRIPTION_TEXT (element).Direction,
(int) DESCRIPTION_TEXT (element).Scale,
F2S (&(DESCRIPTION_TEXT (element)), ELEMENTNAME_TYPE));
WriteAttributeList (FP, &element->Attributes, "\t");
for (p = 0; p < element->PinN; p++)
{
PinTypePtr pin = &element->Pin[p];
fprintf (FP, "\tPin[%i %i %i %i %i %i ",
(int) (pin->X - element->MarkX),
(int) (pin->Y - element->MarkY),
(int) pin->Thickness, (int) pin->Clearance,
(int) pin->Mask, (int) pin->DrillingHole);
PrintQuotedString (FP, (char *)EMPTY (pin->Name));
fprintf (FP, " ");
PrintQuotedString (FP, (char *)EMPTY (pin->Number));
fprintf (FP, " %s]\n", F2S (pin, PIN_TYPE));
}
for (p = 0; p < element->PadN; p++)
{
PadTypePtr pad = &element->Pad[p];
fprintf (FP, "\tPad[%i %i %i %i %i %i %i ",
(int) (pad->Point1.X - element->MarkX),
(int) (pad->Point1.Y - element->MarkY),
(int) (pad->Point2.X - element->MarkX),
(int) (pad->Point2.Y - element->MarkY),
(int) pad->Thickness, (int) pad->Clearance,
(int) pad->Mask);
PrintQuotedString (FP, (char *)EMPTY (pad->Name));
fprintf (FP, " ");
PrintQuotedString (FP, (char *)EMPTY (pad->Number));
fprintf (FP, " %s]\n", F2S (pad, PAD_TYPE));
}
for (p = 0; p < element->LineN; p++)
{
LineTypePtr line = &element->Line[p];
fprintf (FP,
"\tElementLine [%i %i %i %i %i]\n",
(int) (line->Point1.X -
element->MarkX),
(int) (line->Point1.Y -
element->MarkY),
(int) (line->Point2.X -
element->MarkX),
(int) (line->Point2.Y -
element->MarkY), (int) line->Thickness);
}
for (p = 0; p < element->ArcN; p++)
{
ArcTypePtr arc = &element->Arc[p];
fprintf (FP,
"\tElementArc [%i %i %i %i %i %i %i]\n",
(int) (arc->X - element->MarkX),
(int) (arc->Y - element->MarkY),
(int) arc->Width, (int) arc->Height,
(int) arc->StartAngle, (int) arc->Delta,
(int) arc->Thickness);
}
fputs ("\n\t)\n", FP);
}
}
