From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <jeremy.yallop@ed.ac.uk>
X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=5.0 tests=AWL autolearn=disabled 
	version=3.1.3
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from mail2-relais-roc.national.inria.fr (mail2-relais-roc.national.inria.fr [192.134.164.83])
	by yquem.inria.fr (Postfix) with ESMTP id A7C7FBBCA
	for <caml-list@yquem.inria.fr>; Fri, 21 Mar 2008 16:43:58 +0100 (CET)
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AiAFAGN040fAXQIn/2dsb2JhbACBWqgy
X-IronPort-AV: E=Sophos;i="4.25,536,1199660400"; 
   d="scan'208";a="8668479"
Received: from concorde.inria.fr ([192.93.2.39])
  by mail2-smtp-roc.national.inria.fr with ESMTP; 21 Mar 2008 16:43:58 +0100
Received: from mail1-relais-roc.national.inria.fr (mail1-relais-roc.national.inria.fr [192.134.164.82])
	by concorde.inria.fr (8.13.6/8.13.6) with ESMTP id m2LFhud3006163
	(version=TLSv1/SSLv3 cipher=RC4-SHA bits=128 verify=OK)
	for <caml-list@inria.fr>; Fri, 21 Mar 2008 16:43:58 +0100
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: Aq4BAGN040dT9QHmeGdsb2JhbACBWo80AQwECAcYmEY
X-IronPort-AV: E=Sophos;i="4.25,536,1199660400"; 
   d="scan'208";a="9794154"
Received: from pop.bulldoghome.com (HELO bdmail1.accesst.com) ([83.245.1.230])
  by mail1-smtp-roc.national.inria.fr with ESMTP; 21 Mar 2008 16:43:57 +0100
Received: from host-84-9-232-170.dslgb.com ([84.9.232.170] helo=[192.168.123.191])
	by bdmail1.accesst.com with esmtpa (Exim 4.50)
	id 1JcjME-0003DH-I0; Fri, 21 Mar 2008 15:40:38 +0000
Message-ID: <47E3D5EB.5050502@ed.ac.uk>
Date: Fri, 21 Mar 2008 15:36:11 +0000
From: Jeremy Yallop <jeremy.yallop@ed.ac.uk>
User-Agent: Mozilla-Thunderbird 2.0.0.9 (X11/20080110)
MIME-Version: 1.0
To: Richard Jones <rich@annexia.org>
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] camlp4 question: Mixing a printer and Ast.fold
References: <20080321150639.GA29482@annexia.org>
In-Reply-To: <20080321150639.GA29482@annexia.org>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Miltered: at concorde with ID 47E3D7BC.000 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)!
X-Spam: no; 0.00; camlp:01 syntax:01 camlp:01 syntax:01 functor:01 expr:01 struct:01 gettext:01 sig:01 sig:01 struct:01 val:01 expr:01 interf:01 iter:01 

Richard Jones wrote:
> I cannot for the life of me work out how to get this to compile.  I've
> tried about a dozen different variations of the module names, 'open',
> 'include' etc. and got a dozen different errors.

Here's another variation that compiles and seems to work.  I changed the 
following:

    * the argument type to Make from "Syntax" to "Camlp4Syntax"
    * the register functor from "Printer" to "OCamlPrinter"
    * the accumulated value in "expr" from "str" to "singular".

Jeremy.

module Id = struct
   let name = "pr_gettext"
   let version = "$Id$"
end

module Make (Syntax : Camlp4.Sig.Camlp4Syntax)
   : Camlp4.Sig.Printer(Syntax.Ast).S =
struct
   open Syntax

   class visitor = object
     inherit Ast.fold as super

     val t = []
     method t = t

     method expr = function
     | <:expr@loc< f $str:singular$ >> ->
       let t = singular :: t in
       {< t = t >}

     | e -> super#expr e
   end

   let print_interf ?input_file ?output_file _ = ()

   let print_implem ?input_file ?output_file ast =
     let visitor = (new visitor)#str_item in
     let t = (visitor ast)#t in
     List.iter prerr_endline t
end

(* Register the new printer. *)
module M = Camlp4.Register.OCamlPrinter(Id)(Make)