From 849f881f7916cce3c3d8a0b98ac0b49022e84dfc Mon Sep 17 00:00:00 2001 From: mike Date: Tue, 8 Nov 2005 11:51:57 +0000 Subject: [PATCH] Move package-related function (not yet implemented) below option-related function (tested). --- ZOOM.xs | 62 +++++++++++++++++++++++++++++++------------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/ZOOM.xs b/ZOOM.xs index a685086..4cc674e 100644 --- a/ZOOM.xs +++ b/ZOOM.xs @@ -1,4 +1,4 @@ -/* $Id: ZOOM.xs,v 1.26 2005-11-08 10:23:02 mike Exp $ */ +/* $Id: ZOOM.xs,v 1.27 2005-11-08 11:51:57 mike Exp $ */ #include "EXTERN.h" #include "perl.h" @@ -400,36 +400,6 @@ ZOOM_scanset_option_set(scan, key, val) const char * key const char * val -# UNTESTED -ZOOM_package -ZOOM_connection_package(c, options) - ZOOM_connection c - ZOOM_options options - -# UNTESTED -void -ZOOM_package_destroy(p) - ZOOM_package p - -# UNTESTED -void -ZOOM_package_send(p, type) - ZOOM_package p - const char * type - -# UNTESTED -const char * -ZOOM_package_option_get(p, key) - ZOOM_package p - const char * key - -# UNTESTED -void -ZOOM_package_option_set(p, key, val) - ZOOM_package p - const char * key - const char * val - # We ignore the return value of ZOOM_options_set_callback(), since it # is always just the address of the __ZOOM_option_callback() function. # The information that we actually want -- the address of the Perl @@ -535,6 +505,36 @@ ZOOM_options_set_int(opt, name, value) int value # UNTESTED +ZOOM_package +ZOOM_connection_package(c, options) + ZOOM_connection c + ZOOM_options options + +# UNTESTED +void +ZOOM_package_destroy(p) + ZOOM_package p + +# UNTESTED +void +ZOOM_package_send(p, type) + ZOOM_package p + const char * type + +# UNTESTED +const char * +ZOOM_package_option_get(p, key) + ZOOM_package p + const char * key + +# UNTESTED +void +ZOOM_package_option_set(p, key, val) + ZOOM_package p + const char * key + const char * val + +# UNTESTED int ZOOM_event(no, cs) int no -- 1.7.10.4