Ignore:
Timestamp:
Oct 14, 2009, 3:49:28 AM (15 years ago)
Author:
Tatsukawa, Akimichi
Message:

successfully parsing all the adl files under ​http://www.openehr.org/svn/knowledge/archetypes/dev/adl/openehr/ehr directory

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ruby/trunk/lib/adl_parser/lib/adl_scanner.rb

    r317 r318  
    276276                @@logger.debug("DADLScanner#scan: COMMENT = #{$&} at #{@filename}:#{@lineno}")
    277277                ;
     278              when /\A[a-z]+:\/\/[^<>|\\{}^~"\[\] ]*/ #V_URI
     279                yield :V_URI, $&
    278280              when /\A[a-z][a-zA-Z0-9_]*/
    279281                word = $&.dup
    … …  
    316318                      yield :SYM_END_DBLOCK, :SYM_END_DBLOCK
    317319                    end
    318 #                     adl_type = @adl_type.pop
    319 #                     if adl_type == :dadl
    320 #                       yield :SYM_END_DBLOCK, :SYM_END_DBLOCK
    321 #                     else
    322 #                       @in_c_domain_type = false
    323 #                       yield :END_V_C_DOMAIN_TYPE_BLOCK, :END_V_C_DOMAIN_TYPE_BLOCK
    324 #                     end
    325320                  else
    326321                    adl_type = @adl_type.pop
    … …  
    382377                @@logger.debug("DADLScanner#scan: Right_bracket_code at #{@filename}:#{@lineno}")
    383378                yield :Right_bracket_code, :Right_bracket_code
     379              when /\A"((?:[^"\\]+|\\.)*)"/ #V_STRING
     380                @@logger.debug("DADLScanner#scan: V_STRING, #{$1}")
     381                yield :V_STRING, $1
     382              when /\A"([^"]*)"/m #V_STRING
     383                @@logger.debug("DADLScanner#scan: V_STRING, #{$1}")
     384                yield :V_STRING, $1
    384385              when /\A[0-9]{4}-[0-1][0-9]-[0-3][0-9]T[0-2][0-9]:[0-6][0-9]:[0-6][0-9](,[0-9]+)?(Z|[+-][0-9]{4})?|[0-9]{4}-[0-1][0-9]-[0-3][0-9]T[0-2][0-9]:[0-6][0-9](Z|[+-][0-9]{4})?|[0-9]{4}-[0-1][0-9]-[0-3][0-9]T[0-2][0-9](Z|[+-][0-9]{4})?/   #V_ISO8601_EXTENDED_DATE_TIME YYYY-MM-DDThh:mm:ss[,sss][Z|+/- -n-n-n-n-]-
    385386                @@logger.debug("DADLScanner#scan: V_ISO8601_EXTENDED_DATE_TIME")
    … …  
    393394              when /\A[A-Z][a-zA-Z0-9_]*<[a-zA-Z0-9,_<>]+>/   #V_GENERIC_TYPE_IDENTIFIER
    394395                yield :V_GENERIC_TYPE_IDENTIFIER, $&
    395               when /\A"((?:[^"\\]+|\\.)*)"/ #V_STRING
    396                 @@logger.debug("DADLScanner#scan: V_STRING, #{$1}")
    397                 yield :V_STRING, $1
    398               when /\A"([^"]*)"/m #V_STRING
    399                 @@logger.debug("DADLScanner#scan: V_STRING, #{$1}")
    400                 yield :V_STRING, $1
    401396              when /\A[0-9]+\.[0-9]+|[0-9]+\.[0-9]+[eE][+-]?[0-9]+ /   #V_REAL
    402397                yield :V_REAL, $&
    … …  
    404399                @@logger.debug("DADLScanner#scan: V_INTEGER = #{$&}")
    405400                yield :V_INTEGER, $&
    406               when /\A[a-z]+:\/\/[^<>|\\{}^~"\[\] ]*/ #V_URI
    407                 yield :V_URI, $&
    408401              when /\A\S/ #UTF8CHAR
    409402                yield :UTF8CHAR, $&
    … …  
    601594              when /\A[hH][hH]:[mM?X][mM?X]:[sS?X][sS?X]/
    602595                yield :V_ISO8601_TIME_CONSTRAINT_PATTERN, $&
    603                 #when /\AP([0-9]+[yY])?([0-9]+[mM])?([0-9]+[wW])?([0-9]+[dD])?T([0-9]+[hH])?([0-9]+[mM])?([0-9]+[sS])?|P([0-9]+[yY])?([0-9]+[mM])?([0-9]+[wW])?([0-9]+[dD])?/   #V_ISO8601_DURATION such as PnYnMnWnDTnnHnnMnnS
     596#              when /\AP([0-9]+[yY])?([0-9]+[mM])?([0-9]+[wW])?([0-9]+[dD])?T([0-9]+[hH])?([0-9]+[mM])?([0-9]+[sS])?|P([0-9]+[yY])?([0-9]+[mM])?([0-9]+[wW])?([0-9]+[dD])?/   #V_ISO8601_DURATION such as PnYnMnWnDTnnHnnMnnS
     597#                yield :V_ISO8601_DURATION, $&
    604598              when /\AP([0-9]+[yY])?([0-9]+[mM])?([0-9]+[wW])?([0-9]+[dD])?T([0-9]+[hH])?([0-9]+[mM])?([0-9]+[sS])?/   #V_ISO8601_DURATION such as PnYnMnWnDTnnHnnMnnS
    605599                yield :V_ISO8601_DURATION, $&
    606               when /\AP[yY]?[mM]?[wW]?[dD]?T[hH]?[mM]?[sS]?/   #V_ISO8601_DURATION_CONSTRAINT_PATTERNo
     600              when /\AP[yY]?[mM]?[wW]?[dD]?(T[hH]?[mM]?[sS]?)?/   #V_ISO8601_DURATION_CONSTRAINT_PATTERN
    607601                yield :V_ISO8601_DURATION_CONSTRAINT_PATTERN, $&
    608602              when /\A[a-z][a-zA-Z0-9_]*/
Note: See TracChangeset for help on using the changeset viewer.