diff options
author | lecoanet | 1999-05-27 13:32:10 +0000 |
---|---|---|
committer | lecoanet | 1999-05-27 13:32:10 +0000 |
commit | 16660921dfab9f87c0c966ceac7cdf69fc77b498 (patch) | |
tree | 52358e770be5eec6e50a3a7eee40157c57e5c3e8 /Perl/Zinc.xs | |
parent | 1eed4b4dd92c89f07df8ba04bb2308bbc563d513 (diff) | |
download | tkzinc-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.xs | 53 |
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); + } |