Initial revision

1 files changed, 76 insertions, 0 deletions

diff --git a/nt/ddeclient.c b/nt/ddeclient.c
new file mode 100644
index 00000000000..406e99fe0a2
--- /dev/null
+++ b/nt/ddeclient.c
@@ -0,0 +1,76 @@
+/* Simple client interface to DDE servers.
+   Copyright (C) 1998 Free Software Foundation, Inc.
+
+This file is part of GNU Emacs.
+
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+#include <windows.h>
+#include <ddeml.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+HDDEDATA CALLBACK 
+DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
+	     HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
+	     DWORD dwData1, DWORD dwData2)
+{
+  return ((HDDEDATA) NULL);
+}
+
+#define DdeCommand(str) 	\
+	DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
+		              CF_TEXT, XTYP_EXECUTE, 30000, NULL)
+
+int
+main (argc, argv)
+     int argc;
+     char *argv[];
+{
+  DWORD idDde = 0;
+  HCONV HConversation;
+  HSZ   Server;
+  HSZ   Topic = 0;
+  char  command[1024];
+
+  if (argc < 2)
+    {
+      fprintf (stderr, "usage: ddeclient server [topic]\n");
+      exit (1);
+    }
+
+  DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
+
+  Server = DdeCreateStringHandle (idDde, argv[1], CP_WINANSI);
+  if (argc > 2)
+    Topic = DdeCreateStringHandle (idDde, argv[2], CP_WINANSI);
+
+  HConversation = DdeConnect (idDde, Server, Topic, NULL);
+  if (HConversation != 0)
+    {
+      while (fgets (command, sizeof(command), stdin) != NULL)
+	DdeCommand (command);
+
+      DdeDisconnect (HConversation);
+    }
+
+  DdeFreeStringHandle (idDde, Server);
+  if (Topic)
+    DdeFreeStringHandle (idDde, Topic);
+  DdeUninitialize (idDde);
+
+  return (0);
+}