1 files changed, 112 insertions, 0 deletions
diff --git a/src/base/pla/plaWrite.c b/src/base/pla/plaWrite.c
new file mode 100644
index 00000000..ed301e87
--- /dev/null
+++ b/src/base/pla/plaWrite.c
@@ -0,0 +1,112 @@
+/**CFile****************************************************************
+
+  FileName    [plaWrite.c]
+
+  SystemName  [ABC: Logic synthesis and verification system.]
+
+  PackageName [SOP manager.]
+
+  Synopsis    [Scalable SOP transformations.]
+
+  Author      [Alan Mishchenko]
+  
+  Affiliation [UC Berkeley]
+
+  Date        [Ver. 1.0. Started - March 18, 2015.]
+
+  Revision    [$Id: plaWrite.c,v 1.00 2014/09/12 00:00:00 alanmi Exp $]
+
+***********************************************************************/
+
+#include "pla.h"
+
+ABC_NAMESPACE_IMPL_START
+
+////////////////////////////////////////////////////////////////////////
+///                        DECLARATIONS                              ///
+////////////////////////////////////////////////////////////////////////
+
+////////////////////////////////////////////////////////////////////////
+///                     FUNCTION DEFINITIONS                         ///
+////////////////////////////////////////////////////////////////////////
+
+/**Function*************************************************************
+
+  Synopsis    []
+
+  Description []
+               
+  SideEffects []
+
+  SeeAlso     []
+
+***********************************************************************/
+Vec_Str_t * Pla_WritePlaInt( Pla_Man_t * p )
+{
+    Vec_Str_t * vOut = Vec_StrAlloc( 10000 );
+    char * pLits = "-01?";
+    word * pCubeIn, * pCubeOut; 
+    int i, k, Lit; 
+    // write comments
+    Vec_StrPrintStr( vOut, "# SOP \"" );
+    Vec_StrPrintStr( vOut, p->pName );
+    Vec_StrPrintStr( vOut, "\" written via PLA package in ABC on " );
+    Vec_StrPrintStr( vOut, Extra_TimeStamp() );
+    Vec_StrPrintStr( vOut, "\n\n" );
+    // write header
+    if ( p->Type != PLA_FILE_FD )
+    {
+        if ( p->Type == PLA_FILE_F )
+            Vec_StrPrintStr( vOut, ".type f\n" );
+        else if ( p->Type == PLA_FILE_FR )
+            Vec_StrPrintStr( vOut, ".type fr\n" );
+        else if ( p->Type == PLA_FILE_FDR )
+            Vec_StrPrintStr( vOut, ".type fdr\n" );
+        else if ( p->Type == PLA_FILE_NONE )
+            Vec_StrPrintStr( vOut, ".type ???\n" );
+    }
+    Vec_StrPrintStr( vOut, ".i " );
+    Vec_StrPrintNum( vOut, p->nIns );
+    Vec_StrPrintStr( vOut, "\n.o " );
+    Vec_StrPrintNum( vOut, p->nOuts );
+    Vec_StrPrintStr( vOut, "\n.p " );
+    Vec_StrPrintNum( vOut, Pla_ManCubeNum(p) );
+    Vec_StrPrintStr( vOut, "\n" );
+    // write cube
+    Pla_ForEachCubeInOut( p, pCubeIn, pCubeOut, i )
+    {
+        Pla_CubeForEachLit( p->nIns, pCubeIn, Lit, k )
+            Vec_StrPush( vOut, pLits[Lit] );
+        Vec_StrPush( vOut, ' ' );
+        Pla_CubeForEachLit( p->nOuts, pCubeOut, Lit, k )
+            Vec_StrPush( vOut, pLits[Lit] );
+        Vec_StrPush( vOut, '\n' );
+    }
+    Vec_StrPrintStr( vOut, ".e\n\n\0" );
+    return vOut;
+}   
+void Pla_WritePla( Pla_Man_t * p, char * pFileName )
+{
+    Vec_Str_t * vOut = Pla_WritePlaInt( p );
+    if ( Vec_StrSize(vOut) > 0 )
+    {
+        FILE * pFile = fopen( pFileName, "wb" );
+        if ( pFile == NULL )
+            printf( "Cannot open file \"%s\" for writing.\n", pFileName );
+        else
+        {
+            fwrite( Vec_StrArray(vOut), 1, Vec_StrSize(vOut), pFile );
+            fclose( pFile );
+        }
+    }
+    Vec_StrFreeP( &vOut );
+}
+
+
+////////////////////////////////////////////////////////////////////////
+///                       END OF FILE                                ///
+////////////////////////////////////////////////////////////////////////
+
+
+ABC_NAMESPACE_IMPL_END
+