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 --- agate.ml | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 agate.ml (limited to 'agate.ml') diff --git a/agate.ml b/agate.ml new file mode 100755 index 0000000..0e44939 --- /dev/null +++ b/agate.ml @@ -0,0 +1,19 @@ +#!/usr/bin/env ocaml + +type interpreter = { + mutable stack : int list +} + +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 + -- cgit v1.2.3-54-g00ecf