Yes, if you save your code with Macintosh line endings (the \r
character) (rather rare, these days, I think) then you'll have this
problem. Save with UNIX line endings (the \n character), or use a
command line this to translate your existing files:
tr \\r \\n < /path/to/script > /path/to/new_script
The "Macintosh" line endings actually won't work with a lot of other
software, as well; shell scripts, perl scripts, etc, all won't work
if you use that file format.
On Feb 18, 2008, at 3:00 PM, abritez wrote:
Thanks so much, it worked fine and helped me find cousins, aunts
and uncles
too. Now the only issue is that when i test straight from the
terminal it
works fine, but when i try to do a (batch FILEPATH) it throws me an
error
like this. I read somewhere that it may be due to me using OSX.
Jess> (batch
"/Users/abritez/Documents/__school/NewApproachesToDigitalLearning/
Jess/alexFamily.clp")
Jess reported an error in routine Tokenizer.nextToken
while executing (batch
"/Users/abritez/Documents/__school/NewApproachesToDigitalLearning/
Jess/alexFamily.clp").
Message: I/O Exception.
Program text: ( batch
"/Users/abritez/Documents/__school/NewApproachesToDigitalLearning/
Jess/alexFamily.clp"
) at line 6087.
Nested exception is:
Pushback buffer overflow
java.io.IOException: Pushback buffer overflow
at java.io.PushbackReader.unread(PushbackReader.java:136)
at jess.ce.if(Unknown Source)
at jess.n.for(Unknown Source)
at jess.n.do(Unknown Source)
at jess.Jesp.for(Unknown Source)
at jess.Jesp.parse(Unknown Source)
at jess.Jesp.parse(Unknown Source)
at jess.Batch.batch(Unknown Source)
at jess.Batch.call(Unknown Source)
at jess.ep.a(Unknown Source)
at jess.Funcall.execute(Unknown Source)
at jess.Jesp.a(Unknown Source)
at jess.Jesp.for(Unknown Source)
at jess.Jesp.parse(Unknown Source)
at jess.Jesp.parse(Unknown Source)
at jess.Main.execute(Unknown Source)
at jess.Main.main(Unknown Source)
;;;*******************************************************************
Here is my code as it stands now:
;;;*******************************************************************
;;;*************
;;;* TEMPLATES *
;;;*************
(deftemplate member (slot child)(slot mother)(slot father)(slot
gender))
;;;*****************
;;;* INITIAL STATE *
;;;*****************
(deffacts family
(member (child Alex)(mother Carmen)(father Miguel)(gender Male))
(member (child Loren)(mother Carmen)(father Miguel)(gender Female))
(member (child Carmen)(mother Rosa)(father Jorge)(gender Female))
(member (child Amanda)(mother Rosa)(father Jorge)(gender Female))
(member (child Alexandra)(mother Amanda)(father Juan)(gender Female))
(member (child Rosita)(mother Rosa)(father Jorge)(gender Female))
(member (child Eilien)(mother Rosaita)(father Luis)(gender Female))
(member (child Eddie)(mother Rosaita)(father Luis)(gender Female))
(member (child Dalila)(mother Rosa)(father Jorge)(gender Female))
(member (child Alexis)(mother Dalila)(father Alberto)(gender Female))
(member (child Carlos)(mother Dalila)(father Alberto)(gender Female))
(member (child Goerge)(mother Dalila)(father Alberto)(gender Female))
(member (child Sandra)(mother Dalila)(father Alberto)(gender Female))
(member (child Miguel)(mother Josefina)(father Octavio)(gender Male))
(member (child Elsa)(mother Josefina)(father Octavio)(gender Female))
(member (child "Luis Veron")(mother Elsa)(father Pete)(gender Female))
(member (child Marcie)(mother Elsa)(father Pete)(gender Female))
(member (child Raquel)(mother Elsa)(father Pete)(gender Female))
(member (child Patty)(mother Elsa)(father Pete)(gender Female))
(member (child Gabby)(mother Elsa)(father Pete)(gender Female))
(member (child Elba)(mother Josefina)(father Octavio)(gender Female))
(member (child Gustavo)(mother Elba)(father Jose)(gender Female))
(member (child Osvaldo)(mother Elba)(father Jose)(gender Female))
)
;;;******************
;;;* FUNCTIONS *
;;;******************
(deffunction select-relation (?gender ?relation)
;;;CHECK IS BROTHER/SISTER
(if (eq ?gender Female)
then
;;;THESE ARE FEMALES
(if (eq ?relation "sibling")
then
(return "sister"))
(if (eq ?relation "auntUncle")
then
(return "aunt"))
else
;;;THESE ARE MALES
(if (eq ?relation "sibling")
then
(return "brother"))
(if (eq ?relation "auntUncle")
then
(return "uncle"))
))
;;;******************
;;;* RULES *
;;;******************
;;;;;Find a child's mom
(defrule find_mom
(declare (salience 50))
(member (mother ?mom) (child ?child))
(ask ?child)
=>
(printout t ?child "'s mom is " ?mom crlf))
;;;;;Find a child's dad
(defrule find_dad
(declare (salience 40))
(member (father ?dad) (child ?child))
(ask ?child)
=>
(printout t ?child "'s dad is " ?dad crlf))
;;;;;Find a child's sibling (brother/sister)
(defrule find_sibling
(declare (salience 30))
(member (father ?dad) (child ?sibling))
(member (father ?dad) (child ?child))
(member (gender ?gender) (child ?sibling))
(ask ?child)
(ask ~?sibling)
=>
(printout t ?child "'s " (select-relation ?gender "sibling") " is "?
sibling
crlf))
;;;;;Find a child's grandparents
(defrule find_grandparent
(declare (salience 20))
(ask ?child)
(member (father ?dad) (mother ?mom) (child ?child))
(or (member (child ?dad) (mother ?gmom) (father ?gdad))
(member (child ?mom) (mother ?gmom) (father ?gdad)))
=>
(printout t ?child "'s " "Grandmother is " ?gmom crlf ?
child "'s
Grandfather is " ?gdad crlf))
;;;;;Find a child's (uncle/aunt)
(defrule find_uncle_aunt
(declare (salience 10))
(ask ?child)
(member (father ?dad) (mother ?mom) (child ?child))
(or (member (child ?dad) (mother ?gmom) (father ?gdad))
(member (child ?mom) (mother ?gmom) (father ?gdad)))
(member (mother ?gmom)(child ?aunt)(child ~?dad)(child ~?
mom)(gender
?gender))
=>
(printout t ?child "'s " (select-relation ?gender
"auntUncle") " is "
?aunt crlf))
;;;;;Find a child's (uncle/aunt)
(defrule find_cusins
(declare (salience 5))
(ask ?child)
(member (father ?dad) (mother ?mom) (child ?child))
(or (member (child ?dad) (mother ?gmom) (father ?gdad))
(member (child ?mom) (mother ?gmom) (father ?gdad)))
(member (mother ?gmom)(child ?aunt)(child ~?dad)(child ~?
mom)(gender
?gender))
(member (mother ?aunt)(child ?cousin))
=>
(printout t ?child "'s cousin is " ?cousin crlf))
;;;;;List children
(defrule listChild
(member (child ?y))
(ask list)
=>
(printout t ?y ", ")
)
;;;;;;prompt user for questions. This rule fires first.
(defrule askQuestions
=>
(printout t crlf "*****************************************"crlf
"Type a child's name in quotes and I will tell you the name of the
child's
parents, grandparents, uncle/aunt, cousins, and sibblings. To view
a child
list type in the command 'list'." crlf )
(assert (ask (read)))
)
;;;;;; Initialize working memory (facts)
;;;;;; Note: function (read) will be replaced with user input in
the command
console.
(reset)
(run)
--
View this message in context: http://www.nabble.com/Newbie-question-
tp15518587p15548567.html
Sent from the Jess mailing list archive at Nabble.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 owner-jess-
[EMAIL PROTECTED]
--------------------------------------------------------------------
---------------------------------------------------------
Ernest Friedman-Hill
Informatics & Decision Sciences Phone: (925) 294-2154
Sandia National Labs FAX: (925) 294-2234
PO Box 969, MS 9012 [EMAIL PROTECTED]
Livermore, CA 94550 http://www.jessrules.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]
--------------------------------------------------------------------
