kicad/cvpcb/rdpcad.cpp

275 lines
5.9 KiB
C++
Raw Normal View History

/****************/
/* rdpcad() */
/***************/
/* convertit la netliste PCAD en netliste standard (fichier temporaire)
assure la reaffectation des alimentations selon le format :
{I VALEUR<SEPARATEUR>(pin1,pin2,...=newalim).PRT ID
*/
#include "fctsys.h"
#include "wxstruct.h"
#include "common.h"
#include "colors.h"
#include "cvpcb.h"
#include "protos.h"
#define SEPARATEUR '|'
/* routines locales : */
int pin(void) ;
/***************************************/
int WinEDA_CvpcbFrame::rdpcad(void)
/***************************************/
{
int i , j , k ,l ;
char Line[1024];
char label[80] ; /* buffer des references composants */
char val[80] ; /* buffer des valeurs */
char *ptchar ; /* pointeur de service */
STORECMP * Cmp;
modified = 0;
Rjustify = 0;
/* Raz buffer et variable de gestion */
if( g_BaseListeCmp ) FreeMemoryComponants();
/* Ouverture du fichier source */
source = wxFopen(FFileName, wxT("rt"));
if (source == 0)
{
wxString msg;
msg.Printf( _("File <%s> not found"),FFileName.GetData());
DisplayError(this, msg); return(-1);
}
/* Lecture entete qui doit etre "{COMPONENT ORCAD.PCB" ou "{ OrCAD PCB"*/
fgets(Line,255,source) ;
i = strncmp(Line,"{COMPONENT ORCAD.PCB",9) ; /* net type PCAD */
if ( i != 0 )
{
wxString msg, Lineconv = CONV_FROM_UTF8(Line);
msg.Printf( _("Unknown file format <%s>"), Lineconv.GetData());
DisplayError(this, msg);
fclose(source); return(-3) ;
}
SetStatusText( _("Netlist Format: Pcad"), 0);
/* Lecture de la liste */
for ( ;; )
{
/* recherche du debut de la description d'un composant */
if ( fgets(Line,80,source) == 0 ) break ;
/* suppression des blancs en d<>but de ligne */
i = 0 ; while (Line[i] == ' ') i++ ;
/* elimination des lignes vides : */
if (Line[i] < ' ') continue ;
if (strncmp(&Line[i],"{I",2) != 0) continue ;
/****************************/
/* debut description trouv<75> */
/****************************/
i += 3 ; /* i pointe le 1er caractere de la valeur du composant */
for (j = 0 ; j < 20 ; j++)
{
label[j] = 0 ; val[j] = ' ' ;
}
val[16] = 0 ;
for (j =0 ; j < 80 ; j++) alim[j] = 0 ;
/* lecture valeur du composant ( toujours r<>ecrire sur 8 caracteres) */
/* recherche fin de valeur (.PRT) */
ptchar = strstr(Line,".PRT") ;
if (ptchar == 0)
{
sprintf(cbuf,"Netlist error: %s\n",Line) ;
// Affiche_Message(cbuf) ;
}
k = ptchar - Line ;
for (j = 0 ; i < k ; i++)
{
if ( Line[i] == SEPARATEUR ) break ;
if ( j < 8 ) val[j++] = Line[i] ;
}
if ( (Line[++i] == '(') && (Line[k-1] == ')' ) )
{
i++ ; l = 0 ; while ( k-1 > i ) alim[l++] = Line[i++] ;
}
else i = k ;
/* recherche reference du composant */
while(Line[i] != ' ') i++ ; /* elimination fin valeur */
while(Line[i] == ' ') i++ ; /* recherche debut reference */
/* debut reference trouv<75> */
for ( k = 0 ; k < 8 ; i++ , k++ )
{
if ( Line[i] <= ' ' ) break ;
label[k] = Line[i] ;
}
/* classement du composant ,suivi de sa valeur */
Cmp = new STORECMP();
Cmp->Pnext = g_BaseListeCmp;
g_BaseListeCmp = Cmp;
Cmp->m_Reference = CONV_FROM_UTF8(label);
Cmp->m_Valeur = CONV_FROM_UTF8(val);
pin() ;
nbcomp++ ;
}
fclose(source);
/* reclassement alpab<61>tique : */
g_BaseListeCmp = TriListeComposantss( g_BaseListeCmp, nbcomp);
return(0);
}
/***********************************/
/* pin() : analyse liste des pines */
/***********************************/
int pin(void)
{
int i , j , k ;
char numpin[9] , net[9] ;
char Line[1024];
for ( ;; )
{
/* recherche du debut de la description des pins d'un composant */
if ( fgets(Line,80,source) == 0 ) return(-1) ;
/* suppression des blancs en d<>but de ligne */
i = 0 ; while (Line[i] == ' ') i++ ;
/* elimination des lignes vides : */
if (Line[i] < ' ') continue ;
if (strncmp(&Line[i],"{CN",3) != 0) continue ;
/* debut description trouv<75> */
for ( ;; )
{
if ( fgets(Line,80,source) == 0 ) return(-1) ;
/* suppression des blancs en d<>but de ligne */
i = 0 ; while (Line[i] == ' ') i++ ;
/* elimination des lignes vides : */
if (Line[i] < ' ') continue ;
/* fin de description ? */
if (Line[i] == '}' ) return(0) ;
memset( net, 0, sizeof(net) ) ;
memset( numpin, 0, sizeof(numpin) ) ;
/* lecture name pin , 4 lettres */
for (j = 0 ; j < 4 ; j++ , i++)
{
if ( Line[i] == ' ' ) break ;
numpin[j] = Line[i] ;
}
j = 0 ;
/* recherche affectation forc<72>e de net */
if ( reaffect(&numpin[j],net) != 0)
{
// fprintf(dest,"%s:%s\n",&numpin[j],net) ;
continue ;
}
/* recherche netname */
while(Line[i] == ' ') i++ ; /* recherche debut reference */
/* debut netname trouv<75> */
for ( k = 0 ; k < 8 ; i++ , k++ )
{
if ( Line[i] <= ' ' ) break ;
net[k] = Line[i] ;
}
/* les pins non connect<63>es sont <20>limin<69>es :*/
if (net[0] == '?' ) continue ;
// fprintf(dest,"%s:%s\n",&numpin[j],net) ;
}
}
}
/**************************************/
int reaffect( char *ib, char *net)
/**************************************/
/* force un nom de net pour une pine
ib = reference de pin , net = nouveau net ; alim = ligne de consigne
*/
{
char *pt , *pt0 , npin[12] ;
int i ;
pt = alim ;
while (*pt != 0 )
{
memset( npin, 0, sizeof(npin) ) ;
/* recherche separateur (':' ou ',') */
while ( (*pt != ':') && (*pt != ',') )
{
pt++ ; if (*pt == 0 ) return(0) ;
}
/* suppression des blancs eventuels */
pt0 = pt ; /* save position du nom du net */
pt0-- ; while (*pt0 == ' ') pt0-- ;
for (i = 3 ; i >= 0 ; i-- )
{
if ( (*pt0 == ',') || (*pt0 ==' ')) break ;
npin[i] = *pt0 ;
if (pt0 == alim) break ;
pt0-- ;
}
while ( npin[0] == ' ' ) /* suppression des espaces a gauche */
{
npin[0] = npin[1] ;
npin[1] = npin[2] ;
npin[2] = npin[3] ;
npin[3] = ' ' ;
}
if (strncmp(npin,ib,4) == 0 ) /* pin trouv<75>e */
{
pt++ ; while ((*pt == ' ' ) && (*pt != 0 )) pt++ ;
i = 0 ;
while ((*pt != 0) && (*pt != ',') && ( i < 8 ) )
{
net[i++] = *pt++ ;
}
net[i] = 0 ;
return(1) ;
}
pt++ ;
}
return(0) ;
}