Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 3817 → Rev 3818

/programs/network/ftpc/ftpc.asm
164,6 → 164,7
.no_more_data:
mov [offset], 0
.go_cmd:
lea ecx, [edi - s] ; length of command
xor al, al
stosb
 
292,21 → 293,29
ret
 
.fail:
invoke con_get_flags
push eax
invoke con_set_flags, 0x0c ; print errors in red
invoke con_write_asciiz, str_err_socket
invoke con_set_flags ; reset color
ret
 
 
 
error_socket:
invoke con_set_flags, 0x0c ; print errors in red
invoke con_write_asciiz, str_err_socket
jmp wait_for_keypress
 
error_resolve:
invoke con_set_flags, 0x0c ; print errors in red
invoke con_write_asciiz, str_err_resolve
 
wait_for_keypress:
invoke con_set_flags, 0x07 ; reset color to grey
invoke con_write_asciiz, str_push
invoke con_getch2
mcall close, [socketnum]
jmp main
 
done:
320,7 → 329,7
 
; data
str_title db 'FTP client',0
str_welcome db 'FTP client for KolibriOS v0.08',10
str_welcome db 'FTP client for KolibriOS v0.09',10
db 10
db 'Please enter ftp server address.',10,0
 
/programs/network/ftpc/servercommands.inc
29,6 → 29,9
; cmp dword[s], "421 "
; je timeout
 
cmp dword[s], "503 " ; login first
je welcome
 
cmp dword[s], "530 " ; password incorrect
je welcome
 
58,10 → 61,10
 
pasv_ok:
 
sub ecx, 5
sub ecx, 4
jb .fail
mov al, "("
mov edi, s + 5
mov edi, s + 4
repne scasb
 
mcall socket, AF_INET4, SOCK_STREAM, 0
86,8 → 89,12
 
invoke con_write_asciiz, str_open
mcall connect, [datasocket], sockaddr2, 18
; cmp eax, -1
; je error_socket
jmp wait_for_servercommand
 
.fail:
invoke con_write_asciiz, str_unknown
jmp wait_for_servercommand