1168,lexHashEndifMustBeFirst,"#endif directive must appear as the first non-whitespace character on a line"

1169,lexHashIfMustHaveIdent,"#if directive should be immediately followed by an identifier"

1170,lexWrongNestedHashEndif,"Syntax error. Wrong nested #endif, unexpected tokens before it."

lexHashBangMustBeFirstInFile,"#! must appear at the start of the file."

1171,lexExpectedSingleLineComment,"Expected single line comment or end of line"

1172,memberOperatorDefinitionWithNoArguments,"Infix operator member '%s' has no arguments. Expected a tuple of 2 arguments, e.g. static member (+) (x,y) = ..."

1173,memberOperatorDefinitionWithNonPairArgument,"Infix operator member '%s' has %d initial argument(s). Expected a tuple of 2 arguments, e.g. static member (+) (x,y) = ..."

if (m.StartColumn <> 0) then fail args lexbuf err tok

else tok

let shouldStartFile args lexbuf (m:range) err tok =

if (m.StartColumn <> 0 || m.StartLine <> 1) then fail args lexbuf err tok

else tok

let extractIdentFromHashIf (lexed:string) =

// Skip the '#if' token, then trim whitespace, then find the end of the identifier

let lexed = lexed.Trim()

| ".[]" | ".[]<-" | ".[,]<-" | ".[,,]<-" | ".[,,,]<-" | ".[,,,]" | ".[,,]" | ".[,]" | ".[..]" | ".[..,..]" | ".[..,..,..]" | ".[..,..,..,..]"

| ".()" | ".()<-" { FUNKY_OPERATOR_NAME(lexeme lexbuf) }

| "#!" op_char*

{ // Treat shebangs like regular comments

{ // Treat shebangs like regular comments, but they are only allowed at the start of a file

let m = lexbuf.LexemeRange

if not skip then (LINE_COMMENT (LexCont.SingleLineComment(!args.ifdefStack,1,m))) else singleLineComment (None,1,m,args) skip lexbuf }

let tok = shouldStartFile args lexbuf m (0,FSComp.SR.lexHashBangMustBeFirstInFile()) (LINE_COMMENT (LexCont.SingleLineComment(!args.ifdefStack,1,m)))

if not skip then tok else singleLineComment (None,1,m,args) skip lexbuf }

| "#light" anywhite*

| ("#indent" | "#light") anywhite+ "\"on\""

#!/bin/usr/env fsharpi--exec

#if Portable

test"line number test"(__LINE__="29")

test"line number test"(__SOURCE_FILE__="original-test-file.fs")

#!/bin/usr/env fsharpi--exec

#if NetCore