poextract.vala

/*
 * compile with:
 *    valac -C poextract.vala
 *    gcc -shared `pkg-config --cflags --libs glib-2.0` -o libpoextract.so poextract.c
 * and run with:
 *    LD_PRELOAD=./libpoextract.so:/usr/lib/preloadable_libintl.so <application>
 */
 
/* These functions are from preloadable_libintl.so */
extern string libintl_textdomain (string? domain);

extern string libintl_dcgettext (string? domain, string msgid, int category);
extern string libintl_dcngettext (string? domain, string msgid1, string msgid2, ulong n, int category);


string default_domain = null;
public string textdomain (string? domain) {
	if (domain != null)
		default_domain = domain;
	return libintl_textdomain (domain);
}

public string dcgettext (string? domain, string msgid, int category) {
	var result = libintl_dcgettext (domain, msgid, category);
	if ((domain == null || domain == default_domain)
	    && (result in msgid)) {
		if (default_domain != null && !("\004" in msgid)) {
			var f = FileStream.open ("%s.pot".printf (default_domain), "a");
			f.printf ("msgid \"%s\"\n", msgid.escape (""));
			f.printf ("msgstr \"\"\n\n");
		} else
			print ("dcgettext %s, %s, %d\n", domain, msgid, category);
	}
	return result;
}

public string dcngettext (string? domain, string msgid1, string msgid2, ulong n, int category) {
	var result =  libintl_dcngettext (domain, msgid1, msgid2, n, category);

	if ((domain == null || domain == default_domain)
	    && (result in msgid1 || result in msgid2)) {
		print ("dcngettext %s, %s, %s, %d\n", domain, msgid1, msgid2, category);
	}
	return result;
}