X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=perl-module%2FPSPP.xs;fp=perl-module%2FPSPP.xs;h=3b3dcceff82d275d55fd76986836f0044b30baac;hb=b8e182acade7dc6f008d79221f1274fa1e3003dc;hp=de5cbf7b0a8eef5be89c3f08244d4a7494436c24;hpb=6ef31dd13db451889d03408cf07ed04d47000b06;p=pspp-builds.git

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index de5cbf7b..3b3dccef 100644
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -273,6 +273,23 @@ CODE:
  OUTPUT:
 RETVAL
 
+
+struct variable *
+pxs_get_var_by_name (dict, name)
+ struct dictionary *dict
+ const char *name
+INIT:
+ SV *errstr = get_sv("PSPP::errstr", TRUE);
+ sv_setpv (errstr, "");
+CODE:
+ struct variable *var = dict_lookup_var (dict, name);
+ if ( ! var )
+      sv_setpv (errstr, "No such variable.");
+ RETVAL = var;
+ OUTPUT:
+RETVAL
+
+
 MODULE = PSPP		PACKAGE = PSPP::Var