Glib

 view release on metacpan or  search on metacpan

ChangeLog.pre-git  view on Meta::CPAN

2006-07-14	kaffeetisch

	* MakeHelper.pm: Turn a few 'use Config's into 'require Config's.
	Also remove some loud MSVC/nmake bashing. :-)

2006-06-20  Emmanuele Bassi  <ebassi@gmail.com>

	A GBookmarkFile.xs
	A t/h.t

	* GBookmarkFile.xs: Bind GBookmarkFile, a parser for desktop
	bookmarks, that comes with GLib 2.11/2.12.

	* t/h.t: Test suite for Glib::BookmarkFile.

	* GError.xs:
	* Glib.xs:
	* MANIFEST:
	* Makefile.PL:
	* doctypes:
	* gperl-gtypes.[hc]:

GBookmarkFile.xs  view on Meta::CPAN

	$desc  = $b->get_description($uri);

	print "Bookmark for `$uri' ($title):\n";
	print "  $desc\n";
  }
  0;

  __DATA__
  <?xml version="1.0" encoding="UTF-8"?>
  <xbel version="1.0"
        xmlns:bookmark="http://www.freedesktop.org/standards/desktop-bookmarks"
        xmlns:mime="http://www.freedesktop.org/standards/shared-mime-info">
    <bookmark href="file:///tmp/test-file.txt" added="2006-03-22T18:54:00Z" modified="2006-03-22T18:54:00Z" visited="2006-03-22T18:54:00Z">
      <title>Test File</title>
      <desc>Some test file</desc>
      <info>
        <metadata owner="http://freedesktop.org">
          <mime:mime-type type="text/plain"/>
          <bookmark:applications>
            <bookmark:application name="Gedit" exec="gedit %u" timestamp="1143053640" count="1"/>
          </bookmark:applications>
        </metadata>
      </info>
    </bookmark>
  </xbel>

=for position DESCRIPTION

GKeyFile.xs  view on Meta::CPAN

  localekey[it]=Buon giorno
  localekey[es]=Buenas dias
  localekey[fr]=Bonjour

=for position DESCRIPTION

=head1 DESCRIPTION

B<Glib::KeyFile> lets you parse, edit or create files containing groups of
key-value pairs, which we call key files for lack of a better name. Several
freedesktop.org specifications use key files now, e.g the Desktop Entry
Specification and the Icon Theme Specification.

The syntax of key files is described in detail in the Desktop Entry
Specification, here is a quick summary: Key files consists of groups of
key-value pairs, interspersed with comments.

=cut

BOOT:
	gperl_register_fundamental (GPERL_TYPE_KEY_FILE_FLAGS,

gperl-gtypes.c  view on Meta::CPAN

}

/* -------------------------------------------------------------------------- */

#if GLIB_CHECK_VERSION (2, 14, 0)
GType gperl_user_directory_get_type (void)
{
  static GType etype = 0;
  if (etype == 0) {
    static const GEnumValue values[] = {
      { G_USER_DIRECTORY_DESKTOP, "G_USER_DIRECTORY_DESKTOP", "desktop" },
      { G_USER_DIRECTORY_DOCUMENTS, "G_USER_DIRECTORY_DOCUMENTS", "documents" },
      { G_USER_DIRECTORY_DOWNLOAD, "G_USER_DIRECTORY_DOWNLOAD", "download" },
      { G_USER_DIRECTORY_MUSIC, "G_USER_DIRECTORY_MUSIC", "music" },
      { G_USER_DIRECTORY_PICTURES, "G_USER_DIRECTORY_PICTURES", "pictures" },
      { G_USER_DIRECTORY_PUBLIC_SHARE, "G_USER_DIRECTORY_PUBLIC_SHARE", "public-share" },
      { G_USER_DIRECTORY_TEMPLATES, "G_USER_DIRECTORY_TEMPLATES", "templates" },
      { G_USER_DIRECTORY_VIDEOS, "G_USER_DIRECTORY_VIDEOS", "videos" },
      { 0, NULL, NULL }
    };
    etype = g_enum_register_static ("GUserDirectory", values);

t/1.t  view on Meta::CPAN

  ok (defined Glib::get_system_data_dirs ());
  ok (defined Glib::get_system_config_dirs ());
  ok (defined Glib::get_language_names ());
}

SKIP: {
  skip 'new 2.14 stuff', 1
    unless Glib->CHECK_VERSION (2, 14, 0);

  # qw/desktop documents download music pictures public-share templates videos/
  ok (defined Glib::get_user_special_dir ('desktop'));
}

is (Glib::Markup::escape_text ("<gtk2-perl>"), "&lt;gtk2-perl&gt;");

ok (defined Glib::strerror (2));
ok (defined Glib::strsignal (11));

__END__

Copyright (C) 2003-2005 by the gtk2-perl team (see the file AUTHORS for the

t/h.t  view on Meta::CPAN

# BookmarkFile
#
use strict;
use warnings;
use Glib ':constants';
use Test::More tests => 30;

our $str = <<__EOB__
<?xml version="1.0" encoding="UTF-8"?>
<xbel version="1.0"
      xmlns:bookmark="http://www.freedesktop.org/standards/desktop-bookmarks"
      xmlns:mime="http://www.freedesktop.org/standards/shared-mime-info"
>
  <bookmark href="file:///tmp/test-file.txt" added="2006-03-22T18:54:00Z" modified="2006-03-22T18:54:00Z" visited="2006-03-22T18:54:00Z">
    <title>Test File</title>
    <desc>Some test file</desc>
    <info>
      <metadata owner="http://freedesktop.org">
        <mime:mime-type type="text/plain"/>
        <bookmark:applications>
          <bookmark:application name="Gedit" exec="gedit %u" timestamp="1143053640" count="1"/>
        </bookmark:applications>
      </metadata>
    </info>
  </bookmark>
</xbel>
__EOB__
;