From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by yquem.inria.fr (Postfix) with ESMTP id E85DBBBBB for ; Mon, 13 Feb 2006 02:32:57 +0100 (CET) Received: from smtp014.mail.yahoo.com (smtp014.mail.yahoo.com [216.136.173.58]) by nez-perce.inria.fr (8.13.0/8.13.0) with SMTP id k1D1WuMw013530 for ; Mon, 13 Feb 2006 02:32:57 +0100 Received: (qmail 76803 invoked from network); 13 Feb 2006 01:32:55 -0000 Received: from unknown (HELO ?192.168.2.2?) (jd?hsu@67.124.89.87 with plain) by smtp014.mail.yahoo.com with SMTP; 13 Feb 2006 01:32:55 -0000 Message-ID: <43EF7152.6080307@email.sjsu.edu> Date: Sun, 12 Feb 2006 17:33:06 +0000 From: jean-david hsu User-Agent: Debian Thunderbird 1.0.7 (X11/20051017) X-Accept-Language: en-us, en MIME-Version: 1.0 To: caml-list@yquem.inria.fr Subject: I don t get the lexer Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Miltered: at nez-perce with ID 43EFE1C8.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)! X-Spam: no; 0.00; lexer:01 lexer:01 val:01 char:01 genlex:01 token:01 token:01 val:01 genlex:01 abstr:01 kwd:01 kwd:01 telechargez:98 defined:01 ident:02 X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on yquem.inria.fr X-Spam-Level: X-Spam-Status: No, score=0.2 required=5.0 tests=DATE_IN_PAST_06_12 autolearn=disabled version=3.0.3 Hello everyone how come my lexer does not break "?!" both defined as keywords but puts "." aside? # let lexer = make_lexer [".";"!";"?"];; val lexer : char Stream.t -> Genlex.token Stream.t = # let token_stream = lexer(Stream.of_string "hello! but ?! but!?. . jhg.");; val token_stream : Genlex.token Stream.t = # Stream.next token_stream;; - : Genlex.token = Ident "hello" # Stream.next token_stream;; - : Genlex.token = Kwd "!" # Stream.next token_stream;; - : Genlex.token = Ident "but" # Stream.next token_stream;; - : Genlex.token = Ident "?!" # Stream.next token_stream;; - : Genlex.token = Ident "but" # Stream.next token_stream;; - : Genlex.token = Ident "!?" # Stream.next token_stream;; - : Genlex.token = Kwd "." # Stream.next token_stream;; - : Genlex.token = Kwd "." # Stream.next token_stream;; - : Genlex.token = Ident "jhg" # Stream.next token_stream;; - : Genlex.token = Kwd "." JD ___________________________________________________________________________ Nouveau : téléphonez moins cher avec Yahoo! Messenger ! Découvez les tarifs exceptionnels pour appeler la France et l'international. Téléchargez sur http://fr.messenger.yahoo.com