aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--URPM.pm30
-rw-r--r--URPM.xs30
2 files changed, 58 insertions, 2 deletions
diff --git a/URPM.pm b/URPM.pm
index 693f17b..bc58ba0 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -609,10 +609,36 @@ They roughly correspond to command-line options to rpm(1).
=back
+=head2 Macro handling functions
+
+=item loadmacrosfile($filename)
+
+Load the specified macro file. Sets $! if the file can't be read.
+
+=item expand($name)
+
+Expands the specified macro.
+
+=item add_macro($macro_definition)
+
+Define a macro. For example,
+
+ URPM::add_macro("vendor Mandrakesoft");
+ my $vendor = URPM::expand("%vendor");
+
+=item del_macro($name)
+
+Delete a macro.
+
+=item resetmacros()
+
+Destroys macros.
+
=head1 COPYRIGHT
-Copyright 2002, 2003, 2004 MandrakeSoft (François Pons
-<fpons@mandrakesoft.com>)
+Copyright 2002-2005 Mandrakesoft
+
+Original author: François Pons
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
diff --git a/URPM.xs b/URPM.xs
index d6f5b4e..86ad375 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -4095,4 +4095,34 @@ Urpm_stream2header(fp)
Fclose(fd);
}
+void
+expand(name)
+ char * name
+ PPCODE:
+ const char * value = rpmExpand(name, NULL);
+ XPUSHs(sv_2mortal(newSVpv(value, 0)));
+
+void
+add_macro(macro)
+ char * macro
+ CODE:
+ rpmDefineMacro(NULL, macro, RMIL_DEFAULT);
+
+void
+del_macro(name)
+ char * name
+ CODE:
+ delMacro(NULL, name);
+
+void
+loadmacrosfile(filename)
+ char * filename
+ PPCODE:
+ rpmInitMacros(NULL, filename);
+
+void
+resetmacros()
+ PPCODE:
+ rpmFreeMacros(NULL);
+
/* vim:set ts=8 sts=2 sw=2: */