<?php
/**
 * Generates random pronounceable words
 * for both french and english languages (UTF-8 encoded)
 * with fine settings
 * Author: Médéric Claassen
 * Contact: http://aide.ordi49.fr/contact.html
 * Date-Version: 2019-02-13
 * Licence: GNU GPL v3
 * https://www.gnu.org/licenses/gpl.html
 *
 * Copyright (C) 2015  Médéric Claassen
 * 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 3 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, see <http://www.gnu.org/licenses/>.
 */

date_default_timezone_set('Europe/Paris');

function random_pronounceable_word($l = 'en', $length = 4 ) {
  // return a $length long word in the language of code $l
  // Inspired from:
  // Generate Random Pronouceable Words
  // http://planetozh.com/blog/2012/10/generate-random-pronouceable-words/

  global $cons_can_start_and_end, $cons_cant_end, $cons_cant_start, $vows;

  // Get all cons characters except those witch cannot start
  $cons1 = array_merge($cons_can_start_and_end[$l], $cons_cant_end[$l]);
  // Get all cons characters
  $cons2 = array_merge($cons1, $cons_cant_start[$l]);
  // Get all cons characters exept those witch cannot end
  $cons3 = array_merge($cons_cant_start[$l], $cons_can_start_and_end[$l]);

  $word = '';
  $candidate = '';

  // Randomly decide if start by vowel ?
  $curent_type_is_vow = (bool)mt_rand(0, 1);

  // Get a random word that match the desired character number
  while( iconv_strlen($word,'UTF-8') != $length ) {

    // Randomly get a candidate char to concatenate
    if( $curent_type_is_vow ) {
      // Candidate is a vowel
      $candidate = $vows[$l][ mt_rand(0, count( $vows[$l] ) -1) ];
    } else {
      // Candidate is a cons that should not start
      if( iconv_strlen($word,'UTF-8') == 0 ) {
        $candidate = $cons1[ mt_rand(0, count($cons1) -1) ];
      } else {
        // Candidate is a cons that can start
        // First, try with any cons
        $candidate = $cons2[ mt_rand(0, count($cons2) -1) ];
        if(iconv_strlen($word.$candidate,'UTF-8') >= $length) {
          // If it would end the word, try with a candidate char that should not end
          $candidate = $cons3[ mt_rand(0, count($cons3) -1) ];
        }
      }
    }

    // Evaluate the candidate character and add to the word
    if(
      (iconv_strlen($word.$candidate,'UTF-8') <= $length) &&
      (substr($word, -strlen($candidate)) != $candidate )
    ) {
      // Not to long and not the redundant pattern of latest char,
      // so concatenate the candidate char to the word
      $word.= $candidate;
      // Alternate sounds for next iteration
      $curent_type_is_vow = ( $curent_type_is_vow === false );
    }

  }

  return $word;
}

function send_source($file) {
  header('Cache-Control: public');
  header('Pragma: public');
  header('Content-Type:text/plain; charset=UTF-8');
  header('Content-Length: '.filesize($file));
  readfile($file);
}

// Variables
$display = array(
  'language' => array(
    'fr' => 'Langue',
    'en' => 'Language',
  ),
  'available_in_langs' => array(
    'fr' => 'en français et en anglais',
    'en' => 'in english and french',
  ),
  'provided_by' => array(
    'fr' => 'Fourni par',
    'en' => 'Provided by',
  ),
  'backlink' => array(
    'fr' => 'Lien vers cette page',
    'en' => 'Link to this page',
  ),
  'colon' => array(
    'fr' => ' :',
    'en' => ':',
  ),
  'semicolon' => array(
    'fr' => ' ;',
    'en' => ';',
  ),
  'redo' => array(
    'fr' => 'Recalculer',
    'en' => 'Redo',
  ),
  'page_title' => array(
    'fr' => 'Générateur aléatoire de mots prononçables',
    'en' => 'Random pronounceable words generator',
  ),
  'source_code' => array(
    'fr' => 'Code source',
    'en' => 'Source code',
  ),
  'output_raw' => array(
    'fr' => 'Format texte',
    'en' => 'Text format',
  ),
  'output_json' => array(
    'fr' => 'Format json',
    'en' => 'Json format',
  ),
  'generated_in' => array(
    'fr' => 'Liste de mots générée en',
    'en' => 'Word list generated in',
  ),
  'char_count' => array(
    'fr' => 'caractères',
    'en' => 'characters',
  ),
  'words_per_line' => array(
    'fr' => 'mot(s) par ligne',
    'en' => 'word(s) per line',
  ),
  'lines' => array(
    'fr' => 'lignes',
    'en' => 'lines',
  ),
);

// Consonant sounds exclusing those wich cannot start nor end a word
$cons_can_start_and_end = array(
  'fr' => array(
    // single consonants. Beware of Q, it's often awkward in words
    'c', 'd', 'f', 'k', 'l', 'm',
    'n', 'r', 's', 't', 'x', 'z',
    // possible combinations excluding those which cannot start nor end a word
    'pt', 'ps', 'st',
  ),
  'en' => array(
  // single consonants. Beware of Q, it's often awkward in words
  'b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm',
  'n', 'p', 'r', 's', 't', 'v', 'w', 'x', 'z',
  // possible combinations excluding those which cannot start a word
  'pt', 'gl', 'gr', 'ch', 'ph', 'ps', 'sh', 'st', 'th', 'wh',
  )
);

// consonant combinations that cannot start a word
$cons_cant_start = array(
  'fr' => array(
    'll', 'nn', 'pp', 'ss', 'tt',
  ),
  'en' => array(
  'ck', 'cm', 'dr', 'ds', 'ft', 'gh', 'gn', 'kr', 'ks', 'ls', 'lt', 'lr',
  'mp', 'mt', 'ms', 'ng', 'ns', 'rd', 'rg', 'rs', 'rt', 'ss', 'ts', 'tch',
  )
);

// consonnant combinations that cannot end a word
$cons_cant_end = array(
  'fr' => array(
    'b', 'g', 'h', 'j', 'p', 'v', 'w',
    // possible combinations which cannot end a word
    'gl', 'gr', 'ch', 'ph', 'qu', 'th', 'gn',
  ),
  'en' => array(
  )
);

// wovels
$vows = array(
  'fr' => array(
    // single vowels
    'a', 'e', 'é', 'è', 'i', 'o', 'u', 'y',
    // vowel combinations your language allows
    'ae', 'ai', 'alla', 'allaé', 'allaè', 'allai', 'allau', 'alle', 'allé',
    'allè', 'alli', 'allia', 'allie', 'allié', 'alliè', 'allio', 'alliou',
    'alliu', 'allo', 'alloa', 'alloe', 'alloé', 'alloè', 'allou', 'allu',
    'allui', 'alluo', 'ao', 'au', 'aou', 'aya', 'aye', 'ayi', 'ayo', 'ayu',
    'ia', 'ie', 'iè', 'ié', 'io', 'iou', 'iu', 'oe', 'oi', 'ou', 'oya',
    'oye', 'oyé', 'oyè', 'oyo', 'oyu', 'ya', 'yaou',
  ),
  'en' => array(
    // single vowels
    'a', 'e', 'i', 'o', 'u', 'y',
    // vowel combinations your language allows
    'ee', 'oa', 'oo',
  )
);

$provider_name = 'ordi49.fr';
$provider_url = 'http://ordi49.fr/';

// Get the query strings
// Gess the lang
$default_lang = 'fr';
$browser_lang = array_key_exists('HTTP_ACCEPT_LANGUAGE', $_SERVER) ? substr($_SERVER['HTTP_ACCEPT_LANGUAGE'],0,2) : $default_lang;
if ( array_key_exists($browser_lang, $display['language']) ) $default_lang = $browser_lang;
$lang = empty($_GET['lang']) ? $default_lang : $_GET['lang'];
$lang = array_key_exists($lang, $display['language']) ? $lang : $default_lang;

$default_lines = 30;
$lines_min = 1;
$lines_max = 1000;
$lines = (array_key_exists('lines', $_GET)) ? $_GET['lines'] : $default_lines;
$lines = ( is_numeric($lines) && ($lines>=$lines_min) && ($lines<=$lines_max) ) ? $lines : $default_lines;

$default_words_per_line = 1;
$words_per_line_min = 1;
$words_per_line_max = 10;
$words_per_line = (array_key_exists('words_per_line', $_GET)) ? $_GET['words_per_line'] : $default_words_per_line;
$words_per_line = ( is_numeric($words_per_line) && ($words_per_line>=$words_per_line_min) && ($words_per_line<=$words_per_line_max) ) ? $words_per_line : $default_words_per_line;

$default_char_count = 0;
$char_count_min = 3;
$char_count_max = 12;
$char_count = (array_key_exists('char_count', $_GET)) ? $_GET['char_count'] : $default_char_count;
if(is_numeric($char_count)) {
  $char_count = ( ($char_count==0) || (($char_count>=$char_count_min) && ($char_count<=$char_count_max)) ) ? $char_count : $default_char_count;
} else $char_count = $default_char_count;
$char_count_txt = ($char_count==0) ? 'x' : $char_count;

// Proceed
if(array_key_exists('content', $_GET)) {
  // Output its own php source
  if($_GET['content'] == 'source') {
    send_source(__FILE__);
    exit;
  }
  // Output in raw text
  if($_GET['content'] == 'txt') {
    header("Content-Type: text/plain; charset=UTF-8");
    for ($line_nr = 1; $line_nr <= $lines; $line_nr++) {
      for ($word_nr = 1; $word_nr <= $words_per_line; $word_nr++) {
        if($char_count==0) echo (random_pronounceable_word($lang, mt_rand($char_count_min, $char_count_max)) );
        else echo (random_pronounceable_word($lang, $char_count) );
        if( ( $word_nr != $words_per_line ) && ( $words_per_line > 1 ) ) echo (' ');
      }
      echo "\n";
    }
    exit;
  }
  // Output in json format
  if($_GET['content'] == 'json') {
    header("Content-Type: application/json; charset=UTF-8");
    header("Access-Control-Allow-Origin: *"); /* Allow cross domain request (XHR) */
    $output_array = array();
    for ($line_nr = 1; $line_nr <= $lines; $line_nr++) {
      for ($word_nr = 1; $word_nr <= $words_per_line; $word_nr++) {
        if($char_count==0) $output_array[] = random_pronounceable_word($lang, mt_rand($char_count_min, $char_count_max));
        else $output_array[] = random_pronounceable_word($lang, $char_count);
      }
    }
    echo(json_encode($output_array));
    exit;
  }
}

$randomize_duration = microtime(true);
$result = array();
for ($line_nr = 1; $line_nr <= $lines; $line_nr++) {
  for ($word_nr = 1; $word_nr <= $words_per_line; $word_nr++) {
    if($char_count==0) $result[$line_nr][$word_nr] = random_pronounceable_word($lang, mt_rand($char_count_min, $char_count_max));
    else $result[$line_nr][$word_nr] = random_pronounceable_word($lang, $char_count);
  }
}
$randomize_duration = (microtime(true) - $randomize_duration);

header('Expires: 0');
header('Cache-Control: private, max-age=0, no-cache');
header('Pragma: no-cache');
header('Content-Type: text/html; charset=UTF-8');
?>
<!doctype html>
<html lang="fr">
  <head>
    <meta charset="utf-8">
    <title><?php echo $display['page_title'][$lang]; ?></title>
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <meta name="description" content="<?php echo $display['page_title'][$lang].' '.$display['available_in_langs'][$lang].'. '.$display['provided_by'][$lang].' '.$provider_url; ?>">
    <meta name="keywords" content="generator, générateur, pseudonyme, pseudonym, pen name, random, aléatoire">
    <meta name="robots" content="index, follow">
    <meta name="author" content="Médéric Claassen">
    <meta name="generator" content="Geany">
    <style>
      p.advanced{font-size: .75em;}
      span.hidden{display: none;}
    </style>
  </head>
  <body>
    <h1><?php echo $display['page_title'][$lang]; ?></h1>
    <?php
      echo $display['generated_in'][$lang].' '.number_format($randomize_duration,3).'s';
      echo $display['colon'][$lang].' '.$char_count_txt.' '.$display['char_count'][$lang].$display['semicolon'][$lang].' ';
      echo $words_per_line.' '.$display['words_per_line'][$lang].$display['semicolon'][$lang].' ';
      echo $lines.' '.$display['lines'][$lang];
    ?><br />
    <form action="<?php echo $_SERVER['PHP_SELF']; ?>" method="get" target="_self">
      <select name="char_count" id="char_count">
      <?php
      echo '<option value="0"';
      if($char_count==0) echo ' selected="selected"';
      echo '>x</option>'."\n";
      for($i=$char_count_min; $i<=$char_count_max; $i++) {
        $selected = ($i == $char_count)? ' selected="selected"' : '';
        echo '<option value="'.$i.'"'.$selected.'>'.$i.'</option>'."\n";
      }?>
      </select>
      <label for="char_count"><?php echo $display['char_count'][$lang]; ?></label>
      &bull; <select name="words_per_line" id="words_per_line">
      <?php for($i=$words_per_line_min; $i<=$words_per_line_max; $i++) {
        $selected = ($i == $words_per_line)? ' selected="selected"' : '';
        echo '<option value="'.$i.'"'.$selected.'>'.$i.'</option>'."\n";
      }?>
      </select>
      <label for="words_per_line"><?php echo $display['words_per_line'][$lang]; ?></label>
      &bull; <select name="lines" id="lines">
      <?php for($i=$lines_min; $i<=$lines_max; $i++) {
        if($i>10){
          if($i<100) {
            if(fmod($i,10)<>0) continue; // Step of 10
          } else {
            if(fmod($i,100)<>0) continue; // Step of 100
          }
        }
        $selected = ($i == $lines)? ' selected="selected"' : '';
        echo '<option value="'.$i.'"'.$selected.'>'.$i.'</option>'."\n";
      }?>
      </select>
      <label for="lines"><?php echo $display['lines'][$lang]; ?></label>&nbsp;
      &bull; <label for="lang"><?php echo $display['language'][$lang]; ?></label>
      <?php echo $display['colon'][$lang]; ?>&nbsp;
      <select name="lang" id="lang">
      <?php foreach ($display['redo'] as $key => $value) {
        $selected = ($key == $lang)? ' selected="selected"' : '';
        echo '<option value="'.$key.'"'.$selected.'>'.$key.'</option>'."\n";
      }?>
      </select> &bull;&nbsp;
      <input type="submit" value="<?php echo $display['redo'][$lang]; ?>">
    </form>
    <p class="advanced">
      <?php
      $page_url = 'http://'.$_SERVER["HTTP_HOST"].$_SERVER['PHP_SELF'];
      $lang_url = $page_url.'?lang=';
      $param_url = '&amp;char_count='.$char_count.'&amp;words_per_line='.$words_per_line.'&amp;lines='.$lines;
      echo $display['provided_by'][$lang].' '.'<a href="'.$provider_url.'">'.$provider_name.'</a> &bull; ';
      echo '&copy; '.date("Y").' &bull; ';
      echo '<a href="'.$lang_url.$lang.'">'.$display['backlink'][$lang].'</a> &bull; ';
      echo ' <a href="'.$lang_url.$lang.$param_url.'&amp;content=txt" title="'.$display['output_raw'][$lang].'">'.$display['output_raw'][$lang].'</a> &bull; ';
      echo ' <a href="'.$lang_url.$lang.$param_url.'&amp;content=json" title="'.$display['output_json'][$lang].'">'.$display['output_json'][$lang].'</a> &bull; ';
      echo '<a href="'.$page_url.'?content=source" title="'.$display['source_code'][$lang].'">'.$display['source_code'][$lang].'</a>';
      // For robot indexation:
      foreach ($display['language'] as $l => $v){
        if($l!=$lang) echo '<span class="hidden"> &bull; <a href="'.$lang_url.$l.'" title="'.$display['language'][$lang].$display['colon'][$lang].' '.$l.'">'.$display['language'][$lang].$display['colon'][$lang].' '.$l.'</a></span>';
      }
      echo '<br />'."\n";
      ?>
    </p>
    <hr>
    <p>
      <?php
      foreach ($result as $line_nr => $wordlist){
        foreach ($wordlist as $word_nr => $word){
          echo ($word);
          if( ( $word_nr != $words_per_line ) && ( $words_per_line > 1 ) ) echo (' ');
        }
        echo "<br />\n";
      }
      ?>
    </p>
  </body>
</html>