// Copyright (C) 1996 DIMACS Center, Rutgers, The State University of New Jersey
// Author(s): Jonathan Berry

// This software is copyrighted by the DIMACS Center at Rutgers, The State
// University of New Jersey.  IT IS PROVIDED AS IS, AND THE AUTHORS, DIMACS, AND
// RUTGERS, THE STATE UNIVERSITY OF NEW JERSEY  DISCLAIM
// ALL LIABILITY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL
// DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
// DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.

// THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
// INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
// IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
// NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
// MODIFICATIONS.

// The authors hereby grant permission to use, copy, modify, distribute,
// and license this software and its documentation for any purpose, provided
// that existing copyright notices are retained in all copies and that this
// notice is included verbatim in any distributions. No written agreement,
// license, or royalty fee is required for any of the authorized uses.
// Modifications to this software may be copyrighted by their authors
// and need not follow the licensing terms described here, provided that
// the new terms are clearly indicated on the first page of each file where
// they apply.

// Last File Update: 31-Jul-1996
// 

#include<ostream.h>
#include<strstream.h>
#include<stk.h>
#include<LINK/stkWrapper/LINK_STk.h>
#include<LINK/algorithm/Algorithms.h>
#include<LINK/graph/Vertex.h>
#include<LINK/graph/Edge.h>
#include<LINK/layout/Layouts.h>

int getLayout(char *layout_name)
{
        char *lname = newString(layout_name), *s = lname;
        while (*s)   {
                if (isupper(*s))
                        *s = (char) (*s) + 32;
                s++;
        }
        if (strcmp(lname,"bipartite")==0) {
                delete lname;
                return BIPARTITE;
        } else if (strcmp(lname,"circular")==0) {
                delete lname;
                return CIRCULAR;
        } else if (strcmp(lname,"grid")==0) {
                delete lname;
                return GRID;
        } else if (strcmp(lname,"spring")==0) {
                delete lname;
                return SPRING;
        } else if (strcmp(lname,"random")==0) {
                delete lname;
                return RANDOM;
        }
}

void path_draw(char *view_name)
{
        char *cmd;
        ostrstream cmd_oss;

        cmd_oss << "(let* ((gv (hash-table-get *graph-view-table* '" <<
                                                        view_name << ")))";
        cmd_oss << "\n                       (path-draw gv))" << ends;
        cmd = cmd_oss.str();

        STk_eval_C_string(cmd, NIL);
        delete cmd;
}

void star_draw(char *view_name)
{
        char *cmd;
        ostrstream cmd_oss;

        cmd_oss << "(let* ((gv (hash-table-get *graph-view-table* '" <<
                                                        view_name << ")))";
        cmd_oss << "\n                       (star-draw gv))" << ends;
        cmd = cmd_oss.str();

        STk_eval_C_string(cmd, NIL);
        delete cmd;
}



void layoutVertices(char *view_name)
{
        char *cmd;
        ostrstream cmd_oss;

        cmd_oss << "(let* ((gv (hash-table-get *graph-view-table* '" <<
                                                        view_name << ")))";
        cmd_oss << "\n                       (layout-vertices gv))" << ends;
        cmd = cmd_oss.str();

        STk_eval_C_string(cmd, NIL);
        delete cmd;
}

void layoutEdges(char *view_name)
{
        char *cmd;
        ostrstream cmd_oss;

        cmd_oss << "(let* ((gv (hash-table-get *graph-view-table* '" <<
                                                        view_name << ")))";
        cmd_oss << "\n                       (layout-edges gv))" << ends;
        cmd = cmd_oss.str();

        STk_eval_C_string(cmd, NIL);
        delete cmd;
}