jimregan

/*
 * Copyright (C) 2005 Universitat d'Alacant / Universidad de Alicante
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of

jimregan

    <rule id="NA_WZAJEM" name="„na wzajem” (nawzajem)">
      <pattern>
        <token>na</token>
        <token>wzajem</token>
      </pattern>
      <message>Ten wyraz zwykle pisze się łącznie: <suggestion>\1\2</suggestion>.</message>
      <short>Prawdopodobna literówka</short>
      <example correction="nawzajem" type="incorrect">Oni kochają się <marker>na wzajem</marker>.</example>
      <example type="correct">Oni kochają się nawzajem.</example>
    </rule>

jimregan

sub padrect {
	my $rin = shift;
	my $rout;
	if (length($rin) == 16) {
		return $rin;
	} elsif (length($rin) > 16) {
		return $rout; # can't process, return undef
	} else {
		my $diff = (16 - length($rin));
		for (my $i = 0; $i < $diff; $i++) {

jimregan

Index: demo/pom.xml
===================================================================
--- demo/pom.xml	(revision 367)
+++ demo/pom.xml	(working copy)
@@ -24,7 +24,8 @@
     <parent>
         <artifactId>spotlight</artifactId>
         <groupId>org.dbpedia.spotlight</groupId>
-        <version>${dbpedia.spotlight.version}</version>
+        <version>0.6</version>

jimregan

^Lista_.+
^Wikiprojekt:.+
^Portal:.+
.+(ujednoznacznienie)$

jimregan

@prefix og: <http://ogp.me/ns#> .
@prefix fb: <http://ogp.me/ns/fb#> .
@prefix zimbiofb: <http://ogp.me/ns/fb/zimbiofb#> .

<http://www.zimbio.com/photos/Aiste+Paskeviciute/Luck+Attitude+Launch+Party+3/XFhu3CPOWRW>
	fb:app_id "137068566357971" ;
	og:site_name "Zimbio";
	og:type zimbiofb:photostream ;
	og:url <http://www.zimbio.com/photos/Aiste+Paskeviciute/Luck+Attitude+Launch+Party+3/XFhu3CPOWRW> ;
	og:title "Aiste Paskeviciute Photostream" ;

jimregan

#!/usr/bin/perl

use warnings;
use strict;

use Encode::Escape;
use utf8;

binmode STDIN, ":utf8";
binmode STDERR, ":utf8";

jimregan

#!/usr/bin/perl

use warnings;
use strict;

use Image::ObjectDetect;
use Digest::MD5 qw(md5_hex);
use Image::ExifTool qw(:Public);
use POSIX qw/strftime/;
use Image::Magick;

jimregan

А <> A; 
а <> a;
Б <> B;
б <> b;
В <> V;
в <> v;
Г } [А] <> GU;
г } [а] <> Gu;
Г <> G;
г <> g;

jimregan

routines (
  RV R1
  palatalise
  mark_regions
  do_possessive
  do_case
  do_comparative
  do_diminutive
  do_augmentative
  do_derivational