79.161.211.54: /* dsl */

2017-06-15T12:49:26Z

dsl

New page

=Basic=
==EX1==
<source>
rule "Exercise 1"
enabled false
when
$s : Salgrade()
then
System.out.println($s.grade + " " + $s.losal + " " + $s.hisal)
end
</source>

==EX2==
<source>
rule "Exercise 2"
when
e : Emp(sal > 1000, sal <2000)
then
System.out.println(
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal + " " +
e.deptno );
end
</source>

==EX3==
<source>
rule "Exercise 3"
enabled true
when
$e : Emp($e.job == "CLERK", $e.deptno == 20)
then
System.out.println($e.id + " " + $e.name + " " + $e.job + " " + $e.sal)
end
</source>

==EX4==
<source>
rule "Exercise 4"
enabled true
when
$e : Emp($e.mgr != 0)
then
System.out.println($e.id + " " + $e.name + " " + $e.job + " " + $e.sal)
end
</source>

==EX5==
<source>
rule "Exercise 5"
enabled true
when
$e : Emp($e.job == "MANAGER")
then
System.out.println($e.id + " " + $e.name + " " + $e.job + " " + $e.sal*12)
end
</source>

==EX6==
<source>
rule "Exercise 6"
enabled true
when
$e : Emp(Name matches ".LA.*")
then
System.out.println($e.id + " " + $e.name + " " + $e.job + " " + $e.sal*12)
end
</source>

==EX7==
<source>
rule "Exercise 7"
when
$e: Emp (Name matches ".*T.*N")
then
System.out.println($e.name);
end
</source>

==EX8==
<source>
rule "Exercise 8"
when
$e : Emp((job == "MANAGER" && deptno != 10) || (job != "MANAGER" && deptno == 10))
then
System.out.println($e.id + " " + $e.name+ " " + $e.job+ " " + $e.deptno)
end
</source>

=Advanced=
==EX31==
<source>
rule "Exercise 31"
enabled false
when
$e : Emp()
$d : Dept($e.deptno == deptno)
then
System.out.println($e.name + " " + $d.loc)
end
</source>

==EX32==
<source>
rule "Exercise 32"
enabled false
when
$e : Emp()
$d : Dept($e.deptno == deptno)
then
System.out.println($e.name + " " + $d.dname+ " " + $d.deptno)
end
</source>

==EX33==
<source>
rule "Exercise 33"
enabled false
when
$e : Emp()
$s : Salgrade($e.sal <= hisal, $e.sal >= losal, $e.sal > 2000)
then
System.out.println($e.name + " " + $e.sal+ " " + $s.grade)
end
</source>

==EX34==
<source>
rule "Exercise 34"
enabled false
when
$e : Emp()
$d : Dept($e.deptno == deptno, loc == "LONDON")
then
System.out.println($e.name + " " + $d.loc)
end
</source>

==EX35==
<source>
rule "Exercise 35"
when
d: Dept (dn: deptno, l:loc != "LONDON")
e: Emp (deptno == d.deptno, s: sal)
Salgrade( losal <= s, hisal >= s, sg: grade)
then
System.out.println(e.name + "\t"+ l + "\t" + sg)
end
</source>

==EX36==
<source>
rule "Exercise 36"
enabled false
when
$de : Dept ()
not ( Emp (deptno == $de.deptno) )
then
System.out.println ( $de.dname )
end

</source>

==EX37==
<source>
rule "Exercise 37"
enabled false
when
$e1 : Emp ( $ma : mgr)
$e2 : Emp ( $ma == id )
then
System.out.println ( $e1.name + "'s Boss is " + $e2.name)
end
</source>

==EX38==
<source>
rule "Exercise 38"
enabled false
when
$e : Emp ( $n : name , mgr == 0 )
then
System.out.println ( $n )
end
</source>
<source>
rule "Exercise 38"
when
$e :Emp()
not (Emp(id == $e.mgr))
then
System.out.println( $e.name)
end
</source>

==EX39==
<source>
rule "Exercise 39"
enabled false
when
$e : Emp ()
not ( Emp ( mgr == $e.id) )
then
System.out.println ( $e.name )
end
</source>

==EX41==
<source>
rule "Exercise 41"
enabled false
when
$e1 : Emp ()
$e2 : Emp ( $e1.mgr == id , $e1.hiredate < hiredate )
then
System.out.println ( $e1.name + " was hired in " + $e1.hiredate + ", her boss " + $e2.name + " who was hired in " + $e2.hiredate )
end
</source>

==EX44==
<source>
rule "Exercise 44"

when
$e : Emp ( deptno == 10 )
not ( Emp ( deptno == 20 , job == $e.job) )
then
System.out.println ( "Position in Department 10 and not in Department 20 is " + $e.job )
end
</source>

==EX23==
<source>
rule "Exercise 23"
//enabled false
when
accumulate (e :Emp(hiredate == 1981),
$avg : average(e.sal),
$min : min(e.sal),
$max : max(e.sal)
)

then
System.out.println(
"Average salary: " + $avg + "\n" +
"Min salary: " + $min + "\n" +
"Max salary: " + $max + "\n"
)
end
</source>

==EX24==
<source>
rule "Exercise 24 Adv"
when
accumulate (e: Emp(), min : min(e.sal), max : max(e.sal))
then
System.out.println("Difference: " + (max - min))
end
</source>

==EX26==
<source>
rule "Exercise 26"
when
accumulate ( e: Emp(job == "MANAGER"), c: count() )
then
System.out.println("There are " + c + " Managers")
end
</source>

==EX25==
<source>
</source>

==EX27==
<source>
declare SalByDept
dept : int
end

rule "Exercise 27"
when
Emp(dn : deptno) and
not SalByDept(dept == dn)
accumulate (e :Emp(deptno ==dn), $avg : average(e.sal*12) )
then
System.out.println( "Average salary in department " + dn + " is: " + $avg + "" )
insert(new SalByDept(dn))
end
</source>

==EX43==
<source>
</source>
==EX28==
<source>
</source>
==EX45==
<source>
</source>
==EX46==
<source>
</source>
==EX51==
<source>
</source>
==EX55==
<source>
</source>
=inserLogical=
==rule==
<source>
import com.nobleprog.FactModel.*
dialect "mvel"

declare AccessToSecretFile
emp : Emp
end

rule "Grant access to employees of Dept. 10"
when
e : Emp( deptno == 10 )
then
insertLogical( new AccessToSecretFile(e) )
end
</source>

==jUnit==
<source>
Emp $blair = new Emp(7698, "BLAIR", "MANAGER", 7839, 1981, 2850, 10);
FactHandle $blairFH = ksession.insert($blair);

KnowledgeRuntimeLogger logger = KnowledgeRuntimeLoggerFactory.newFileLogger((KnowledgeRuntimeEventManager) ksession, "/tmp/logicalinsert_exercise");

ksession.fireAllRules();
$blair.setDeptno(30);
ksession.update($blairFH, $blair);
ksession.fireAllRules();
</source>

=DSL=
==Exercise 1==
===dslr===
<source>
package rules1
import com.nobleprog.FactModel.*;
import java.lang.Math
dialect "mvel"

expander Exercise01.dsl

rule "Rule 1"

when
There are employees earning more than 2000
then
Show name and salary

end
</source>

===dsl===
<source>
[condition][]There are employees earning more than {salary}=e:Emp(sal > {salary})
[*][]Show name and salary=System.out.println("Name: " + e.name + " Salary: " + e.sal)
</source>

==Exercise 2==
===dslr===
<source>
rule "Rule 2"
when
There is a department which
- is located in LONDON
- department number is greater than 5
then
Show department name
end
</source>

===dsl===
<source>
[condition][]There is a department which=d: Dept()
[condition][]- is located in {location}=loc == "{location}"
[condition][]- department number is greater than {nr}=deptno > {nr}
[consequence][]Show department name=System.out.println(d.dname)
</source>

==Exercise 3==
===dslr===
<source>
rule "Rule 3"
when
// Make sure that the rule will work for both cases
There are departments where:
// There is a department where:
there are managers working in
//also there is an anlyst working in it
then
Show department name

end
</source>

===dsl===
<source>
[Condition][]There are departments where:= d: Dept()
[Condition][]There is a department where:= d: Dept()
[Condition][]there are {job}s working in = Emp (job == "{job!uc}", deptno==d.deptno)
[Condition][]also there is an {job} working in it = Emp (job == "{job!uc}", deptno==d.deptno)
[Consequence][]Show department name= System.out.println(d.dname)
</source>

Drools Stavanger - Revision history

79.161.211.54: /* dsl */