1 files changed, 53 insertions, 0 deletions
diff --git a/Perl/Zinc.xs b/Perl/Zinc.xs
new file mode 100644
index 0000000..02df3c1
--- /dev/null
+++ b/Perl/Zinc.xs
@@ -0,0 +1,53 @@
+/*
+  Copyright (c) 1995-1997 Nick Ing-Simmons. All rights reserved.
+  This program is free software; you can redistribute it and/or
+  modify it under the same terms as Perl itself.
+*/
+
+#include <EXTERN.h>
+#include <perl.h>
+#include <XSUB.h>
+
+#include "tkGlue.def"
+
+#include "pTk/tkPort.h"
+#include "pTk/tkInt.h"
+#include "pTk/tkVMacro.h"
+#include "tkGlue.h"
+#include "tkGlue.m"
+
+extern int
+RadarCmd(
+	ClientData client_data,
+	Tcl_Interp* interp,
+	int argc,
+	Arg* args );
+
+extern int
+VideomapCmd(
+	ClientData client_data,
+	Tcl_Interp* interp,
+	int argc,
+	Arg* args );
+
+extern int
+MapInfoCmd(
+	ClientData client_data,
+	Tcl_Interp* interp,
+	int argc,
+	Arg* args );
+
+DECLARE_VTABLES;
+
+
+MODULE = Tk::Radar	PACKAGE = Tk::Radar
+
+PROTOTYPES: DISABLE
+
+BOOT:
+ {
+  IMPORT_VTABLES;
+  Lang_TkCommand("radar", RadarCmd);
+  Lang_TkCommand("videomap", VideomapCmd);
+  Lang_TkCommand("mapinfo", MapInfoCmd);
+ }