socket.asm

%ifndef SOCKET_ASM
%define SOCKET_ASM

%include "error.asm"

;-----------------------------
;
; HANDLES "BLOCKING" HTTPS CONNECTION
;-----------------------------

%define MAXIMUM_QUEUE_BEFORE_AUTO_REJECT 1000
%define MAXIMUM_ALLOWED_CHARACTER_LENGTH_IN_REQ_LINE 1024


section  .bss
    sockaddr resb 16
    

section .data
    socklen dq 16

section .text

;<> rax->fd <> rdi, rsi, rdx, rax
socket:
    mov rdi, OPTION_AF_INET ;use IPv4
    mov rsi, OPTION_SOCK_STREAM
    mov rdx, OPTION_IPPROTO_TCP
    
    mov rax, SYS_SOCKET
    syscall


    cmp rax, -1 
    jle showq_fs_error ; socket returns errors similar to fs errors
    ret

;int->fd <> !->binds socket to 0.0.0.0:3009 <> rsi, rax, rdx
bind:
    mov rsi, sockaddr
    mov rax, 0x00000000C10B0002 ; 0.0.0.0, 3009, OPTION_AF_INET
    mov [rsi], rax;
    mov rdx, 16
    
    mov rax, SYS_BIND
    syscall
    
    cmp rax, -1 
    jle showq_bind_error
    ret

;int->fd <> !->sets socket to passive listening <> rsi, rax
listen:
    mov rsi, MAXIMUM_QUEUE_BEFORE_AUTO_REJECT
    mov rax, SYS_LISTEN
    syscall

    cmp rax, -1 
    jle showq_listen_error
    ret

;int->fd <> rax-> client connection  descriptor <> rsi, rdx, rax
accept:
    mov rsi, sockaddr
    mov rdx, socklen
    mov rax, SYS_ACCEPT
    syscall

    cmp rax, -1
    jle show_accept_error
    ret
    
%endif