Author: mvidner
Date: Wed Feb 4 16:11:18 2009
New Revision: 55255
URL: http://svn.opensuse.org/viewcvs/yast?rev=55255&view=rev
Log:
Added logging functions YaST::YCP::y2useritem and y2usernote (FATE#100386).
Modified:
trunk/perl-bindings/VERSION
trunk/perl-bindings/package/yast2-perl-bindings.changes
trunk/perl-bindings/src/YCP.cc
trunk/perl-bindings/src/YCP.pm
Modified: trunk/perl-bindings/VERSION
URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/VERSION?rev=55255&r1=55254&r2=55255&view=diff
==============================================================================
--- trunk/perl-bindings/VERSION (original)
+++ trunk/perl-bindings/VERSION Wed Feb 4 16:11:18 2009
@@ -1 +1 @@
-2.17.2
+2.18.0
Modified: trunk/perl-bindings/package/yast2-perl-bindings.changes
URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/package/yast2-perl-bindings.changes?rev=55255&r1=55254&r2=55255&view=diff
==============================================================================
--- trunk/perl-bindings/package/yast2-perl-bindings.changes (original)
+++ trunk/perl-bindings/package/yast2-perl-bindings.changes Wed Feb 4 16:11:18 2009
@@ -1,4 +1,10 @@
-------------------------------------------------------------------
+Wed Feb 4 16:11:10 CET 2009 - mvidner@suse.cz
+
+- Added logging functions YaST::YCP::y2useritem and y2usernote (FATE#100386).
+- 2.18.0
+
+-------------------------------------------------------------------
Mon Sep 29 14:25:15 CEST 2008 - visnov@suse.cz
- Fixed testsuite
Modified: trunk/perl-bindings/src/YCP.cc
URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/src/YCP.cc?rev=55255&r1=55254&r2=55255&view=diff
==============================================================================
--- trunk/perl-bindings/src/YCP.cc (original)
+++ trunk/perl-bindings/src/YCP.cc Wed Feb 4 16:11:18 2009
@@ -4,6 +4,7 @@
* This is the path from Perl to YCP. It defines XSUBs.
*/
+#include
#include
#include
#include
@@ -64,6 +65,22 @@
XSRETURN_EMPTY;
}
+XS(XS_YCP_y2_changes_logger); /* prototype to pass -Wmissing-prototypes */
+XS(XS_YCP_y2_changes_logger)
+{
+ // defines "items", the number of arguments
+ dXSARGS;
+ if (items != 2)
+ {
+ y2internal ("y2_changes_logger must have 2 arguments");
+ XSRETURN_EMPTY;
+ }
+ logcategory_t level = (logcategory_t) SvIV (ST (0));
+ const char * message = SvPV_nolen (ST (1));
+ y2changes_function (level, "%s", message);
+ XSRETURN_EMPTY;
+}
+
XS(XS_YCP_call_ycp); /* prototype to pass -Wmissing-prototypes */
XS(XS_YCP_call_ycp)
{
@@ -482,7 +499,7 @@
dXSARGS;
// get rid of warning: unused variable `I32 items'
I32 __attribute__ ((unused)) foo = items;
- char* file = __FILE__;
+ const char* file = __FILE__;
XS_VERSION_BOOTCHECK ;
@@ -492,5 +509,6 @@
newXS("YaST::YCP::close_components", XS_YCP_close_components, file);
newXS("YaST::YCP::init_ui", XS_YCP_init_ui, file);
newXS("YaST::YCP::y2_logger", XS_YCP_y2_logger, file);
+ newXS("YaST::YCP::y2_changes_logger", XS_YCP_y2_changes_logger, file);
XSRETURN_YES;
}
Modified: trunk/perl-bindings/src/YCP.pm
URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/src/YCP.pm?rev=55255&r1=55254&r2=55255&view=diff
==============================================================================
--- trunk/perl-bindings/src/YCP.pm (original)
+++ trunk/perl-bindings/src/YCP.pm Wed Feb 4 16:11:18 2009
@@ -121,7 +121,7 @@
require Exporter;
our @ISA = qw(Exporter);
my @e_data = qw(Boolean Byteblock Integer Float String Symbol Term);
-my @e_logging = qw(y2debug y2milestone y2warning y2error y2security y2internal);
+my @e_logging = qw(y2debug y2milestone y2warning y2error y2security y2internal y2useritem y2usernote);
my @e_ui = qw(BarGraph Bottom CheckBox ColoredLabel ComboBox Date
DownloadProgress DumbTab DummySpecialWidget Empty Frame HBox HCenter
HMultiProgressMeter HSpacing HSquash HStretch HVCenter HVSquash
@@ -233,6 +233,13 @@
join (" ", @_));
}
+sub y2_changes_logger_helper ($@)
+{
+ my $level = shift;
+ # this is a XS:
+ y2_changes_logger ($level, join (" ", @_));
+}
+
sub y2debug (@) { y2_logger_helper (0, @_); }
sub y2milestone (@) { y2_logger_helper (1, @_); }
sub y2warning (@) { y2_logger_helper (2, @_); }
@@ -240,6 +247,9 @@
sub y2security (@) { y2_logger_helper (4, @_); }
sub y2internal (@) { y2_logger_helper (5, @_); }
+sub y2useritem (@) { y2_changes_logger_helper (0, @_); }
+sub y2usernote (@) { y2_changes_logger_helper (1, @_); }
+
=head2 sformat
Implements the sformat YCP builtin:
--
To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org
For additional commands, e-mail: yast-commit+help@opensuse.org
