621,parsUnexpectedTypeParameter,"Syntax error: unexpected type parameter specification"

622,parsMismatchedQuotationName,"Mismatched quotation operator name, beginning with '%s'"

623,parsActivePatternCaseMustBeginWithUpperCase,"Active pattern case identifiers must begin with an uppercase letter"

624,parsActivePatternCaseContainsPipe,"The '|' character is not permitted in active pattern case identifiers"

parsNoEqualShouldFollowNamespace,"No '=' symbol should follow a 'namespace' declaration"

parsSyntaxModuleStructEndDeprecated,"The syntax 'module ... = struct .. end' is not used in F# code. Consider using 'module ... = begin .. end'"

parsSyntaxModuleSigEndDeprecated,"The syntax 'module ... : sig .. end' is not used in F# code. Consider using 'module ... = begin .. end'"

barName:

| IDENT

{ if not (String.isUpper $1) then reportParseErrorAt (rhs parseState 1) (FSComp.SR.parsActivePatternCaseMustBeginWithUpperCase());

if ($1.IndexOf('|') <> -1) then reportParseErrorAt (rhs parseState 1) (FSComp.SR.parsActivePatternCaseContainsPipe());

$1 }

barNames:

let(|positive|negative|)n=if n<0then positiveelse negative

let(|`` A``|)(x:int)= x

let(|B1|``+B2``|)(x:int)=if x=0then OneAelse``+B2``

let(|`` C``|_|)(x:int)=if x=0then Some(x)else None

let(|``D|E``|F|)(x:int)=if x=0then Delif x=1then Eelse F

let(|G|``H||I``|)(x:int)=if x=0then Gelif x=1then Helse``|I``

exit1