Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 3801 → Rev 3802

/programs/network/ftpc/ftpc.asm
222,6 → 222,9
cmp dword[s], "bye" + 10 shl 24
je cmd_bye
 
cmp dword[s], "lcwd"
je cmd_lcwd
 
invoke con_write_asciiz, str_unknown
jmp wait_for_usercommand
 
311,6 → 314,7
str_user db "username: ",0
str_pass db "password: ",0
str_unknown db "unknown command",10,0
str_lcwd db "local working directory is now: ",0
 
str_help db "available commands:",10
db "help - help",10,10
318,6 → 322,7
db "cwd - change working directoy on server",10
db "dele - delete file from server",10
db "list - list files and folders in current directory",10
db "lcwd - change local working directory",10
db "pwd - print working directory",10
db "retr - retreive file from server",10
db "stor - store file on server",10
/programs/network/ftpc/usercommands.inc
127,7 → 127,30
jmp wait_for_servercommand
 
 
cmd_lcwd:
 
mov esi, s+5
mov ecx, 256-5
.loop:
lodsb
cmp al, 10
je .done
test al, al
je .done
loop .loop
.done:
mov byte[esi-1], 0
mcall 30, 1, s+5 ; set working directory
mcall 30, 2, s, 256 ; and read it again
 
invoke con_write_asciiz, str_lcwd
invoke con_write_asciiz, s
invoke con_write_asciiz, str4 ; newline
 
jmp wait_for_usercommand
 
 
 
; esi = source ptr
; edi = dest ptr
; ecx = max length of source buffer