File: prijmeni.p

package info (click to toggle)
ispell-czech 20040229-5.2
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 3,588 kB
  • ctags: 5
  • sloc: perl: 703; makefile: 76; sh: 43
file content (127 lines) | stat: -rw-r--r-- 2,702 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#!/usr/bin/perl
while (<>) {
  s/\n$//;
  $flag='';
  $privlast='';
  $zenske=$_;
  if (
      ($pom=$_)=~s/mcov�$/mec/) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/�kov�$/d�k/) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/�kov�$/t�k/) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/�kov�$/n�k/) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/([bc�dfghjlmnpr�s�tvz�])kov�$/${1}ek/) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/ov�$//) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/�$/�/) {
    $print=1;
    $muzske=$pom;
  } elsif (
      ($pom=$_)=~s/e$//) {
    $print=1;
    $muzske="${pom}e";
    $zenske="${pom}ov�";
  } elsif (
      ($pom=$_)=~s/n�$//) {
    $print=1;
    $muzske="${pom}n�";
    $zenske="${pom}�ov�";
  } elsif (
      ($pom=$_)=~s/t�$//) {
    $print=1;
    $muzske="${pom}t�";
    $zenske="${pom}t�tov�";
  } else {
    $print=1;
    $muzske=$_;
    $zenske='';
  }
  if ($print) {
    if ($muzske=~/[c�j�s����]$/) {
      $flag='UV';
    } elsif ($muzske=~/�$/) {
      $flag='Y';
      $zenske='';
      $privlast='';
    } elsif ($muzske=~/�$/) {
      $flag='';
      $zenske='';
      $privlast='';
    } elsif ($muzske=~/t�$/) {
      $flag='';
    } else {
      $flag='PV';
    }
    if ($zenske) {
      if (
          ($pom=$zenske)=~s/ov�$/�v\/Y/) {
        $privlast=$pom;
      }
      $zenske.='/Y';
    } else {
      if (
          ($zenske=$muzske)=~s/n�k$/�kov�\/Y/) {
      } elsif (
          ($zenske=$muzske)=~s/ek$/kov�\/Y/) {
      } elsif (
          ($zenske=$muzske)=~s/ec$/cov�\/Y/) {
      } elsif (
          ($zenske=$muzske)=~s/o$/ov�\/Y/) {
      } elsif (
          ($zenske=$muzske)=~s/a$/ov�\/Y/) {
      } elsif (
          $muzske=~/�$/) {
          $privlast='';
      } elsif (
          $muzske=~/�$/) {
          $privlast='';
      } else {
          $zenske=$muzske . "ov�/Y";
      }
    }
    if (!$privlast) {
      if (
          ($privlast=$muzske)=~s/ec$/c�v\/Y/) {
      } elsif (
          ($privlast=$muzske)=~s/n�k$/�k�v\/Y/) {
      } elsif (
          ($privlast=$muzske)=~s/ek$/k�v\/Y/) {
      } elsif (
          ($privlast=$muzske)=~s/o$/�v\/Y/) {
      } elsif (
          ($privlast=$muzske)=~s/a$/�v\/Y/) {
      } elsif (
          $muzske=~/�$/) {
          $zenske='';
          $privlast='';
      } elsif (
          $muzske=~/�$/) {
          $zenske='';
          $privlast='';
      } else {
          $privlast=$muzske . "�v/Y";
      }
    }
    print "$muzske";
    print "/$flag" if $flag;
    print " $privlast" if $privlast;
    print " $zenske" if $zenske;
    print "\n";
  }
}