From 262f161f42c4e59beec41c6f440336c38385426a Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Wed, 20 Dec 2023 20:46:00 -0600 Subject: Initial commit --- bin/main.ml | 33 ++++++++++++++++----------------- 1 file changed, 16 insertions(+), 17 deletions(-) (limited to 'bin/main.ml') diff --git a/bin/main.ml b/bin/main.ml index 2ed3595..6942382 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -1,19 +1,18 @@ -open Ann_bloop +open Fixgen + +let parse (s : string) = + let lexbuf = Lexing.from_string s in + let ast = Parser.prog Lexer.read lexbuf in + ast + let () = - let port = - Sys.getenv_opt "PORT" |> Option.map int_of_string - |> Option.value ~default:8080 - in - let env = Sys.getenv_opt "ENV" |> Option.value ~default:"PROD" in - let disable_auth = - Sys.getenv_opt "DISABLE_AUTH" |> Option.value ~default:"false" - in - let interface = if env = "DEV" then "localhost" else "0.0.0.0" in - Dream.run ~port ~interface @@ Dream.logger - @@ Dream.router - [ - Dream.get "/actor" (fun _ -> - Dream.log "Sending actor"; - Dream.html "Hello world!") - ] + let result = parse "user: id uuidv4, uh uuidv4\npurchases: id uuidv4, pid user.id" in + match result with + | Some ast -> + Ast_types.compile ast ~amount:4 + |> List.iter (fun (name, file) -> + let result = Fixture.csv_of_generated_fixtures file in + print_endline ("FILE NAME: " ^ name); + print_endline result) + | None -> print_endline "error" -- cgit v1.2.3