Subversion Repositories Kolibri OS

	mov	dword [edi+4],0

	mov	dword [edi+4],0

	cmp	byte [ebx],'$'

	cmp	byte [ebx],'$'

	je	pascal_hex_number

	je	pascal_hex_number

	cmp	word [ebx],'0x'

	cmp	word [ebx],'0x'

	je	c_hex_number

	je	get_hex_number

	dec	esi

	dec	esi

	cmp	al,'h'

	cmp	al,'h'

	je	get_hex_number

	je	get_hex_number

	cmp	al,'b'

	cmp	al,'b'

	je	get_bin_number

	je	get_bin_number

	or	al,al

	or	al,al

	jz	get_bin_digit

	jz	get_bin_digit

	or	ebp,-1

	or	ebp,-1

	jmp	get_bin_digit

	jmp	get_bin_digit

      c_hex_number:

      pascal_hex_number:

	cmp	cl,1

	cmp	cl,1

	je	bad_number

	je	bad_number

      get_hex_number:

      get_hex_number:

	xor	bl,bl

	xor	bl,bl

      get_hex_digit:

      get_hex_digit:

	cbw

	cbw

	cmp	ah,dl

	cmp	ah,dl

	jne	value_out_of_range

	jne	value_out_of_range

	mov	[esi+10],al

	mov	[esi+10],al

      mul_first_register_ok:

	or	al,al

	cmp	byte [esi+9],0

	cmp	byte [esi+9],0

	je	mul_calculated

	je	mul_calculated

	mov	al,[edi]

	mov	al,[edi]

	cbw

	cbw

	cwde

	cwde

	cbw

	cbw

	cmp	ah,dl

	cmp	ah,dl

	jne	value_out_of_range

	jne	value_out_of_range

	mov	[esi+11],al

	mov	[esi+11],al

      mul_calculated:

	or	al,al

	pop	esi

	pop	esi

	jmp	calculation_loop

	jmp	calculation_loop

      calculate_div:

      calculate_div:

	push	esi edx

	push	esi edx

	mov	esi,ebx

	mov	esi,ebx

	mov	[value_type],7

	mov	[value_type],7

	ret

	ret

preevaluate_logical_expression:

preevaluate_logical_expression:

	push	edi

	push	edi

	call	preevaluate_logical_value

	call	preevaluate_logical_value

      preevaluation_loop:

      preevaluation_loop:

	cmp	al,0FFh

	cmp	al,0FFh

	je	invalid_logical_expression

	je	invalid_logical_expression

      negation_skipped:

      negation_skipped:

	cmp	byte [esi],'{'

	cmp	byte [esi],'{'

	jne	skip_simple_logical_value

	jne	skip_simple_logical_value

	inc	esi

	inc	esi

      skip_logical_expression:

	xchg	al,[logical_value_wrapping]

	call	skip_logical_value

	call	skip_logical_value

	lods	byte [esi]

	lods	byte [esi]

	or	al,al

	or	al,al

	jz	wrongly_structured_logical_expression

	jz	wrongly_structured_logical_expression

	cmp	al,0Fh

	cmp	al,0Fh

	je	skip_logical_expression

	je	skip_logical_expression

	cmp	al,'&'

	cmp	al,'&'

	je	skip_logical_expression

	je	skip_logical_expression

	cmp	al,'}'

	cmp	al,'}'

	je	logical_value_skipped

	jne	wrongly_structured_logical_expression

	stc

	stc

	ret

	ret

      skip_simple_logical_value:

      skip_simple_logical_value:

	mov	al,[esi]

	mov	[logical_value_parentheses],0

	or	al,al

	or	al,al

	jz	logical_value_skipped

	jz	logical_value_skipped

	cmp	al,0Fh

	cmp	al,0Fh

	je	logical_value_skipped

	je	logical_value_skipped

	cmp	al,'}'

	cmp	al,'|'

	je	logical_value_skipped

	je	logical_value_skipped

	cmp	al,'&'

	cmp	al,'&'

	je	logical_value_skipped

	je	logical_value_skipped

	call	skip_symbol

	cmp	al,'{'

	jmp	skip_simple_logical_value

	jmp	find_simple_logical_value_end

	mov	ebp,edi

	mov	ebp,edi

      preevaluate_negation:

      preevaluate_negation:

	cmp	byte [esi],'~'

	cmp	byte [esi],'~'

	jne	preevaluate_negation_ok

	jne	preevaluate_negation_ok

	movs	byte [edi],[esi]

	movs	byte [edi],[esi]

	jmp	preevaluate_negation

	jmp	preevaluate_negation

      preevaluate_negation_ok:

      preevaluate_negation_ok:

	mov	ebx,esi

	mov	ebx,esi

	xor	edx,edx

	cmp	byte [esi],'{'

	jne	find_logical_value_boundaries

	jne	preevaluate_simple_logical_value

	call	preevaluate_logical_expression

	mov	dl,[logical_value_wrapping]

	cmp	al,0FFh

	cmp	al,0FFh

	je	invalid_logical_value

	je	invalid_logical_value

	cmp	byte [esi],'}'

	cmp	byte [esi],'}'

	jne	invalid_logical_value

	jne	invalid_logical_value

	or	al,al

	or	al,al

      invalid_logical_value:

      invalid_logical_value:

	mov	edi,ebp

	mov	edi,ebp

	mov	al,0FFh

	mov	al,0FFh

	ret

	ret

      find_logical_value_boundaries:

      preevaluate_simple_logical_value:

	mov	al,[esi]

	mov	al,[esi]

	or	al,al

	or	al,al

	jz	logical_value_boundaries_found

	jz	logical_value_boundaries_found

	cmp	al,'}'

	cmp	al,'{'

	je	logical_value_boundaries_found

	je	logical_value_boundaries_parenthesis_close

	je	logical_value_boundaries_found

	je	logical_value_boundaries_found

	cmp	al,'&'

	cmp	al,'&'

	je	logical_value_boundaries_found

	je	logical_value_boundaries_found

	or	edx,edx

	or	edx,edx

	jnz	next_symbol_in_logical_value

	jnz	next_symbol_in_logical_value

	mov	edx,esi

	mov	edx,esi

      next_symbol_in_logical_value:

      next_symbol_in_logical_value:

	call	skip_symbol

	call	skip_symbol

	jmp	find_logical_value_boundaries

	jmp	find_logical_value_boundaries

      logical_value_boundaries_found:

      logical_value_internal_parentheses:

	or	edx,edx

	or	edx,edx

	jz	non_preevaluable_logical_value

	jz	non_preevaluable_logical_value

	mov	al,[edx]

	mov	al,[edx]

	cmp	al,0F0h

	cmp	al,0F0h

	je	compare_symbols

	je	compare_symbols

	pop	esi edi

	pop	esi edi

	jmp	invalid_logical_value

	jmp	invalid_logical_value

calculate_logical_expression:

calculate_logical_expression:

	call	get_logical_value

	call	get_logical_value

      logical_loop:

      logical_loop:

	cmp	byte [esi],'|'

	cmp	byte [esi],'|'

	je	logical_or

	je	logical_or

	cmp	byte [esi],'&'

	cmp	byte [esi],'&'

      return_true:

      return_true:

	or	al,-1

	or	al,-1

	jmp	logical_value_ok

	jmp	logical_value_ok

      logical_expression:

      logical_expression:

	inc	esi

	lods	byte [esi]

	lods	byte [esi]

	lods	byte [esi]

	cmp	al,'}'

	cmp	al,'}'

	jne	invalid_expression

	jne	invalid_expression

	pop	eax

	pop	eax

      logical_value_ok:

      logical_value_ok: