Some FTP client demo code for the brave.

git-svn-id: svn://kolibrios.org@3701 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/network/ftpc/servercommands.inc

@@ -0,0 +1,114 @@
+server_parser:
+
+; Commands are always 3 numbers and followed by a space
+; If a server decides it needs multiline output,
+; first lines will have a dash instead of space after numbers,
+; thus they are simply ignored.
+
+        cmp     dword[s], "150 "
+        je      data_ok
+
+        cmp     dword[s], "220 "
+        je      welcome
+
+        cmp     dword[s], "227 "
+        je      pasv_ok
+
+        cmp     dword[s], "230 "
+        je      login_ok
+
+        cmp     dword[s], "331 "
+        je      pass
+
+        ret
+
+
+welcome:
+
+        mov     [status], STATUS_CONNECTED
+        ret
+
+
+pass:
+
+        mov     [status], STATUS_NEEDPASSWORD
+        ret
+
+
+login_ok:
+
+        mov     [status], STATUS_LOGGED_IN
+        ret
+
+
+pasv_ok:
+
+        sub     ecx, 5
+        jb      .fail
+        mov     al, "("
+        mov     edi, s + 5
+        repne   scasb
+
+        mcall   socket, AF_INET4, SOCK_STREAM, 0
+        cmp     eax, -1
+        je      fail
+        mov     [datasocket], eax
+
+        mov     esi, edi
+        call    ascii_dec
+        mov     byte[sockaddr2.ip+0], bl
+        call    ascii_dec
+        mov     byte[sockaddr2.ip+1], bl
+        call    ascii_dec
+        mov     byte[sockaddr2.ip+2], bl
+        call    ascii_dec
+        mov     byte[sockaddr2.ip+3], bl
+
+        call    ascii_dec
+        mov     byte[sockaddr2.port+1], bl
+        call    ascii_dec
+        mov     byte[sockaddr2.port+0], bl
+
+        push    str_open
+        call    [con_write_asciiz]
+
+        mcall   connect, [datasocket], sockaddr2, 18
+
+  .fail:
+        ret
+
+
+data_ok:
+
+        mcall   recv, [datasocket], buffer_ptr, BUFFERSIZE, 0   ; fixme: use other buffer
+        inc     eax
+        jz      .fail
+        dec     eax
+        jz      .fail
+
+        mov     byte[buffer_ptr + eax], 0
+        pushd   buffer_ptr
+        call    [con_write_asciiz]
+
+  .fail:
+        ret
+
+
+ascii_dec:
+
+        xor     ebx, ebx
+        mov     cl, 3
+  .loop:
+        lodsb
+        sub     al, '0'
+        jb      .done
+        cmp     al, 9
+        ja      .done
+        lea     ebx, [ebx*4+ebx]
+        shl     ebx, 1
+        add     bl, al
+        dec     cl
+        jnz     .loop
+
+  .done:
+        ret