Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / hypervisor / src / support / mdgen / output_dot.c

/*
* ========== Copyright Header Begin ==========================================
*
* Hypervisor Software File: output_dot.c
* 
* Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
* 
*  - Do no alter or remove copyright notices
* 
*  - Redistribution and use of this software in source and binary forms, with 
*    or without modification, are permitted provided that the following 
*    conditions are met: 
* 
*  - Redistribution of source code must retain the above copyright notice, 
*    this list of conditions and the following disclaimer.
* 
*  - Redistribution in binary form must reproduce the above copyright notice,
*    this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution. 
* 
*    Neither the name of Sun Microsystems, Inc. or the names of contributors 
* may be used to endorse or promote products derived from this software 
* without specific prior written permission. 
* 
*     This software is provided "AS IS," without a warranty of any kind. 
* ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, 
* INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A 
* PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN 
* MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR 
* ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR 
* DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN 
* OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR 
* FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE 
* DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, 
* ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF 
* SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
* 
* You acknowledge that this software is not designed, licensed or
* intended for use in the design, construction, operation or maintenance of
* any nuclear facility. 
* 
* ========== Copyright Header End ============================================
*/
/*
* Copyright 2007 Sun Microsystems, Inc.         All rights reserved.
* Use is subject to license terms.
*/

#pragma ident   "@(#)output_dot.c       1.2     07/06/07 SMI"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/types.h>
#include <strings.h>
#include <ctype.h>

#include <assert.h>

#include "basics.h"
#include "allocate.h"
#include "fatal.h"
#include "lexer.h"

#include "dagtypes.h"
#include "outputtypes.h"

#define ASSERT(_s)      assert(_s)



       /*
        * Output for DOT utility
        */






static char *
sanity_name(char *p)
{
       static char buf[2048];
       int i, ch;

       for (i = 0; (ch = p[i]) != '\0'; i++) {
               if (isalnum(ch) || ch == '_') {
                       buf[i] = ch;
               } else {
                       buf[i] = '_';
               }
       }
       buf[i] = '\0';

       return (buf);
}



extern char *output_dot_dagp;
extern bool_t output_dot_flag_none;




void
output_dot(FILE *fp)
{
       dag_node_t *dnp;

       fprintf(fp, "digraph machine_description {\n");
       fprintf(fp, "rankdir = LR ;\n");
       fprintf(fp, "ordering=in ;\n");
/* CSTYLED */
       fprintf(fp, "size=\"8.5,10\" ;\n");
       fprintf(fp, "nslimit=\"100.0\" ;\n");
       fprintf(fp, "mclimit=\"100.0\" ;\n");
#if 0 /* { */
       fprintf(fp, "node [ fontfamily=Helvetica , fontsize=6 ] ;\n");
#endif /* } */
       fprintf(fp, "node [ fontfamily=Helvetica ] ;\n");

               /* Now output the nodes ... and their connections */
       for (dnp = dag_listp; NULL != dnp; dnp = dnp->nextp) {
               int i;
               pair_entry_t *pep;

               fprintf(fp, "%s [ label=\"%s\\n", sanity_name(dnp->namep),
                   dnp->typep);

               if (!output_dot_flag_none) {
                       pep = dnp->properties.listp;
                       for (i = 0; i < dnp->properties.num; i++) {
                               switch (pep->utype) {
                               case PE_none:
                                       break;
                               case PE_string:
                                       fprintf(fp, "%s =",
                                           sanity_name(pep->namep));
                                       fprintf(fp, " %s\\n",
                                           sanity_name(pep->u.strp));
                                       break;
                               case PE_int:
                                       fprintf(fp, "%s = 0x%llx\\n",
                                           pep->namep, pep->u.val);
                                       break;
                               case PE_arc:
                                       break;
                               case PE_noderef:
                                       fatal("Internal error noderefs should \
all be resolved");
                                       break;
                               }
                               pep ++;
                       }
               }
/* CSTYLED */
               fprintf(fp, "\" ] ;\n");

                       /* Now connect the arcs */
               pep = dnp->properties.listp;
               for (i = 0; i < dnp->properties.num; i++) {
                       switch (pep->utype) {
                       case PE_none:
                               break;
                       case PE_string:
                               break;
                       case PE_int:
                               break;
                       case PE_arc:
                               if (strcmp(output_dot_dagp, pep->namep) == 0) {
                                       fprintf(fp, "%s ->\n",
                                           sanity_name(dnp->namep));
                                       fprintf(fp, "%s\n",
                                           sanity_name(pep->u.dnp->namep));
                               }
                               break;
                       case PE_noderef:
                               fatal("Internal error noderefs should all \
be resolved");
                               break;
                       }
                       pep ++;
               }
       }

       fprintf(fp, "}\n");
       fflush(fp);
}