00001 ['init sqs_ranges=[] ',
00002 'init sqs_locate="" ',
00003 'sqs ::= ranges? parms fileid @sqs_fileid="$fileid" ',
00004 'ranges::= "(" range+ ")" ',
00005 ' | range ',
00006 '# for ranges, we appended two other types',
00007 '# and columns start at 1 (not 0), that explains the $n-1 ',
00008 'range::= n "-" "*" @sqs_ranges.append([$n-1,999]) ',
00009 ' | n "-" m @sqs_ranges.append([$n-1,$m]) ',
00010 ' | n "." m @sqs_ranges.append([$n-1,($m+$n-1)]) ',
00011 ' | n "-" @sqs_ranges.append([$n-1,999]) ',
00012 'n ::= r"[0-9]"* ',
00013 'm ::= r"[0-9]"* ',
00014 'parms::= sep car* sep @sqs_locate="$car"',
00015 'sep ::= r"\S" ',
00016 'car ::= r"." ^sep ',
00017 'fileid::= r"\S"* ']