30 lines
857 B
TypeScript
30 lines
857 B
TypeScript
/**
|
|
* index.ts - Unlambda interpreter entry.
|
|
*
|
|
* @author CismonX <admin@cismon.net>
|
|
* @license MIT
|
|
*/
|
|
|
|
import { Parse, ParseResult } from './parser';
|
|
import { Eval } from './runtime';
|
|
|
|
/**
|
|
* Get the parse result expression, or `never` if parse failed.
|
|
*/
|
|
type ParseResultValue<T extends ParseResult> = T[1] extends '' ? T[0] : never;
|
|
|
|
/**
|
|
* Get the output string of an evalalutation result, or `never` if evaluation failed.
|
|
*/
|
|
type EvalResultOutput<T> = T extends [infer F, [infer I, infer O, infer C]] ? O : never;
|
|
|
|
/**
|
|
* Given the source code of an Unlambda program, and input string.
|
|
*
|
|
* Returns the output of program execution, or `never` if something went wrong.
|
|
*/
|
|
type Unlambda<Code extends string, Input extends string = ''> =
|
|
EvalResultOutput<Eval<ParseResultValue<Parse<Code>>, [], [Input, '', '']>>;
|
|
|
|
export default Unlambda;
|