letguid=new Guid(s)

#if FX_NO_TO_LOWER_INVARIANT

Assert.AreEqual((string guid).ToLower(), s.ToLower())

Assert.AreEqual((string guid).ToLowerInvariant(), s.ToLowerInvariant())

#if FX_NO_TO_LOWER_INVARIANT

letc= System.Char.ToLower c

letc= System.Char.ToLowerInvariant c

charEq c'x'|| charEq c'o'|| charEq c'b'

l>= p+2&& charEq(s.Chars(p))'0'&& isOXB(s.Chars(p+1))

if is0OXB s p l

#if FX_NO_TO_LOWER_INVARIANT

thenletr= System.Char.ToLower(s.Chars(p+1))in p<- p+2; r

thenletr= System.Char.ToLowerInvariant(s.Chars(p+1))in p<- p+2; r

letsign= getSign32 s&p l

letspecifier= get0OXB s&p l

if p>= lthen formatError()else

#if FX_NO_TO_LOWER_INVARIANT

match Char.ToLower(specifier, CultureInfo.InvariantCulture(*FxCop:1304*))with

match Char.ToLowerInvariant(specifier)with

|'x'-> sign*(int32OfUInt32(Convert.ToUInt32(UInt64.Parse(s.Substring(p), NumberStyles.AllowHexSpecifier,CultureInfo.InvariantCulture))))

|'b'-> sign*(int32OfUInt32(Convert.ToUInt32(parseBinaryUInt64 s p l)))

|'o'-> sign*(int32OfUInt32(Convert.ToUInt32(parseOctalUInt64 s p l)))

letsign= getSign64 s&p l

letspecifier= get0OXB s&p l

if p>= lthen formatError()else

#if FX_NO_TO_LOWER_INVARIANT

match Char.ToLower(specifier, CultureInfo.InvariantCulture(*FxCop:1304*))with

match Char.ToLowerInvariant(specifier)with

|'x'-> sign*. Int64.Parse(s.Substring(p), NumberStyles.AllowHexSpecifier,CultureInfo.InvariantCulture)

|'b'-> sign*.(int64OfUInt64(parseBinaryUInt64 s p l))

|'o'-> sign*.(int64OfUInt64(parseOctalUInt64 s p l))