$dict[$obj1]->_index = "hash";
}
}
}
// END FOREACH
$eval_passes = array();
$eval_passes[] = "plural_of";
$eval_passes[] = "selected_from";
$eval_passes[] = "is_a_kind_of";
foreach ($eval_passes as $to_eval) {
foreach ($q as $aq) {
$obj1 = str_replace(" ", "_", $aq['obj1']);
$obj2 = str_replace(" ", "_", $aq['obj2']);
$obj3 = str_replace(" ", "_", $aq['obj3']);
$obj1 = fix_reserved($obj1);
$obj3 = fix_reserved($obj3);
if ($obj2 == $to_eval) {
foreach ($dict as $dk => $dv) {
$af = merge($obj2, $obj1, $obj3, $dk, $dv);
}
}
}
}
// END FOREADCH
function idfordersort($a, $b)
{
if ($a == $b) {
return 0;
}
$has_id_check = strpos($a, "id") !== false && strpos($b, "id") === false;
$both_are_id = strpos($a, "id") !== false && strpos($b, "id") !== false;
Return mstrLine.Length
End Get
End Property
End Class
*/
$nc = "";
foreach ($dict as $de) {
$nc .= "Public Class " . fix_reserved($de->_type);
$nc .= "\n";
foreach ($de->_attribute_order as $da) {
if (substr($da, 0, 1) != "_") {
$da_final = fix_reserved($da);
if (is_array($de->{$da})) {
$ary = $de->{$da};
$of_what = $ary['_list_of'];
$of_what = fix_reserved($of_what);
$nc .= "\t";
$nc .= "Public {$da_final} as List(of {$of_what}) = new List(of {$of_what})";
// Private mstrLine As String
$nc .= "\n";
} else {
$nc .= "\t";
$nc .= "Public {$da_final} as String = \"value\"";
// Private mstrLine As String
$nc .= "\n";
}
}
}
$nc .= "End Class";
$nc .= "\n";
}
