package p5scm

  1. Overview
  2. Docs
Scheme via camlp5

Install 

dune-project
 Dependency

github.com Readme MIT License Edit opam file Versions (5)

Authors

  1. J
    Jason D. Nielsen

Maintainers

  1. D
    drjdnielsen@gmail.com

Sources

0.5.0.tar.gz
md5=e0fe733bb7a8cccc94bfbbd3b58e6d76
sha512=4f4efad8bb7b2ab5cfc0fff9bb48e45df8e7396d288d52f5c84b53919e1979720bbd909e82e714e1eb6fe8d3b83c14656167199373a197a6082eab2457fea94d

doc/src/p5scm.lib/trans.ml.html

Source file trans.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
(*
 The MIT License                                                                              

 Copyright (c) 2021 Jason D. Nielsen <drjdnielsen@gmail.com>
 *)

let add_nl str = str ^ "\n"

let scm_to_mlast str =
  let mlast, _ = Pa_scheme.pa_sch str in
  List.map fst mlast

let scm_to_tp str = Ast2pt.phrase (List.hd (scm_to_mlast str))
let scm_to_tp_lst str = List.map Ast2pt.phrase (scm_to_mlast str)
let scm_to_struct str = Ast2pt.implem "-" (scm_to_mlast str)

let scm_to_ml str =
  let mlast, _ = Pa_scheme.pa_sch str in
  let strml = List.map Pr_o.pr_o (List.map fst mlast) in
  let out = String.concat "" (List.map add_nl strml) in
  out ^ ";;\n"

let scm_to_struct_to_ml str =
  let stast = scm_to_struct str in
  let out = Pprintast.string_of_structure stast in
  out ^ ";;\n"

let scm_to_bin str =
  let mlast, status = Pa_scheme.pa_sch str in
  let phr =
    match status with
    | None -> failwith "No location provied!"
    | Some loc -> mlast, loc
  in
  Pr_dump.pr_dump phr

let scm_to_bin_file str fname =
  let mlast, status = Pa_scheme.pa_sch str in
  let phr =
    match status with
    | None -> failwith "No location provied!"
    | Some loc -> mlast, loc
  in
  Pcaml.output_file := Some fname;
  Pr_dump.pr_dump phr