#A REPL in thirty lines

def show(value):
    if value.is_bool():
        return 'TRUE' if value.as_bool() else 'FALSE'
    if value.is_null():
        return 'NULL'
    if value.size() > 0 or value.is_bin():
        return value.dump()
    return value.as_text()


context = Value.none()
for line in sys.stdin:
    line = line.rstrip('\n')
    if line.strip() == '':
        continue
    print('sel>', line)
    try:
        if line == ':reset':
            context = Value.none()
        elif line.startswith(':deps '):
            print(' '.join(compile(line[6:]).dependencies()))
        else:
            print(show(compile(line).run(context)))
    except SelError as e:
        print(f'{e.code} at {e.line}:{e.col}')

function show(value) {
  if (value.isBool()) return value.asBool() ? 'TRUE' : 'FALSE';
  if (value.isNull()) return 'NULL';
  if (value.size() > 0 || value.isBin()) return value.dump();
  return value.asText();
}

let context = Value.none();
for await (const line of createInterface({ input: process.stdin })) {
  if (line.trim() === '') continue;
  console.log('sel>', line);
  try {
    if (line === ':reset') {
      context = Value.none();
    } else if (line.startsWith(':deps ')) {
      console.log(compile(line.slice(6)).dependencies().join(' '));
    } else {
      console.log(show(compile(line).run(context)));
    }
  } catch (e) {
    if (!(e instanceof SelError)) throw e;
    console.log(`${e.code} at ${e.line}:${e.col}`);
  }
}

function show(Value $value): string
{
    if ($value->isBool()) {
        return $value->asBool() ? 'TRUE' : 'FALSE';
    }
    if ($value->isNull()) {
        return 'NULL';
    }
    if ($value->size() > 0 || $value->isBin()) {
        return $value->dump();
    }
    return $value->asText();
}

$context = Value::none();
while (($line = fgets(STDIN)) !== false) {
    $line = rtrim($line, "\n");
    if (trim($line) === '') {
        continue;
    }
    echo 'sel> ', $line, "\n";
    try {
        if ($line === ':reset') {
            $context = Value::none();
        } elseif (str_starts_with($line, ':deps ')) {
            echo implode(' ', Sel::compile(substr($line, 6))->dependencies()), "\n";
        } else {
            echo show(Sel::compile($line)->run($context)), "\n";
        }
    } catch (SelError $e) {
        echo "{$e->code} at {$e->line}:{$e->col}\n";
    }
}

std::string show(const sel::Value& value) {
  if (value.is_bool()) return value.as_bool() ? "TRUE" : "FALSE";
  if (value.is_null()) return "NULL";
  if (value.size() > 0 || value.is_bin()) return value.dump();
  return value.as_text();
}

int main() {
  sel::Value context = sel::Value::none();
  std::string line;
  while (std::getline(std::cin, line)) {
    if (line.find_first_not_of(" \t\r\f\v") == std::string::npos) continue;
    std::cout << "sel> " << line << "\n";
    try {
      if (line == ":reset") {
        context = sel::Value::none();
      } else if (line.starts_with(":deps ")) {
        std::cout << join(sel::compile(line.substr(6)).dependencies(), " ") << "\n";
      } else {
        std::cout << show(sel::compile(line).run(context)) << "\n";
      }
    } catch (const sel::SelError& e) {
      std::cout << e.code() << " at " << e.line() << ":" << e.col() << "\n";
    }
  }
  return 0;
}

(defun show (value)
  (cond ((sel:value-bool-p value) (if (sel:as-bool value) "TRUE" "FALSE"))
        ((sel:value-null-p value) "NULL")
        ((or (plusp (sel:value-size value)) (sel:value-bin-p value)) (sel:value-dump value))
        (t (sel:as-text value))))

(defun blank-p (line)
  (every (lambda (c) (member c '(#\Space #\Tab #\Return #\Page))) line))

(defun main ()
  (let ((context (sel:make-none)))
    (loop for line = (read-line *standard-input* nil)
          while line
          unless (blank-p line)
            do (format t "sel> ~a~%" line)
               (handler-case
                   (cond ((string= line ":reset")
                          (setf context (sel:make-none)))
                         ((and (>= (length line) 6) (string= ":deps " line :end2 6))
                          (format t "~{~a~^ ~}~%"
                                  (sel:dependencies (sel:compile-source (subseq line 6)))))
                         (t
                          (format t "~a~%" (show (sel:run (sel:compile-source line) context)))))
                 (sel:sel-error (e)
                   (format t "~a at ~D:~D~%"
                           (sel:sel-error-code e) (sel:sel-error-line e) (sel:sel-error-col e))))))
  0)