From a4c197dea1a0192b93e205daf8738f99a4f039b2 Mon Sep 17 00:00:00 2001 From: Scott Lawrence Date: Wed, 26 Jun 2024 21:16:21 -0700 Subject: Possibly shifting to a single script --- bin/main.ml | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) (limited to 'bin/main.ml') diff --git a/bin/main.ml b/bin/main.ml index 2472a93..bb0d6ac 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -1,5 +1,17 @@ -open Angstrom +type interpreter = { + stack : int list +} -let parse (str:string) : unit = num str +type token = Word of string + +let tokenize line : token list = + String.split_on_char ' ' line |> List.map (fun s -> Word s) + +let parse line = + let _tokens = tokenize line in + () + +let () = + let line = input_line stdin |> parse in + print_string "HI" |> print_newline -let () = parse "" -- cgit v1.2.3-54-g00ecf