aboutsummaryrefslogtreecommitdiff
path: root/Perl/Zinc.xs
diff options
context:
space:
mode:
authorlecoanet1999-05-27 13:32:10 +0000
committerlecoanet1999-05-27 13:32:10 +0000
commit16660921dfab9f87c0c966ceac7cdf69fc77b498 (patch)
tree52358e770be5eec6e50a3a7eee40157c57e5c3e8 /Perl/Zinc.xs
parent1eed4b4dd92c89f07df8ba04bb2308bbc563d513 (diff)
downloadtkzinc-16660921dfab9f87c0c966ceac7cdf69fc77b498.zip
tkzinc-16660921dfab9f87c0c966ceac7cdf69fc77b498.tar.gz
tkzinc-16660921dfab9f87c0c966ceac7cdf69fc77b498.tar.bz2
tkzinc-16660921dfab9f87c0c966ceac7cdf69fc77b498.tar.xz
Premiere mouture d'integration Perl
Diffstat (limited to 'Perl/Zinc.xs')
-rw-r--r--Perl/Zinc.xs53
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);
+ }