From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Delivered-To: caml-list@yquem.inria.fr Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by yquem.inria.fr (Postfix) with ESMTP id 1D93DBB91 for ; Wed, 26 Jan 2005 16:37:53 +0100 (CET) Received: from pauillac.inria.fr (pauillac.inria.fr [128.93.11.35]) by concorde.inria.fr (8.13.0/8.13.0) with ESMTP id j0QFbqD2024155 for ; Wed, 26 Jan 2005 16:37:52 +0100 Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id QAA10892 for ; Wed, 26 Jan 2005 16:37:52 +0100 (MET) Received: from roadrunner.doc.ic.ac.uk (roadrunner.doc.ic.ac.uk [146.169.1.193]) by concorde.inria.fr (8.13.0/8.13.0) with ESMTP id j0QFbpAl024146 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Wed, 26 Jan 2005 16:37:52 +0100 Received: from quantum06.doc.ic.ac.uk ([146.169.50.156]) by roadrunner.doc.ic.ac.uk with esmtps (TLSv1:AES256-SHA:256) (Exim 4.43) id 1CtpEt-0001YX-SS for caml-list@inria.fr; Wed, 26 Jan 2005 15:37:51 +0000 Date: Wed, 26 Jan 2005 15:37:51 +0000 (GMT) From: Yan Jun Daisy Chen To: caml-list@inria.fr Subject: extract info from file Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Miltered: at concorde with ID 41F7B950.004 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)! X-Miltered: at concorde with ID 41F7B950.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)! X-Spam: no; 0.00; initialise:01 fstat:01 daisy:98 daisy:98 unix:01 simpler:01 int:01 int:01 newline:02 newline:02 string:03 string:03 let:03 let:03 size:95 X-Spam-Checker-Version: SpamAssassin 3.0.0 (2004-09-13) on yquem.inria.fr X-Spam-Status: No, score=0.5 required=5.0 tests=FROM_ENDS_IN_NUMS autolearn=disabled version=3.0.0 X-Spam-Level: I am trying to extract comments in a text file i.e. text between (* and *). I declared a globle sting variable, buff to store them, and want to store all the comments extracted in a list of string. Is the sting variable size fixed once I initialise it? The code I came up with is: open Unix;; let fileReader = openfile "student.cd" [O_RDONLY] 0o640;; let buff = ref "file: ";; let fileSize = (fstat fileReader).st_size;; (*let fileSize = 50;;*) let noOfChar = ref 0;; let extract_comment () = let openIndex = 0 in noOfChar := read fileReader !buff openIndex fileSize; (*print_string !buff; print_newline(); print_int !noOfChar; print_newline();;*) let main () = (*let fileContent = read fileReader !buff 0 5 in print_int fileContent;*) extract_comment();; main ();; Is there a simpler way to do this? Thanks Daisy