From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from majordomo@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id JAA31734; Thu, 14 Nov 2002 09:45:26 +0100 (MET)
X-Authentication-Warning: pauillac.inria.fr: majordomo set sender to owner-caml-list@pauillac.inria.fr using -f
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id JAA31719 for <caml-list@pauillac.inria.fr>; Thu, 14 Nov 2002 09:45:25 +0100 (MET)
Received: from [192.168.2.39] (as5300.kharkov.ukrtel.net [195.5.1.188])
	by nez-perce.inria.fr (8.11.1/8.11.1) with ESMTP id gAE8ix122543
	for <caml-list@inria.fr>; Thu, 14 Nov 2002 09:44:59 +0100 (MET)
Received: from yrashk by openeas.org with local (masqmail 0.2.6) id
 18CFh1-3le-00 for <caml-list@inria.fr>; Thu, 14 Nov 2002 10:49:43 +0200
Date: Thu, 14 Nov 2002 10:49:43 +0200
From: "Yurii A. Rashkovskii" <yrashk@openeas.org>
To: caml-list@inria.fr
Subject: Re: [Caml-list] int32/int64 literals in next release?
Message-ID: <20021114084943.GB13242@rashko>
References: <200211132203.gADM3nN14766@plinky.bolt-action.com> <200211132142.WAA19709@pauillac.inria.fr> <20021113234425.C23757@speakeasy.org>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="98e8jtXdkpgskNou"
Content-Disposition: inline
In-Reply-To: <20021113234425.C23757@speakeasy.org>
User-Agent: Mutt/1.4i
Sender: owner-caml-list@pauillac.inria.fr
Precedence: bulk


--98e8jtXdkpgskNou
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

Hi Shawn!

On Wed, 13 Nov 2002, Shawn Wagner wrote:
> Problems I know about already:

[...]

> Help with any of the above is appreciated.

May be something like this will be easier?


open Pcaml;;

let create_int loc v =3D <:expr< (int_of_string $str:v$) >>;;
let create_int32 loc v =3D <:expr< (Int32.of_string $str:v$) >>;;
let create_int64 loc v =3D <:expr< (Int64.of_string $str:v$) >>;;
let create_nativeint loc v =3D <:expr< (Nativeint.of_string $str:v$) >>;;

EXTEND

 expr:
  [[
     i =3D INT; "l" -> create_int32 loc i
   | i =3D INT; "L" -> create_int64 loc i
   | i =3D INT; "n" -> create_nativeint loc i  =20
   | i =3D INT -> create_int loc i
  ]];

END
;

--=20
Regards,
Yurii.

--98e8jtXdkpgskNou
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.0 (GNU/Linux)

iD8DBQE902On/5/+hDnz2cERAo/rAJ90j+fDW1qRYuEWhssu1e6liLs0FACgrPL1
2zMzNYKvG4aSjBEaH8nZdyQ=
=WRlp
-----END PGP SIGNATURE-----

--98e8jtXdkpgskNou--
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners