Re: [rules-dev] Smooth operator

Here it is: private void makeFacts(){ kSession.insert( Integer.valueOf( 1 ) ); kSession.insert( Long.valueOf( 1 ) ); kSession.insert( Integer.valueOf( 0x10010 ) ); kSession.insert( Integer.valueOf( 0x10020 ) ); kSession.insert( Long.valueOf( 0x10010 ) ); kSession.insert( Long.valueOf( 0x10020 ) ); kSession.insert( Integer.valueOf( 0x10000 ) ); kSession.insert( Long.valueOf( 0x100000000L ) ); kSession.insert( Long.valueOf( 0x10000L ) ); } package shift ############### dialect "mvel" rule test1 when $a: Integer( $one: intValue == 1 ) $b: Integer( $shift: intValue ) $c: Integer( $i: intValue, intValue == ($one << $shift ) ) then System.out.println( "test1 " + $a + " << " + $b + " = " + Integer.toHexString( $c ) ); end rule test2 when $a: Integer( $one: intValue == 1 ) $b: Long ( $shift: longValue ) $c: Integer( $i: intValue, intValue == ($one << $shift ) ) then System.out.println( "test2 " + $a + " << " + $b + " = " + Integer.toHexString( $c ) ); end rule test3 when $a: Long ( $one: longValue == 1 ) $b: Long ( $shift: longValue ) $c: Integer( $i: intValue, intValue == ($one << $shift ) ) then System.out.println( "test3 " + $a + " << " + $b + " = " + Integer.toHexString( $c ) ); end rule test4 when $a: Long ( $one: longValue == 1 ) $b: Integer( $shift: intValue ) $c: Integer( $i: intValue, intValue == ($one << $shift ) ) then System.out.println( "test4 " + $a + " << " + $b + " = " + Integer.toHexString( $c ) ); end ############################## -W On 22 June 2011 17:26, Michael Anstis <michael.anstis(a)gmail.com&gt; wrote: