PHP Symbol::new_instance Exemples

Exemple #1

Fichier : functions.php Projet : nagashima/php-scheme

function SCM_atom($s)
{
    $x = $s->car;
    if (!Object::is_cons($x)) {
        return Symbol::new_instance('#t');
    } else {
        return Symbol::new_instance('#f');
    }
}

Exemple #2

Fichier : scheme.php Projet : nagashima/php-scheme

 /**
  * 要素解析
  */
 private static function parse_object(&$tokens)
 {
     $token = array_shift($tokens);
     if ($token == '(') {
         return self::parse_list($tokens);
     } elseif (is_numeric($token)) {
         return Number::new_instance($token);
     } elseif (preg_match('/^".*"$/', $token)) {
         return String::new_instance($token);
     } else {
         return Symbol::new_instance($token);
     }
 }