falluto 0.0.1 → 0.0.9

data/lib/falluto/grammar/rules.treetop

@@ -0,0 +1,478 @@
+module Falluto
+  grammar Grammar
+    include Tokens
+
+    rule program
+      sp module_list eof
+    end
+
+    rule number
+      TOK_NUMBER
+      / TOK_PLUS TOK_NUMBER
+    end
+
+    rule integer
+      TOK_NUMBER
+      / TOK_PLUS TOK_NUMBER
+      / TOK_MINUS TOK_NUMBER
+    end
+
+    rule number_word
+      TOK_NUMBER_WORD
+    end
+
+    rule subrange
+      integer TOK_TWODOTS integer
+    end
+
+    rule constant
+      TOK_FALSEEXP
+      / TOK_TRUEEXP
+      / number_word
+      / number
+    end
+
+    rule primary_exp
+      constant primary_exp_tail
+      / TOK_MINUS primary_exp primary_exp_tail
+      / TOK_ATOM primary_exp_tail
+      / TOK_SELF primary_exp_tail
+      / TOK_LP basic_expr TOK_RP primary_exp_tail
+      / TOK_NOT primary_exp primary_exp_tail
+      / TOK_BOOL TOK_LP basic_expr TOK_RP primary_exp_tail
+      / TOK_WORD1 TOK_LP basic_expr TOK_RP primary_exp_tail
+      / TOK_NEXT TOK_LP basic_expr TOK_RP primary_exp_tail
+      / TOK_CASE cases:(case_element_expr+) TOK_ESAC tail:primary_exp_tail <CaseNode>
+    end
+
+    rule primary_exp_tail
+      TOK_DOT TOK_ATOM primary_exp_tail
+      / TOK_DOT TOK_NUMBER primary_exp_tail
+      / TOK_LB simple_expression TOK_RB primary_exp_tail
+      / TOK_LB simple_expression TOK_COLON simple_expression TOK_RB primary_exp_tail
+      / EPSILON
+    end
+
+    rule case_element_expr
+      left:basic_expr TOK_COLON right:basic_expr disabled_by:(TOK_DISABLED_BY TOK_LCB list:fault_list TOK_RCB)? TOK_SEMI <CaseElementNode>
+    end
+
+    rule concatenation_expr
+      primary_exp (TOK_CONCATENATION primary_exp)*
+    end
+
+    rule multiplicative_expr
+      concatenation_expr multiplicative_expr_tail
+    end
+
+    rule multiplicative_expr_tail
+      TOK_TIMES concatenation_expr multiplicative_expr_tail
+      / TOK_DIVIDE concatenation_expr multiplicative_expr_tail
+      / EPSILON
+    end
+
+    rule additive_expr
+      multiplicative_expr additive_expr_tail
+    end
+
+    rule additive_expr_tail
+      TOK_PLUS multiplicative_expr additive_expr_tail
+      / TOK_MINUS multiplicative_expr additive_expr_tail
+      / EPSILON
+    end
+
+    rule remainder_expr
+      additive_expr (TOK_MOD additive_expr)*
+    end
+
+    rule shift_expr
+      remainder_expr shift_expr_tail
+    end
+
+    rule shift_expr_tail
+      TOK_LSHIFT remainder_expr shift_expr_tail
+      / TOK_RSHIFT remainder_expr shift_expr_tail
+      / EPSILON
+    end
+
+    rule set_expr
+      subrange
+      / shift_expr
+      / TOK_LCB set_list_expr TOK_RCB
+    end
+
+    rule set_list_expr
+      basic_expr (TOK_COMMA basic_expr)*
+    end
+
+    rule union_expr
+      set_expr (TOK_UNION set_expr)*
+    end
+
+    rule in_expr
+      union_expr (TOK_SETIN union_expr)*
+    end
+
+    rule relational_expr
+      in_expr relational_expr_tail
+    end
+
+    rule relational_expr_tail
+      TOK_EQUAL in_expr relational_expr_tail
+      / TOK_NOTEQUAL in_expr relational_expr_tail
+      / TOK_GT in_expr relational_expr_tail
+      / TOK_GE in_expr relational_expr_tail
+      / TOK_LT in_expr relational_expr_tail
+      / TOK_LE in_expr relational_expr_tail
+      / EPSILON
+    end
+
+    # CTL Specifications
+    rule ctl_expr
+      relational_expr / pure_ctl_expr
+    end
+
+    rule pure_ctl_expr
+      TOK_EX ctl_expr
+      / TOK_AX ctl_expr
+      / TOK_EF ctl_expr
+      / TOK_AF ctl_expr
+      / TOK_EG ctl_expr
+      / TOK_AG ctl_expr
+      / TOK_AA TOK_LB ctl_basic_expr TOK_UNTIL ctl_basic_expr TOK_RB
+      / TOK_EE TOK_LB ctl_basic_expr TOK_UNTIL ctl_basic_expr TOK_RB
+      / TOK_AA TOK_LB ctl_basic_expr TOK_BUNTIL ctl_basic_expr TOK_RB
+      / TOK_EE TOK_LB ctl_basic_expr TOK_BUNTIL ctl_basic_expr TOK_RB
+      / TOK_EBF subrange ctl_expr
+      / TOK_ABF subrange ctl_expr
+      / TOK_EBG subrange ctl_expr
+      / TOK_ABG subrange ctl_expr
+      / TOK_NOT pure_ctl_expr
+    end
+
+    rule ctl_and_expr
+      ctl_expr (TOK_AND ctl_expr)*
+    end
+
+    rule ctl_or_expr
+      ctl_and_expr ctl_or_expr_tail
+    end
+
+    rule ctl_or_expr_tail
+      TOK_OR ctl_and_expr ctl_or_expr_tail
+      / TOK_XOR ctl_and_expr ctl_or_expr_tail
+      / TOK_XNOR ctl_and_expr ctl_or_expr_tail
+      / EPSILON
+    end
+
+    rule ctl_iff_expr
+      ctl_or_expr (TOK_IFF ctl_or_expr)*
+    end
+
+    rule ctl_implies_expr
+      ctl_iff_expr TOK_IMPLIES ctl_implies_expr
+      / ctl_iff_expr
+    end
+
+    rule ctl_basic_expr
+      ctl_implies_expr
+    end
+
+    # LTL Specifications
+    rule ltl_unary_expr
+      ctl_expr
+      / pure_ltl_unary_expr
+    end
+
+    rule pure_ltl_unary_expr
+      TOK_OP_NEXT ltl_unary_expr
+      / TOK_OP_PREC ltl_unary_expr
+      / TOK_OP_NOTPRECNOT ltl_unary_expr
+      / TOK_OP_GLOBAL ltl_unary_expr
+      / TOK_OP_HISTORICAL ltl_unary_expr
+      / TOK_OP_FUTURE ltl_unary_expr
+      / TOK_OP_ONCE ltl_unary_expr
+      / TOK_NOT pure_ltl_unary_expr
+    end
+
+    rule ltl_binary_expr
+      ltl_unary_expr ltl_binary_expr_tail
+    end
+
+    rule ltl_binary_expr_tail
+      TOK_UNTIL ltl_unary_expr ltl_binary_expr_tail
+      / TOK_SINCE ltl_unary_expr ltl_binary_expr_tail
+      / TOK_RELEASES ltl_unary_expr ltl_binary_expr_tail
+      / TOK_TRIGGERED ltl_unary_expr ltl_binary_expr_tail
+      / EPSILON
+    end
+
+    rule and_expr
+      ltl_binary_expr (TOK_AND ltl_binary_expr)*
+    end
+
+    rule or_expr
+      and_expr or_expr_tail
+    end
+
+    rule or_expr_tail
+      TOK_OR and_expr or_expr_tail
+      / TOK_XOR and_expr or_expr_tail
+      / TOK_XNOR and_expr or_expr_tail
+      / EPSILON
+    end
+
+    rule iff_expr
+      or_expr (TOK_IFF or_expr)*
+    end
+
+    rule implies_expr
+      iff_expr (TOK_IMPLIES iff_expr)*
+    end
+
+    rule basic_expr
+      implies_expr
+    end
+
+    rule simple_expression
+      basic_expr
+    end
+
+    rule next_expression
+      basic_expr
+    end
+
+    rule fault_list
+      first:TOK_ATOM rest:(TOK_COMMA fault:TOK_ATOM)*
+    end
+
+    rule ctl_expression
+      basic_expr
+    end
+
+    rule ltl_expression
+      basic_expr
+    end
+
+    rule itype
+      TOK_BOOLEAN
+      / subrange
+      / TOK_WORD TOK_LB simple_expression TOK_RB
+      / TOK_INTEGER
+      / TOK_LCB type_value_list TOK_RCB
+      / TOK_ARRAY TOK_WORD TOK_LB simple_expression TOK_RB TOK_OF TOK_WORD TOK_LB simple_expression TOK_RB
+      / TOK_ARRAY subrange TOK_OF itype
+    end
+
+    rule type
+      itype
+      / module_type
+      / TOK_PROCESS module_type
+    end
+
+    rule type_value_list
+      type_value (TOK_COMMA type_value)*
+    end
+
+    rule type_value
+      complex_atom
+      / integer
+      / TOK_FALSEEXP
+      / TOK_TRUEEXP
+    end
+
+    rule complex_atom
+      TOK_ATOM (TOK_DOT TOK_ATOM)*
+    end
+
+    rule module_type
+      name:TOK_ATOM TOK_LP simple_list_expression TOK_RP
+      / name:TOK_ATOM TOK_LP TOK_RP
+      / name:TOK_ATOM '' # '' is a workaround to a Treetop limitation
+      / TOK_ARRAY subrange TOK_OF module_type
+    end
+
+    rule simple_list_expression
+      simple_expression (TOK_COMMA simple_expression)*
+    end
+
+    rule module_list
+      module+
+    end
+
+    rule module
+      TOK_MODULE module_sign decls:declaration* <ModuleDeclarationNode>
+    end
+
+    rule module_sign
+      name:TOK_ATOM (TOK_LP atom_list? TOK_RP)?
+    end
+
+    rule atom_list
+      TOK_ATOM (TOK_COMMA TOK_ATOM)*
+    end
+
+    rule declaration
+      fault
+      / isa
+      / var
+      / input_var
+      / assign
+      / init
+      / invar
+      / trans
+      / define
+      / fairness
+      / justice
+      / compassion
+      / invarspec
+      / ctlspec
+      / ltlspec
+      / compute
+      / constants
+    end
+
+    rule fault
+      TOK_FAULT id:TOK_ATOM fault_pre fault_effect fault_restores <FaultDeclarationNode>
+    end
+
+    rule fault_pre
+      TOK_PRE TOK_LP simple_expression TOK_RP TOK_SEMI
+    end
+
+    rule fault_effect
+      TOK_EFFECT TOK_LP list:fault_effect_expression_list TOK_RP TOK_SEMI
+    end
+
+    rule fault_effect_expression_list
+      first:fault_effect_expression? rest:(TOK_COMMA fault_effect_expression)*
+    end
+
+    rule fault_effect_expression
+      var_id TOK_EQUAL simple_expression
+    end
+
+    rule fault_restores
+      TOK_RESTORES TOK_LP next_expression TOK_RP TOK_SEMI
+    end
+
+    rule var
+      TOK_VAR var_decl*
+    end
+
+    rule var_decl
+      decl_var_id TOK_COLON type TOK_SEMI <VarDeclNode>
+    end
+
+    rule input_var
+      TOK_IVAR ivar_decl*
+    end
+
+    rule ivar_decl
+      decl_var_id TOK_COLON type TOK_SEMI
+    end
+
+    rule define
+      TOK_DEFINE define_decl+
+    end
+
+    rule define_decl
+      decl_var_id TOK_EQDEF simple_expression TOK_SEMI
+    end
+
+    rule assign
+      TOK_ASSIGN oa:one_assign+
+    end
+
+    rule one_assign
+      var_id TOK_EQDEF simple_expression TOK_SEMI
+      / TOK_SMALLINIT TOK_LP var_id TOK_RP TOK_EQDEF simple_expression TOK_SEMI
+      / TOK_NEXT TOK_LP var_id TOK_RP TOK_EQDEF basic_expr TOK_DISABLED_BY TOK_LCB list:fault_list TOK_RCB TOK_SEMI
+          <FaultAssignmentNode>
+      / TOK_NEXT TOK_LP var_id TOK_RP TOK_EQDEF basic_expr TOK_SEMI <AssignmentNode>
+    end
+
+    rule init
+      TOK_INIT  simple_expression TOK_SEMI?
+    end
+
+    rule invar
+      TOK_INVAR simple_expression TOK_SEMI?
+    end
+
+    rule trans
+      TOK_TRANS next_expression TOK_SEMI?
+    end
+
+    rule fairness
+      TOK_FAIRNESS simple_expression TOK_SEMI?
+    end
+
+    rule justice
+      TOK_JUSTICE simple_expression TOK_SEMI?
+    end
+
+    rule compassion
+      TOK_COMPASSION TOK_LP simple_expression TOK_COMMA simple_expression TOK_RP TOK_SEMI?
+    end
+
+    rule invarspec
+      TOK_INVARSPEC simple_expression TOK_SEMI?
+    end
+
+    rule ctlspec
+      TOK_SPEC ctl_expression TOK_SEMI?
+      / TOK_CTLSPEC ctl_expression TOK_SEMI?
+    end
+
+    rule ltlspec
+      tokspec:TOK_LTLSPEC spec:ltl_expression TOK_SEMI? <LtlSpecNode>
+    end
+
+    rule constants
+      TOK_CONSTANTS constants_expression+
+    end
+
+    rule constants_expression
+      complex_atom (TOK_COMMA complex_atom)*
+    end
+
+    rule compute
+      TOK_COMPUTE compute_expression TOK_SEMI?
+    end
+
+    rule compute_expression
+      TOK_MMIN TOK_LB ctl_expression TOK_COMMA ctl_expression TOK_RB
+      / TOK_MMAX TOK_LB ctl_expression TOK_COMMA ctl_expression TOK_RB
+    end
+
+    rule isa
+      TOK_ISA TOK_ATOM
+    end
+
+    rule decl_var_id
+      TOK_ATOM decl_var_id_tail
+    end
+
+    rule decl_var_id_tail
+      TOK_DOT TOK_ATOM decl_var_id_tail
+      / TOK_DOT TOK_NUMBER decl_var_id_tail
+      / TOK_LB simple_expression TOK_RB decl_var_id_tail
+      / EPSILON
+    end
+
+    rule var_id
+      TOK_ATOM var_id_tail
+      / TOK_SELF var_id_tail
+    end
+
+    rule var_id_tail
+      TOK_DOT TOK_ATOM var_id_tail
+      / TOK_DOT TOK_NUMBER var_id_tail
+      / TOK_LB simple_expression TOK_RB var_id_tail
+      / EPSILON
+    end
+  end
+end
+
+

data/lib/falluto/grammar/tokens.treetop

@@ -0,0 +1,145 @@
+module Falluto
+  grammar Tokens
+    rule TOK_AND '&' sp end
+    rule TOK_COLON ':' sp end
+    rule TOK_COMMA ',' sp end
+    rule TOK_DOT '.' sp end
+    rule TOK_CONCATENATION '::' sp end
+    rule TOK_DIVIDE '/' sp end
+    rule TOK_EQDEF ':=' sp end
+    rule TOK_EQUAL '=' sp end
+    rule TOK_GE '>=' sp end
+    rule TOK_GT '>' sp end
+    rule TOK_IFF '<->' sp end
+    rule TOK_IMPLIES '->' sp end
+    rule TOK_LB '[' sp end
+    rule TOK_LCB '{' sp end
+    rule TOK_LE '<=' sp end
+    rule TOK_LP '(' sp end
+    rule TOK_LSHIFT '<<' sp end
+    rule TOK_LT '<' sp end
+    rule TOK_MINUS '-' sp end
+    rule TOK_MOD 'mod' eok sp end
+    rule TOK_NOT '!' sp end
+    rule TOK_NOTEQUAL '!=' sp end
+    rule TOK_OR '|' sp end
+    rule TOK_PLUS '+' sp end
+    rule TOK_RB ']' sp end
+    rule TOK_RCB '}' sp end
+    rule TOK_RP ')' sp end
+    rule TOK_RSHIFT '>>' sp end
+    rule TOK_SEMI ';' sp end
+    rule TOK_TWODOTS '..' sp end
+    rule TOK_TIMES '*' sp end
+    rule TOK_XNOR 'xnor' sp end
+    rule TOK_XOR 'xor' sp end
+
+    rule TOK_AA 'A' eok sp end
+    rule TOK_ABF 'ABF' eok sp end
+    rule TOK_ABG 'ABG' eok sp end
+    rule TOK_AF 'AF' eok sp end
+    rule TOK_AG 'AG' eok sp end
+    rule TOK_ARRAY 'array' eok sp end
+    rule TOK_ASSIGN 'ASSIGN' eok sp end
+    rule TOK_AX 'AX' eok sp end
+    rule TOK_BOOLEAN 'boolean' eok sp end
+    rule TOK_BOOL 'bool' eok sp end
+    rule TOK_BUNTIL 'BU' eok sp end
+    rule TOK_CASE 'case' eok sp end
+    rule TOK_COMPASSION 'COMPASSION' eok sp end
+    rule TOK_COMPUTE 'COMPUTE' eok sp end
+    rule TOK_CONSTANTS eok sp end
+    rule TOK_CTLSPEC eok sp end
+    rule TOK_DEFINE 'DEFINE' eok sp end
+    rule TOK_EBF 'EBF' eok sp end
+    rule TOK_EBG 'EBG' eok sp end
+    rule TOK_EE 'É' eok sp end
+    rule TOK_EF 'EF' eok sp end
+    rule TOK_EG 'EG' eok sp end
+    rule TOK_ESAC 'esac' eok sp end
+    rule TOK_EVIL 'evil' eok sp end
+    rule TOK_EX 'EX' eok sp end
+    rule TOK_FAIRNESS 'FAIRNESS' eok sp end
+    rule TOK_FALSEEXP 'FALSE' eok sp end
+    rule TOK_INIT 'INIT' eok sp end
+    rule TOK_INTEGER 'integer' eok sp end
+    rule TOK_INVAR 'INVAR' eok sp end
+    rule TOK_INVARSPEC 'INVARSPEC' eok sp end
+    rule TOK_ISA 'ISA' eok sp end
+    rule TOK_IVAR 'IVAR' eok sp end
+    rule TOK_JUSTICE 'JUSTICE' eok sp end
+    rule TOK_LTLSPEC 'LTLSPEC' eok sp end
+    rule TOK_MMAX 'MAX' eok sp end
+    rule TOK_MMIN 'MIN' eok sp end
+    rule TOK_MODULE 'MODULE' eok sp end
+    rule TOK_NEXT 'next' eok sp end
+    rule TOK_OF 'of' eok sp end
+    rule TOK_OP_FUTURE 'F' eok sp end
+    rule TOK_OP_GLOBAL 'G' eok sp end
+    rule TOK_OP_HISTORICAL 'H' eok sp end
+    rule TOK_OP_NEXT 'X' eok sp end
+    rule TOK_OP_NOTPRECNOT 'Z' eok sp end
+    rule TOK_OP_ONCE 'O' eok sp end
+    rule TOK_OP_PREC 'Y' eok sp end
+    rule TOK_PROCESS 'process' eok sp end
+    rule TOK_RELEASES 'V' eok sp end
+    rule TOK_SELF 'self' eok sp end
+    rule TOK_SETIN 'in' eok sp end
+    rule TOK_SINCE 'S' eok sp end
+    rule TOK_SMALLINIT 'init' eok sp end
+    rule TOK_SPEC 'SPEC' eok sp end
+    rule TOK_TRANS 'TRANS' eok sp end
+    rule TOK_TRIGGERED 'T' eok sp end
+    rule TOK_TRUEEXP 'TRUE' eok sp end
+    rule TOK_UNION 'union' eok sp end
+    rule TOK_UNTIL 'U' eok sp end
+    rule TOK_VAR 'VAR' eok sp end
+    rule TOK_WORD1 'word1' eok sp end
+    rule TOK_WORD 'word' eok sp end
+
+    rule TOK_FAULT 'FAULT' eok sp end
+    rule TOK_PRE 'pre' eok sp end
+    rule TOK_EFFECT 'effect' eok sp end
+    rule TOK_RESTORES 'restores' eok sp end
+    rule TOK_DISABLED_BY 'disabled_by' eok sp end
+
+    rule TOK_NUMBER_WORD
+      '0' [bBoOdDhH] [0-9]* '_' [0-9a-fA-F] [0-9a-fA-F_]*
+    end
+
+    rule keyword
+      TOK_AA / TOK_ABF / TOK_ABG / TOK_AF / TOK_AG / TOK_ARRAY / TOK_ASSIGN
+      / TOK_AX / TOK_BOOLEAN / TOK_BOOL / TOK_BUNTIL / TOK_CASE / TOK_COMPASSION
+      / TOK_COMPUTE / TOK_CONSTANTS / TOK_CTLSPEC / TOK_DEFINE /TOK_EBF
+      / TOK_EBG / TOK_EE / TOK_EF / TOK_EG / TOK_ESAC / TOK_EX
+      / TOK_FAIRNESS / TOK_FALSEEXP / TOK_INIT / TOK_INTEGER / TOK_INVARSPEC
+      / TOK_INVAR / TOK_ISA / TOK_IVAR / TOK_JUSTICE / TOK_LTLSPEC / TOK_MMAX
+      / TOK_MMIN / TOK_MODULE / TOK_NEXT / TOK_OF / TOK_OP_FUTURE
+      / TOK_OP_GLOBAL / TOK_OP_HISTORICAL / TOK_OP_NEXT / TOK_OP_NOTPRECNOT
+      / TOK_OP_ONCE / TOK_OP_PREC / TOK_PROCESS / TOK_RELEASES / TOK_SELF
+      / TOK_SETIN / TOK_SINCE / TOK_SMALLINIT / TOK_SPEC / TOK_TRANS
+      / TOK_TRIGGERED / TOK_TRUEEXP / TOK_UNION / TOK_UNTIL / TOK_VAR
+      / TOK_WORD1 / TOK_WORD
+      / TOK_FAULT / TOK_PRE / TOK_EFFECT / TOK_RESTORES / TOK_DISABLED_BY
+    end
+
+    # Basic Rules
+    rule TOK_NUMBER
+      [0-9]+ sp
+    end
+
+    rule TOK_ATOM
+      !keyword [A-Za-z_] [A-Za-z0-9_$\-\\#]* sp
+    end
+
+    # Useful rules
+    rule idsyms [A-Za-z0-9_$\-\\#] end
+    rule sp (white / comment)* end # Skip optional white space
+    rule white [ \r\n\t] end
+    rule comment '--' (!eoc .)* eoc end
+    rule eok !idsyms end # End Of Keyword
+    rule eoc "\n" / eof end # End Of Comment
+    rule eof !. end # End Of File
+    rule EPSILON '' end
+  end
+end

data/lib/falluto/grammar.rb

@@ -0,0 +1,7 @@
+require 'treetop'
+
+require 'falluto/grammar/nodes'
+
+$LOAD_PATH << File.dirname(__FILE__)
+require 'falluto/grammar/tokens'
+require 'falluto/grammar/rules'

data/lib/falluto/nusmv/codegen.rb

@@ -0,0 +1,39 @@
+module Falluto
+  module NuSMV
+    class CodeGenerator
+      def define var, expr
+        %Q|DEFINE #{var} := (#{expr});|
+      end
+
+      def variable_declaration var, type
+        %Q|VAR #{var} : #{type};|
+      end
+
+      def fairness expr
+        %Q|FAIRNESS #{expr}|
+      end
+
+      def module signature
+        %Q|MODULE #{signature}|
+      end
+
+      def instance_process type, *args
+        "process #{type}(#{args.join(', ')});"
+      end
+
+      def process type
+        %Q|process #{type}|
+      end
+
+      def ltlspec expr
+        %Q|LTLSPEC #{expr}|
+      end
+
+      def implies(p, q)
+        %Q|((#{p}) -> (#{q}))|
+      end
+    end
+  end
+end
+
+