[IgorOK]

;	PARSER

Global P_LINE_TEXT$
Global P_LINE_LENGTH
Global P_LINE_OFFSET

Function P_ReadLine(FileHandle)
	P_LINE_TEXT$=""
	P_LINE_LENGTH=0
	P_LINE_OFFSET=1
	While Not Eof(FileHandle)
		P_LINE_TEXT=Trim(ReadLine(FileHandle))
		If P_LINE_TEXT<>""
			If Left(P_LINE_TEXT, 2)<>"//"
				P_LINE_LENGTH=Len(P_LINE_TEXT)
				P_LINE_OFFSET=1
				Return True
			EndIf
		EndIf
	Wend
	Return False
End Function

Function P_Eol()
	If P_LINE_OFFSET>P_LINE_LENGTH Then Return True
End Function

Function P_nEol()
	Return Not P_Eol()
End Function

Function P_Parse$(ErrorText$="")
	If P_LINE_OFFSET>P_LINE_LENGTH
		If ErrorText=""
			Return ""
		Else
			RuntimeError ErrorText
		EndIf
	EndIf

	Local Char=Asc(Mid(P_LINE_TEXT, P_LINE_OFFSET, 1))
	
	While (Char<33 Or Char=127)
		P_LINE_OFFSET=P_LINE_OFFSET+1
		If P_LINE_OFFSET>P_LINE_LENGTH Then Return ""
		Char=Asc(Mid(P_LINE_TEXT, P_LINE_OFFSET, 1))
	Wend
	
	Local Token$
	
	If Char=34
		Local EndOffset=Instr(P_LINE_TEXT, Chr(34), P_LINE_OFFSET+1)
		
		If EndOffset=0
			EndOffset=P_LINE_LENGTH
			Return ""
		EndIf
		
		Token=Mid(P_LINE_TEXT, P_LINE_OFFSET+1, EndOffset-P_LINE_OFFSET-1)
		P_LINE_OFFSET=EndOffset+1
		Return Token
		
	Else
		While (Char>32 And Char<>34 And Char<>127)
			Token=Token+Chr(Char)
			P_LINE_OFFSET=P_LINE_OFFSET+1
			If P_LINE_OFFSET>P_LINE_LENGTH Then Exit
			Char=Asc(Mid(P_LINE_TEXT, P_LINE_OFFSET, 1))
		Wend
		Return Token
	EndIf
End Function

Function P_SetLine(LineText$)
	P_LINE_TEXT$=LineText
	P_LINE_LENGTH=Len(LineText)
	P_LINE_OFFSET=1
End Function

;	TRANSLATOR

Const P_MAX_TOKENS=30

;Standart translator
Global P_STD_TRANSLATOR.P_Translator=P_CreateTranslator("undefined")
P_AddToken(P_STD_TRANSLATOR, "true", 1)
P_AddToken(P_STD_TRANSLATOR, "false", 0)
P_AddToken(P_STD_TRANSLATOR, "yes", 1)
P_AddToken(P_STD_TRANSLATOR, "no", 0)

Type P_Translator
	Field Tokens
	Field Token.P_Token[P_MAX_TOKENS]
	
	Field DefaultValue$
End Type

Type P_Token
	Field InValue$
	Field OutValue$
End Type

Function P_CreateTranslator.P_Translator(DefaultValue$="")
	Local Translator.P_Translator=New P_Translator
	Translator\DefaultValue=DefaultValue
	Return Translator
End Function

Function P_AddToken(Translator.P_Translator, InValue$, OutValue$)
	Local Token.P_Token=New P_Token
	Token\InValue=InValue
	Token\OutValue=OutValue
	Translator\Token[Translator\Tokens]=Token
	Translator\Tokens=Translator\Tokens+1
End Function

Function P_Translate$(Translator.P_Translator, Value$)
	If Translator=Null Then Translator=P_STD_TRANSLATOR
	
	Local LastToken=Translator\Tokens-1
	
	For TokenIndex=0 To LastToken
		Local Token.P_Token=Translator\Token[TokenIndex]
		If Value=Token\InValue Then Return Token\OutValue
	Next
	
	If Translator\DefaultValue<>""
		Return Translator\DefaultValue
	Else
		Return Value
	EndIf
End Function

Вот. Будут вопросы - в личку.