fix service parsing

src/oud2_parser.pl

@@ -123,6 +123,8 @@ RESSYA			::= 'Ressya.'
 			    RESSYA_BANGOU
 			    RESSYA_MEI
 			    RESSYA_JIKOKU
+			    OPERATION_FIRST
+			    OPERATION_LAST
 			    GARBAGE_LINES
 			    action => Dia::format_ressya
 			   
@@ -134,6 +136,8 @@ BANGOU_LINE		::= 'Ressyabangou=' NAME
 			    action => Dia::second
 RESSYA_MEI		::= MEI_STRUCT*
 			    action => ::first
+OPERATION_FIRST		::= 'Operation' NAME
+OPERATION_LAST	        ::= 'Operation' NAME
 MEI_STRUCT		::= MEI_LINE
 			    GOU_LINE
 			    action => Dia::format_mei
@@ -266,7 +270,6 @@ foreach my $file (@trains)
     close $dia_file;
 }
 
-
 # Processing step 1.
 # Bring stations back to the master frame and use unique IDs in children frames.
 # Assume stations with the same name are identical.
@@ -341,4 +344,4 @@ foreach my $frame (values %{ $master{'rosen'} })
 
 # MasterUtils::get_routes \%master, 'konpoku_9';
 # FrameUtils::hassya_hyou \%master, 'konpoku_9';
-Navi::Raptor_simple \%master, 'sekihoku1_0', 'sekihoku1_10', 1330;
+Navi::Raptor_simple \%master, 'sekihoku1_0', 'senmo_6', 1330;