From: Jacques Carette <carette@mcmaster.ca>
To: "Ömer Sinan Ağacan" <omeragacan@gmail.com>
Cc: OCaml Mailing List <caml-list@inria.fr>
Subject: Re: [Caml-list] Problems with printing MetaOCaml generated code
Date: Sat, 02 May 2015 22:28:16 -0400 [thread overview]
Message-ID: <554587C0.1070500@mcmaster.ca> (raw)
In-Reply-To: <CAMQQO3kMq1Gx5RL3QtRS+YupqubZtiKMqZto6Z25_j3XpvBPPg@mail.gmail.com>
But that's the whole point: you are not persisting a value, you are
persisting a local variable.
In the context of staging, a variable and its value are radically
different, unlike in the traditional functional programming context,
where this difference can be safely and harmlessly blurred.
If you want to persist "named values", then give globally accessible
names to these values [which I believe others have already told you].
If you want to persist values, then use my solution or a variant of that.
Jacques
On 2015-05-02 9:56 PM, Ömer Sinan Ağacan wrote:
> That's not a solution. I should be able to generate some values in
> code generation time and persist them in code values, that's the whole
> point here.
>
> 2015-05-02 16:49 GMT-04:00 Jacques Carette <carette@mcmaster.ca>:
>> try instead
>> let stx1 = .< A >. in
>> and then
>> print_code std_formatter .< .~stx1 >. ;
>>
>> That ought to work as you wish.
>>
>> Jacques
>>
>>
>> On 2015-05-02 2:45 PM, Ömer Sinan Ağacan wrote:
>>> In case anyone's still interested, I produced a very simple example that
>>> demonstrates the issue:
>>>
>>> ➜ metaocaml_serialization_issue git:(master) ✗ ls
>>> Main.ml Syntax.ml
>>> ➜ metaocaml_serialization_issue git:(master) ✗ cat Syntax.ml
>>> type stx =
>>> | A
>>> | B of stx
>>> | C of (stx * stx)
>>> ➜ metaocaml_serialization_issue git:(master) ✗ cat Main.ml
>>> open Format
>>> open Print_code
>>> open Runcode
>>> open Syntax
>>>
>>> let _ =
>>> let stx1 = A in
>>> let stx2 = B A in
>>> let stx3 = C (A, A) in
>>>
>>> print_code std_formatter .< stx1 >.;
>>> print_code std_formatter .< stx2 >.;
>>> print_code std_formatter .< stx3 >.;
>>>
>>> print_closed_code std_formatter (close_code .< stx1 >.);
>>> print_closed_code std_formatter (close_code .< stx2 >.);
>>> print_closed_code std_formatter (close_code .< stx3 >.);
>>> ➜ metaocaml_serialization_issue git:(master) ✗ metaocamlc Syntax.ml -c
>>> ➜ metaocaml_serialization_issue git:(master) ✗ metaocamlc
>>> Syntax.cmo Main.ml -o main
>>> ➜ metaocaml_serialization_issue git:(master) ✗ ./main
>>> .<(* CSP stx1 *) Obj.magic 0>. .<(* CSP stx2 *)>. .<(* CSP stx3 *)>. .<
>>> (* CSP stx1 *) Obj.magic 0>. .<(* CSP stx2 *)>. .<(* CSP stx3 *)>.
>>> ➜ metaocaml_serialization_issue git:(master) ✗
>>>
>>>
>>> 2015-05-01 12:53 GMT-04:00 Ömer Sinan Ağacan <omeragacan@gmail.com>:
>>>>> You can't serialize `eval_ref` as `eval_ref` because that is a local
>>>>> identifier. If you print out `eval_ref` into some other ml file and
>>>>> compiler
>>>>> it, it is going to give an "Unbound identifier eval_ref" error.
>>>> That's true. Just to make sure and make the output more clear, I moved
>>>> the
>>>> relevant code to another module, and now it's printing this:
>>>>
>>>> .<Unlambda.eval_ref (* CSP p' *) []>.
>>>>
>>>> My main question is that it should serialize p' here, but it doesn't. I'm
>>>> trying to understand why.
>>
next prev parent reply other threads:[~2015-05-03 2:28 UTC|newest]
Thread overview: 23+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-04-30 18:36 Ömer Sinan Ağacan
2015-04-30 19:52 ` Jacques Carette
2015-04-30 20:25 ` Ömer Sinan Ağacan
2015-04-30 20:57 ` Ömer Sinan Ağacan
2015-04-30 21:35 ` Jeremy Yallop
2015-05-01 11:21 ` oleg
2015-05-01 14:34 ` Ömer Sinan Ağacan
2015-05-01 16:16 ` Leo White
2015-05-01 16:41 ` Ömer Sinan Ağacan
2015-05-01 16:45 ` Leo White
2015-05-01 16:53 ` Ömer Sinan Ağacan
2015-05-02 18:45 ` Ömer Sinan Ağacan
2015-05-02 20:49 ` Jacques Carette
2015-05-03 1:56 ` Ömer Sinan Ağacan
2015-05-03 2:28 ` Jacques Carette [this message]
2015-05-03 3:19 ` Ömer Sinan Ağacan
2015-05-03 8:40 ` Gabriel Scherer
2015-05-03 14:28 ` Ömer Sinan Ağacan
2015-05-03 15:24 ` Leo White
2015-05-03 15:50 ` Ömer Sinan Ağacan
2015-05-06 9:50 ` oleg
2015-05-06 15:58 ` Jeremy Yallop
2015-05-06 16:45 ` Yotam Barnoy
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=554587C0.1070500@mcmaster.ca \
--to=carette@mcmaster.ca \
--cc=caml-list@inria.fr \
--cc=omeragacan@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox