User:Amgine/Dump processing

test_xmlEdit

A quick hack to build some word lists for User:Nemo_bis. Two quick php scripts, the first rips a collection of files (above 1300 with the 20140311 dump), named after their L2 header text containing all words which had that L2 header (./[L2 Header].txt). The second maps these files to wikipedia language codes (copies the list to ./wpdict/[wpCode].txt).

test_xml.phpEdit

<?php
/*
 * test_xml.php
 *
 * Copyright 2014 Amgine <amgine@Amgines-MacBook-Air.local>
 *
 * This program is free software. It comes without any warranty, to the extent
 * permitted by applicable law. You can redistribute it and/or modify it under
 * the terms of the Do What The Fuck You Want To Public License, Version 2, as
 * published by Sam Hocevar. See http://www.wtfpl.net/ for more details.
 *
 */

/**
 * function: getL2
 **
 * Return an array of L2 headers from a wikitext string.
 **
 * @param string $text The wiki syntax string of the page.
 * @return array An array of language names (or other level 2 header texts.)
 **/
function getL2( $text ){
	$l2 = array();

	foreach( explode( "\n", $text ) as $line ){
		$matches = array();
		if( preg_match_all( '/^==([\w\s\-‒-—‑¯­_]+)==/u', $line, $matches ) ){
			$l2[] = trim( $matches[1][0] );
		}
	}
	if( count( $l2 ) > 0 ){
		return $l2;
	}
}

/**
 * function: add2Dictionary
 **
 * Process found term (breaking up phrases), check for uniqueness, and
 * add to the dictionary.
 **
 * @param string $term The found term to be added to the dictionary.
 * @param array $dictionary The dictionary which will be appended.
 **/
function add2Dictionary( $term, &$dictionary, $lang, $whitespace = false ){
	if( $whitespace ){
		if( !in_array( trim( $term ), $dictionary ) ){
			$dictionary[] = trim( $term );
		}
	}else{
		if( preg_match( '/[\w]+/', $term ) ){
			$term = explode( ' ', $term );
			foreach( $term as $word ){
				if( !in_array( trim( $word ), $dictionary ) ){
					$dictionary[] = trim( $word );
				}
			}
		}
	}
	// Buffer 500 entries in ram per language; a reasonable performance vs. memory explode
	if( count( $dictionary ) > 500 ){
		if( !file_put_contents( $lang . '.txt', implode( "\n", $dictionary ), FILE_APPEND ) ){
			die( "Writing $lang dictionary -- FAILED!\n" );
		}
		$dictionary = array();
	}
}

$reader = new XMLReader();

// @FIXME: hard-coded dump filename
if( !$reader->open( '/Volumes/VERBATIM HD/enwiktionary-20140311-pages-meta-current.xml' ) ){
	die( "Failed to open file for xml reading.\n" );
}

// @FIXME: evil, vile, but it works
$reader->read(); $reader->read();
$reader->next( 'page' );

$dictionary = array();

# Try Unicode magic to check for: MIXED_SCRIPT_CONFUSABLE, SINGLE_SCRIPT, INVISIBLE
# https://ssl.icu-project.org/apiref/icu4c/uspoof_8h.html#a0dbd60e53a571689baf65c63f4de8155
# @FIXME: Before this, remove words not in the main script of the language (requires name->code)
# @FIXME: Currently stripping all non-Latin!
$checker = new Spoofchecker();
$checker->setChecks ( 50 );

$i = 0;
do{
	// Grab <page> node, make simple xml object of it.
	$node = $reader->readOuterXML();
	$element = simplexml_load_string( $node );
	if( $element->ns == '0' && !$checker->isSuspicious( $element->title ) ){
		// If in main namespace, and not confusable, grab L2 headers
		// @FIXME: Create a smarter exclusionary system
		// @TODO: Figure out what the consensus is on proper names
		if( !preg_match( '/\{\{context\|[^}]*\b(vulgar(?:ity?)\b|obscen(?:e|ity)|offensive|pejorative|medicine|slang)[^}]*\}\}/iu', $element->revision->text ) ){
			$l2s = getL2( $element->revision->text );
			if( is_array( $l2s ) ){
				foreach( $l2s as $lang ){
					if( !array_key_exists( $lang, $dictionary ) ){
						$dictionary[$lang] = array();
					}
					// NB: Optional $whitespace = true for function allows multi-word phrases,
					// default does not. '''Default may create broken CJK phrases'''
					add2Dictionary( $element->title, $dictionary[$lang], $lang );
				}
			}
		} else {
			add2Dictionary( $element->title, $dictionary['blacklist'], 'blacklist', $whitespace = true );
		}
	}
	++$i;
	echo "\r$i";
}while( $reader->next( 'page' ) );

// File is parsed, flush buffered dictionaries
echo "\n\n";
foreach( $dictionary as $lang => $dict ){
	echo "Writing $lang dictionary.";
	if( file_put_contents( $lang . '.txt', implode( "\n", $dictionary[$lang] ), FILE_APPEND ) ){
		echo "\rWrote $lang dictionary successfully.\n";
	}else{
		echo " -- FAILED!\n";
	}
}

// @FIXME: move langname dictionaries to langcode dictionaries.s

test_dict2wpMapper.phpEdit

<?php
/*
 * test_dict2wpMapper.php
 * 
 * Copyright 2014 Amgine <amgine@Amgines-MacBook-Air.local>
 * 
 * This program is free software. It comes without any warranty, to the extent
 * permitted by applicable law. You can redistribute it and/or modify it under
 * the terms of the Do What The Fuck You Want To Public License, Version 2, as
 * published by Sam Hocevar. See http://www.wtfpl.net/ for more details.
 * 
 */

$lang = array(
	// Germanics
	'English' => array( 'same', 'en', 'simple' ),
	'Dutch' => 'nl',
	'German' => 'de',
	'Swedish' => 'sv',
	'Norwegian Bokmål' => 'no',
	'Norwegian Nynorsk' => 'nn',
	'Danish' => 'da',
	'Luxembourgish' => 'lb',
	'Icelandic' => 'is',
	'Afrikaans' => 'af',
	'West Frisian' => 'fy',
	'Low German' => 'nds',
	'Scots' => 'sco',
	'Alemannic German' => 'als',
	'Yiddish' => 'yi',
	'Limburgish' => 'li',
	'Bavarian' => 'bar',
	'Faroese' => 'fo',
	'Dutch Low Saxon' => 'nds-nl',
	'West Flemish' => 'vls',
	'North Frisian' => 'frr',
	'Saterland Frisian' => 'stq',
	'Kölsch' => 'ksh',
	'Old English' => 'ang',
	'Pennsylvania German' => 'pdc',
	'Gothic' => 'got',
	// Italic
	'French' => 'fr',
	'Italian' => 'it',
	'Spanish' => 'es',
	'Portuguese' => 'pt',
	'Catalan' => 'ca',
	'Romanian' => 'ro',
	'Galician' => 'gl',
	'Latin' => 'la',
	'Occitan' => 'oc',
	'Piedmontese' => 'pms',
	'Haitian Creole' => 'ht',
	'Aragonese' => 'an',
	'Lombard' => 'lmo',
	'Sicilian' => 'scn',
	'Asturian' => 'ast',
	'Neapolitan' => 'nap',
	'Walloon' => 'wa',
	'Venetian' => 'vec',
	'Tarantino' => 'roa-tara',
	'Corsican' => 'co',
	'Romansch' => 'rm',
	'Ladino' => 'lad',
	'Friulian' => 'fur',
	'Ligurian' => 'lij',
	'Sardinian' => 'sc',
	'Franco-Provençal' => 'frp',
	'Extremaduran' => 'ext',
	'Picard' => 'pcd',
	// NB: Emilian => egl
	'Emilian' => 'eml',
	'Papiamentu' => 'pap',
	'Mirandese' => 'mwl',
	'Aromanian' => 'roa-rup',
    // Slavic
	'Russian' => 'ru',
	'Polish' => 'pl',
	'Ukrainian' => 'uk',
	'Czech' => 'cs',
	//'Serbo-Croatian' => array( 'same', 'sr', 'hr', 'sh', 'bs' ), avoid flames
	'Slovak' => 'sk',
	'Bulgarian' => 'bg',
	'Slovene' => 'sl',
	'Macedonian' => 'mk',
	'Belarusian' => array( 'same', 'be', 'be-x-old' ),
	'Upper Sorbian' => 'hsb',
	'Rusyn' => 'rue',
	'Kashubian' => 'csb',
	'Silesian' => 'szl',
	'Lower Sorbian' => 'dsb',
	'Old Church Slavonic' => 'cu',
	// Philippine
	'Waray-Waray' => 'war',
	'Cebuano' => 'ceb',
	'Tagalog' => 'tl',
	'Kapampangan' => 'pam',
	'Ilocano' => 'ilo',
	'Bikol Central' => 'bcl',
	'Pangasinan' => 'pag',
	// Japanic
	'Japanese' => 'ja',
	// Austroasiatic
	'Vietnamese' => 'vi',
	'Khmer' => 'km',
	// Turkic
	'Turkish' => 'tr',
	'Kazakh' => 'kk',
	'Uzbek' => 'uz',
	'Azeri' => 'az',
	'Tatar' => 'tt',
	'Bashkir' => 'ba',
	'Kyrgyz' => 'ky',
	'Chuvash' => 'cv',
	'Yakut' => 'sah',
	'Turkmen' => 'tk',
	'Uyghur' => 'ug',
	'Gagauz' => 'gag',
	'Karachay-Balkar' => 'krc',
	'Crimean Tatar' => 'crh',
	'Karakalpak' => 'kaa',
	'Tuvan' => 'tyv',
	// Sinitic
	'Cantonese' => 'zh-yue',
	'Min Nan' => 'zh-min-nan',
	'Gan' => 'gan',
	'Wu' => 'wuu',
	'Hakka' => 'hak',
	'Min Dong' => 'cdo',
	// NB: These may require additional parser logic, not processing now.
    //	zh • 758,009 – Chinese (中文)
    //	zh-classical • 3,245 – Classical Chinese (文言)
	// Sunda–Sulawesi
	'Malay' => 'ms',
	'Indonesian' => 'id',
	'Javanese' => 'jv',
	'Sundanese' => 'su',
	'Buginese' => 'bug',
	'Banyumasan' => 'map=bms',
	'Minangkabau' => 'min',
	'Acehnese' => 'ace',
	'Banjarese' => 'bjn',
	'Chamorro' => 'ch',
	// Finno-Permic
	'Finnish' => 'fi',
	'Estonian' => 'et',
	'Northern Sami' => 'se',
	'Western Mari' => 'mrj',
	'Võro' => 'fiu-vro',
	'Komi-Zyrian' => 'kv',
	'Komi-Permyak' => 'koi',
	'Udmurt' => 'udm',
	// NB: Eastern Mari => chm
	'Eastern Mari' => 'mhr',
	'Veps' => 'vep',
	'Erzya' => 'myv',
	'Moksha' => 'mdf',
	// Semitic
	'Arabic' => 'ar',
	'Hebrew' => 'he',
	'Amharic' => 'am',
	'Egyptian Arabic' => 'arz',
	'Maltese' => 'mt',
	'Aramaic' => 'arc',
	'Tigrinya' => 'ti',
	// Iranian
	'Persian' => 'fa',
	'Tajik' => 'tg',
	'Kurdish' => 'ku',
	'Central Kurdish' => 'ku',
	'Mazanderani' => 'mzn',
	'Ossetian' => 'os',
	'Gilaki' => 'glk',
	'Pashto' => 'ps',
	'Zazaki' => 'diq',
	// Indo-Aryan
	'Hindi' => 'hi',
	'Marathi' => 'mr',
	'Western Panjabi' => 'pnb',
	'Bengali' => 'bn',
	'Bishnupriya Manipuri' => 'bpy',
	'Urdu' => 'ur',
	'Nepali' => 'ne',
	'Gujarati' => 'gu',
	'Fiji Hindi' => 'hif',
	'Sanskrit' => 'sa',
	'Sinhalese' => 'si',
	'Punjabi' => 'pa',
	'Oriya' => 'or',
	'Dhivehi' => 'dv',
	'Pali' => 'pi',
	'Bihari' => 'bh',
	'Assamese' => 'as',
	'Sindhi' => 'sd',
	'Kashmiri' => 'ks',
    // Constructed
    'Esperanto' => 'eo',
    'Volapük' => 'vo',
    'Ido' => 'io',
    'Interlingua' => 'ia',
    'Interlingue' => 'ie',
    'Novial' => 'nov',
	// Ugric
	'Hungarian' => 'hu',
	// Korean
	'Korean' => 'ko',
	// Baltic
	'Lithuanian' => 'lt',
	'Latvian' => 'lv',
	//NB: Samogitian => sgs
	'Samogitian' => 'bat-smg',
	'Latgalian' => 'ltg',
	// Basque
	'Basque' => 'eu',
	// Dravidian
	'Tamil' => 'ta',
	'Telugu' => 'te',
    'Malayalam' => 'ml',
    'Kannada' => 'kn',
	// Celtic
    'Breton' => 'br',
    'Welsh' => 'cy',
    'Irish' => 'ga',
    'Scottish Gaelic' => 'gd',
    'Manx' => 'gv',
    'Cornish' => 'kw',
	// Tibeto-Burman
	'Newari' => 'new',
	'Burmese' => 'my',
	'Tibetan' => 'bo',
	'Dzongkha' => 'dz',
	// Tai
	'Thai' => 'th',
	'Lao' => 'lo',
	'Zhuang' => 'za',
	// Hellenic
    'Greek' => 'el',
    'Pontic Greek' => 'pnt',
	// Kartvelian
	'Georgian' => 'ka',
	'Mingrelian' => 'xmf',
	// Albanian
	'Albanian' => 'sq',
	// Bornean
	'Malagasy' => 'mg',
	// Bantoidsw • 26,073 – Swahili (Kiswahili)
	'Lingala' => 'ln',
	'Kinyarwanda' => 'rw',
	'Shona' => 'sn',
	'Kongo' => 'kg',
	'Northern Sotho' => 'nso',
	'Zulu' => 'zu',
	'Tswana' => 'tn',
	'Swazi' => 'ss',
	'Tsonga' => 'ts',
	'Kikuyu' => 'ki',
	'Venda' => 've',
	'Kirundi' => 'rn',
	'Luganda' => 'lg',
	'Tumbuka' => 'tum',
	'Sotho' => 'st',
	'Xhosa' => 'xh',
	'Chichewa' => 'ny',
	// Yoruboid
	'Yoruba' => 'yo',
	// Armenian
    'Armenian' => 'hy',
    // Quechuan
    'Quechua' => 'qu',
    // Polynesian
    'Maori' => 'mi',
    'Hawaiian' => 'haw',
    'Tongan' => 'to',
    'Tahitian' => 'ty',
    'Samoan' => 'sm',
    // Mongolic
    'Mongolian' => 'mn',
    'Kalmyk' => 'xal',
	// Uto-Aztecan
	'Nahuatl' => 'nah',
	// Northeast Caucasian
    'Chechen' => 'ce',
    'Lezgi' => 'lez',
    'Lak' => 'lbe',
    'Avar' => 'av',
    // Germanic Pidgins & Creoles
    'Tok Pisin' => 'tpi',
    'Sranan Tongo' => 'srn',
    'Bislama' => 'bi',
    'Pitcairn-Norfolk' => 'pih',
    // Cushitic
    'Somali' => 'so',
    'Oromo' => 'om',
    'Afar' => 'aa',
    // Athabaskan
    'Navajo' => 'nv',
    // Eskimo-Aleut
    'Greenlandic' => 'kl',
    'Inuktitut' => 'iu',
    'Inupiak' => 'ik',
    // Aymaran
    'Aymara' => 'ay',
    // Tupian
    'Guaraní' => 'gn',
    // Northwest Caucasian
    'Kabardian' => 'kbd',
    'Abkhaz' => 'ab',
    // Atlantic
    'Wolof' => 'wo',
    'Fula' => 'ff',
    // A priori Constructed
    'Lojban' => 'jbo',
    // Berber
    'Kabyle' => 'kab',
    // Micronesian
    'Nauruan' => 'na',
    'Marshallese' => 'mh',
    // Igboid
    'Igbo' => 'ig',
    // Timor-Babar
    'Tetum' => 'tet',
    // Algonquian
    'Cheyenne' => 'chy',
    'Cree' => 'cr',
    // Kwa
    'Ewe' => 'ee',
    'Akan' => 'ak',
    'Twi' => 'tw',
    // Iroquoian
    'Cherokee' => 'chr',
    // Mande
    'Bambara' => 'bm',
    // Chadic
    'Hausa' => 'ha',
    // Ubangian
    'Sango' => 'sg',
    // East Fijian
    'Fijian' => 'fj',
);

echo count( $lang );

foreach( $lang as $langname => $val ){
	echo "\n$langname";
	if( is_array( $val ) ){
		foreach( $val as $key => $langcode ){
			if( $key > 0 ){
				if( $val[0] == 'same' ){
					if( file_exists( "$langname.txt" ) ){
						if( !copy( "$langname.txt", "wpdict/$langcode.txt" ) ){
							die( "FAILED -- copying $langname.txt to wpdict/$val.txt\n" );
						}
					}else{
						echo "\n$langname.txt DOES NOT EXIST!\n";
					}
				}//elseif( $val[0] == 'merge' ){ do the merge here }
			}
		}
	}else{
		// Just copy the file over.
		if( file_exists( "$langname.txt" ) ){
			if( !copy( "$langname.txt", "wpdict/$val.txt" ) ){
				die( "FAILED -- copying $langname.txt to wpdict/$val.txt\n" );
			}
		}else{
			echo "\n$langname.txt DOES NOT EXIST!\n";
		}
	}
}

echo "\n\nDone.";

testFiltr.phpEdit

#!/usr/bin/php
<?php
/*
 * testFiltr.php
 * 
 * Copyright 2014 Amgine <amgine@Amgines-MacBook-Air.local>
 * 
 * This program is free software. It comes without any warranty, to the extent
 * permitted by applicable law. You can redistribute it and/or modify it under
 * the terms of the Do What The Fuck You Want To Public License, Version 2, as
 * published by Sam Hocevar. See http://www.wtfpl.net/ for more details.
 * 
 */
 
/**
 * REQUIREMENTS: It is expected this will be run in a *nix environment, plus
 * * cURL
 * * bzip2
 * 
 * If your php is not located at /usr/bin/php, better fix the shebang.
 **
 * USE NOTE: This file must be marked as executable, chmod +x testFiltr.php
 *
 * example:
 * curl http://dumps.wikimedia.org/enwiktionary/20140328/enwiktionary-20140328-pages-articles.xml.bz2 | bzcat | ./testFiltr.php
 **/

/**
 * function: getL2
 **
 * Return an array of L2 headers from a wikitax string.
 **
 * @param string $text The wiki syntax string of the page.
 * @return array An array of language names (or other level 2 header texts.)
 **/
function getL2( $text ){
	$l2 = array();
	
	foreach( explode( "\n", $text ) as $line ){
		$matches = array();
		if( preg_match_all( '/^==([\w\s\-‒-—‑¯­_]+)==/u', $line, $matches ) ){
			$l2[] = trim( $matches[1][0] );
		}
	}
	if( count( $l2 ) > 0 ){
		return $l2;
	}
	return array();
}

/**
 * function: add2Dictionary
 **
 * Process found term (breaking up phrases), check for uniqueness, and
 * add to the dictionary.
 **
 * @param string $term The found term to be added to the dictionary.
 * @param array $dictionary The dictionary which will be appended.
 **/
function add2Dictionary( $term, &$dictionary, $whitespace = false ){
	if( $whitespace ){
		if( !in_array( trim( $word ), $dictionary ) ){
			$dictionary[] = trim( $word );
		}
	}else{
		if( preg_match( '/[\w]+/', $term ) ){
			$term = explode( ' ', $term );
			foreach( $term as $word ){
				if( !in_array( trim( $word ), $dictionary ) ){
					$dictionary[] = trim( $word );
				}
			}
		}
	}
}

// http://dumps.wikimedia.org/mhwiktionary/20140401/mhwiktionary-20140401-pages-articles.xml.bz2
//$fh = fopen( '/Users/amgine/Downloads/mhwiktionary-20140401-pages-articles.xml', 'r' );

$i = $j = 0;
$dictionary = array();
// This is the directory the dictionaries will be stored in. It must exist or script will fail.
$destPath = 'enWT/';

do{
	$buffer = stream_get_line( STDIN, 16384, PHP_EOL );
	++$j;
	if( preg_match( '/^<page>$/i', trim( $buffer ) ) ){
		$node = $buffer;
		do{
			$buffer = stream_get_line( STDIN, 16384, PHP_EOL );
			$node .= "\n$buffer";
			++$j;
		}while( !feof( STDIN ) && !preg_match( '/^<\/page>$/i', trim( $buffer ) ) );
		++$i;
		$element = simplexml_load_string( $node );
		if( $element->ns == '0' ){
			// If in main namespace, grab L2 headers
			if( !preg_match( '/\{\{context\|[^}]*(\bvulgar(?:ity?)\b|\bobscen(?:e|ity))[^}]*\}\}/iu', $element->revision->text ) ){
				$l2s = getL2( $element->revision->text );
				if( is_array( $l2s ) ){
					foreach( $l2s as $lang ){
						if( !array_key_exists( $lang, $dictionary ) ){
							$dictionary[$lang] = array();
						}
						// NB: Optional $whitespace = true for function allows multi-word phrases,
						// default does not. '''Default may create broken CJK phrases'''
						add2Dictionary( $element->title, $dictionary[$lang] );
						// Buffer 500 entries in ram per language; a reasonable performance vs. memory explode
						if( count( $dictionary[$lang] ) > 500 ){
							if( !file_put_contents( $destPat . $lang . '.txt', implode( "\n", $dictionary[$lang] ), FILE_APPEND ) ){
								die( "Writing $lang dictionary -- FAILED!\n" );
							}
							$dictionary[$lang] = array();
						}
					}
				}
			}
		}
	}
}while( !feof( STDIN ) );

echo "\r$j lines processed.\n$i pages found.\n";

// File is parsed, flush buffered dictionaries
echo "\n\n";
foreach( $dictionary as $lang => $dict ){
	echo "Writing $lang dictionary.";
	if( file_put_contents( $destPath . $lang . '.txt', implode( "\n", $dictionary[$lang] ), FILE_APPEND ) ){
		echo "\rWrote $lang dictionary successfully.\n";
	}else{
		echo " -- FAILED!\n";
	}
}