add lefty, dotty, lneato to graphviz2 tree

diff --git a/cmd/lneato/mswin32/lneato.c b/cmd/lneato/mswin32/lneato.c
new file mode 100644 (file)
index 0000000..6e6bb2e
--- /dev/null
+++ b/cmd/lneato/mswin32/lneato.c
@@ -0,0 +1,116 @@
+/* $Id$ $Revision$ */
+/* vim:set shiftwidth=4 ts=8: */
+
+/**********************************************************
+*      This software is part of the graphviz package      *
+*                http://www.graphviz.org/                 *
+*                                                         *
+*            Copyright (c) 1994-2004 AT&T Corp.           *
+*                and is licensed under the                *
+*            Common Public License, Version 1.0           *
+*                      by AT&T Corp.                      *
+*                                                         *
+*        Information and Software Systems Research        *
+*              AT&T Research, Florham Park NJ             *
+**********************************************************/
+
+/* Lefteris Koutsofios - AT&T Bell Laboratories */
+
+#include <windows.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#ifdef MSWIN32
+#define NEAR
+#else
+#define NEAR __near
+#endif
+
+static char *NEAR shellpath;
+
+static char *buildpath(char *);
+static void panic(char *, int, char *, char *, ...);
+
+static char *prolog =
+    " -e \"load('dotty.lefty');dotty.protogt.lserver='neato';dotty.protogt.graph.type = 'graph';";
+
+int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
+                  LPSTR lpCmdLine, int nCmdShow)
+{
+    HANDLE handle;
+    char cmd[256];
+    char *path;
+    char *s;
+
+    shellpath = getenv("PATH");
+    if (!shellpath || !(path = buildpath("lefty"))) {
+       if (!GetModuleFileName(hInstance, cmd, 256) ||
+           !(s = strrchr(cmd, '\\')))
+           exit(1);
+       *s = 0;
+       shellpath = &cmd[0];
+       if (!(path = buildpath("lefty")))
+           exit(1);
+    }
+    if (lpCmdLine[0] == 0)
+       sprintf(cmd, "%s%sdotty.simple(null);\"", path, prolog);
+    else
+       sprintf(cmd, "%s%sdotty.simple('%Ns');\"", path, prolog,
+               lpCmdLine);
+
+    handle = WinExec(cmd, SW_SHOW);
+    exit(0);
+}
+
+#define PATHDEL '\\'
+#define PATHSEP ';'
+
+static char pathbuf[1024];
+static char commandbuf[1024];
+
+static char *buildpath(char *file)
+{
+    struct stat statbuf;
+    char *s1, *s2;
+    int mode, pathi;
+
+    if (file && file[0] && (file[0] == '.' || file[0] == PATHDEL))
+       return file;
+    mode = ~0;
+    s1 = shellpath;
+    while (*s1) {
+       pathi = 0;
+       while (*s1 && *s1 != PATHSEP)
+           pathbuf[pathi++] = *s1++;
+       if (*s1)
+           s1++;
+       pathbuf[pathi++] = PATHDEL;
+       for (s2 = file; *s2; s2++)
+           pathbuf[pathi++] = *s2;
+       pathbuf[pathi++] = '.';
+       pathbuf[pathi++] = 'e';
+       pathbuf[pathi++] = 'x';
+       pathbuf[pathi++] = 'e';
+       pathbuf[pathi] = '\000';
+       if (stat(pathbuf, &statbuf) == 0 && (statbuf.st_mode & mode))
+           return pathbuf;
+    }
+    return NULL;
+}
+
+static void panic(char *file, int line, char *func, char *fmt, ...)
+{
+    va_list args;
+
+    va_start(args, fmt);
+    {
+       char buf[256];
+       vsprintf(buf, fmt, args);
+       MessageBox((HWND) NULL, buf, "dotty PANIC", MB_APPLMODAL);
+    }
+    abort();
+}