From 16660921dfab9f87c0c966ceac7cdf69fc77b498 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 27 May 1999 13:32:10 +0000
Subject: Premiere mouture d'integration Perl

---
 Perl/Zinc.xs | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 Perl/Zinc.xs

(limited to 'Perl/Zinc.xs')

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);
+ }
-- 
cgit v1.1