| /programs/fs/unz/PARSE.INC |
|---|
| 0,0 → 1,260 |
| ; ret: |
| ; 0 - not found param |
| ; 1 - found param |
| ; 2 - error parsing |
| proc getLastParam ;¯®á«¥¤¨© ¯ à ¬¥âà ¯¨è¥â ¢ 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 |