kolibrios/programs/fs/unz/PARSE.INC

; ret:
; 0 - not found param
; 1 - found param
; 2 - error parsing

proc getLastParam	;<3B><>᫥<EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> fInp
xor	al, al		;to end sring
	mov	edi, params
	mov	ecx, 4096
	repne	scasb
	dec	edi
	dec	edi
	test	ecx, ecx
	jz	errorParsing

	mov	eax, ecx       ; - spaces
	mov	ecx, 4096
	sub	ecx, eax
	mov	al, ' '
	std
	repe	scasb
	cld
	inc	edi
	inc	ecx

	cmp	edi, params
	je	.noparams

	cmp	[edi], byte '"'
	je	.quotation

	mov	al, ' ' 	;find previous space or begin string
	std
	repne	scasb
	cld
	inc	edi
	inc	edi

	mov	esi, edi	;copy
	mov	ebx, edi
	mov	edi, fInp

	xor	ecx, ecx
     @@:lodsb
	cmp	al, ' '
	je	@f
	test	al, al
	je	@f
	stosb
	inc	ecx
	jmp	@b
     @@:
	mov	[edi], byte 0
	inc	edi

	mov	edi, ebx	;clear
	mov	al, ' '
	rep stosb

	jmp	.end
 .quotation:
	dec	edi
	mov	al, '"'
	std
	repne	scasb
	cld
	add	edi, 2
	cmp	[edi-1], byte '"'
	jne	.err

	mov	esi, edi
	mov	ebx, edi
	mov	edi, fInp
	xor	ecx, ecx
     @@:lodsb
	cmp	al, '"'
	je	@f
	test	al, al
	je	@f
	stosb
	inc	ecx
	jmp	@b
     @@:
	mov	[edi], byte 0
	inc	edi

	mov	edi, ebx
	dec	edi
	mov	al, ' '
	add	ecx, 2
	rep stosb

.end:
	mov	eax, 1
	ret
.err:
	mov	eax, 2
	ret
.noparams:
	xor	eax, eax
endp


proc getParam2
locals
retrn rd 0
endl
	mov	[retrn], 0
	mov	ebx, params
  .find_o:
	cmp	[ebx], word '-o'
	jne	.find_o2
	mov	edx, ebx
	lea	esi, [ebx+3]
   @@:				;skiping spaces
	cmp	esi, pathOut+1024
	jae	.errorParsing
	cmp	byte[esi], ' '
	jne	@f
	inc	esi
	jmp	@b
   @@:				;copying        ; -o "file"
	mov	ecx, 3
	cmp	byte[esi], '"'
	jne	._notspace
	inc	esi
	add	ecx, 2
	mov	edi, pathOut
	mov	[retrn], 1
    @@: lodsb
	cmp	al, '"'
	je	.clear
	stosb
	inc	ecx
	cmp	esi, pathOut+1024
	jae	errorParsing
	jmp	@b

     ._notspace:		;copying        ; -o file
	mov	edi, pathOut
    @@: lodsb
	stosb
	inc	ecx
	cmp	al, ' '
	je	.clear
	cmp	esi, pathOut+1024
	jae	errorParsing
	jmp	@b

     .clear:			;cleaning param
	mov	[edi], byte 0
	inc	edi
	mov	[retrn], 1
      @@:
	mov	byte[edx], ' '
	inc	edx
	loop	@b
	jmp	@f

  .find_o2:
	inc	ebx
	cmp	ebx, pathOut+1024
	jae	@f
	cmp	byte[ebx], 0
	je	@f
	jmp	.find_o
  @@:



	mov	eax, [retrn]
	ret
.errorParsing:
	mov	eax, 2
	ret
endp


proc getParam key:word
locals
retrn rd 0
endl
	mov	[retrn], 0
	mov	ebx, params

  .find_o:
	mov	ax, [key]
	cmp	[ebx], ax
	jne	.find_o2

	mov	edx, ebx
	lea	esi, [ebx+3]

   @@:				;skiping spaces
	cmp	esi, params+4096
	jae	.errorParsing
	cmp	byte[esi], ' '
	jne	@f
	inc	esi
	jmp	@b
   @@:

				;copying        ; -f "file"
	mov	ecx, 3
	cmp	byte[esi], '"'
	jne	._notspace
	inc	esi
	add	ecx, 2
	mov	edi, [endPointer]
	mov	[retrn], 1
    @@: lodsb
	cmp	al, '"'
	je	.clear
	stosb
	inc	ecx
	cmp	esi, params+4096
	jae	errorParsing
	jmp	@b

     ._notspace:		;copying        ; -f file
	mov	edi, [endPointer]
    @@: lodsb
	stosb
	inc	ecx
	cmp	al, ' '
	je	.clear
	cmp	esi, params+4096
	jae	errorParsing
	jmp	@b


     .clear:			;cleaning param
	mov	[edi], byte 0
	inc	edi
	mov	[endPointer], edi
	mov	[retrn], 1
      @@:
	mov	byte[edx], ' '
	inc	edx
	loop	@b

	jmp	@f

  .find_o2:
	inc	ebx
	cmp	ebx, params+4096
	jae	@f
	cmp	byte[ebx], 0
	je	@f
	jmp	.find_o
  @@:



	mov	eax, [retrn]
	ret
.errorParsing:
	mov	eax, 2
	ret
endp