Hi, Well, I just misspoke; you'll have the same problem, for the same reason, if you use (batch), because the newline after you type (batch) will be eaten by the first readline. Put the script into a file, then start Jess as "java jess.Main file.clp" and your problem will not occur.
Alternately, simply don't use "readline" to read single tokens. Use (read) -- that's what it's for. I think Abdul Gaffar wrote: > Hi, > I have got all my rules in a seperate .clp file and not entering them in the > Jess> prompt. Im using the Batch command to execute them. So I dont think > theres any interference. But that still doesnt really answer my question. I > still cannot pinpoint the cause of this I/O (readline) conflict. I've tried > running examples from Mark Watsons Intelligent Java application which is to > be run under Jess. I have the same problem as I do with my program. To make > my point clearer, here is my simple code...Note that the cause of the > problem is the startup rule at the bottom. The rest of the rules work fine. > ******************* > > (deftemplate goal > (slot type) > (slot value (default N)) ;; N for No, Y for Yes > (slot value2 (default n))) ;; 1 for whole testes 2 for lump on teste > > (defrule handle_swelling > ?fact1 <-(goal (type swelling) (value "Y"));; (value "y")) > => > (printout t " " crlf) > (printout t "Swelling can be caused by several factors " crlf) > (printout t "so you shoudnlt worry too much yet! " crlf) > > (printout t "As for the swelling, can u feel a specific lump?" crlf) > (printout t "(Yes or No) " crlf) > (assert (goal (type lump_present) (value (readline))))) > > > (defrule handle_lump > ?fact1 <-(goal (type lump_present)(value "Y")) > => > (printout t "Since you have said that u can feel the lump " crlf) > (printout t "I need to know whether u can feel above the " crlf) > (printout t "Lump ? (Y or No) " crlf) > (assert (goal (type above_lump)(value (readline))))) > > > (defrule handle_hernia > ?fact1 <- (goal (type above_lump)(value "N")) > => > (printout t "It seems like your diagnosis is that of " crlf) > (printout t "Inguinoscrotal Hernia.. CHECK UR DR ASAP! " crlf)) > > (defrule handle_pain > ?fact1 <- (goal (type above_lump)(value "Y")) > => > (printout t "Another question. This may seem obvious but " crlf) > (printout t "do you feel any pain? (Y or N): " crlf) > (assert (goal (type pain)(value (readline))))) > > (defrule handle_nopain > ?fact1 <- (goal (type pain)(value "N")) > => > (printout t " " crlf) > (printout t "It is possible that you have an illness as " crlf) > (printout t "certain illnesses do not exhibit painful " crlf) > (printout t "symptoms. Carry on with the diagnosis " crlf) > (printout t "to find out if you do have an illness " crlf) > (assert (goal (type pain)(value "Y")))) > > (defrule handle_location > ?fact1 <- (goal (type pain)(value "Y")) > => > (watch facts) > (printout t " " crlf) > (printout t "Now that we have estalished that you may or " crlf) > (printout t "may not be experiencing pain and " crlf) > ;;(assert (goal (type above_lump)(value "Y"))) > (printout t "you have the symptoms of an known illness" ?fact1 crlf) > (printout t "Now we need to acertain which particular illness u have" crlf) > (printout t " " crlf) > (printout t "Do you feel a lump on ur actual testicle? (Y or N)" crlf) > (assert (goal (type testes)(value (readline))))) > > (defrule handle_epid_or_elsewhere > ?fact1 <- (goal (type testes)(value "N")) > => > (printout t "If you dont have a swelling around ur testicle then it must be > " crlf) > (printout t "either on ur Epididimus or elsewhere " crlf) > (printout t "Do you feel a hard lump or stringlike feature ? " crlf) > (printout t "Answer 1 for hard lump or stringlike " crlf) > (printout t "Answer 2 for soft swelling " crlf) > (assert (goal (type hard)(value (readline))))) > > (defrule handle_elsewhere > ?fact1 <- (goal (type hard) (value "2")) > => > (printout t "Since the lump appears to be soft, is seems to me " crlf) > (printout t "that you may have Hydrocoele. To confirm i need to kno " crlf) > (printout t "wether the lump is transluminous ? Y or N " crlf) > (assert (goal (type transluminous) (value (readline))))) > > (defrule handle_hydrocoele > ?fact2 <- (goal (type transluminous)(value "Y")) > => > (printout t "The symptoms indicate that you have HYDROCOELE " crlf) > (printout t "********* END OF DIAGNOSIS *********** " crlf)) > > (defrule handle_testes > ?fact1 <- (goal (type testes)(value "Y")) > => > (unwatch facts) > (printout t "You say you feel a swelling in your testicle does " crlf) > (printout t "that mean that your whole testicle is swollen or " crlf) > (printout t "that there is a lump upon your testicle? " crlf) > (printout t " " crlf) > (printout t "Answer 1 for whole testes is swollen or " crlf) > (printout t "Answer 2 for lump on the actual testicle " crlf) > (assert (goal (type actual_lump)(value (readline))))) > > (defrule handle_TC > ?fact1 <-(goal (type actual_lump)(value "2")) > => > (printout t "Since your can feel an actual lump on ur testes " crlf) > (printout t "I can conclude that you have testicular cancer " crlf) > (printout t "****** END OF DIAGNOSIS ********* " crlf)) > > (defrule handle_orchitis > ?fact1 <-(goal (type actual_lump)(value "1")) > => > (printout t "Since you say that your whole testes is swollen " crlf) > (printout t "I can conclude that you have Inguinoscrotal Hernia " crlf) > (printout t "***** END OF DIAGNOSIS ******** " crlf)) > > (defrule handle_Cyst_or_Epid > ?fact1 <- (goal (type hard)(value "1")) > => > (printout t "Since u say that the lump or swelling is hard or stringlike > " crlf) > (printout t "I can conclude that you have symptoms for " crlf) > (printout t "Epididymitis or Epididymal Cyst " crlf) > (printout t "Now I need to distnguish! I need differentiate whether its > stringlike " crlf) > (printout t "or if its hard and beady? ( (Y) if it is stringlike else (N)): > " crlf) > > (printout t "******** Contine till last question ********* " crlf) > (assert (goal (type stringlike) (value (readline))))) > > (defrule handle_stringlike > ?fact1 <- (goal (type stringlike)(value "Y")) > => > (printout t "Since you say the swelling is stringlike and not on ur testes " > crlf) > (printout t "I can conclude that you have EPIDIDYMITIS " >crlf) > (printout t "********** END OF DIAGNOSIS ********** " crlf)) > > (defrule handle_hardnbeady > ?fact1 <- (goal (type stringlike)(value "N")) > => > (printout t "Now that I know you have had all the symptoms that relate to " > crlf) > (printout t "confirmation that you are experiencing " crlf) > (printout t "EPIDIDYMAL CYST " crlf) > (printout t "********* END OF DIAGNOSIS ********** " crlf)) > > (defrule res_of_injury > ?fact1 <- (goal (type injury) (value "Y")) > => > (printout t " " crlf) > (printout t "Due to injury, you may have several symptoms "crlf) > (printout t "that may or may not be due to the prescence of a" crlf) > (printout t "severe illness. Carry on with the diagnosis to " crlf) > (printout t "see if you have any major concerns. " crlf) > (modify ?fact1 (value being_treated)) > (assert (goal (type swelling)(value "Y")))) > > > (defrule consult_doctor > ?fact1 <- (goal (type lump_present)(value "N")) > ;;?fact2 <- (goal (type transluminous)(value "N")) > => > (printout t "You need to CONSULT a DOCTOR " crlf)) > > > (defrule startup "define initial WME's created by (reset) " > => > (printout t "Welcome to the diagnosis program " crlf) > (printout t "The system will ask you a series of questions " crlf) > (printout t "to which you need to answer Y or N " crlf) > > (printout t "Have you experience any swelling ? (Y or N): ") > (assert (goal > (type swelling) > (value (readline)))) > > (printout t "Have you been injured recently ? (Y or N): ") > (assert (goal > (type injury) > (value (readline))))) > ************************************************* > Your help is very much appreciated! > > > >From: [EMAIL PROTECTED] > >Reply-To: [EMAIL PROTECTED] > >To: [EMAIL PROTECTED] > >Subject: Re: JESS: JESS BUG > >Date: Fri, 10 May 2002 08:42:36 -0700 (PDT) > > > >Hi, > > > >First, let me point out that I long ago stopped making any claims that > >Jess was a workalike for CLIPS. In general, things like I/O do work > >differently. > > > >I'm assuming that you're actually typing these rules in at the Jess> > >prompt (using either jess.Main or jess.Console), That's important, > >because what's happening is that both the code and the runtime input > >are coming from the same place; that's the only case where this > >matters. > > > >The problem is that when you type > > > >Jess> (run)<Enter> > > > >There's a newline after the (run) function call from when you press > ><Enter> and the first (readline) call returns that newline. That's > >just how things work in Jess, sorry. This problem won't occur in a > >real system because no one would type all the rules in each time they > >wanted to run them; they'd put the rules in a file. If you put the > >rules in a file and use (batch), or if you start jess.Main as "java > >jess.Main file.clp", then the rules and the runtime input are coming > >from two different places, so there's no interference. > > > >Before you decide that this is "wrong", try an experiment: what does > >this line do in Jess if you type it at the command line? > > > >(defrule foo => (printout t fire crlf)) (reset) (run) > > > >What does it do in a batch file? That's right; in both cases, it > >prints "fire". > > > >Now try the same thing in CLIPS. In both cases, it just defines the > >rule, and doesn't run it. CLIPS ignores everything on a line of input > >after the first complete expression. Which do you like better? Which > >is more surprising? > > > > > >I think Abdul Gaffar wrote: > > > > > > Greetings > > > > > > I am having problems trying to execute my code in JESS. The code works > >fine > > > under CLIPSWIN, but if I try and run it in JESS then I get strange > > > behaviour. For example when program is run, it should ask the questions > >ONE > > > AT A TIME instead of having both questions asked together. The code > >snippet > > > for the startup rule is shown below. > > > > > > (defrule startup "define initial WME's created by (reset) " > > > => > > > (printout t "Welcome to the diagnosis program " crlf) > > > (printout t "The system will ask you a series of questions " crlf) > > > (printout t "to which you need to answer Y or N " crlf) > > > > > > (printout t "Have you experience any swelling ? (Y or N): ") > > > (assert (goal > > > (type swelling) > > > (value (readline)))) <--Should ask this and wait for response. > >Instead > > > it displays this 1st question and diplays the statement below > >simultaneously > > > and waits for user input there. I dont see why it does this. > > > > > > (printout t "Have you been injured recently ? (Y or N): ") > > > (assert (goal > > > (type injury) > > > (value (readline))))) > > > > > > Can anyone help as its doing my head in.. Just doesnt make any sense at > >all. > > > Is this a Bug in JESS?? > > > > > > Here is the output from running the code. > > > ***************** > > > Welcome to the diagnosis program > > > The system will ask you a series of questions > > > to which you need to answer Y or N > > > Have you experience any swelling ? (Y or N): Have you been injured > > > recently ? (Y or N): > > > > > > ****************************************** > > > > > > _________________________________________________________________ > > > MSN Photos is the easiest way to share and print your photos: > > > http://photos.msn.com/support/worldwide.aspx > > > > > > > > > -------------------------------------------------------------------- > > > To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' > > > in the BODY of a message to [EMAIL PROTECTED], NOT to the list > > > (use your own address!) List problems? Notify > >[EMAIL PROTECTED] > > > -------------------------------------------------------------------- > > > > > > > > > > >--------------------------------------------------------- > >Ernest Friedman-Hill > >Distributed Systems Research Phone: (925) 294-2154 > >Sandia National Labs FAX: (925) 294-2234 > >Org. 8920, MS 9012 [EMAIL PROTECTED] > >PO Box 969 http://herzberg.ca.sandia.gov > >Livermore, CA 94550 > > > >-------------------------------------------------------------------- > >To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' > >in the BODY of a message to [EMAIL PROTECTED], NOT to the list > >(use your own address!) List problems? Notify [EMAIL PROTECTED] > >-------------------------------------------------------------------- > > > > > _________________________________________________________________ > Chat with friends online, try MSN Messenger: http://messenger.msn.com > > > -------------------------------------------------------------------- > To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' > in the BODY of a message to [EMAIL PROTECTED], NOT to the list > (use your own address!) List problems? Notify [EMAIL PROTECTED] > -------------------------------------------------------------------- > --------------------------------------------------------- Ernest Friedman-Hill Distributed Systems Research Phone: (925) 294-2154 Sandia National Labs FAX: (925) 294-2234 Org. 8920, MS 9012 [EMAIL PROTECTED] PO Box 969 http://herzberg.ca.sandia.gov Livermore, CA 94550 -------------------------------------------------------------------- To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' in the BODY of a message to [EMAIL PROTECTED], NOT to the list (use your own address!) List problems? Notify [EMAIL PROTECTED] --------------------------------------------------------------------
