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]
--------------------------------------------------------------------
