Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
DISCONTINUED:openSUSE:11.1:Update
kiwi-config-openSUSE
langset-xkb.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File langset-xkb.pl of Package kiwi-config-openSUSE
#! /usr/bin/perl -w use SaX; open(FH, "/etc/langset.xkb"); my $XkbLayout=<FH>; my $XkbModel=<FH>; my $XkbOptions=<FH>; my $XkbVariant=<FH>; close(FH); chomp $XkbLayout; chomp $XkbModel; chomp $XkbOptions; chomp $XkbVariant; $exc = new SaX::SaXException; $exc -> setDebug (1); $init = new SaX::SaXInit; if ( $init -> needInit() ) { print ("initialize cache...\n"); $init -> doInit(); } my $status = $init -> errorString(); $config = new SaX::SaXConfig; $kbd = new SaX::SaXImport ( $SaX::SAX_KEYBOARD ); $kbd -> setSource( $SaX::SAX_SYSTEM_CONFIG ); $kbd -> doImport(); $config->addImport($kbd); $manip2 = new SaX::SaXManipulateKeyboard ($kbd); $manip2 -> selectKeyboard( $SaX::SAX_CORE_KBD); $manip2 -> setXKBLayout ("$XkbLayout"); $manip2 -> setXKBModel ("$XkbModel"); $manip2 -> setXKBVariant ("$XkbVariant"); $manip2 -> setXKBOptions ("$XkbOptions"); $config->setMode ( $SaX::SAX_MERGE ); if ( ! $config->createConfiguration() ) { print "--- " . $config->errorString() . "\n"; print "--- " . $config->getParseErrorValue() . "\n"; exit(1); } $config->commitConfiguration(); exit (0);
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor