$def_expr = NULL;
foreach ($word->definitions() as $def) {
if ($def->lang() !== "en") {
continue;
}
$_path = $def->path();
if ($_path and !$path->issub($_path, TRUE)) {
continue;
}
if ($def->type() === "expr") {
$def_expr = $def->value();
} else {
$defs = array_merge($defs, explode("\n", $def->value()));
}
}
$defs = array_map("trim", $defs);
if ($number === "plural") {
$defs = array_map("pluralize", $defs);
$defs = flatten($defs);
$art = "[the|some]";
} else {
$art = "[a[n]|the]";
}
if (!$def_expr) {
$def_expr = make_expr($defs);
}
$correct = [capitalize(implode(" ", [$pron[0], $be[0], "(the)", $defs[0]]))];
$expr = "{*" . implode("} {", array_map("make_expr", [$pron, $be, $art])) . " {$def_expr}}";
error_log($expr);
return ["correct" => $correct, "expr" => $expr];
}, "answer0-tooltip" => "English translation", "answer0-language" => "en"]]]]);
function la_en($path, $only_one = false)
{
global $OP_APOS;
global $sudata;
$arch = safe_get("archtrans", json_decode($sudata, true)) == "true";
$o = $only_one;
$decide = function ($archaic, $modern, $extra = NULL) use($o, $arch) {
if ($o) {
return $arch ? $archaic : $modern;
}
return $extra ? "({$archaic}|{$modern}|{$extra})" : "({$archaic}|{$modern})";
};
$word = $path->word();
$spart = $word->speechpart();
$definitions = get_definitions($path);
$verb = $spart === "verb";
$noun = $spart === "noun";
if ($verb) {
$mood = $path->key_value("mood");
$tense = $path->key_value("tense");
$voice = $path->key_value("voice");
$person = $path->key_value("person");
$number = $path->key_value("number");
$psv = $voice === "passive";
// passive voice
$_p = $person[strlen($person) - 1];
// person {1,2,3}
$pl = $number === "singular" ? 0 : 1;
// plural number
$st = ($_p == 2 and !$pl) ? "st" : NULL;
// singular/person-2
$eth = ($_p == 3 and !$pl) ? "eth" : NULL;
// singular/person-3
if (!$o and $st) {
$st = "[st]";
}
}
$d0 = [];
// present
$d1 = [];
// preterite
$d2 = [];
// past participle
$d3 = [];
// present participle
$d4 = [];
// 3s present / 2s present
$d5 = [];
// 2s perfect (archaic)
$be = [];
foreach ($definitions as $def) {
if ($o and $d0) {
break;
}
$matches = [];
if (preg_match("/^be(?:\\s+|\$)/", $def)) {
if ($o and $be) {
continue;
}
$be[] = preg_replace("/^be(?:\\s+|\$)/", "", $def) ?: " ";
continue;
}
if (preg_match("/^([a-zA-Z-]+)((?:[^a-zA-Z-].*)?)\$/", $def, $matches)) {
$a = $matches[1];
$b = $matches[2];
$d0[] = $def;
if ($noun) {
$d1[] = _make_expr(InflectN::pluralize($a)) . $b;
}
if (!$verb) {
continue;
}
$d1[] = _make_expr(InflectV::preterite($a, $o)) . $b;
$d2[] = _make_expr(InflectV::pastparticiple($a, $o)) . $b;
$d3[] = _make_expr(InflectV::presentparticiple($a, $o)) . $b;
if (!$pl and $_p != 1) {
if ($_p == 2) {
$d4[] = _make_expr(InflectV::secondsingular($a, $o)) . $b;
} else {
$d4[] = _make_expr(InflectV::thirdsingular($a, $o)) . $b;
}
} else {
$d4[] = $def;
}
$d5[] = _make_expr(InflectV::secondsingular(InflectV::preterite($a, $o), $o)) . $b;
}
}
if ($o) {
if ($d0) {
$d0 = $d0[0];
}
if ($d1) {
$d1 = $d1[0];
}
if ($d2) {
$d2 = $d2[0];
}
if ($d3) {
$d3 = $d3[0];
}
if ($d4) {
$d4 = $d4[0];
}
}
$d0 = make_expr($d0) ?: " ";
$d1 = make_expr($d1) ?: " ";
$d2 = make_expr($d2) ?: " ";
$d3 = make_expr($d3) ?: " ";
$d4 = make_expr($d4) ?: " ";
$d5 = make_expr($d5) ?: " ";
$be = make_expr($be);
$d = $d0;
$D = $d3;
if ($spart === "verb") {
$t = $v = $p = $b = $m = NULL;
if ($mood === "infinitive") {
if ($tense === "future") {
$t = "be about to";
} elseif ($tense === "perfect") {
$t = "have";
$d = $d2;
}
if ($voice === "passive") {
if ($tense === "perfect") {
$v = "been";
} else {
$v = "be";
}
$d = $d2;
}
if ($be and (!$o or !trim($d)) and !$psv) {
$eb = [$d0 => "be ", $d2 => "been "];
$BE = safe_get($d, $eb) . $be;
if (!trim($d) or $o) {
$d = $BE;
} else {
$d = "(" . trim($d) . "|{$BE})";
}
}
return "to {$t} {$v} {$d}";
} elseif ($mood === "participle") {
$d = $d3;
if ($tense === "future") {
$t = $o ? "about to" : "(about|going) to";
$d = $d0;
} elseif ($tense === "perfect") {
$t = "having";
$d = $d1;
}
if ($voice === "passive") {
if ($tense === "perfect") {
$v = "been";
} else {
$v = "be";
}
$d = $d2;
}
if ($be and (!$o or !trim($d)) and !$psv) {
$eb = [$d0 => "be ", $d1 => "have been ", $d2 => "been ", $d3 => " "];
$BE = safe_get($d, $eb) . $be;
if (!trim($d) or $o) {
$d = $BE;
} else {
$d = "(" . trim($d) . "|{$BE})";
}
}
return "{$t} {$v} {$d}";
} elseif ($mood === "indicative" || $mood === "subjunctive") {
$subj = $mood === "subjunctive";
$M = "";
$p = ["I", "we", $o ? "thou" : "(you|thou) [\\(sg.\\)]", $o ? "you" : "[all] (you|ye|y{$OP_APOS}all) [\\(pl.\\)]", $o ? "She/he/it" : "(he|she|it)", "they"];
$p = safe_get(2 * ($_p - 1) + $pl, $p);
// ignore errors if person isn't provided
// am are is ...
$is = [$o ? "am" : "(am|{$OP_APOS}m)", $decide($subj ? "beest" : "art", "are", "{$OP_APOS}rt|{$OP_APOS}re|" . ($subj ? "art" : "beest")), $o ? "is" : "(is|{$OP_APOS}s)"];
if ($pl) {
$is = "are";
} else {
$is = safe_get($_p - 1, $is);
}
if ($subj and (!$o or $arch and !$st)) {
$is = $o ? "be" : "({$is}|be)";
}
// was were wast ...
$was = [($o and $subj) ? "were" : "was", $decide($subj ? "wert" : "wast", "were", $subj ? "wast" : "wert"), ($o and $subj) ? "were" : "was"];
if ($pl) {
$was = "were";
} else {
$was = safe_get($_p - 1, $was);
}
if ($subj and (!$o or $arch and !$st)) {
$was = $o ? "were" : "({$was}|were)";
}
// shall will wilt ...
$will = $o ? "will" : "(will|{$OP_APOS}ll)";
if ($_p == 1) {
$will = $o ? "shall" : "(shall|will|{$OP_APOS}ll)";
} elseif ($_p == 2 and !$pl) {
$will = $decide("wilt", "will", "shall|{$OP_APOS}ll");
}
if (!$o) {
$will = "({$will}|{$is} (going|about) to)";
}
// has have hast ...
$has = "have";
if ($eth) {
$has = $decide("hath", "has");
} elseif ($_p == 2 and !$pl) {
$has = $decide("hast", "have", "havest");
}
if ($psv) {
$d = $D = $d2;
}
if ($tense === "present") {
$b = $is;
if ($psv) {
list($m, $b) = [$b, $b . " being"];
} else {
$m = " ";
}
if (!$psv and $_p != 1 and !$pl) {
if ($_p == 3) {
$d = $d4;
} elseif ($o) {
$d = $arch ? $d4 : $d;
} else {
$d = "({$d}|{$d4})";
}
}
} elseif ($tense === "imperfect") {
$b = $was;
if ($psv) {
list($m, $b) = [$b, $b . " being"];
}
} elseif ($tense === "future") {
$m = $will;
if ($psv) {
$m .= " be";
} else {
$b = "{$m} be";
}
} else {
$d = $d2;
$D = $d2;
if ($tense === "perfect") {
if ($psv) {
list($b, $m) = [$was, "{$has} been"];
} else {
if ($st) {
$d1 = $decide($d5, $d1);
}
list($b, $m, $d) = [$has, " ", $d1];
}
} elseif ($tense === "pluperfect") {
$m = "had" . (($o and !$arch) ? "" : $st) . ($psv ? " been" : "");
} elseif ($tense === "future-perfect") {
$m = $will . " have" . ($psv ? " been" : "");
}
}
if ($be and (!$o or !trim($d) or !trim($D)) and !$psv) {
$eb = [$d1 => "have been ", $d2 => "been ", $d3 => " ", $d4 => $is . " ", $d5 => "hast been "];
if (!in_array($D, $eb)) {
error_log(json_encode($D));
}
if (!in_array($d, $eb)) {
error_log(json_encode($d));
}
$BE = safe_get($D, $eb) . $be;
if (!trim($D) or $o) {
$D = $BE;
} else {
$D = "(" . trim($D) . "|{$BE})";
}
$BE = safe_get($d, $eb) . $be;
if (!trim($d) or $o) {
$d = $BE;
} else {
$d = "(" . trim($d) . "|{$BE})";
}
} else {
$be = NULL;
}
if (!$d and !$D) {
return NULL;
}
if (!$D) {
$b = NULL;
}
if (!$d) {
$m = NULL;
}
if ($b and (!$o or $m === NULL or $be !== NULL)) {
if ($o or $m === NULL) {
return "{$p} {$b} {$D}";
} else {
return "{$p} ({$m} {$M} {$d}|{$b} {$D})";
}
} elseif ($d) {
return "{$p} {$m} {$M} {$d}";
}
return NULL;
}
} else {
if ($noun) {
if ($path->key_value("number") == "plural") {
$d = $d1;
}
$t = $o ? "the" : "(a|an|the|some)";
$c = [0 => "", "vocative" => "", "nominative" => "", "accusative" => "", "ablative" => $o ? "from/by" : "(from|by)", "dative" => $o ? "to/for" : "(to|for)", "genitive" => "of", "locative" => "at"];
$c = $c[$path->key_value("case")];
return "{$c} {$t} {$d}";
} else {
if ($spart === "adjective" || $spart === "adverb") {
$c = [0 => "", "positive" => "", "comparative" => $o ? "quite/more" : "(quite|rather|more)", "superlative" => $o ? "very/most" : "(very|most)"];
$c = $c[$path->key_value("degree")];
return "{$c} {$d}";
}
}
}
return $d;
}
