summaryrefslogtreecommitdiffstats
path: root/src/base
diff options
context:
space:
mode:
Diffstat (limited to 'src/base')
-rw-r--r--src/base/abc/abc.c175
-rw-r--r--src/base/abc/abc.h4
-rw-r--r--src/base/abc/abcCreate.c104
-rw-r--r--src/base/abc/abcDfs.c125
-rw-r--r--src/base/io/io.c69
-rw-r--r--src/base/io/io.h6
-rw-r--r--src/base/io/ioInt.h2
-rw-r--r--src/base/io/ioRead.c2
-rw-r--r--src/base/io/ioReadPla.c263
-rw-r--r--src/base/io/ioWriteBench.c2
-rw-r--r--src/base/io/ioWritePla.c187
-rw-r--r--src/base/io/module.make4
12 files changed, 928 insertions, 15 deletions
diff --git a/src/base/abc/abc.c b/src/base/abc/abc.c
index b8c9a3ef..f64cc008 100644
--- a/src/base/abc/abc.c
+++ b/src/base/abc/abc.c
@@ -32,6 +32,8 @@ static int Abc_CommandPrintStats ( Abc_Frame_t * pAbc, int argc, char ** argv
static int Abc_CommandPrintIo ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandPrintFanio ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandPrintFactor ( Abc_Frame_t * pAbc, int argc, char ** argv );
+static int Abc_CommandPrintSupport ( Abc_Frame_t * pAbc, int argc, char ** argv );
+
static int Abc_CommandShowBdd ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandCollapse ( Abc_Frame_t * pAbc, int argc, char ** argv );
@@ -50,6 +52,7 @@ static int Abc_CommandSop ( Abc_Frame_t * pAbc, int argc, char ** argv
static int Abc_CommandBdd ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandSat ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandExtSeqDcs ( Abc_Frame_t * pAbc, int argc, char ** argv );
+static int Abc_CommandSplit ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandFraig ( Abc_Frame_t * pAbc, int argc, char ** argv );
static int Abc_CommandFraigTrust ( Abc_Frame_t * pAbc, int argc, char ** argv );
@@ -89,6 +92,7 @@ void Abc_Init( Abc_Frame_t * pAbc )
Cmd_CommandAdd( pAbc, "Printing", "print_io", Abc_CommandPrintIo, 0 );
Cmd_CommandAdd( pAbc, "Printing", "print_fanio", Abc_CommandPrintFanio, 0 );
Cmd_CommandAdd( pAbc, "Printing", "print_factor", Abc_CommandPrintFactor, 0 );
+ Cmd_CommandAdd( pAbc, "Printing", "print_supp", Abc_CommandPrintSupport, 0 );
Cmd_CommandAdd( pAbc, "Printing", "show_bdd", Abc_CommandShowBdd, 0 );
@@ -108,6 +112,7 @@ void Abc_Init( Abc_Frame_t * pAbc )
Cmd_CommandAdd( pAbc, "Various", "bdd", Abc_CommandBdd, 0 );
Cmd_CommandAdd( pAbc, "Various", "sat", Abc_CommandSat, 0 );
Cmd_CommandAdd( pAbc, "Various", "ext_seq_dcs", Abc_CommandExtSeqDcs, 0 );
+ Cmd_CommandAdd( pAbc, "Various", "split", Abc_CommandSplit, 1 );
Cmd_CommandAdd( pAbc, "Fraiging", "fraig", Abc_CommandFraig, 1 );
Cmd_CommandAdd( pAbc, "Fraiging", "fraig_trust", Abc_CommandFraigTrust, 1 );
@@ -411,6 +416,62 @@ usage:
SeeAlso []
***********************************************************************/
+int Abc_CommandPrintSupport( Abc_Frame_t * pAbc, int argc, char ** argv )
+{
+ FILE * pOut, * pErr;
+ Abc_Ntk_t * pNtk;
+ int c;
+ extern void * Sim_ComputeSupp( Abc_Ntk_t * pNtk );
+
+ pNtk = Abc_FrameReadNet(pAbc);
+ pOut = Abc_FrameReadOut(pAbc);
+ pErr = Abc_FrameReadErr(pAbc);
+
+ // set defaults
+ util_getopt_reset();
+ while ( ( c = util_getopt( argc, argv, "h" ) ) != EOF )
+ {
+ switch ( c )
+ {
+ case 'h':
+ goto usage;
+ default:
+ goto usage;
+ }
+ }
+
+ if ( pNtk == NULL )
+ {
+ fprintf( pErr, "Empty network.\n" );
+ return 1;
+ }
+
+ if ( !Abc_NtkIsAig(pNtk) )
+ {
+ fprintf( pErr, "This command works only for AIGs.\n" );
+ return 1;
+ }
+ Sim_ComputeSupp( pNtk );
+ return 0;
+
+usage:
+ fprintf( pErr, "usage: print_supp [-h]\n" );
+ fprintf( pErr, "\t prints the supports of the CO nodes\n" );
+ fprintf( pErr, "\t-h : print the command usage\n");
+ return 1;
+}
+
+/**Function*************************************************************
+
+ Synopsis []
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
int Abc_CommandShowBdd( Abc_Frame_t * pAbc, int argc, char ** argv )
{
FILE * pOut, * pErr;
@@ -1677,6 +1738,120 @@ usage:
return 1;
}
+/**Function*************************************************************
+
+ Synopsis []
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+int Abc_CommandSplit( Abc_Frame_t * pAbc, int argc, char ** argv )
+{
+ FILE * pOut, * pErr;
+ Abc_Ntk_t * pNtk, * pNtkRes;
+ Abc_Obj_t * pNode;
+ int c;
+ int fUseAllCis;
+ int Output;
+
+ pNtk = Abc_FrameReadNet(pAbc);
+ pOut = Abc_FrameReadOut(pAbc);
+ pErr = Abc_FrameReadErr(pAbc);
+
+ // set defaults
+ fUseAllCis = 0;
+ Output = -1;
+ util_getopt_reset();
+ while ( ( c = util_getopt( argc, argv, "oah" ) ) != EOF )
+ {
+ switch ( c )
+ {
+ case 'o':
+ if ( util_optind >= argc )
+ {
+ fprintf( pErr, "Command line switch \"-o\" should be followed by an integer.\n" );
+ goto usage;
+ }
+ Output = atoi(argv[util_optind]);
+ util_optind++;
+ if ( Output < 0 )
+ goto usage;
+ break;
+ case 'a':
+ fUseAllCis ^= 1;
+ break;
+ case 'h':
+ goto usage;
+ default:
+ goto usage;
+ }
+ }
+
+ if ( pNtk == NULL )
+ {
+ fprintf( pErr, "Empty network.\n" );
+ return 1;
+ }
+
+ if ( !Abc_NtkIsLogic(pNtk) && !Abc_NtkIsAig(pNtk) )
+ {
+ fprintf( pErr, "Currently can only be applied to the logic network or an AIG.\n" );
+ return 1;
+ }
+
+ if ( argc > util_optind + 1 )
+ {
+ fprintf( pErr, "Wrong number of auguments.\n" );
+ goto usage;
+ }
+
+ if ( argc == util_optind + 1 )
+ {
+ pNode = Abc_NtkFindCo( pNtk, argv[util_optind] );
+ if ( pNode == NULL )
+ {
+ fprintf( pErr, "Cannot find CO node \"%s\".\n", argv[util_optind] );
+ return 1;
+ }
+ pNtkRes = Abc_NtkSplitOutput( pNtk, pNode, fUseAllCis );
+ }
+ else
+ {
+ if ( Output == -1 )
+ {
+ fprintf( pErr, "The output is not specified.\n" );
+ return 1;
+ }
+ if ( Output >= Abc_NtkCoNum(pNtk) )
+ {
+ fprintf( pErr, "The 0-based output number (%d) is larger than the number of outputs (%d).\n", Output, Abc_NtkCoNum(pNtk) );
+ return 1;
+ }
+ pNtkRes = Abc_NtkSplitOutput( pNtk, Abc_NtkCo(pNtk,Output), fUseAllCis );
+ }
+ if ( pNtkRes == NULL )
+ {
+ fprintf( pErr, "Splitting one output has failed.\n" );
+ return 1;
+ }
+ // replace the current network
+ Abc_FrameReplaceCurrentNetwork( pAbc, pNtkRes );
+ return 0;
+
+usage:
+ fprintf( pErr, "usage: split [-o num] [-ah] <name>\n" );
+ fprintf( pErr, "\t replaces the current network by the logic cone of one output\n" );
+ fprintf( pErr, "\t-a : toggle writing all CIs or structral support only [default = %s]\n", fUseAllCis? "all": "structural" );
+ fprintf( pErr, "\t-h : print the command usage\n");
+ fprintf( pErr, "\t-o num : (optional) the 0-based number of the output\n");
+ fprintf( pErr, "\tname : (optional) the name of the output\n");
+ return 1;
+}
+
diff --git a/src/base/abc/abc.h b/src/base/abc/abc.h
index 9b9bd81e..ad226c86 100644
--- a/src/base/abc/abc.h
+++ b/src/base/abc/abc.h
@@ -393,6 +393,7 @@ extern Abc_Ntk_t * Abc_NtkAlloc( Abc_NtkType_t Type );
extern Abc_Ntk_t * Abc_NtkStartFrom( Abc_Ntk_t * pNtk, Abc_NtkType_t Type );
extern void Abc_NtkFinalize( Abc_Ntk_t * pNtk, Abc_Ntk_t * pNtkNew );
extern Abc_Ntk_t * Abc_NtkDup( Abc_Ntk_t * pNtk );
+extern Abc_Ntk_t * Abc_NtkSplitOutput( Abc_Ntk_t * pNtk, Abc_Obj_t * pNode, int fUseAllCis );
extern void Abc_NtkDelete( Abc_Ntk_t * pNtk );
extern Abc_Obj_t * Abc_NtkDupObj( Abc_Ntk_t * pNtkNew, Abc_Obj_t * pObj );
extern void Abc_NtkDeleteObj( Abc_Obj_t * pObj );
@@ -401,6 +402,7 @@ extern void Abc_NtkMarkNetPo( Abc_Obj_t * pObj );
extern Abc_Obj_t * Abc_NtkAddPoNode( Abc_Obj_t * pObj );
extern void Abc_NtkRemovePoNode( Abc_Obj_t * pNode );
extern Abc_Obj_t * Abc_NtkFindNode( Abc_Ntk_t * pNtk, char * pName );
+extern Abc_Obj_t * Abc_NtkFindCo( Abc_Ntk_t * pNtk, char * pName );
extern Abc_Obj_t * Abc_NtkFindNet( Abc_Ntk_t * pNtk, char * pName );
extern Abc_Obj_t * Abc_NtkFindOrCreateNet( Abc_Ntk_t * pNtk, char * pName );
extern Abc_Obj_t * Abc_NtkCreateNode( Abc_Ntk_t * pNtk );
@@ -417,7 +419,9 @@ extern Abc_Obj_t * Abc_NodeCreateMux( Abc_Ntk_t * pNtk, Abc_Obj_t * pNode
extern Abc_Obj_t * Abc_NodeClone( Abc_Obj_t * pNode );
/*=== abcDfs.c ==========================================================*/
extern Vec_Ptr_t * Abc_NtkDfs( Abc_Ntk_t * pNtk );
+extern Vec_Ptr_t * Abc_NtkDfsNodes( Abc_Ntk_t * pNtk, Abc_Obj_t ** ppNodes, int nNodes );
extern Vec_Ptr_t * Abc_AigDfs( Abc_Ntk_t * pNtk );
+extern Vec_Ptr_t * Abc_DfsLevelized( Abc_Obj_t * pNode, bool fTfi );
extern int Abc_NtkGetLevelNum( Abc_Ntk_t * pNtk );
extern bool Abc_NtkIsAcyclic( Abc_Ntk_t * pNtk );
/*=== abcFanio.c ==========================================================*/
diff --git a/src/base/abc/abcCreate.c b/src/base/abc/abcCreate.c
index 5049a72e..83654635 100644
--- a/src/base/abc/abcCreate.c
+++ b/src/base/abc/abcCreate.c
@@ -223,6 +223,86 @@ Abc_Ntk_t * Abc_NtkDup( Abc_Ntk_t * pNtk )
/**Function*************************************************************
+ Synopsis [Creates the network composed of one output.]
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+Abc_Ntk_t * Abc_NtkSplitOutput( Abc_Ntk_t * pNtk, Abc_Obj_t * pNode, int fUseAllCis )
+{
+ Vec_Ptr_t * vNodes;
+ Abc_Ntk_t * pNtkNew;
+ Abc_Obj_t * pObj, * pFanin;
+ char Buffer[1000];
+ int i, k, Output;
+
+ assert( Abc_NtkIsLogic(pNtk) || Abc_NtkIsAig(pNtk) );
+ assert( Abc_ObjIsTerm(pNode) || Abc_ObjIsLatch(pNode) );
+ // get the number of this output
+ Output = -1;
+ Abc_NtkForEachCo( pNtk, pObj, i )
+ if ( pObj == pNode )
+ {
+ Output = i;
+ break;
+ }
+ assert( Output >= 0 );
+
+ // start the network
+ pNtkNew = Abc_NtkAlloc( pNtk->Type );
+ // duplicate the name and the spec
+ sprintf( Buffer, "%s_%s", pNtk->pName, Abc_NtkNameCo(pNtk,Output) );
+ pNtkNew->pName = util_strsav(Buffer);
+
+ // collect the nodes in the TFI of the output
+ vNodes = Abc_NtkDfsNodes( pNtk, &pNode, 1 );
+ // create the PIs
+ Abc_NtkForEachCi( pNtk, pObj, i )
+ {
+ if ( fUseAllCis || Abc_NodeIsTravIdCurrent(pObj) ) // TravId is set by DFS
+ {
+ pObj->pCopy = Abc_NtkCreateTermPi(pNtkNew);
+ Abc_NtkLogicStoreName( pObj->pCopy, Abc_NtkNameCi(pNtk, i) );
+ }
+ }
+ // establish connection between the constant nodes
+ if ( Abc_NtkIsAig(pNtk) )
+ Abc_AigConst1(pNtk->pManFunc)->pCopy = Abc_AigConst1(pNtkNew->pManFunc);
+
+ // copy the nodes
+ Vec_PtrForEachEntry( vNodes, pObj, i )
+ {
+ // if it is an AIG, add to the hash table
+ if ( Abc_NtkIsAig(pNtk) )
+ {
+ pObj->pCopy = Abc_AigAnd( pNtkNew->pManFunc,
+ Abc_ObjNotCond( Abc_ObjFanin0(pObj)->pCopy, Abc_ObjFaninC0(pObj) ),
+ Abc_ObjNotCond( Abc_ObjFanin1(pObj)->pCopy, Abc_ObjFaninC1(pObj) ) );
+ }
+ else
+ {
+ Abc_NtkDupObj( pNtkNew, pObj );
+ Abc_ObjForEachFanin( pObj, pFanin, k )
+ Abc_ObjAddFanin( pObj->pCopy, pFanin->pCopy );
+ }
+ }
+ Vec_PtrFree( vNodes );
+ // add the PO corresponding to this output
+ pNode->pCopy = Abc_NtkCreateTermPo( pNtkNew );
+ Abc_ObjAddFanin( pNode->pCopy, Abc_ObjFanin0(pNode)->pCopy );
+ Abc_NtkLogicStoreName( pNode->pCopy, Abc_NtkNameCo(pNtk, Output) );
+
+ if ( !Abc_NtkCheck( pNtkNew ) )
+ fprintf( stdout, "Abc_NtkDup(): Network check has failed.\n" );
+ return pNtkNew;
+}
+
+/**Function*************************************************************
+
Synopsis [Deletes the Ntk.]
Description []
@@ -672,6 +752,30 @@ Abc_Obj_t * Abc_NtkFindNode( Abc_Ntk_t * pNtk, char * pName )
SeeAlso []
***********************************************************************/
+Abc_Obj_t * Abc_NtkFindCo( Abc_Ntk_t * pNtk, char * pName )
+{
+ Abc_Obj_t * pNode;
+ int i;
+ // search the node among COs
+ Abc_NtkForEachCo( pNtk, pNode, i )
+ {
+ if ( strcmp( Abc_NtkNameCo(pNtk,i), pName ) == 0 )
+ return pNode;
+ }
+ return NULL;
+}
+
+/**Function*************************************************************
+
+ Synopsis [Returns the net with the given name.]
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
Abc_Obj_t * Abc_NtkFindNet( Abc_Ntk_t * pNtk, char * pName )
{
Abc_Obj_t * pNet;
diff --git a/src/base/abc/abcDfs.c b/src/base/abc/abcDfs.c
index 5c75a94c..b1153d40 100644
--- a/src/base/abc/abcDfs.c
+++ b/src/base/abc/abcDfs.c
@@ -75,6 +75,45 @@ Vec_Ptr_t * Abc_NtkDfs( Abc_Ntk_t * pNtk )
/**Function*************************************************************
+ Synopsis [Returns the DFS ordered array of logic nodes.]
+
+ Description [Collects only the internal nodes, leaving out PIs, POs and latches.]
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+Vec_Ptr_t * Abc_NtkDfsNodes( Abc_Ntk_t * pNtk, Abc_Obj_t ** ppNodes, int nNodes )
+{
+ Vec_Ptr_t * vNodes;
+ int i, fMadeComb;
+ // set the traversal ID
+ Abc_NtkIncrementTravId( pNtk );
+ // start the array of nodes
+ vNodes = Vec_PtrAlloc( 100 );
+ // go through the PO nodes and call for each of them
+ if ( Abc_NtkIsNetlist(pNtk) )
+ {
+ fMadeComb = Abc_NtkMakeComb( pNtk );
+ for ( i = 0; i < nNodes; i++ )
+ Abc_NtkDfs_rec( ppNodes[i], vNodes );
+ if ( fMadeComb )
+ Abc_NtkMakeSeq( pNtk );
+ }
+ else
+ {
+ for ( i = 0; i < nNodes; i++ )
+ if ( Abc_ObjIsCo(ppNodes[i]) )
+ Abc_NtkDfs_rec( Abc_ObjFanin0(ppNodes[i]), vNodes );
+ else if ( Abc_ObjIsNode(ppNodes[i]) )
+ Abc_NtkDfs_rec( ppNodes[i], vNodes );
+ }
+ return vNodes;
+}
+
+/**Function*************************************************************
+
Synopsis [Performs DFS for one node.]
Description []
@@ -89,10 +128,6 @@ void Abc_NtkDfs_rec( Abc_Obj_t * pNode, Vec_Ptr_t * vNodes )
Abc_Obj_t * pFanin;
int i;
assert( !Abc_ObjIsComplement( pNode ) );
- // skip the PI
- if ( Abc_ObjIsPi(pNode) || Abc_ObjIsLatch(pNode) )
- return;
- assert( Abc_ObjIsNode( pNode ) );
// if this node is already visited, skip
if ( Abc_NodeIsTravIdCurrent( pNode ) )
@@ -100,6 +135,11 @@ void Abc_NtkDfs_rec( Abc_Obj_t * pNode, Vec_Ptr_t * vNodes )
// mark the node as visited
Abc_NodeSetTravIdCurrent( pNode );
+ // skip the PI
+ if ( Abc_ObjIsPi(pNode) || Abc_ObjIsLatch(pNode) )
+ return;
+ assert( Abc_ObjIsNode( pNode ) );
+
// visit the transitive fanin of the node
if ( Abc_NtkIsNetlist(pNode->pNtk) )
{
@@ -164,15 +204,15 @@ void Abc_AigDfs_rec( Abc_Obj_t * pNode, Vec_Ptr_t * vNodes )
Abc_Obj_t * pFanin;
int i;
assert( !Abc_ObjIsComplement( pNode ) );
- // skip the PI
- if ( Abc_ObjIsPi(pNode) || Abc_ObjIsLatch(pNode) )
- return;
- assert( Abc_ObjIsNode( pNode ) );
// if this node is already visited, skip
if ( Abc_NodeIsTravIdCurrent( pNode ) )
return;
// mark the node as visited
Abc_NodeSetTravIdCurrent( pNode );
+ // skip the PI
+ if ( Abc_ObjIsPi(pNode) || Abc_ObjIsLatch(pNode) )
+ return;
+ assert( Abc_ObjIsNode( pNode ) );
// visit the transitive fanin of the node
Abc_ObjForEachFanin( pNode, pFanin, i )
Abc_AigDfs_rec( pFanin, vNodes );
@@ -184,6 +224,75 @@ void Abc_AigDfs_rec( Abc_Obj_t * pNode, Vec_Ptr_t * vNodes )
Vec_PtrPush( vNodes, pNode );
}
+/**Function*************************************************************
+
+ Synopsis [Collects nodes in the DFS manner by level.]
+
+ Description [The number of levels should be set!!!]
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+void Abc_DfsLevelizedTfo_rec( Abc_Obj_t * pNode, Vec_Ptr_t * vLevels )
+{
+ Abc_Obj_t * pFanout;
+ int i;
+
+ // if this node is already visited, skip
+ if ( Abc_NodeIsTravIdCurrent( pNode ) )
+ return;
+ // mark the node as visited
+ Abc_NodeSetTravIdCurrent( pNode );
+
+ // skip the terminals
+ if ( Abc_ObjIsTerm(pNode) || Abc_ObjIsLatch(pNode) )
+ return;
+ assert( Abc_ObjIsNode(pNode) );
+
+ // add the node to the structure
+ if ( vLevels->nSize <= (int)pNode->Level )
+ {
+ Vec_PtrGrow( vLevels, pNode->Level + 1 );
+ for ( i = vLevels->nSize; i <= (int)pNode->Level; i++ )
+ vLevels->pArray[i] = Vec_PtrAlloc( 16 );
+ vLevels->nSize = pNode->Level + 1;
+ }
+ Vec_PtrPush( vLevels->pArray[pNode->Level], pNode );
+
+ // visit the TFO
+ Abc_ObjForEachFanout( pNode, pFanout, i )
+ Abc_DfsLevelizedTfo_rec( pFanout, vLevels );
+}
+
+/**Function*************************************************************
+
+ Synopsis [Collects nodes in the DFS manner by level.]
+
+ Description [The number of levels should be set!!!]
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+Vec_Ptr_t * Abc_DfsLevelized( Abc_Obj_t * pNode, bool fTfi )
+{
+ Vec_Ptr_t * vLevels;
+ Abc_Obj_t * pFanout;
+ int i;
+ assert( fTfi == 0 );
+ // set the traversal ID
+ Abc_NtkIncrementTravId( pNode->pNtk );
+ vLevels = Vec_PtrAlloc( 100 );
+ if ( Abc_ObjIsNode(pNode) )
+ Abc_DfsLevelizedTfo_rec( pNode, vLevels );
+ else
+ Abc_ObjForEachFanout( pNode, pFanout, i )
+ Abc_DfsLevelizedTfo_rec( pFanout, vLevels );
+ return vLevels;
+}
/**Function*************************************************************
diff --git a/src/base/io/io.c b/src/base/io/io.c
index 4698de91..5e72d307 100644
--- a/src/base/io/io.c
+++ b/src/base/io/io.c
@@ -35,6 +35,7 @@ static int IoCommandWriteBlif ( Abc_Frame_t * pAbc, int argc, char **argv );
static int IoCommandWriteGate ( Abc_Frame_t * pAbc, int argc, char **argv );
static int IoCommandWriteBench ( Abc_Frame_t * pAbc, int argc, char **argv );
static int IoCommandWriteCnf ( Abc_Frame_t * pAbc, int argc, char **argv );
+static int IoCommandWritePla ( Abc_Frame_t * pAbc, int argc, char **argv );
////////////////////////////////////////////////////////////////////////
/// FUNCTION DEFITIONS ///
@@ -63,6 +64,7 @@ void Io_Init( Abc_Frame_t * pAbc )
Cmd_CommandAdd( pAbc, "I/O", "write_gate", IoCommandWriteGate, 0 );
Cmd_CommandAdd( pAbc, "I/O", "write_bench", IoCommandWriteBench, 0 );
Cmd_CommandAdd( pAbc, "I/O", "write_cnf", IoCommandWriteCnf, 0 );
+ Cmd_CommandAdd( pAbc, "I/O", "write_pla", IoCommandWritePla, 0 );
}
/**Function*************************************************************
@@ -445,9 +447,7 @@ int IoCommandReadPla( Abc_Frame_t * pAbc, int argc, char ** argv )
fclose( pFile );
// set the new network
-// pNtk = Io_ReadPla( FileName, fCheck );
- fprintf( pAbc->Err, "This command is currently not implemented.\n" );
- pNtk = NULL;
+ pNtk = Io_ReadPla( FileName, fCheck );
if ( pNtk == NULL )
{
fprintf( pAbc->Err, "Reading network from PLA file has failed.\n" );
@@ -759,6 +759,69 @@ usage:
return 1;
}
+/**Function*************************************************************
+
+ Synopsis []
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+int IoCommandWritePla( Abc_Frame_t * pAbc, int argc, char **argv )
+{
+ char * FileName;
+ int c;
+
+ util_getopt_reset();
+ while ( ( c = util_getopt( argc, argv, "h" ) ) != EOF )
+ {
+ switch ( c )
+ {
+ case 'h':
+ goto usage;
+ default:
+ goto usage;
+ }
+ }
+
+ if ( pAbc->pNtkCur == NULL )
+ {
+ fprintf( pAbc->Out, "Empty network.\n" );
+ return 0;
+ }
+
+ if ( Abc_NtkGetLevelNum(pAbc->pNtkCur) > 1 )
+ {
+ fprintf( pAbc->Out, "PLA writing is available for collapsed networks.\n" );
+ return 0;
+ }
+
+ if ( argc != util_optind + 1 )
+ {
+ goto usage;
+ }
+
+ // get the input file name
+ FileName = argv[util_optind];
+ // write the file
+ if ( !Io_WritePla( pAbc->pNtkCur, FileName ) )
+ {
+ printf( "Writing PLA has failed.\n" );
+ return 1;
+ }
+ return 0;
+
+usage:
+ fprintf( pAbc->Err, "usage: write_pla [-h] <file>\n" );
+ fprintf( pAbc->Err, "\t write the collapsed network into a PLA file\n" );
+ fprintf( pAbc->Err, "\t-h : print the help massage\n" );
+ fprintf( pAbc->Err, "\tfile : the name of the file to write\n" );
+ return 1;
+}
+
////////////////////////////////////////////////////////////////////////
/// END OF FILE ///
////////////////////////////////////////////////////////////////////////
diff --git a/src/base/io/io.h b/src/base/io/io.h
index ba61faac..d4cea912 100644
--- a/src/base/io/io.h
+++ b/src/base/io/io.h
@@ -17,7 +17,7 @@
Revision [$Id: io.h,v 1.00 2005/06/20 00:00:00 alanmi Exp $]
***********************************************************************/
-
+
#ifndef __IO_H__
#define __IO_H__
@@ -54,6 +54,8 @@ extern Abc_Ntk_t * Io_ReadBench( char * pFileName, int fCheck );
/*=== abcReadVerilog.c ==========================================================*/
extern Abc_Ntk_t * Io_ReadVerilog( char * pFileName, int fCheck );
extern void Io_ReadSetNonDrivenNets( Abc_Ntk_t * pNet );
+/*=== abcReadPla.c ==========================================================*/
+extern Abc_Ntk_t * Io_ReadPla( char * pFileName, int fCheck );
/*=== abcWriteBlif.c ==========================================================*/
extern void Io_WriteBlif( Abc_Ntk_t * pNtk, char * pFileName );
extern void Io_WriteTimingInfo( FILE * pFile, Abc_Ntk_t * pNtk );
@@ -65,6 +67,8 @@ extern int Io_WriteBench( Abc_Ntk_t * pNtk, char * FileName );
extern int Io_WriteGate( Abc_Ntk_t * pNtk, char * FileName );
/*=== abcWriteCnf.c ==========================================================*/
extern int Io_WriteCnf( Abc_Ntk_t * pNtk, char * FileName );
+/*=== abcWritePla.c ==========================================================*/
+extern int Io_WritePla( Abc_Ntk_t * pNtk, char * FileName );
////////////////////////////////////////////////////////////////////////
/// END OF FILE ///
diff --git a/src/base/io/ioInt.h b/src/base/io/ioInt.h
index 69d125fc..736884c4 100644
--- a/src/base/io/ioInt.h
+++ b/src/base/io/ioInt.h
@@ -17,7 +17,7 @@
Revision [$Id: ioInt.h,v 1.00 2005/06/20 00:00:00 alanmi Exp $]
***********************************************************************/
-
+
#ifndef __IO_INT_H__
#define __IO_INT_H__
diff --git a/src/base/io/ioRead.c b/src/base/io/ioRead.c
index 18e4b153..aef5d57a 100644
--- a/src/base/io/ioRead.c
+++ b/src/base/io/ioRead.c
@@ -49,6 +49,8 @@ Abc_Ntk_t * Io_Read( char * pFileName, int fCheck )
pNtk = Io_ReadVerilog( pFileName, fCheck );
else if ( Extra_FileNameCheckExtension( pFileName, "bench" ) )
pNtk = Io_ReadBench( pFileName, fCheck );
+ else if ( Extra_FileNameCheckExtension( pFileName, "pla" ) )
+ pNtk = Io_ReadPla( pFileName, fCheck );
else
{
fprintf( stderr, "Unknown file format\n" );
diff --git a/src/base/io/ioReadPla.c b/src/base/io/ioReadPla.c
new file mode 100644
index 00000000..16b87fc9
--- /dev/null
+++ b/src/base/io/ioReadPla.c
@@ -0,0 +1,263 @@
+/**CFile****************************************************************
+
+ FileName [ioReadPla.c]
+
+ SystemName [ABC: Logic synthesis and verification system.]
+
+ PackageName [Command processing package.]
+
+ Synopsis [Procedure to read network from file.]
+
+ Author [Alan Mishchenko]
+
+ Affiliation [UC Berkeley]
+
+ Date [Ver. 1.0. Started - June 20, 2005.]
+
+ Revision [$Id: ioReadPla.c,v 1.00 2005/06/20 00:00:00 alanmi Exp $]
+
+***********************************************************************/
+
+#include "io.h"
+
+////////////////////////////////////////////////////////////////////////
+/// DECLARATIONS ///
+////////////////////////////////////////////////////////////////////////
+
+static Abc_Ntk_t * Io_ReadPlaNetwork( Extra_FileReader_t * p );
+
+////////////////////////////////////////////////////////////////////////
+/// FUNCTION DEFITIONS ///
+////////////////////////////////////////////////////////////////////////
+
+/**Function*************************************************************
+
+ Synopsis [Read the network from BENCH file.]
+
+ Description [Currently works only for the miter cone.]
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+Abc_Ntk_t * Io_ReadPla( char * pFileName, int fCheck )
+{
+ Extra_FileReader_t * p;
+ Abc_Ntk_t * pNtk;
+
+ // start the file
+ p = Extra_FileReaderAlloc( pFileName, "#", "\n", " \t\r|" );
+ if ( p == NULL )
+ return NULL;
+
+ // read the network
+ pNtk = Io_ReadPlaNetwork( p );
+ Extra_FileReaderFree( p );
+ if ( pNtk == NULL )
+ return NULL;
+
+ // make sure that everything is okay with the network structure
+ if ( fCheck && !Abc_NtkCheck( pNtk ) )
+ {
+ printf( "Io_ReadPla: The network check has failed.\n" );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+ return pNtk;
+}
+/**Function*************************************************************
+
+ Synopsis [Read the network from BENCH file.]
+
+ Description [Currently works only for the miter cone.]
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+Abc_Ntk_t * Io_ReadPlaNetwork( Extra_FileReader_t * p )
+{
+ ProgressBar * pProgress;
+ Vec_Ptr_t * vTokens;
+ Abc_Ntk_t * pNtk;
+ Abc_Obj_t * pNet, * pNode;
+ Vec_Str_t ** ppSops;
+ char Buffer[100];
+ int nInputs = -1, nOutputs = -1, nProducts = -1;
+ char * pCubeIn, * pCubeOut;
+ int i, k, iLine, nDigits, nCubes;
+
+ // allocate the empty network
+ pNtk = Abc_NtkAlloc( ABC_NTK_NETLIST );
+
+ // set the specs
+ pNtk->pName = util_strsav( Extra_FileReaderGetFileName(p) );
+ pNtk->pSpec = util_strsav( Extra_FileReaderGetFileName(p) );
+
+ // go through the lines of the file
+ nCubes = 0;
+ pProgress = Extra_ProgressBarStart( stdout, Extra_FileReaderGetFileSize(p) );
+ for ( iLine = 0; vTokens = Extra_FileReaderGetTokens(p); iLine++ )
+ {
+ Extra_ProgressBarUpdate( pProgress, Extra_FileReaderGetCurPosition(p), NULL );
+
+ // if it is the end of file, quit the loop
+ if ( strcmp( vTokens->pArray[0], ".e" ) == 0 )
+ break;
+
+ if ( vTokens->nSize == 1 )
+ {
+ printf( "%s (line %d): Wrong number of token.\n",
+ Extra_FileReaderGetFileName(p), iLine+1 );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+
+ if ( strcmp( vTokens->pArray[0], ".i" ) == 0 )
+ nInputs = atoi(vTokens->pArray[1]);
+ else if ( strcmp( vTokens->pArray[0], ".o" ) == 0 )
+ nOutputs = atoi(vTokens->pArray[1]);
+ else if ( strcmp( vTokens->pArray[0], ".p" ) == 0 )
+ nProducts = atoi(vTokens->pArray[1]);
+ else if ( strcmp( vTokens->pArray[0], ".ilb" ) == 0 )
+ {
+ if ( vTokens->nSize - 1 != nInputs )
+ printf( "Warning: Mismatch between the number of PIs on the .i line (%d) and the number of PIs on the .ilb line (%d).\n", nInputs, vTokens->nSize - 1 );
+ for ( i = 1; i < vTokens->nSize; i++ )
+ {
+ pNet = Abc_NtkFindOrCreateNet( pNtk, vTokens->pArray[i] );
+ if ( Abc_ObjIsPi(pNet) )
+ printf( "Warning: PI net \"%s\" appears twice in the list.\n", vTokens->pArray[1] );
+ else
+ Abc_NtkMarkNetPi( pNet );
+ }
+ }
+ else if ( strcmp( vTokens->pArray[0], ".ob" ) == 0 )
+ {
+ if ( vTokens->nSize - 1 != nOutputs )
+ printf( "Warning: Mismatch between the number of POs on the .o line (%d) and the number of POs on the .ob line (%d).\n", nOutputs, vTokens->nSize - 1 );
+ for ( i = 1; i < vTokens->nSize; i++ )
+ {
+ pNet = Abc_NtkFindOrCreateNet( pNtk, vTokens->pArray[i] );
+ if ( Abc_ObjIsPo(pNet) )
+ printf( "Warning: PO net \"%s\" appears twice in the list.\n", vTokens->pArray[1] );
+ else
+ Abc_NtkMarkNetPo( pNet );
+ }
+ }
+ else
+ {
+ // check if the input/output names are given
+ if ( Abc_NtkPiNum(pNtk) == 0 )
+ {
+ if ( nInputs == -1 )
+ {
+ printf( "%s: The number of inputs is not specified.\n", Extra_FileReaderGetFileName(p) );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+ nDigits = Extra_Base10Log( nInputs );
+ for ( i = 0; i < nInputs; i++ )
+ {
+ sprintf( Buffer, "x%0*d", nDigits, i );
+ pNet = Abc_NtkFindOrCreateNet( pNtk, Buffer );
+ Abc_NtkMarkNetPi( pNet );
+ }
+ }
+ if ( Abc_NtkPoNum(pNtk) == 0 )
+ {
+ if ( nOutputs == -1 )
+ {
+ printf( "%s: The number of outputs is not specified.\n", Extra_FileReaderGetFileName(p) );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+ nDigits = Extra_Base10Log( nOutputs );
+ for ( i = 0; i < nOutputs; i++ )
+ {
+ sprintf( Buffer, "z%0*d", nDigits, i );
+ pNet = Abc_NtkFindOrCreateNet( pNtk, Buffer );
+ Abc_NtkMarkNetPo( pNet );
+ }
+ }
+ if ( Abc_NtkNodeNum(pNtk) == 0 )
+ { // first time here
+ // create the PO drivers and add them
+ // start the SOP covers
+ ppSops = ALLOC( Vec_Str_t *, nOutputs );
+ Abc_NtkForEachPo( pNtk, pNet, i )
+ {
+ ppSops[i] = Vec_StrAlloc( 100 );
+ pNode = Abc_NtkCreateNode(pNtk);
+ for ( k = 0; k < nInputs; k++ )
+ Abc_ObjAddFanin( pNode, Abc_NtkPi(pNtk,k) );
+ Abc_ObjAddFanin( pNet, pNode );
+ }
+ }
+ // read the cubes
+ if ( vTokens->nSize != 2 )
+ {
+ printf( "%s (line %d): Input and output cubes are not specified.\n",
+ Extra_FileReaderGetFileName(p), iLine+1 );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+ pCubeIn = vTokens->pArray[0];
+ pCubeOut = vTokens->pArray[1];
+ if ( strlen(pCubeIn) != (unsigned)nInputs )
+ {
+ printf( "%s (line %d): Input cube length (%d) differs from the number of inputs (%d).\n",
+ Extra_FileReaderGetFileName(p), iLine+1, strlen(pCubeIn), nInputs );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+ if ( strlen(pCubeOut) != (unsigned)nOutputs )
+ {
+ printf( "%s (line %d): Output cube length (%d) differs from the number of outputs (%d).\n",
+ Extra_FileReaderGetFileName(p), iLine+1, strlen(pCubeOut), nOutputs );
+ Abc_NtkDelete( pNtk );
+ return NULL;
+ }
+ for ( i = 0; i < nOutputs; i++ )
+ {
+ if ( pCubeOut[i] == '1' )
+ {
+ Vec_StrAppend( ppSops[i], pCubeIn );
+ Vec_StrAppend( ppSops[i], " 1\n" );
+ }
+ }
+ nCubes++;
+ }
+ }
+ Extra_ProgressBarStop( pProgress );
+ if ( nProducts != -1 && nCubes != nProducts )
+ printf( "Warning: Mismatch between the number of cubes (%d) and the number on .p line (%d).\n",
+ nCubes, nProducts );
+
+ // add the SOP covers
+ Abc_NtkForEachPo( pNtk, pNet, i )
+ {
+ pNode = Abc_ObjFanin0(pNet);
+ if ( ppSops[i]->nSize == 0 )
+ {
+ Abc_ObjRemoveFanins(pNode);
+ pNode->pData = Abc_SopRegister( pNtk->pManFunc, " 0\n" );
+ continue;
+ }
+ Vec_StrPush( ppSops[i], 0 );
+ pNode->pData = Abc_SopRegister( pNtk->pManFunc, ppSops[i]->pArray );
+ Vec_StrFree( ppSops[i] );
+ }
+ free( ppSops );
+ return pNtk;
+}
+
+
+////////////////////////////////////////////////////////////////////////
+/// END OF FILE ///
+////////////////////////////////////////////////////////////////////////
+
+
+
diff --git a/src/base/io/ioWriteBench.c b/src/base/io/ioWriteBench.c
index 954c2238..0b7591c0 100644
--- a/src/base/io/ioWriteBench.c
+++ b/src/base/io/ioWriteBench.c
@@ -55,7 +55,7 @@ int Io_WriteBench( Abc_Ntk_t * pNtk, char * pFileName )
fprintf( stdout, "Io_WriteBench(): Cannot open the output file.\n" );
return 0;
}
- fprintf( pFile, "# Benchmark \"%s\" written by ABC on %s\n", pNtk->pSpec, Extra_TimeStamp() );
+ fprintf( pFile, "# Benchmark \"%s\" written by ABC on %s\n", pNtk->pName, Extra_TimeStamp() );
// write the network
Io_WriteBenchOne( pFile, pNtk );
// write EXDC network if it exists
diff --git a/src/base/io/ioWritePla.c b/src/base/io/ioWritePla.c
new file mode 100644
index 00000000..01d2f59b
--- /dev/null
+++ b/src/base/io/ioWritePla.c
@@ -0,0 +1,187 @@
+/**CFile****************************************************************
+
+ FileName [ioWritePla.c]
+
+ SystemName [ABC: Logic synthesis and verification system.]
+
+ PackageName [Command processing package.]
+
+ Synopsis [Procedures to write the network in BENCH format.]
+
+ Author [Alan Mishchenko]
+
+ Affiliation [UC Berkeley]
+
+ Date [Ver. 1.0. Started - June 20, 2005.]
+
+ Revision [$Id: ioWritePla.c,v 1.00 2005/06/20 00:00:00 alanmi Exp $]
+
+***********************************************************************/
+
+#include "io.h"
+
+////////////////////////////////////////////////////////////////////////
+/// DECLARATIONS ///
+////////////////////////////////////////////////////////////////////////
+
+static int Io_WritePlaOne( FILE * pFile, Abc_Ntk_t * pNtk );
+
+////////////////////////////////////////////////////////////////////////
+/// FUNCTION DEFITIONS ///
+////////////////////////////////////////////////////////////////////////
+
+/**Function*************************************************************
+
+ Synopsis [Writes the network in BENCH format.]
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+int Io_WritePla( Abc_Ntk_t * pNtk, char * pFileName )
+{
+ Abc_Ntk_t * pExdc;
+ FILE * pFile;
+
+ assert( Abc_NtkIsLogicSop(pNtk) );
+ assert( Abc_NtkGetLevelNum(pNtk) == 1 );
+
+ pFile = fopen( pFileName, "w" );
+ if ( pFile == NULL )
+ {
+ fprintf( stdout, "Io_WritePla(): Cannot open the output file.\n" );
+ return 0;
+ }
+ fprintf( pFile, "# Benchmark \"%s\" written by ABC on %s\n", pNtk->pName, Extra_TimeStamp() );
+ // write the network
+ Io_WritePlaOne( pFile, pNtk );
+ // write EXDC network if it exists
+ pExdc = Abc_NtkExdc( pNtk );
+ if ( pExdc )
+ {
+ printf( "Io_WritePla: EXDC is not written (warning).\n" );
+// fprintf( pFile, "\n" );
+// fprintf( pFile, ".exdc\n" );
+// Io_LogicWriteOne( pFile, pExdc );
+ }
+ // finalize the file
+ fclose( pFile );
+ return 1;
+}
+
+/**Function*************************************************************
+
+ Synopsis [Writes the network in BENCH format.]
+
+ Description []
+
+ SideEffects []
+
+ SeeAlso []
+
+***********************************************************************/
+int Io_WritePlaOne( FILE * pFile, Abc_Ntk_t * pNtk )
+{
+ ProgressBar * pProgress;
+ Abc_Obj_t * pNode, * pFanin, * pDriver;
+ char * pCubeIn, * pCubeOut, * pCube;
+ int i, k, nProducts, nInputs, nOutputs, nFanins;
+
+ nProducts = 0;
+ Abc_NtkForEachPo( pNtk, pNode, i )
+ {
+ pDriver = Abc_ObjFanin0(pNode);
+ if ( !Abc_ObjIsNode(pDriver) )
+ {
+ nProducts++;
+ continue;
+ }
+ if ( Abc_NodeIsConst(pDriver) )
+ {
+ if ( Abc_NodeIsConst1(pDriver) )
+ nProducts++;
+ continue;
+ }
+ nProducts += Abc_SopGetCubeNum(pDriver->pData);
+ }
+
+ // collect the parameters
+ nInputs = Abc_NtkCiNum(pNtk);
+ nOutputs = Abc_NtkCoNum(pNtk);
+ pCubeIn = ALLOC( char, nInputs + 1 );
+ pCubeOut = ALLOC( char, nOutputs + 1 );
+ memset( pCubeIn, '-', nInputs ); pCubeIn[nInputs] = 0;
+ memset( pCubeOut, '0', nOutputs ); pCubeOut[nOutputs] = 0;
+
+ // write the header
+ fprintf( pFile, ".i %d\n", nInputs );
+ fprintf( pFile, ".o %d\n", nOutputs );
+ fprintf( pFile, ".ilb" );
+ Abc_NtkForEachCi( pNtk, pNode, i )
+ fprintf( pFile, " %s", Abc_NtkNameCi(pNtk, i) );
+ fprintf( pFile, "\n" );
+ fprintf( pFile, ".ob" );
+ Abc_NtkForEachCo( pNtk, pNode, i )
+ fprintf( pFile, " %s", Abc_NtkNameCo(pNtk, i) );
+ fprintf( pFile, "\n" );
+ fprintf( pFile, ".p %d\n", nProducts );
+
+ // mark the CI nodes
+ Abc_NtkForEachCi( pNtk, pNode, i )
+ pNode->pCopy = (Abc_Obj_t *)i;
+
+ // write the cubes
+ pProgress = Extra_ProgressBarStart( stdout, nOutputs );
+ Abc_NtkForEachCo( pNtk, pNode, i )
+ {
+ // prepare the output cube
+ if ( i - 1 >= 0 )
+ pCubeOut[i-1] = '0';
+ pCubeOut[i] = '1';
+
+ // consider special cases of nodes
+ pDriver = Abc_ObjFanin0(pNode);
+ if ( !Abc_ObjIsNode(pDriver) )
+ {
+ pCubeIn[(int)pDriver->pCopy] = '1' - Abc_ObjFaninC0(pNode);
+ fprintf( pFile, "%s %s\n", pCubeIn, pCubeOut );
+ pCubeIn[(int)pDriver->pCopy] = '-';
+ continue;
+ }
+ if ( Abc_NodeIsConst(pDriver) )
+ {
+ if ( Abc_NodeIsConst1(pDriver) )
+ fprintf( pFile, "%s %s\n", pCubeIn, pCubeOut );
+ continue;
+ }
+ // write the cubes
+ nFanins = Abc_ObjFaninNum(pDriver);
+ Abc_SopForEachCube( pDriver->pData, nFanins, pCube )
+ {
+ Abc_ObjForEachFanin( pDriver, pFanin, k )
+ pCubeIn[(int)pFanin->pCopy] = pCube[k];
+ fprintf( pFile, "%s %s\n", pCubeIn, pCubeOut );
+ }
+ // clean the cube for future writing
+ Abc_ObjForEachFanin( pDriver, pFanin, k )
+ pCubeIn[(int)pFanin->pCopy] = '-';
+ Extra_ProgressBarUpdate( pProgress, i, NULL );
+ }
+ Extra_ProgressBarStop( pProgress );
+ fprintf( pFile, ".e\n" );
+
+ // clean the CI nodes
+ Abc_NtkForEachCi( pNtk, pNode, i )
+ pNode->pCopy = NULL;
+ return 1;
+}
+
+
+////////////////////////////////////////////////////////////////////////
+/// END OF FILE ///
+////////////////////////////////////////////////////////////////////////
+
+
diff --git a/src/base/io/module.make b/src/base/io/module.make
index d9f46c2c..3e5be57a 100644
--- a/src/base/io/module.make
+++ b/src/base/io/module.make
@@ -2,9 +2,11 @@ SRC += src/base/io/io.c \
src/base/io/ioRead.c \
src/base/io/ioReadBench.c \
src/base/io/ioReadBlif.c \
+ src/base/io/ioReadPla.c \
src/base/io/ioReadVerilog.c \
src/base/io/ioWriteBench.c \
src/base/io/ioWriteBlif.c \
src/base/io/ioWriteBlifLogic.c \
src/base/io/ioWriteCnf.c \
- src/base/io/ioWriteGate.c
+ src/base/io/ioWriteGate.c \
+ src/base/io/ioWritePla.c
generated by cgit v1.2.3 (git 2.25.1) at 2025-04-14 14:28:05 +0000