diff options
| author | elagustinrojas <elagustinrojas@gmail.com> | 2014-04-04 20:58:11 (GMT) |
|---|---|---|
| committer | elagustinrojas <elagustinrojas@gmail.com> | 2014-04-04 20:58:11 (GMT) |
| commit | 66158b016f927578b3c368237651760ce656fafa (patch) | |
| tree | 9d607e3d6b4352623c736542899213752f5d8dcb | |
| -rw-r--r-- | LICENSE | 339 | ||||
| -rw-r--r-- | README.md | 11 | ||||
| -rwxr-xr-x | Xpritz.pl | 917 | ||||
| -rw-r--r-- | lib/Hyphen.pm | 604 |
4 files changed, 1871 insertions, 0 deletions
@@ -0,0 +1,339 @@ +GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc., <http://fsf.org/> + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Lesser General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + {description} + Copyright (C) {year} {fullname} + + 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 + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along + with this program; if not, write to the Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + {signature of Ty Coon}, 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. diff --git a/README.md b/README.md new file mode 100644 index 0000000..f2cea6b --- /dev/null +++ b/README.md @@ -0,0 +1,11 @@ +Xpritz +======== + +Xpritz is a txt reader, which makes your reading twice as fast as usual + +How To Use +============ + +cd in the folder of the program +example. cd /home/olpc/Xpritz/ +Run "./Xpritz.pl" in the terminal or "perl Xpritz.pl" diff --git a/Xpritz.pl b/Xpritz.pl new file mode 100755 index 0000000..a744b7d --- /dev/null +++ b/Xpritz.pl @@ -0,0 +1,917 @@ +#!/usr/bin/perl +# +# Copyright (C) 2014 Agustin Rojas <elagustinrojas@gmail.com> +# +# 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 +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +use strict; +use utf8; +use Glib qw/TRUE FALSE/; +use Gtk2 '-init'; +use Getopt::Long; +use Pod::Usage; +use lib 'lib/'; +use Hyphen; + +# defines +my $font = "courier new 21"; +my $span_black_open = "<span background='white' foreground='black' font_desc='".$font."'><big>"; +my $span_blue_open = "<span background='white' foreground='blue' font_desc='".$font."'><big>"; +my $span_close = "</big></span>"; +my $word_width = 28; +my $spread0r_version = "1 Alpha XO"; + +# globaly used gtk stuff +my $gtk_text; +my $gtk_speed_label; +my $gtk_sentence_text; +my $gtk_timer; + +# global variables +my $wpm = 200; +my $pause_button; +my $pause = 1; +my $back_ptr = -1; +my $prev_back_ptr = -1; +my $fast_forward = 0; +my $hyphen = Text::Hyphen->new('min_word' => 15, + 'min_prefix' => 7, 'min_suffix' => 7, 'min_part' => 6); + + +#################### +# Helper functions # +#################### + +sub get_line +{ + my $line; + $/ = '.'; + + if (!($line = <FILE>)) { + printf("reached end of file\n"); + close(FILE); + exit(-1); + } + $line =~ s/[\n\r]/ /g; + + return $line; +} + +sub escape { + my($data) = @_; + + $data =~ s/&/&/sg; + $data =~ s/</</sg; + $data =~ s/>/>/sg; + $data =~ s/"/"/sg; + + return $data; +} + +my @words_buffer; +sub limit_word_length +{ + my $i = 0; + for ($i = 0; $i <= $#words_buffer; ++$i) { + my @tmp_buffer = (); + @tmp_buffer = $hyphen->hyphenate($words_buffer[$i]); + # if hyphenate happened, replace original word by hyphen array + if ($#tmp_buffer > 0) { + $tmp_buffer[$_] .= "-" foreach (0 .. $#tmp_buffer - 1); + splice(@words_buffer, $i, 1, @tmp_buffer); + } + } +} + +my @back_buffer; +my $sentence_cnt = 0; +sub get_next_word +{ + my $line; + + @words_buffer = () if ($back_ptr != $prev_back_ptr); + $back_ptr = -1 if ($back_ptr < -1); + $prev_back_ptr = $back_ptr; + + $gtk_sentence_text->set_markup("Linea N°: ".($sentence_cnt - ($back_ptr +1))); + + # if fast foward is specified, search the line + for (;$fast_forward; $fast_forward--) { + $line = get_line(); + @words_buffer = split(' ', $line); + $sentence_cnt++ if ($#words_buffer >= 0); + if ($fast_forward < 10) { + unshift(@back_buffer, $line); + pop(@back_buffer) if ($#back_buffer > 10); + } + } + + + # standard operation: + # check if new word is in @words_buffer otherwise get new line + # into @words_buffer and insert it in @back_buffer + if ($back_ptr <= -1) { + if ($#words_buffer < 0) { + while ($#words_buffer < 0) { + $line = get_line(); + @words_buffer = split(' ', $line); + } + $sentence_cnt++; + #limit_word_length(); + unshift(@back_buffer, $line); + pop(@back_buffer) if ($#back_buffer > 10); + } + } else { + # somebody is rewinding to previous lines, so put the previous + # line into @words_buffer + if ($#words_buffer < 0) { + @words_buffer = split(' ', $back_buffer[$back_ptr]); + #limit_word_length(); + } + # if @words_buffer empty, proceed with next line + $back_ptr-- if ($#words_buffer <= 0); + } + + return shift(@words_buffer); +} + +################# +# GTK callbacks # +################# +sub button_quit +{ + Gtk2->main_quit; + close(FILE); + return TRUE; +} + +sub button_back +{ + $back_ptr++ if ($back_ptr < 10); + return TRUE; +} + +sub button_forward +{ + $back_ptr-- if ($back_ptr > -2); + return TRUE; +} + +sub button_pause +{ + if ($pause) { + $gtk_timer = Glib::Timeout->add(500, \&set_text); + $pause = 0; + $pause_button->set_label(" Pausa "); + } else { + $pause = 1; + Glib::Source->remove($gtk_timer); + $pause_button->set_label(" Inicio "); + } + return TRUE; +} + +sub button_slower +{ + $wpm -= 10 if ($wpm > 40); + $gtk_speed_label->set_markup("Palabras Por Minuto: $wpm"); + return TRUE; +} + +sub button_faster +{ + $wpm += 10 if($wpm < 1000); + $gtk_speed_label->set_markup("Palabras Por Minuto: $wpm"); + return TRUE; +} + +###################### +# GTK timer callback # +###################### + +sub set_text +{ + my $word = get_next_word(); + my $timeout = 60000 / $wpm; + my $next_shot = $timeout; + my $word_length = length($word); + my $word_start = ""; + my $word_mid = ""; + my $word_end = ""; + my $prev_vowel = -1; + my $i = 0; + my $add_to_end = 0; + + + # calculate timeout for next run + $next_shot += ($timeout / 5 ) * ($word_length - 6) if ($word_length > 6); + $next_shot += $timeout / 2 if ($word =~ /.*,$/); + $next_shot += $timeout * 1.5 if ($word =~ /.*[\.!\?;]«?$/); + + # search for vowel from start to the mid of the word, + # this will be the focuspoint of the word + for ($i = $word_length * 0.2; $i < $word_length / 2; ++$i) { + if (substr($word, $i, 1) =~ /[aeuioöäü]/i) { + $prev_vowel = $i; + } + } + + # if no vowel was found in the first half of the word, + # use the letter in the middle as focuspoint + $prev_vowel = $word_length / 2 if ($prev_vowel == -1); + + # fill the start of the word with spaces, to correctly + # align it + for ($i = 0; $i < ($word_width / 2) - $prev_vowel; ++$i) { + $word_start .= " "; + } + + $word_start .= escape(substr($word, 0, $prev_vowel)); + $word_mid = escape(substr($word, $prev_vowel , 1)); + $word_end = escape(substr($word, $prev_vowel + 1)); + $add_to_end = $word_width / 2 - length($word_end); + + # fill the string to fit $word_width + for ($i = 0; $i < $add_to_end ; ++$i) { + $word_end .= " "; + } + $word = $span_black_open.$word_start.$span_close.$span_blue_open.$word_mid.$span_close.$span_black_open.$word_end.$span_close; + + # printf("$word\n"); + $gtk_text->set_markup($word); + + # set new timer / disable in case of pause + Glib::Source->remove($gtk_timer); + if (!$pause) { + $gtk_timer = Glib::Timeout->add($next_shot,\&set_text); + } + return TRUE; +} + +######## +# main # +######## + +sub main +{ + my $window; + my $quit_button; + my $back_button; + my $forward_button; + my $faster_button; + my $slower_button; + my $file_chooser; + my $vbox; + my $hbox; + my $file = "infile.txt"; + my $length = 24; + my $version = 0; + my $help = 0; + my $man = 0; + my $word = ""; + my $i; + + # handle arguments + GetOptions ( "wpm|w=i" => \$wpm, + "fastforward|f=i" => \$fast_forward, + "version|v" => \$version, + "help|h" => \$help, + "man|m" => \$man) + or die("Error in command line arguments\n"); + + if ($version) { + printf("$0 version $spread0r_version\n"); + return TRUE; + } + + pod2usage(1) if ($help); + pod2usage(-verbose => 2) if ($man); + + + # open filechooser in case no file is given via commandline + if (@ARGV == 0) { + $file_chooser = Gtk2::FileChooserDialog->new( + "Abrir Archivo", undef, "open", 'gtk-cancel' => 'cancel', 'gtk-ok' => 'ok'); + if ($file_chooser->run()) { + $file = $file_chooser->get_filename(); + } + $file_chooser->destroy(); + } else { + $file = $ARGV[0]; + } + + # limit wpm + $wpm = 40 if ($wpm < 40); + $wpm = 1000 if ($wpm > 1000); + + # open file + printf("Abierto: $file\n"); + open(FILE, "<:encoding(UTF-8)", $file) || die "can't open UTF-8 encoded filename: $!"; + + printf("Palabras Por Minuto = $wpm\n"); + + + # set up window and quit callbacks + $window = Gtk2::Window->new; + $window->signal_connect(delete_event => \&button_quit); + $window->signal_connect(destroy => \&button_quit); + $window->set_border_width(10); + + # quit button + $quit_button = Gtk2::Button->new("Salir"); + $quit_button->signal_connect(clicked => \&button_quit, $window); + + # backward button + $back_button = Gtk2::Button->new(" Atras "); + $back_button->signal_connect(clicked => \&button_back, $window); + + # forward button + $forward_button = Gtk2::Button->new(" Adelante "); + $forward_button->signal_connect(clicked => \&button_forward, $window); + + # pause button + $pause_button = Gtk2::Button->new(" Inicio "); + $pause_button->signal_connect(clicked => \&button_pause, $window); + + # faster button + $faster_button = Gtk2::Button->new(" + "); + $faster_button->signal_connect(clicked => \&button_faster, $window); + + # slower button + $slower_button = Gtk2::Button->new(" - "); + $slower_button->signal_connect(clicked => \&button_slower, $window); + + # text label, showing the actual speed + $gtk_speed_label = Gtk2::Label->new(); + $gtk_speed_label->set_markup("Palabras Por Minuto: $wpm"); + + # text label, showing the actual word + $gtk_text = Gtk2::Label->new(); + for ($i = 0 ; $i < $word_width; ++$i) { + $word .= " "; + } + $gtk_text->set_markup($span_black_open.$word.$span_close); + + + # text label, showing the current sentence + $gtk_sentence_text = Gtk2::Label->new(); + $gtk_sentence_text->set_markup("Linea N°: "); + + # horizontal box for the control buttons + $hbox = Gtk2::HBox->new(FALSE, 10); + $hbox->pack_start($pause_button, FALSE, FALSE, 0); + $hbox->pack_start($back_button, FALSE, FALSE, 0); + $hbox->pack_start($forward_button, FALSE, FALSE, 0); + $hbox->pack_start(Gtk2::VSeparator->new(), FALSE, FALSE, 4); + $hbox->pack_start($slower_button, FALSE, FALSE, 0); + $hbox->pack_start($faster_button, FALSE, FALSE, 0); + $hbox->pack_start($gtk_speed_label, FALSE, FALSE, 0); + $hbox->pack_start(Gtk2::VSeparator->new(), FALSE, FALSE, 4); + $hbox->pack_start($gtk_sentence_text, FALSE, FALSE, 0); + + # vertical box for the rest + $vbox = Gtk2::VBox->new(FALSE, 10); + $vbox->pack_start($hbox,FALSE,FALSE,4); + $vbox->pack_start(Gtk2::HSeparator->new(),FALSE,FALSE,4); + $vbox->pack_start($gtk_text, TRUE, TRUE, 5); + $vbox->pack_start(Gtk2::HSeparator->new(),FALSE,FALSE,4); + $vbox->pack_start($quit_button, FALSE, FALSE, 0); + $window->add($vbox); + + # show window and start gtk main + $window->show_all; + Gtk2->main; + + return TRUE; +} + +main(); + + +################ +# help and man # +################ + +__END__ + +=head1 NAME + +Xpritz - faster reading for childs + +=head1 SYNOPSIS + +Xpritz [options] file + + Options: + -h, --help print brief help message + -v, --version print version and quit + -m, --man print the full documentation + -w <num>, --wpm <num> reading speed in words per minute + -f <num>, --fastforward <num> seek to <num>. sentence + + +=head1 OPTIONS + +=over 8 + +=item B<-h, --help> + +Print a brief help message and exits. + +=item B<-v, --version> + +Print version and exits. + +=item B<-m, --man> + +print the full documentation + +=item B<-w, --wpm> + +Set the reading speed to the given amount of words per minute. +For beginners a good starting rate is around 250 + +=item B<-f, --fastforward> + +Skip all sentences until it reaches given sentence + +=back + +=head1 DESCRIPTION + +B<xpritz> will read the given utf8 encoded input file and present +it to you word by word, so you can read the text without manually +refocusing. This can double your reading speed! + +=cut +#!/usr/bin/perl +# +# Copyright (C) 2014 Agustin Rojas <elagustinrojas@gmail.com> +# +# 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 +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +use strict; +use utf8; +use Glib qw/TRUE FALSE/; +use Gtk2 '-init'; +use Getopt::Long; +use Pod::Usage; +use lib 'lib/'; +use Hyphen; + +# defines +my $font = "courier new 21"; +my $span_black_open = "<span background='white' foreground='black' font_desc='".$font."'><big>"; +my $span_blue_open = "<span background='white' foreground='blue' font_desc='".$font."'><big>"; +my $span_close = "</big></span>"; +my $word_width = 28; +my $spread0r_version = "1 Alpha XO"; + +# globaly used gtk stuff +my $gtk_text; +my $gtk_speed_label; +my $gtk_sentence_text; +my $gtk_timer; + +# global variables +my $wpm = 200; +my $pause_button; +my $pause = 1; +my $back_ptr = -1; +my $prev_back_ptr = -1; +my $fast_forward = 0; +my $hyphen = Text::Hyphen->new('min_word' => 15, + 'min_prefix' => 7, 'min_suffix' => 7, 'min_part' => 6); + + +#################### +# Helper functions # +#################### + +sub get_line +{ + my $line; + $/ = '.'; + + if (!($line = <FILE>)) { + printf("reached end of file\n"); + close(FILE); + exit(-1); + } + $line =~ s/[\n\r]/ /g; + + return $line; +} + +sub escape { + my($data) = @_; + + $data =~ s/&/&/sg; + $data =~ s/</</sg; + $data =~ s/>/>/sg; + $data =~ s/"/"/sg; + + return $data; +} + +my @words_buffer; +sub limit_word_length +{ + my $i = 0; + for ($i = 0; $i <= $#words_buffer; ++$i) { + my @tmp_buffer = (); + @tmp_buffer = $hyphen->hyphenate($words_buffer[$i]); + # if hyphenate happened, replace original word by hyphen array + if ($#tmp_buffer > 0) { + $tmp_buffer[$_] .= "-" foreach (0 .. $#tmp_buffer - 1); + splice(@words_buffer, $i, 1, @tmp_buffer); + } + } +} + +my @back_buffer; +my $sentence_cnt = 0; +sub get_next_word +{ + my $line; + + @words_buffer = () if ($back_ptr != $prev_back_ptr); + $back_ptr = -1 if ($back_ptr < -1); + $prev_back_ptr = $back_ptr; + + $gtk_sentence_text->set_markup("Linea N°: ".($sentence_cnt - ($back_ptr +1))); + + # if fast foward is specified, search the line + for (;$fast_forward; $fast_forward--) { + $line = get_line(); + @words_buffer = split(' ', $line); + $sentence_cnt++ if ($#words_buffer >= 0); + if ($fast_forward < 10) { + unshift(@back_buffer, $line); + pop(@back_buffer) if ($#back_buffer > 10); + } + } + + + # standard operation: + # check if new word is in @words_buffer otherwise get new line + # into @words_buffer and insert it in @back_buffer + if ($back_ptr <= -1) { + if ($#words_buffer < 0) { + while ($#words_buffer < 0) { + $line = get_line(); + @words_buffer = split(' ', $line); + } + $sentence_cnt++; + #limit_word_length(); + unshift(@back_buffer, $line); + pop(@back_buffer) if ($#back_buffer > 10); + } + } else { + # somebody is rewinding to previous lines, so put the previous + # line into @words_buffer + if ($#words_buffer < 0) { + @words_buffer = split(' ', $back_buffer[$back_ptr]); + #limit_word_length(); + } + # if @words_buffer empty, proceed with next line + $back_ptr-- if ($#words_buffer <= 0); + } + + return shift(@words_buffer); +} + +################# +# GTK callbacks # +################# +sub button_quit +{ + Gtk2->main_quit; + close(FILE); + return TRUE; +} + +sub button_back +{ + $back_ptr++ if ($back_ptr < 10); + return TRUE; +} + +sub button_forward +{ + $back_ptr-- if ($back_ptr > -2); + return TRUE; +} + +sub button_pause +{ + if ($pause) { + $gtk_timer = Glib::Timeout->add(500, \&set_text); + $pause = 0; + $pause_button->set_label(" Pausa "); + } else { + $pause = 1; + Glib::Source->remove($gtk_timer); + $pause_button->set_label(" Inicio "); + } + return TRUE; +} + +sub button_slower +{ + $wpm -= 10 if ($wpm > 40); + $gtk_speed_label->set_markup("Palabras Por Minuto: $wpm"); + return TRUE; +} + +sub button_faster +{ + $wpm += 10 if($wpm < 1000); + $gtk_speed_label->set_markup("Palabras Por Minuto: $wpm"); + return TRUE; +} + +###################### +# GTK timer callback # +###################### + +sub set_text +{ + my $word = get_next_word(); + my $timeout = 60000 / $wpm; + my $next_shot = $timeout; + my $word_length = length($word); + my $word_start = ""; + my $word_mid = ""; + my $word_end = ""; + my $prev_vowel = -1; + my $i = 0; + my $add_to_end = 0; + + + # calculate timeout for next run + $next_shot += ($timeout / 5 ) * ($word_length - 6) if ($word_length > 6); + $next_shot += $timeout / 2 if ($word =~ /.*,$/); + $next_shot += $timeout * 1.5 if ($word =~ /.*[\.!\?;]«?$/); + + # search for vowel from start to the mid of the word, + # this will be the focuspoint of the word + for ($i = $word_length * 0.2; $i < $word_length / 2; ++$i) { + if (substr($word, $i, 1) =~ /[aeuioöäü]/i) { + $prev_vowel = $i; + } + } + + # if no vowel was found in the first half of the word, + # use the letter in the middle as focuspoint + $prev_vowel = $word_length / 2 if ($prev_vowel == -1); + + # fill the start of the word with spaces, to correctly + # align it + for ($i = 0; $i < ($word_width / 2) - $prev_vowel; ++$i) { + $word_start .= " "; + } + + $word_start .= escape(substr($word, 0, $prev_vowel)); + $word_mid = escape(substr($word, $prev_vowel , 1)); + $word_end = escape(substr($word, $prev_vowel + 1)); + $add_to_end = $word_width / 2 - length($word_end); + + # fill the string to fit $word_width + for ($i = 0; $i < $add_to_end ; ++$i) { + $word_end .= " "; + } + $word = $span_black_open.$word_start.$span_close.$span_blue_open.$word_mid.$span_close.$span_black_open.$word_end.$span_close; + + # printf("$word\n"); + $gtk_text->set_markup($word); + + # set new timer / disable in case of pause + Glib::Source->remove($gtk_timer); + if (!$pause) { + $gtk_timer = Glib::Timeout->add($next_shot,\&set_text); + } + return TRUE; +} + +######## +# main # +######## + +sub main +{ + my $window; + my $quit_button; + my $back_button; + my $forward_button; + my $faster_button; + my $slower_button; + my $file_chooser; + my $vbox; + my $hbox; + my $file = "infile.txt"; + my $length = 24; + my $version = 0; + my $help = 0; + my $man = 0; + my $word = ""; + my $i; + + # handle arguments + GetOptions ( "wpm|w=i" => \$wpm, + "fastforward|f=i" => \$fast_forward, + "version|v" => \$version, + "help|h" => \$help, + "man|m" => \$man) + or die("Error in command line arguments\n"); + + if ($version) { + printf("$0 version $spread0r_version\n"); + return TRUE; + } + + pod2usage(1) if ($help); + pod2usage(-verbose => 2) if ($man); + + + # open filechooser in case no file is given via commandline + if (@ARGV == 0) { + $file_chooser = Gtk2::FileChooserDialog->new( + "Abrir Archivo", undef, "open", 'gtk-cancel' => 'cancel', 'gtk-ok' => 'ok'); + if ($file_chooser->run()) { + $file = $file_chooser->get_filename(); + } + $file_chooser->destroy(); + } else { + $file = $ARGV[0]; + } + + # limit wpm + $wpm = 40 if ($wpm < 40); + $wpm = 1000 if ($wpm > 1000); + + # open file + printf("Abierto: $file\n"); + open(FILE, "<:encoding(UTF-8)", $file) || die "can't open UTF-8 encoded filename: $!"; + + printf("Palabras Por Minuto = $wpm\n"); + + + # set up window and quit callbacks + $window = Gtk2::Window->new; + $window->signal_connect(delete_event => \&button_quit); + $window->signal_connect(destroy => \&button_quit); + $window->set_border_width(10); + $window + + # quit button + $quit_button = Gtk2::Button->new("Salir"); + $quit_button->signal_connect(clicked => \&button_quit, $window); + + # backward button + $back_button = Gtk2::Button->new(" Atras "); + $back_button->signal_connect(clicked => \&button_back, $window); + + # forward button + $forward_button = Gtk2::Button->new(" Adelante "); + $forward_button->signal_connect(clicked => \&button_forward, $window); + + # pause button + $pause_button = Gtk2::Button->new(" Inicio "); + $pause_button->signal_connect(clicked => \&button_pause, $window); + + # faster button + $faster_button = Gtk2::Button->new(" + "); + $faster_button->signal_connect(clicked => \&button_faster, $window); + + # slower button + $slower_button = Gtk2::Button->new(" - "); + $slower_button->signal_connect(clicked => \&button_slower, $window); + + # text label, showing the actual speed + $gtk_speed_label = Gtk2::Label->new(); + $gtk_speed_label->set_markup("Palabras Por Minuto: $wpm"); + + # text label, showing the actual word + $gtk_text = Gtk2::Label->new(); + for ($i = 0 ; $i < $word_width; ++$i) { + $word .= " "; + } + $gtk_text->set_markup($span_black_open.$word.$span_close); + + + # text label, showing the current sentence + $gtk_sentence_text = Gtk2::Label->new(); + $gtk_sentence_text->set_markup("Linea N°: "); + + # horizontal box for the control buttons + $hbox = Gtk2::HBox->new(FALSE, 10); + $hbox->pack_start($pause_button, FALSE, FALSE, 0); + $hbox->pack_start($back_button, FALSE, FALSE, 0); + $hbox->pack_start($forward_button, FALSE, FALSE, 0); + $hbox->pack_start(Gtk2::VSeparator->new(), FALSE, FALSE, 4); + $hbox->pack_start($slower_button, FALSE, FALSE, 0); + $hbox->pack_start($faster_button, FALSE, FALSE, 0); + $hbox->pack_start($gtk_speed_label, FALSE, FALSE, 0); + $hbox->pack_start(Gtk2::VSeparator->new(), FALSE, FALSE, 4); + $hbox->pack_start($gtk_sentence_text, FALSE, FALSE, 0); + + # vertical box for the rest + $vbox = Gtk2::VBox->new(FALSE, 10); + $vbox->pack_start($hbox,FALSE,FALSE,4); + $vbox->pack_start(Gtk2::HSeparator->new(),FALSE,FALSE,4); + $vbox->pack_start($gtk_text, TRUE, TRUE, 5); + $vbox->pack_start(Gtk2::HSeparator->new(),FALSE,FALSE,4); + $vbox->pack_start($quit_button, FALSE, FALSE, 0); + $window->add($vbox); + + # show window and start gtk main + $window->show_all; + Gtk2->main; + + return TRUE; +} + +main(); + + +################ +# help and man # +################ + +__END__ + +=head1 NAME + +Xpritz - faster reading for childs + +=head1 SYNOPSIS + +Xpritz [options] file + + Options: + -h, --help print brief help message + -v, --version print version and quit + -m, --man print the full documentation + -w <num>, --wpm <num> reading speed in words per minute + -f <num>, --fastforward <num> seek to <num>. sentence + + +=head1 OPTIONS + +=over 8 + +=item B<-h, --help> + +Print a brief help message and exits. + +=item B<-v, --version> + +Print version and exits. + +=item B<-m, --man> + +print the full documentation + +=item B<-w, --wpm> + +Set the reading speed to the given amount of words per minute. +For beginners a good starting rate is around 250 + +=item B<-f, --fastforward> + +Skip all sentences until it reaches given sentence + +=back + +=head1 DESCRIPTION + +B<xpritz> will read the given utf8 encoded input file and present +it to you word by word, so you can read the text without manually +refocusing. This can double your reading speed! + +=cut diff --git a/lib/Hyphen.pm b/lib/Hyphen.pm new file mode 100644 index 0000000..b8ba463 --- /dev/null +++ b/lib/Hyphen.pm @@ -0,0 +1,604 @@ +package Text::Hyphen; + +use warnings; +use strict; + +use 5.006; + +=head1 NAME + +Text::Hyphen - determine positions for hyphens inside words + +=head1 VERSION + +Version 0.1 + +=cut + +our $VERSION = '0.11'; + +=head1 SYNOPSIS + +This module implements Knuth-Liang algorithm to find positions inside +words where it is possible to insert hyphens to break a line. + + use Text::Hyphen; + + my $hyphenator = new Text::Hyphen; + + print $hyphenator->hyphenate('representation'); + # prints rep-re-sen-ta-tion + +=head1 EXPORT + +This version does not export anything and uses OOP interface. This +will probably change. + +XXX employ a singleton to provide functional interface + +=head1 FUNCTIONS + +=cut + +sub new { + my ($proto, @fields) = @_; + my $class = ref $proto || $proto; + + my $self = { @fields }; + + $self->{min_word} ||= 5; + $self->{min_prefix} ||= 2; + $self->{min_suffix} ||= 2; + $self->{min_part} ||= 5; + + $self->{trie} = {}; + + bless $self, $class; + + $self->_load_patterns; + + return $self; +} + +=head2 new(%options) + +Creates the hyphenator object. + +You can pass several options: + +=over + +=item min_word + +Minimum length of word to be hyphenated. Shorter words are returned +right away. Defaults to 5 for English. + +=item min_prefix + +Minimal prefix to leave without any hyphens. Defaults to 2 for +English. + +=item min_suffix + +Minimal suffix to leave wothout any hyphens. Defaults to 2 for +English. + +=back + +=cut + +sub _add_pattern { + my ($self, $pattern) = @_; + # Convert the a pattern like 'a1bc3d4' into a string of chars 'abcd' + # and a list of points [ 1, 0, 3, 4 ]. + my @chars = grep { /\D/ } split //, $pattern; + my @points = map { $_ || 0 } split /\D/, $pattern, -1; + + # Insert the pattern into the tree. Each character finds a dict + # another level down in the tree, and leaf nodes have the list of + # points. + my $t = $self->{trie}; + foreach (@chars) { + $t->{$_} or $t->{$_} = {}; + $t = $t->{$_}; + } + $t->{_} = \@points; +} + +sub _load_patterns { + my $self = shift; + + $self->_add_pattern($_) foreach @{$self->_PATTERNS}; + + foreach my $ex (@{$self->_EXCEPTIONS}) { + (my $word = $ex) =~ tr/-//d; + # wo-rd-le => { wordle => [0, 0, 1, 0, 1, 0, 0] } + # ||a||a|| + #__ a _ a __ + $self->{exceptions}->{$word} = [ 0, map { $_ eq '-' ? 1 : 0 } split /[^-]/, $ex, -1]; # -1 == do not omit trailing undefs + } +} + +sub _PATTERNS { + return [qw( +.ach4 .ad4der .af1t .al3t .am5at .an5c .ang4 .ani5m .ant4 .an3te .anti5s .ar5s +.ar4tie .ar4ty .as3c .as1p .as1s .aster5 .atom5 .au1d .av4i .awn4 .ba4g .ba5na +.bas4e .ber4 .be5ra .be3sm .be5sto .bri2 .but4ti .cam4pe .can5c .capa5b .car5ol +.ca4t .ce4la .ch4 .chill5i .ci2 .cit5r .co3e .co4r .cor5ner .de4moi .de3o .de3ra +.de3ri .des4c .dictio5 .do4t .du4c .dumb5 .earth5 .eas3i .eb4 .eer4 .eg2 .el5d +.el3em .enam3 .en3g .en3s .eq5ui5t .er4ri .es3 .eu3 .eye5 .fes3 .for5mer .ga2 +.ge2 .gen3t4 .ge5og .gi5a .gi4b .go4r .hand5i .han5k .he2 .hero5i .hes3 .het3 +.hi3b .hi3er .hon5ey .hon3o .hov5 .id4l .idol3 .im3m .im5pin .in1 .in3ci .ine2 +.in2k .in3s .ir5r .is4i .ju3r .la4cy .la4m .lat5er .lath5 .le2 .leg5e .len4 +.lep5 .lev1 .li4g .lig5a .li2n .li3o .li4t .mag5a5 .mal5o .man5a .mar5ti .me2 +.mer3c .me5ter .mis1 .mist5i .mon3e .mo3ro .mu5ta .muta5b .ni4c .od2 .odd5 +.of5te .or5ato .or3c .or1d .or3t .os3 .os4tl .oth3 .out3 .ped5al .pe5te .pe5tit +.pi4e .pio5n .pi2t .pre3m .ra4c .ran4t .ratio5na .ree2 .re5mit .res2 .re5stat +.ri4g .rit5u .ro4q .ros5t .row5d .ru4d .sci3e .self5 .sell5 .se2n .se5rie .sh2 +.si2 .sing4 .st4 .sta5bl .sy2 .ta4 .te4 .ten5an .th2 .ti2 .til4 .tim5o5 .ting4 +.tin5k .ton4a .to4p .top5i .tou5s .trib5ut .un1a .un3ce .under5 .un1e .un5k +.un5o .un3u .up3 .ure3 .us5a .ven4de .ve5ra .wil5i .ye4 4ab. a5bal a5ban abe2 +ab5erd abi5a ab5it5ab ab5lat ab5o5liz 4abr ab5rog ab3ul a4car ac5ard ac5aro +a5ceou ac1er a5chet 4a2ci a3cie ac1in a3cio ac5rob act5if ac3ul ac4um a2d ad4din +ad5er. 2adi a3dia ad3ica adi4er a3dio a3dit a5diu ad4le ad3ow ad5ran ad4su 4adu +a3duc ad5um ae4r aeri4e a2f aff4 a4gab aga4n ag5ell age4o 4ageu ag1i 4ag4l ag1n +a2go 3agog ag3oni a5guer ag5ul a4gy a3ha a3he ah4l a3ho ai2 a5ia a3ic. ai5ly +a4i4n ain5in ain5o ait5en a1j ak1en al5ab al3ad a4lar 4aldi 2ale al3end a4lenti +a5le5o al1i al4ia. ali4e al5lev 4allic 4alm a5log. a4ly. 4alys 5a5lyst 5alyt +3alyz 4ama am5ab am3ag ama5ra am5asc a4matis a4m5ato am5era am3ic am5if am5ily +am1in ami4no a2mo a5mon amor5i amp5en a2n an3age 3analy a3nar an3arc anar4i +a3nati 4and ande4s an3dis an1dl an4dow a5nee a3nen an5est. a3neu 2ang ang5ie +an1gl a4n1ic a3nies an3i3f an4ime a5nimi a5nine an3io a3nip an3ish an3it a3niu +an4kli 5anniz ano4 an5ot anoth5 an2sa an4sco an4sn an2sp ans3po an4st an4sur +antal4 an4tie 4anto an2tr an4tw an3ua an3ul a5nur 4ao apar4 ap5at ap5ero a3pher +4aphi a4pilla ap5illar ap3in ap3ita a3pitu a2pl apoc5 ap5ola apor5i apos3t +aps5es a3pu aque5 2a2r ar3act a5rade ar5adis ar3al a5ramete aran4g ara3p ar4at +a5ratio ar5ativ a5rau ar5av4 araw4 arbal4 ar4chan ar5dine ar4dr ar5eas a3ree +ar3ent a5ress ar4fi ar4fl ar1i ar5ial ar3ian a3riet ar4im ar5inat ar3io ar2iz +ar2mi ar5o5d a5roni a3roo ar2p ar3q arre4 ar4sa ar2sh 4as. as4ab as3ant ashi4 +a5sia. a3sib a3sic 5a5si4t ask3i as4l a4soc as5ph as4sh as3ten as1tr asur5a a2ta +at3abl at5ac at3alo at5ap ate5c at5ech at3ego at3en. at3era ater5n a5terna +at3est at5ev 4ath ath5em a5then at4ho ath5om 4ati. a5tia at5i5b at1ic at3if +ation5ar at3itu a4tog a2tom at5omiz a4top a4tos a1tr at5rop at4sk at4tag at5te +at4th a2tu at5ua at5ue at3ul at3ura a2ty au4b augh3 au3gu au4l2 aun5d au3r +au5sib aut5en au1th a2va av3ag a5van ave4no av3era av5ern av5ery av1i avi4er +av3ig av5oc a1vor 3away aw3i aw4ly aws4 ax4ic ax4id ay5al aye4 ays4 azi4er azz5i +5ba. bad5ger ba4ge bal1a ban5dag ban4e ban3i barbi5 bari4a bas4si 1bat ba4z 2b1b +b2be b3ber bbi4na 4b1d 4be. beak4 beat3 4be2d be3da be3de be3di be3gi be5gu 1bel +be1li be3lo 4be5m be5nig be5nu 4bes4 be3sp be5str 3bet bet5iz be5tr be3tw be3w +be5yo 2bf 4b3h bi2b bi4d 3bie bi5en bi4er 2b3if 1bil bi3liz bina5r4 bin4d bi5net +bi3ogr bi5ou bi2t 3bi3tio bi3tr 3bit5ua b5itz b1j bk4 b2l2 blath5 b4le. blen4 +5blesp b3lis b4lo blun4t 4b1m 4b3n bne5g 3bod bod3i bo4e bol3ic bom4bi bon4a +bon5at 3boo 5bor. 4b1ora bor5d 5bore 5bori 5bos4 b5ota both5 bo4to bound3 4bp +4brit broth3 2b5s2 bsor4 2bt bt4l b4to b3tr buf4fer bu4ga bu3li bumi4 bu4n +bunt4i bu3re bus5ie buss4e 5bust 4buta 3butio b5uto b1v 4b5w 5by. bys4 1ca +cab3in ca1bl cach4 ca5den 4cag4 2c5ah ca3lat cal4la call5in 4calo can5d can4e +can4ic can5is can3iz can4ty cany4 ca5per car5om cast5er cas5tig 4casy ca4th +4cativ cav5al c3c ccha5 cci4a ccompa5 ccon4 ccou3t 2ce. 4ced. 4ceden 3cei 5cel. +3cell 1cen 3cenc 2cen4e 4ceni 3cent 3cep ce5ram 4cesa 3cessi ces5si5b ces5t cet4 +c5e4ta cew4 2ch 4ch. 4ch3ab 5chanic ch5a5nis che2 cheap3 4ched che5lo 3chemi +ch5ene ch3er. ch3ers 4ch1in 5chine. ch5iness 5chini 5chio 3chit chi2z 3cho2 +ch4ti 1ci 3cia ci2a5b cia5r ci5c 4cier 5cific. 4cii ci4la 3cili 2cim 2cin c4ina +3cinat cin3em c1ing c5ing. 5cino cion4 4cipe ci3ph 4cipic 4cista 4cisti 2c1it +cit3iz 5ciz ck1 ck3i 1c4l4 4clar c5laratio 5clare cle4m 4clic clim4 cly4 c5n 1co +co5ag coe2 2cog co4gr coi4 co3inc col5i 5colo col3or com5er con4a c4one con3g +con5t co3pa cop3ic co4pl 4corb coro3n cos4e cov1 cove4 cow5a coz5e co5zi c1q +cras5t 5crat. 5cratic cre3at 5cred 4c3reta cre4v cri2 cri5f c4rin cris4 5criti +cro4pl crop5o cros4e cru4d 4c3s2 2c1t cta4b ct5ang c5tant c2te c3ter c4ticu +ctim3i ctu4r c4tw cud5 c4uf c4ui cu5ity 5culi cul4tis 3cultu cu2ma c3ume cu4mi +3cun cu3pi cu5py cur5a4b cu5ria 1cus cuss4i 3c4ut cu4tie 4c5utiv 4cutr 1cy cze4 +1d2a 5da. 2d3a4b dach4 4daf 2dag da2m2 dan3g dard5 dark5 4dary 3dat 4dativ 4dato +5dav4 dav5e 5day d1b d5c d1d4 2de. deaf5 deb5it de4bon decan4 de4cil de5com +2d1ed 4dee. de5if deli4e del5i5q de5lo d4em 5dem. 3demic dem5ic. de5mil de4mons +demor5 1den de4nar de3no denti5f de3nu de1p de3pa depi4 de2pu d3eq d4erh 5derm +dern5iz der5s des2 d2es. de1sc de2s5o des3ti de3str de4su de1t de2to de1v dev3il +4dey 4d1f d4ga d3ge4t dg1i d2gy d1h2 5di. 1d4i3a dia5b di4cam d4ice 3dict 3did +5di3en d1if di3ge di4lato d1in 1dina 3dine. 5dini di5niz 1dio dio5g di4pl dir2 +di1re dirt5i dis1 5disi d4is3t d2iti 1di1v d1j d5k2 4d5la 3dle. 3dled 3dles. +4dless 2d3lo 4d5lu 2dly d1m 4d1n4 1do 3do. do5de 5doe 2d5of d4og do4la doli4 +do5lor dom5iz do3nat doni4 doo3d dop4p d4or 3dos 4d5out do4v 3dox d1p 1dr +drag5on 4drai dre4 drea5r 5dren dri4b dril4 dro4p 4drow 5drupli 4dry 2d1s2 ds4p +d4sw d4sy d2th 1du d1u1a du2c d1uca duc5er 4duct. 4ducts du5el du4g d3ule dum4be +du4n 4dup du4pe d1v d1w d2y 5dyn dy4se dys5p e1a4b e3act ead1 ead5ie ea4ge +ea5ger ea4l eal5er eal3ou eam3er e5and ear3a ear4c ear5es ear4ic ear4il ear5k +ear2t eart3e ea5sp e3ass east3 ea2t eat5en eath3i e5atif e4a3tu ea2v eav3en +eav5i eav5o 2e1b e4bel. e4bels e4ben e4bit e3br e4cad ecan5c ecca5 e1ce ec5essa +ec2i e4cib ec5ificat ec5ifie ec5ify ec3im eci4t e5cite e4clam e4clus e2col +e4comm e4compe e4conc e2cor ec3ora eco5ro e1cr e4crem ec4tan ec4te e1cu e4cul +ec3ula 2e2da 4ed3d e4d1er ede4s 4edi e3dia ed3ib ed3ica ed3im ed1it edi5z 4edo +e4dol edon2 e4dri e4dul ed5ulo ee2c eed3i ee2f eel3i ee4ly ee2m ee4na ee4p1 +ee2s4 eest4 ee4ty e5ex e1f e4f3ere 1eff e4fic 5efici efil4 e3fine ef5i5nite +3efit efor5es e4fuse. 4egal eger4 eg5ib eg4ic eg5ing e5git5 eg5n e4go. e4gos +eg1ul e5gur 5egy e1h4 eher4 ei2 e5ic ei5d eig2 ei5gl e3imb e3inf e1ing e5inst +eir4d eit3e ei3th e5ity e1j e4jud ej5udi eki4n ek4la e1la e4la. e4lac elan4d +el5ativ e4law elaxa4 e3lea el5ebra 5elec e4led el3ega e5len e4l1er e1les el2f +el2i e3libe e4l5ic. el3ica e3lier el5igib e5lim e4l3ing e3lio e2lis el5ish +e3liv3 4ella el4lab ello4 e5loc el5og el3op. el2sh el4ta e5lud el5ug e4mac e4mag +e5man em5ana em5b e1me e2mel e4met em3ica emi4e em5igra em1in2 em5ine em3i3ni +e4mis em5ish e5miss em3iz 5emniz emo4g emoni5o em3pi e4mul em5ula emu3n e3my +en5amo e4nant ench4er en3dic e5nea e5nee en3em en5ero en5esi en5est en3etr e3new +en5ics e5nie e5nil e3nio en3ish en3it e5niu 5eniz 4enn 4eno eno4g e4nos en3ov +en4sw ent5age 4enthes en3ua en5uf e3ny. 4en3z e5of eo2g e4oi4 e3ol eop3ar e1or +eo3re eo5rol eos4 e4ot eo4to e5out e5ow e2pa e3pai ep5anc e5pel e3pent ep5etitio +ephe4 e4pli e1po e4prec ep5reca e4pred ep3reh e3pro e4prob ep4sh ep5ti5b e4put +ep5uta e1q equi3l e4q3ui3s er1a era4b 4erand er3ar 4erati. 2erb er4bl er3ch +er4che 2ere. e3real ere5co ere3in er5el. er3emo er5ena er5ence 4erene er3ent +ere4q er5ess er3est eret4 er1h er1i e1ria4 5erick e3rien eri4er er3ine e1rio +4erit er4iu eri4v e4riva er3m4 er4nis 4ernit 5erniz er3no 2ero er5ob e5roc ero4r +er1ou er1s er3set ert3er 4ertl er3tw 4eru eru4t 5erwau e1s4a e4sage. e4sages +es2c e2sca es5can e3scr es5cu e1s2e e2sec es5ecr es5enc e4sert. e4serts e4serva +4esh e3sha esh5en e1si e2sic e2sid es5iden es5igna e2s5im es4i4n esis4te esi4u +e5skin es4mi e2sol es3olu e2son es5ona e1sp es3per es5pira es4pre 2ess es4si4b +estan4 es3tig es5tim 4es2to e3ston 2estr e5stro estruc5 e2sur es5urr es4w eta4b +eten4d e3teo ethod3 et1ic e5tide etin4 eti4no e5tir e5titio et5itiv 4etn et5ona +e3tra e3tre et3ric et5rif et3rog et5ros et3ua et5ym et5z 4eu e5un e3up eu3ro +eus4 eute4 euti5l eu5tr eva2p5 e2vas ev5ast e5vea ev3ell evel3o e5veng even4i +ev1er e5verb e1vi ev3id evi4l e4vin evi4v e5voc e5vu e1wa e4wag e5wee e3wh ewil5 +ew3ing e3wit 1exp 5eyc 5eye. eys4 1fa fa3bl fab3r fa4ce 4fag fain4 fall5e 4fa4ma +fam5is 5far far5th fa3ta fa3the 4fato fault5 4f5b 4fd 4fe. feas4 feath3 fe4b +4feca 5fect 2fed fe3li fe4mo fen2d fend5e fer1 5ferr fev4 4f1f f4fes f4fie +f5fin. f2f5is f4fly f2fy 4fh 1fi fi3a 2f3ic. 4f3ical f3ican 4ficate f3icen +fi3cer fic4i 5ficia 5ficie 4fics fi3cu fi5del fight5 fil5i fill5in 4fily 2fin +5fina fin2d5 fi2ne f1in3g fin4n fis4ti f4l2 f5less flin4 flo3re f2ly5 4fm 4fn +1fo 5fon fon4de fon4t fo2r fo5rat for5ay fore5t for4i fort5a fos5 4f5p fra4t +f5rea fres5c fri2 fril4 frol5 2f3s 2ft f4to f2ty 3fu fu5el 4fug fu4min fu5ne +fu3ri fusi4 fus4s 4futa 1fy 1ga gaf4 5gal. 3gali ga3lo 2gam ga5met g5amo gan5is +ga3niz gani5za 4gano gar5n4 gass4 gath3 4gativ 4gaz g3b gd4 2ge. 2ged geez4 +gel4in ge5lis ge5liz 4gely 1gen ge4nat ge5niz 4geno 4geny 1geo ge3om g4ery 5gesi +geth5 4geto ge4ty ge4v 4g1g2 g2ge g3ger gglu5 ggo4 gh3in gh5out gh4to 5gi. 1gi4a +gia5r g1ic 5gicia g4ico gien5 5gies. gil4 g3imen 3g4in. gin5ge 5g4ins 5gio 3gir +gir4l g3isl gi4u 5giv 3giz gl2 gla4 glad5i 5glas 1gle gli4b g3lig 3glo glo3r g1m +g4my gn4a g4na. gnet4t g1ni g2nin g4nio g1no g4non 1go 3go. gob5 5goe 3g4o4g +go3is gon2 4g3o3na gondo5 go3ni 5goo go5riz gor5ou 5gos. gov1 g3p 1gr 4grada +g4rai gran2 5graph. g5rapher 5graphic 4graphy 4gray gre4n 4gress. 4grit g4ro +gruf4 gs2 g5ste gth3 gu4a 3guard 2gue 5gui5t 3gun 3gus 4gu4t g3w 1gy 2g5y3n +gy5ra h3ab4l hach4 hae4m hae4t h5agu ha3la hala3m ha4m han4ci han4cy 5hand. +han4g hang5er hang5o h5a5niz han4k han4te hap3l hap5t ha3ran ha5ras har2d hard3e +har4le harp5en har5ter has5s haun4 5haz haz3a h1b 1head 3hear he4can h5ecat h4ed +he5do5 he3l4i hel4lis hel4ly h5elo hem4p he2n hena4 hen5at heo5r hep5 h4era +hera3p her4ba here5a h3ern h5erou h3ery h1es he2s5p he4t het4ed heu4 h1f h1h +hi5an hi4co high5 h4il2 himer4 h4ina hion4e hi4p hir4l hi3ro hir4p hir4r his3el +his4s hith5er hi2v 4hk 4h1l4 hlan4 h2lo hlo3ri 4h1m hmet4 2h1n h5odiz h5ods ho4g +hoge4 hol5ar 3hol4e ho4ma home3 hon4a ho5ny 3hood hoon4 hor5at ho5ris hort3e +ho5ru hos4e ho5sen hos1p 1hous house3 hov5el 4h5p 4hr4 hree5 hro5niz hro3po +4h1s2 h4sh h4tar ht1en ht5es h4ty hu4g hu4min hun5ke hun4t hus3t4 hu4t h1w +h4wart hy3pe hy3ph hy2s 2i1a i2al iam4 iam5ete i2an 4ianc ian3i 4ian4t ia5pe +iass4 i4ativ ia4tric i4atu ibe4 ib3era ib5ert ib5ia ib3in ib5it. ib5ite i1bl +ib3li i5bo i1br i2b5ri i5bun 4icam 5icap 4icar i4car. i4cara icas5 i4cay iccu4 +4iceo 4ich 2ici i5cid ic5ina i2cip ic3ipa i4cly i2c5oc 4i1cr 5icra i4cry ic4te +ictu2 ic4t3ua ic3ula ic4um ic5uo i3cur 2id i4dai id5anc id5d ide3al ide4s i2di +id5ian idi4ar i5die id3io idi5ou id1it id5iu i3dle i4dom id3ow i4dr i2du id5uo +2ie4 ied4e 5ie5ga ield3 ien5a4 ien4e i5enn i3enti i1er. i3esc i1est i3et 4if. +if5ero iff5en if4fr 4ific. i3fie i3fl 4ift 2ig iga5b ig3era ight3i 4igi i3gib +ig3il ig3in ig3it i4g4l i2go ig3or ig5ot i5gre igu5i ig1ur i3h 4i5i4 i3j 4ik +i1la il3a4b i4lade i2l5am ila5ra i3leg il1er ilev4 il5f il1i il3ia il2ib il3io +il4ist 2ilit il2iz ill5ab 4iln il3oq il4ty il5ur il3v i4mag im3age ima5ry +imenta5r 4imet im1i im5ida imi5le i5mini 4imit im4ni i3mon i2mu im3ula 2in. +i4n3au 4inav incel4 in3cer 4ind in5dling 2ine i3nee iner4ar i5ness 4inga 4inge +in5gen 4ingi in5gling 4ingo 4ingu 2ini i5ni. i4nia in3io in1is i5nite. 5initio +in3ity 4ink 4inl 2inn 2i1no i4no4c ino4s i4not 2ins in3se insur5a 2int. 2in4th +in1u i5nus 4iny 2io 4io. ioge4 io2gr i1ol io4m ion3at ion4ery ion3i io5ph ior3i +i4os io5th i5oti io4to i4our 2ip ipe4 iphras4 ip3i ip4ic ip4re4 ip3ul i3qua +iq5uef iq3uid iq3ui3t 4ir i1ra ira4b i4rac ird5e ire4de i4ref i4rel4 i4res ir5gi +ir1i iri5de ir4is iri3tu 5i5r2iz ir4min iro4g 5iron. ir5ul 2is. is5ag is3ar +isas5 2is1c is3ch 4ise is3er 3isf is5han is3hon ish5op is3ib isi4d i5sis is5itiv +4is4k islan4 4isms i2so iso5mer is1p is2pi is4py 4is1s is4sal issen4 is4ses +is4ta. is1te is1ti ist4ly 4istral i2su is5us 4ita. ita4bi i4tag 4ita5m i3tan +i3tat 2ite it3era i5teri it4es 2ith i1ti 4itia 4i2tic it3ica 5i5tick it3ig +it5ill i2tim 2itio 4itis i4tism i2t5o5m 4iton i4tram it5ry 4itt it3uat i5tud +it3ul 4itz. i1u 2iv iv3ell iv3en. i4v3er. i4vers. iv5il. iv5io iv1it i5vore +iv3o3ro i4v3ot 4i5w ix4o 4iy 4izar izi4 5izont 5ja jac4q ja4p 1je jer5s 4jestie +4jesty jew3 jo4p 5judg 3ka. k3ab k5ag kais4 kal4 k1b k2ed 1kee ke4g ke5li k3en4d +k1er kes4 k3est. ke4ty k3f kh4 k1i 5ki. 5k2ic k4ill kilo5 k4im k4in. kin4de +k5iness kin4g ki4p kis4 k5ish kk4 k1l 4kley 4kly k1m k5nes 1k2no ko5r kosh4 k3ou +kro5n 4k1s2 k4sc ks4l k4sy k5t k1w lab3ic l4abo laci4 l4ade la3dy lag4n lam3o +3land lan4dl lan5et lan4te lar4g lar3i las4e la5tan 4lateli 4lativ 4lav la4v4a +2l1b lbin4 4l1c2 lce4 l3ci 2ld l2de ld4ere ld4eri ldi4 ld5is l3dr l4dri le2a +le4bi left5 5leg. 5legg le4mat lem5atic 4len. 3lenc 5lene. 1lent le3ph le4pr +lera5b ler4e 3lerg 3l4eri l4ero les2 le5sco 5lesq 3less 5less. l3eva lev4er. +lev4era lev4ers 3ley 4leye 2lf l5fr 4l1g4 l5ga lgar3 l4ges lgo3 2l3h li4ag li2am +liar5iz li4as li4ato li5bi 5licio li4cor 4lics 4lict. l4icu l3icy l3ida lid5er +3lidi lif3er l4iff li4fl 5ligate 3ligh li4gra 3lik 4l4i4l lim4bl lim3i li4mo +l4im4p l4ina 1l4ine lin3ea lin3i link5er li5og 4l4iq lis4p l1it l2it. 5litica +l5i5tics liv3er l1iz 4lj lka3 l3kal lka4t l1l l4law l2le l5lea l3lec l3leg l3lel +l3le4n l3le4t ll2i l2lin4 l5lina ll4o lloqui5 ll5out l5low 2lm l5met lm3ing +l4mod lmon4 2l1n2 3lo. lob5al lo4ci 4lof 3logic l5ogo 3logu lom3er 5long lon4i +l3o3niz lood5 5lope. lop3i l3opm lora4 lo4rato lo5rie lor5ou 5los. los5et +5losophiz 5losophy los4t lo4ta loun5d 2lout 4lov 2lp lpa5b l3pha l5phi lp5ing +l3pit l4pl l5pr 4l1r 2l1s2 l4sc l2se l4sie 4lt lt5ag ltane5 l1te lten4 ltera4 +lth3i l5ties. ltis4 l1tr ltu2 ltur3a lu5a lu3br luch4 lu3ci lu3en luf4 lu5id +lu4ma 5lumi l5umn. 5lumnia lu3o luo3r 4lup luss4 lus3te 1lut l5ven l5vet4 2l1w +1ly 4lya 4lyb ly5me ly3no 2lys4 l5yse 1ma 2mab ma2ca ma5chine ma4cl mag5in 5magn +2mah maid5 4mald ma3lig ma5lin mal4li mal4ty 5mania man5is man3iz 4map ma5rine. +ma5riz mar4ly mar3v ma5sce mas4e mas1t 5mate math3 ma3tis 4matiza 4m1b mba4t5 +m5bil m4b3ing mbi4v 4m5c 4me. 2med 4med. 5media me3die m5e5dy me2g mel5on mel4t +me2m mem1o3 1men men4a men5ac men4de 4mene men4i mens4 mensu5 3ment men4te me5on +m5ersa 2mes 3mesti me4ta met3al me1te me5thi m4etr 5metric me5trie me3try me4v +4m1f 2mh 5mi. mi3a mid4a mid4g mig4 3milia m5i5lie m4ill min4a 3mind m5inee +m4ingl min5gli m5ingly min4t m4inu miot4 m2is mis4er. mis5l mis4ti m5istry 4mith +m2iz 4mk 4m1l m1m mma5ry 4m1n mn4a m4nin mn4o 1mo 4mocr 5mocratiz mo2d1 mo4go +mois2 moi5se 4mok mo5lest mo3me mon5et mon5ge moni3a mon4ism mon4ist mo3niz +monol4 mo3ny. mo2r 4mora. mos2 mo5sey mo3sp moth3 m5ouf 3mous mo2v 4m1p mpara5 +mpa5rab mpar5i m3pet mphas4 m2pi mpi4a mp5ies m4p1in m5pir mp5is mpo3ri mpos5ite +m4pous mpov5 mp4tr m2py 4m3r 4m1s2 m4sh m5si 4mt 1mu mula5r4 5mult multi3 3mum +mun2 4mup mu4u 4mw 1na 2n1a2b n4abu 4nac. na4ca n5act nag5er. nak4 na4li na5lia +4nalt na5mit n2an nanci4 nan4it nank4 nar3c 4nare nar3i nar4l n5arm n4as nas4c +nas5ti n2at na3tal nato5miz n2au nau3se 3naut nav4e 4n1b4 ncar5 n4ces. n3cha +n5cheo n5chil n3chis nc1in nc4it ncour5a n1cr n1cu n4dai n5dan n1de nd5est. +ndi4b n5d2if n1dit n3diz n5duc ndu4r nd2we 2ne. n3ear ne2b neb3u ne2c 5neck 2ned +ne4gat neg5ativ 5nege ne4la nel5iz ne5mi ne4mo 1nen 4nene 3neo ne4po ne2q n1er +nera5b n4erar n2ere n4er5i ner4r 1nes 2nes. 4nesp 2nest 4nesw 3netic ne4v n5eve +ne4w n3f n4gab n3gel nge4n4e n5gere n3geri ng5ha n3gib ng1in n5git n4gla ngov4 +ng5sh n1gu n4gum n2gy 4n1h4 nha4 nhab3 nhe4 3n4ia ni3an ni4ap ni3ba ni4bl ni4d +ni5di ni4er ni2fi ni5ficat n5igr nik4 n1im ni3miz n1in 5nine. nin4g ni4o 5nis. +nis4ta n2it n4ith 3nitio n3itor ni3tr n1j 4nk2 n5kero n3ket nk3in n1kl 4n1l n5m +nme4 nmet4 4n1n2 nne4 nni3al nni4v nob4l no3ble n5ocl 4n3o2d 3noe 4nog noge4 +nois5i no5l4i 5nologis 3nomic n5o5miz no4mo no3my no4n non4ag non5i n5oniz 4nop +5nop5o5li nor5ab no4rary 4nosc nos4e nos5t no5ta 1nou 3noun nov3el3 nowl3 n1p4 +npi4 npre4c n1q n1r nru4 2n1s2 ns5ab nsati4 ns4c n2se n4s3es nsid1 nsig4 n2sl +ns3m n4soc ns4pe n5spi nsta5bl n1t nta4b nter3s nt2i n5tib nti4er nti2f n3tine +n4t3ing nti4p ntrol5li nt4s ntu3me nu1a nu4d nu5en nuf4fe n3uin 3nu3it n4um +nu1me n5umi 3nu4n n3uo nu3tr n1v2 n1w4 nym4 nyp4 4nz n3za 4oa oad3 o5a5les oard3 +oas4e oast5e oat5i ob3a3b o5bar obe4l o1bi o2bin ob5ing o3br ob3ul o1ce och4 +o3chet ocif3 o4cil o4clam o4cod oc3rac oc5ratiz ocre3 5ocrit octor5a oc3ula +o5cure od5ded od3ic odi3o o2do4 odor3 od5uct. od5ucts o4el o5eng o3er oe4ta o3ev +o2fi of5ite ofit4t o2g5a5r og5ativ o4gato o1ge o5gene o5geo o4ger o3gie 1o1gis +og3it o4gl o5g2ly 3ogniz o4gro ogu5i 1ogy 2ogyn o1h2 ohab5 oi2 oic3es oi3der +oiff4 oig4 oi5let o3ing oint5er o5ism oi5son oist5en oi3ter o5j 2ok o3ken ok5ie +o1la o4lan olass4 ol2d old1e ol3er o3lesc o3let ol4fi ol2i o3lia o3lice ol5id. +o3li4f o5lil ol3ing o5lio o5lis. ol3ish o5lite o5litio o5liv olli4e ol5ogiz +olo4r ol5pl ol2t ol3ub ol3ume ol3un o5lus ol2v o2ly om5ah oma5l om5atiz om2be +om4bl o2me om3ena om5erse o4met om5etry o3mia om3ic. om3ica o5mid om1in o5mini +5ommend omo4ge o4mon om3pi ompro5 o2n on1a on4ac o3nan on1c 3oncil 2ond on5do +o3nen on5est on4gu on1ic o3nio on1is o5niu on3key on4odi on3omy on3s onspi4 +onspir5a onsu4 onten4 on3t4i ontif5 on5um onva5 oo2 ood5e ood5i oo4k oop3i o3ord +oost5 o2pa ope5d op1er 3opera 4operag 2oph o5phan o5pher op3ing o3pit o5pon +o4posi o1pr op1u opy5 o1q o1ra o5ra. o4r3ag or5aliz or5ange ore5a o5real or3ei +ore5sh or5est. orew4 or4gu 4o5ria or3ica o5ril or1in o1rio or3ity o3riu or2mi +orn2e o5rof or3oug or5pe 3orrh or4se ors5en orst4 or3thi or3thy or4ty o5rum o1ry +os3al os2c os4ce o3scop 4oscopi o5scr os4i4e os5itiv os3ito os3ity osi4u os4l +o2so os4pa os4po os2ta o5stati os5til os5tit o4tan otele4g ot3er. ot5ers o4tes +4oth oth5esi oth3i4 ot3ic. ot5ica o3tice o3tif o3tis oto5s ou2 ou3bl ouch5i +ou5et ou4l ounc5er oun2d ou5v ov4en over4ne over3s ov4ert o3vis oviti4 o5v4ol +ow3der ow3el ow5est ow1i own5i o4wo oy1a 1pa pa4ca pa4ce pac4t p4ad 5pagan +p3agat p4ai pain4 p4al pan4a pan3el pan4ty pa3ny pa1p pa4pu para5bl par5age +par5di 3pare par5el p4a4ri par4is pa2te pa5ter 5pathic pa5thy pa4tric pav4 3pay +4p1b pd4 4pe. 3pe4a pear4l pe2c 2p2ed 3pede 3pedi pedia4 ped4ic p4ee pee4d pek4 +pe4la peli4e pe4nan p4enc pen4th pe5on p4era. pera5bl p4erag p4eri peri5st +per4mal perme5 p4ern per3o per3ti pe5ru per1v pe2t pe5ten pe5tiz 4pf 4pg 4ph. +phar5i phe3no ph4er ph4es. ph1ic 5phie ph5ing 5phisti 3phiz ph2l 3phob 3phone +5phoni pho4r 4phs ph3t 5phu 1phy pi3a pian4 pi4cie pi4cy p4id p5ida pi3de 5pidi +3piec pi3en pi4grap pi3lo pi2n p4in. pind4 p4ino 3pi1o pion4 p3ith pi5tha pi2tu +2p3k2 1p2l2 3plan plas5t pli3a pli5er 4plig pli4n ploi4 plu4m plum4b 4p1m 2p3n +po4c 5pod. po5em po3et5 5po4g poin2 5point poly5t po4ni po4p 1p4or po4ry 1pos +pos1s p4ot po4ta 5poun 4p1p ppa5ra p2pe p4ped p5pel p3pen p3per p3pet ppo5site +pr2 pray4e 5preci pre5co pre3em pref5ac pre4la pre3r p3rese 3press pre5ten pre3v +5pri4e prin4t3 pri4s pris3o p3roca prof5it pro3l pros3e pro1t 2p1s2 p2se ps4h +p4sib 2p1t pt5a4b p2te p2th pti3m ptu4r p4tw pub3 pue4 puf4 pul3c pu4m pu2n +pur4r 5pus pu2t 5pute put3er pu3tr put4ted put4tin p3w qu2 qua5v 2que. 3quer +3quet 2rab ra3bi rach4e r5acl raf5fi raf4t r2ai ra4lo ram3et r2ami rane5o ran4ge +r4ani ra5no rap3er 3raphy rar5c rare4 rar5ef 4raril r2as ration4 rau4t ra5vai +rav3el ra5zie r1b r4bab r4bag rbi2 rbi4f r2bin r5bine rb5ing. rb4o r1c r2ce +rcen4 r3cha rch4er r4ci4b rc4it rcum3 r4dal rd2i rdi4a rdi4er rdin4 rd3ing 2re. +re1al re3an re5arr 5reav re4aw r5ebrat rec5oll rec5ompe re4cre 2r2ed re1de +re3dis red5it re4fac re2fe re5fer. re3fi re4fy reg3is re5it re1li re5lu r4en4ta +ren4te re1o re5pin re4posi re1pu r1er4 r4eri rero4 re5ru r4es. re4spi ress5ib +res2t re5stal re3str re4ter re4ti4z re3tri reu2 re5uti rev2 re4val rev3el +r5ev5er. re5vers re5vert re5vil rev5olu re4wh r1f rfu4 r4fy rg2 rg3er r3get +r3gic rgi4n rg3ing r5gis r5git r1gl rgo4n r3gu rh4 4rh. 4rhal ri3a ria4b ri4ag +r4ib rib3a ric5as r4ice 4rici 5ricid ri4cie r4ico rid5er ri3enc ri3ent ri1er +ri5et rig5an 5rigi ril3iz 5riman rim5i 3rimo rim4pe r2ina 5rina. rin4d rin4e +rin4g ri1o 5riph riph5e ri2pl rip5lic r4iq r2is r4is. ris4c r3ish ris4p ri3ta3b +r5ited. rit5er. rit5ers rit3ic ri2tu rit5ur riv5el riv3et riv3i r3j r3ket rk4le +rk4lin r1l rle4 r2led r4lig r4lis rl5ish r3lo4 r1m rma5c r2me r3men rm5ers +rm3ing r4ming. r4mio r3mit r4my r4nar r3nel r4ner r5net r3ney r5nic r1nis4 r3nit +r3niv rno4 r4nou r3nu rob3l r2oc ro3cr ro4e ro1fe ro5fil rok2 ro5ker 5role. +rom5ete rom4i rom4p ron4al ron4e ro5n4is ron4ta 1room 5root ro3pel rop3ic ror3i +ro5ro ros5per ros4s ro4the ro4ty ro4va rov5el rox5 r1p r4pea r5pent rp5er. r3pet +rp4h4 rp3ing r3po r1r4 rre4c rre4f r4reo rre4st rri4o rri4v rron4 rros4 rrys4 +4rs2 r1sa rsa5ti rs4c r2se r3sec rse4cr rs5er. rs3es rse5v2 r1sh r5sha r1si +r4si4b rson3 r1sp r5sw rtach4 r4tag r3teb rten4d rte5o r1ti rt5ib rti4d r4tier +r3tig rtil3i rtil4l r4tily r4tist r4tiv r3tri rtroph4 rt4sh ru3a ru3e4l ru3en +ru4gl ru3in rum3pl ru2n runk5 run4ty r5usc ruti5n rv4e rvel4i r3ven rv5er. +r5vest r3vey r3vic rvi4v r3vo r1w ry4c 5rynge ry3t sa2 2s1ab 5sack sac3ri s3act +5sai salar4 sal4m sa5lo sal4t 3sanc san4de s1ap sa5ta 5sa3tio sat3u sau4 sa5vor +5saw 4s5b scan4t5 sca4p scav5 s4ced 4scei s4ces sch2 s4cho 3s4cie 5scin4d scle5 +s4cli scof4 4scopy scour5a s1cu 4s5d 4se. se4a seas4 sea5w se2c3o 3sect 4s4ed +se4d4e s5edl se2g seg3r 5sei se1le 5self 5selv 4seme se4mol sen5at 4senc sen4d +s5ened sen5g s5enin 4sentd 4sentl sep3a3 4s1er. s4erl ser4o 4servo s1e4s se5sh +ses5t 5se5um 5sev sev3en sew4i 5sex 4s3f 2s3g s2h 2sh. sh1er 5shev sh1in sh3io +3ship shiv5 sho4 sh5old shon3 shor4 short5 4shw si1b s5icc 3side. 5sides 5sidi +si5diz 4signa sil4e 4sily 2s1in s2ina 5sine. s3ing 1sio 5sion sion5a si2r sir5a +1sis 3sitio 5siu 1siv 5siz sk2 4ske s3ket sk5ine sk5ing s1l2 s3lat s2le slith5 +2s1m s3ma small3 sman3 smel4 s5men 5smith smol5d4 s1n4 1so so4ce soft3 so4lab +sol3d2 so3lic 5solv 3som 3s4on. sona4 son4g s4op 5sophic s5ophiz s5ophy sor5c +sor5d 4sov so5vi 2spa 5spai spa4n spen4d 2s5peo 2sper s2phe 3spher spho5 spil4 +sp5ing 4spio s4ply s4pon spor4 4spot squal4l s1r 2ss s1sa ssas3 s2s5c s3sel +s5seng s4ses. s5set s1si s4sie ssi4er ss5ily s4sl ss4li s4sn sspend4 ss2t ssur5a +ss5w 2st. s2tag s2tal stam4i 5stand s4ta4p 5stat. s4ted stern5i s5tero ste2w +stew5a s3the st2i s4ti. s5tia s1tic 5stick s4tie s3tif st3ing 5stir s1tle 5stock +stom3a 5stone s4top 3store st4r s4trad 5stratu s4tray s4trid 4stry 4st3w s2ty +1su su1al su4b3 su2g3 su5is suit3 s4ul su2m sum3i su2n su2r 4sv sw2 4swo s4y +4syc 3syl syn5o sy5rin 1ta 3ta. 2tab ta5bles 5taboliz 4taci ta5do 4taf4 tai5lo +ta2l ta5la tal5en tal3i 4talk tal4lis ta5log ta5mo tan4de tanta3 ta5per ta5pl +tar4a 4tarc 4tare ta3riz tas4e ta5sy 4tatic ta4tur taun4 tav4 2taw tax4is 2t1b +4tc t4ch tch5et 4t1d 4te. tead4i 4teat tece4 5tect 2t1ed te5di 1tee teg4 te5ger +te5gi 3tel. teli4 5tels te2ma2 tem3at 3tenan 3tenc 3tend 4tenes 1tent ten4tag +1teo te4p te5pe ter3c 5ter3d 1teri ter5ies ter3is teri5za 5ternit ter5v 4tes. +4tess t3ess. teth5e 3teu 3tex 4tey 2t1f 4t1g 2th. than4 th2e 4thea th3eas the5at +the3is 3thet th5ic. th5ica 4thil 5think 4thl th5ode 5thodic 4thoo thor5it +tho5riz 2ths 1tia ti4ab ti4ato 2ti2b 4tick t4ico t4ic1u 5tidi 3tien tif2 ti5fy +2tig 5tigu till5in 1tim 4timp tim5ul 2t1in t2ina 3tine. 3tini 1tio ti5oc tion5ee +5tiq ti3sa 3tise tis4m ti5so tis4p 5tistica ti3tl ti4u 1tiv tiv4a 1tiz ti3za +ti3zen 2tl t5la tlan4 3tle. 3tled 3tles. t5let. t5lo 4t1m tme4 2t1n2 1to to3b +to5crat 4todo 2tof to2gr to5ic to2ma tom4b to3my ton4ali to3nat 4tono 4tony +to2ra to3rie tor5iz tos2 5tour 4tout to3war 4t1p 1tra tra3b tra5ch traci4 +trac4it trac4te tras4 tra5ven trav5es5 tre5f tre4m trem5i 5tria tri5ces 5tricia +4trics 2trim tri4v tro5mi tron5i 4trony tro5phe tro3sp tro3v tru5i trus4 4t1s2 +t4sc tsh4 t4sw 4t3t2 t4tes t5to ttu4 1tu tu1a tu3ar tu4bi tud2 4tue 4tuf4 5tu3i +3tum tu4nis 2t3up. 3ture 5turi tur3is tur5o tu5ry 3tus 4tv tw4 4t1wa twis4 4two +1ty 4tya 2tyl type3 ty5ph 4tz tz4e 4uab uac4 ua5na uan4i uar5ant uar2d uar3i +uar3t u1at uav4 ub4e u4bel u3ber u4bero u1b4i u4b5ing u3ble. u3ca uci4b uc4it +ucle3 u3cr u3cu u4cy ud5d ud3er ud5est udev4 u1dic ud3ied ud3ies ud5is u5dit +u4don ud4si u4du u4ene uens4 uen4te uer4il 3ufa u3fl ugh3en ug5in 2ui2 uil5iz +ui4n u1ing uir4m uita4 uiv3 uiv4er. u5j 4uk u1la ula5b u5lati ulch4 5ulche +ul3der ul4e u1len ul4gi ul2i u5lia ul3ing ul5ish ul4lar ul4li4b ul4lis 4ul3m +u1l4o 4uls uls5es ul1ti ultra3 4ultu u3lu ul5ul ul5v um5ab um4bi um4bly u1mi +u4m3ing umor5o um2p unat4 u2ne un4er u1ni un4im u2nin un5ish uni3v un3s4 un4sw +unt3ab un4ter. un4tes unu4 un5y un5z u4ors u5os u1ou u1pe uper5s u5pia up3ing +u3pl up3p upport5 upt5ib uptu4 u1ra 4ura. u4rag u4ras ur4be urc4 ur1d ure5at +ur4fer ur4fr u3rif uri4fic ur1in u3rio u1rit ur3iz ur2l url5ing. ur4no uros4 +ur4pe ur4pi urs5er ur5tes ur3the urti4 ur4tie u3ru 2us u5sad u5san us4ap usc2 +us3ci use5a u5sia u3sic us4lin us1p us5sl us5tere us1tr u2su usur4 uta4b u3tat +4ute. 4utel 4uten uten4i 4u1t2i uti5liz u3tine ut3ing ution5a u4tis 5u5tiz u4t1l +ut5of uto5g uto5matic u5ton u4tou uts4 u3u uu4m u1v2 uxu3 uz4e 1va 5va. 2v1a4b +vac5il vac3u vag4 va4ge va5lie val5o val1u va5mo va5niz va5pi var5ied 3vat 4ve. +4ved veg3 v3el. vel3li ve4lo v4ely ven3om v5enue v4erd 5vere. v4erel v3eren +ver5enc v4eres ver3ie vermi4n 3verse ver3th v4e2s 4ves. ves4te ve4te vet3er +ve4ty vi5ali 5vian 5vide. 5vided 4v3iden 5vides 5vidi v3if vi5gn vik4 2vil +5vilit v3i3liz v1in 4vi4na v2inc vin5d 4ving vio3l v3io4r vi1ou vi4p vi5ro +vis3it vi3so vi3su 4viti vit3r 4vity 3viv 5vo. voi4 3vok vo4la v5ole 5volt 3volv +vom5i vor5ab vori4 vo4ry vo4ta 4votee 4vv4 v4y w5abl 2wac wa5ger wag5o wait5 +w5al. wam4 war4t was4t wa1te wa5ver w1b wea5rie weath3 wed4n weet3 wee5v wel4l +w1er west3 w3ev whi4 wi2 wil2 will5in win4de win4g wir4 3wise with3 wiz5 w4k +wl4es wl3in w4no 1wo2 wom1 wo5ven w5p wra4 wri4 writa4 w3sh ws4l ws4pe w5s4t 4wt +wy4 x1a xac5e x4ago xam3 x4ap xas5 x3c2 x1e xe4cuto x2ed xer4i xe5ro x1h xhi2 +xhil5 xhu4 x3i xi5a xi5c xi5di x4ime xi5miz x3o x4ob x3p xpan4d xpecto5 xpe3d +x1t2 x3ti x1u xu3a xx4 y5ac 3yar4 y5at y1b y1c y2ce yc5er y3ch ych4e ycom4 ycot4 +y1d y5ee y1er y4erf yes4 ye4t y5gi 4y3h y1i y3la ylla5bl y3lo y5lu ymbol5 yme4 +ympa3 yn3chr yn5d yn5g yn5ic 5ynx y1o4 yo5d y4o5g yom4 yo5net y4ons y4os y4ped +yper5 yp3i y3po y4poc yp2ta y5pu yra5m yr5ia y3ro yr4r ys4c y3s2e ys3ica ys3io +3ysis y4so yss4 ys1t ys3ta ysur4 y3thin yt3ic y1w za1 z5a2b zar2 4zb 2ze ze4n +ze4p z1er ze3ro zet4 2z1i z4il z4is 5zl 4zm 1zo zo4m zo5ol zte4 4z1z2 z4zy + )]; +} + +sub _EXCEPTIONS { + return [qw( +as-so-ciate as-so-ciates dec-li-na-tion oblig-a-tory phil-an-thropic present +presents project projects reci-procity re-cog-ni-zance ref-or-ma-tion +ret-ri-bu-tion ta-ble + )]; +} + +=head2 hyphenate($word, [$delim]) + +Hyphenates the C<$word> by inserting C<$delim> into hyphen positions. +C<$delim> defaults to dash ("-"). + +=cut + +sub hyphenate { + my ($self, $word, $delim) = @_; + $delim ||= '-'; + + # Short words aren't hyphenated. + length($word) < $self->{min_word} + and return $word; + + my @word = split //, $word; + + # If the word is an exception, get the stored points. + my $points = $self->{exceptions}->{lc($word)}; + + unless ($points) { + my @work = ('.', map { lc } @word, '.'); + $points = [ (0) x (@work + 1) ]; + foreach my $i (0 .. $#work) { + my $t = $self->{trie}; + for my $c (@work[$i .. $#work]) { + last unless $t->{$c}; + + $t = $t->{$c}; + if (my $p = $t->{_}) { + for my $j (0 .. $#$p) { + #$points->[$i + $j] = max($points->[$i + $j], $p->[$j]); + $points->[$i + $j] < $p->[$j] + and $points->[$i + $j] = $p->[$j]; + } + } + } + } + + # No hyphens in the first two chars or the last two. + $points->[$_] = 0 foreach 0 .. $self->{min_prefix}; + $points->[$_] = 0 foreach -$self->{min_suffix} - 1 .. -2; + } + + # Examine the points to build the pieces list. + my @pieces = (''); + my $hit = 0; + foreach my $i (0 .. length($word) - 1) { + $pieces[-1] .= $word[$i]; + $hit--; + if ($hit <= 0 && $points->[2 + $i] % 2) { + $hit = $self->{"min_part"}; + push @pieces, ''; + } + } + + return wantarray ? @pieces : join($delim, @pieces); +} + +=head1 AUTHOR + +Alex Kapranoff, C<< <kappa at cpan.org> >> + +=head1 BUGS + +Please report any bugs or feature requests to C<bug-text-hyphen at rt.cpan.org>, or through +the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Text-Hyphen>. I will be notified, and then you'll +automatically be notified of progress on your bug as I make changes. + +=head1 SUPPORT + +You can find documentation for this module with the perldoc command. + + perldoc Text::Hyphen + +You can also look for information at: + +=over 4 + +=item * RT: CPAN's request tracker + +L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Text-Hyphen> + +=item * AnnoCPAN: Annotated CPAN documentation + +L<http://annocpan.org/dist/Text-Hyphen> + +=item * CPAN Ratings + +L<http://cpanratings.perl.org/d/Text-Hyphen> + +=item * Search CPAN + +L<http://search.cpan.org/dist/Text-Hyphen> + +=back + + +=head1 ACKNOWLEDGEMENTS + +Donald Knuth and Frank Liang for the algorithm. + +Alexander Lebedev for all his valuable work on russian ispell +dictionaries and russian hyphenation patterns. See his archive +at L<ftp://scon155.phys.msu.ru/pub/russian/>. + +Mark-Jason Dominus and Jan Pazdziora for L<Text::Hyphenate> and L<TeX::Hyphenate> +modules on CPAN both of which are hopefully obsoleted by Text::Hyphen :) + +Ned Batchelder for his public domain Python implementation of +Knuth-Liang algorithm available at L<http://nedbatchelder.com/code/modules/hyphenate.html>. + +=head1 COPYRIGHT & LICENSE + +Copyright 2008 Alex Kapranoff. + +This program is released under the following license: BSD. + +=cut + +1; # End of Text::Hyphen |