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 VAA32765; Wed, 7 Apr 2004 21:27:45 +0200 (MET DST) 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 VAA00276 for ; Wed, 7 Apr 2004 21:27:44 +0200 (MET DST) Received: from smtp3.adl2.internode.on.net (smtp3.adl2.internode.on.net [203.16.214.203]) by nez-perce.inria.fr (8.12.10/8.12.10) with ESMTP id i37JSYjq015862 for ; Wed, 7 Apr 2004 21:28:36 +0200 Received: from [192.168.1.200] (ppp116-94.lns1.syd2.internode.on.net [150.101.116.94]) by smtp3.adl2.internode.on.net (8.12.9/8.12.9) with ESMTP id i37JRdJU087627; Thu, 8 Apr 2004 04:57:40 +0930 (CST) Subject: Re: [Caml-list] Function forward declaration? From: skaller Reply-To: skaller@users.sourceforge.net To: Remi Vanicat Cc: caml-list In-Reply-To: <87r7uzhezt.dlv@vanicat.homelinux.org> References: <60532B15DF92FD4693AA89B2F7E01D8F013F29EC@tmex02> <00cf01c41bd6$391b53a0$0203a8c0@hoedic> <20040406175320.GA19840@redhat.com> <1081279717.16531.6.camel@qrnik> <002901c41c65$b53e4c50$19b0e152@warp> <1081345936.19232.579.camel@pelican> <20040407141519.GA6618@redhat.com> <1081353080.19232.678.camel@pelican> <20040407164122.GA9247@redhat.com> <87r7uzhezt.dlv@vanicat.homelinux.org> Content-Type: text/plain Message-Id: <1081366059.19232.864.camel@pelican> Mime-Version: 1.0 X-Mailer: Ximian Evolution 1.2.2 (1.2.2-4) Date: 08 Apr 2004 05:27:39 +1000 Content-Transfer-Encoding: 7bit X-Miltered: at nez-perce by Joe's j-chkmail ("http://j-chkmail.ensmp.fr")! X-Loop: caml-list@inria.fr X-Spam: no; 0.00; caml-list:01 sourceforge:01 2004:99 dbh:99 userid:99 permissions:01 userid:99 fragile:01 9660:01 glebe:01 nsw:01 writes:01 remi:01 vanicat:01 snail:02 Sender: owner-caml-list@pauillac.inria.fr Precedence: bulk X-Status: X-Keywords: X-UID: 107 On Thu, 2004-04-08 at 03:31, Remi Vanicat wrote: > Richard Jones writes: > Let do it without return nor exception : > > > let run dbh q userid = > if check_permissions userid = Failed then ( > StdPages.error q "Sorry, but you don't have permission to see this" > ) else > let query = q#param "query" in > > if query =~ /^\s*$/ then ( > StdPages.error q "Please enter a query" > ) else > I don't see what is your problem here... The code you have written works but it is fragile. A more complex error check might look like this: if A then if B then error ; which disrupts the simple if/then/else chain. -- John Skaller, mailto:skaller@users.sf.net voice: 061-2-9660-0850, snail: PO BOX 401 Glebe NSW 2037 Australia Checkout the Felix programming language http://felix.sf.net ------------------- 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