Line data    Source code

       1             : //***********************************************
       2             : // Check chord 1
       3             : //***********************************************
       4             : 
       5           2 : PPG_CS_PROCESS_STRING(  "A B C c b a",
       6             :                         PPG_CS_EXPECT_EMPTY_FLUSH
       7             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
       8             :                         PPG_CS_EXPECT_ACTION_SERIES(
       9             :                            PPG_CS_A(Chord_1)
      10             :                         )
      11             : );
      12             : 
      13           2 : PPG_PATTERN_PRINT_TREE
      14             : 
      15             : // Allow to release keys and then repress them 
      16             : //
      17           2 : PPG_CS_PROCESS_STRING(  "A a A B C c b a",
      18             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      19             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      20             :                         PPG_CS_EXPECT_ACTION_SERIES(
      21             :                            PPG_CS_A(Chord_1)
      22             :                         )
      23             : );
      24             : 
      25           2 : PPG_PATTERN_PRINT_TREE
      26             : 
      27           2 : PPG_CS_PROCESS_STRING(  "A B b C B c b a", 
      28             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      29             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      30             :                         PPG_CS_EXPECT_ACTION_SERIES(
      31             :                            PPG_CS_A(Chord_1)
      32             :                         )
      33             : );
      34             : 
      35           2 : PPG_PATTERN_PRINT_TREE
      36             : 
      37             : // Do not allow keys being released
      38             : //
      39           2 : PPG_CS_PROCESS_STRING(  "A B b C c a |", 
      40             :                         PPG_CS_EXPECT_FLUSH("ABbCca") 
      41             :                         PPG_CS_EXPECT_EXCEPTIONS(PPG_CS_ET | PPG_CS_EMF)
      42             :                         PPG_CS_EXPECT_NO_ACTIONS
      43             : );
      44             : 
      45           2 : PPG_PATTERN_PRINT_TREE
      46             : 
      47             : // Check for match fails
      48             : //
      49           2 : PPG_CS_PROCESS_STRING(  "A B E C c a |", 
      50             :                         PPG_CS_EXPECT_FLUSH("ABECca")
      51             :                         PPG_CS_EXPECT_EXCEPTIONS(PPG_CS_EMF | PPG_CS_ET)
      52             :                         PPG_CS_EXPECT_NO_ACTIONS
      53             : );
      54             : 
      55           2 : PPG_PATTERN_PRINT_TREE
      56             : 
      57             : //***********************************************
      58             : // Check chord 2
      59             : //***********************************************
      60             : 
      61           2 : PPG_CS_PROCESS_STRING(  "A B D d b a",
      62             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      63             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      64             :                         PPG_CS_EXPECT_ACTION_SERIES(
      65             :                            PPG_CS_A(Chord_2)
      66             :                         )
      67             : );
      68             : 
      69             : // Allow to release keys and then repress them 
      70             : //
      71           2 : PPG_CS_PROCESS_STRING(  "A a A B D d b a",
      72             :                         PPG_CS_EXPECT_EMPTY_FLUSH
      73             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      74             :                         PPG_CS_EXPECT_ACTION_SERIES(
      75             :                            PPG_CS_A(Chord_2)
      76             :                         )
      77             : );
      78             : 
      79           2 : PPG_CS_PROCESS_STRING(  "A B b D B d b a",
      80             :                         PPG_CS_EXPECT_EMPTY_FLUSH 
      81             :                         PPG_CS_EXPECT_NO_EXCEPTIONS
      82             :                         PPG_CS_EXPECT_ACTION_SERIES(
      83             :                            PPG_CS_A(Chord_2)
      84             :                         )
      85             : );
      86             : 
      87             : // Do not allow keys being released
      88             : //
      89           2 : PPG_CS_PROCESS_STRING(  "A B b d D d a |", 
      90             :                         PPG_CS_EXPECT_FLUSH("ABbdDda")
      91             :                         PPG_CS_EXPECT_EXCEPTIONS(PPG_CS_ET)
      92             :                         PPG_CS_EXPECT_NO_ACTIONS
      93             : );
      94             : 
      95             : //    PPG_PATTERN_PRINT_TREE