From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: 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=none autolearn=disabled version=3.1.3 X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from mail1-relais-roc.national.inria.fr (mail1-relais-roc.national.inria.fr [192.134.164.82]) by yquem.inria.fr (Postfix) with ESMTP id 27B45BBCA for ; Thu, 17 Apr 2008 16:18:56 +0200 (CEST) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: ApcAAM/4BkhCbwQZk2dsb2JhbACRXAEBAQEJAwkJFpsagiw X-IronPort-AV: E=Sophos;i="4.25,671,1199660400"; d="scan'208";a="11028724" Received: from discorde.inria.fr ([192.93.2.38]) by mail1-smtp-roc.national.inria.fr with ESMTP; 17 Apr 2008 16:18:56 +0200 Received: from mail1-relais-roc.national.inria.fr (mail1-relais-roc.national.inria.fr [192.134.164.82]) by discorde.inria.fr (8.13.6/8.13.6) with ESMTP id m3HEInJl005472 (version=TLSv1/SSLv3 cipher=RC4-SHA bits=128 verify=OK) for ; Thu, 17 Apr 2008 16:18:56 +0200 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: ApcAAM/4BkhCbwQZk2dsb2JhbACRXAEBAQEJAwkJFpsagiw X-IronPort-AV: E=Sophos;i="4.25,671,1199660400"; d="scan'208";a="11028717" Received: from out1.smtp.messagingengine.com ([66.111.4.25]) by mail1-smtp-roc.national.inria.fr with ESMTP; 17 Apr 2008 16:18:49 +0200 Received: from compute1.internal (compute1.internal [10.202.2.41]) by out1.messagingengine.com (Postfix) with ESMTP id 90C4F10088C for ; Thu, 17 Apr 2008 10:18:47 -0400 (EDT) Received: from heartbeat2.messagingengine.com ([10.202.2.161]) by compute1.internal (MEProxy); Thu, 17 Apr 2008 10:18:47 -0400 X-Sasl-enc: l3/X/5VlKEFFGH1WFXBdMwTapSef574zvSQ9KfYZQRM9 1208441927 Received: from [192.168.1.10] (ALyon-157-1-140-124.w90-42.abo.wanadoo.fr [90.42.147.124]) by mail.messagingengine.com (Postfix) with ESMTPSA id E2A2D2D699 for ; Thu, 17 Apr 2008 10:18:46 -0400 (EDT) Date: Thu, 17 Apr 2008 16:17:15 +0200 (CEST) From: Martin Jambon X-X-Sender: martin@martin.ec.wink.com To: caml-list@inria.fr Subject: [camlp4] str_item filters & toplevel? Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII; format=flowed X-Miltered: at discorde with ID 48075C49.000 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)! X-Spam: no; 0.00; ens-lyon:01 camlp:01 toplevel:01 wiki:01 camlp:01 toplevel:01 expr:01 expr:01 prerr:01 stderr:01 ocamlc:01 -pp:01 ocaml:01 lib:01 cmo:01 I started from the wiki page describing how to use AST filters: http://brion.inria.fr/gallium/index.php/Camlp4MapGenerator The example doesn't work in the toplevel (3.10.1), although it works otherwise. How to make it work? Here is my testing session: $ cat simplify.ml open Camlp4.PreCast let simplify = Ast.map_expr begin function | <:expr< $x$ + zero >> | <:expr< zero + $x$ >> -> x | x -> x end in AstFilters.register_str_item_filter simplify#str_item let _ = prerr_string "Loaded \"simplify\"\n"; flush stderr $ ocamlc -c -pp camlp4of -I +camlp4 simplify.ml $ \ocaml -I +camlp4 camlp4lib.cma simplify.cmo Loaded "simplify" Objective Caml version 3.10.1 # 1 + zero;; Unbound value zero # $ camlp4o ./simplify.cmo -str '1 + zero' Loaded "simplify" 1 -- http://wink.com/profile/mjambon http://mjambon.com