| 0,0 → 1,236 |
|---|
| include 'proc32.inc' |
| |
| format MS COFF |
| |
| public _http_init |
| public _http_get@16 |
| public _http_receive@4 |
| public _http_free@4 |
| |
| section '.text' align 16 |
| |
| |
| ;void* __fastcall getprocaddr(export, name) |
| align 4 |
| getprocaddress: |
| push esi |
| push edi |
| |
| xor eax, eax |
| test ecx, ecx ; If hlib = 0 then goto .end |
| jz .end |
| .next: |
| cmp [ecx], dword 0 ; If end of export table then goto .end |
| jz .end |
| |
| xor eax, eax |
| mov esi, [ecx] |
| mov edi, edx ; name |
| .next_: |
| lodsb |
| scasb |
| jne .fail |
| or al, al |
| jnz .next_ |
| jmp .ok |
| .fail: |
| add ecx, 8 |
| jmp .next |
| .ok: |
| mov eax, [ecx + 4] ; return address |
| .end: |
| pop edi |
| pop esi |
| ret |
| |
| |
| ;void fastcall dll_link(export, import) |
| |
| align 4 |
| dll_link: |
| push esi |
| push ecx |
| mov esi, edx |
| test esi, esi |
| jz .done |
| .next: |
| mov edx, [esi] |
| test edx, edx |
| jz .done |
| mov ecx, [esp] |
| call getprocaddress |
| test eax, eax |
| jz .done |
| mov [esi], eax |
| add esi, 4 |
| jmp .next |
| .done: |
| pop ecx |
| pop esi |
| ret |
| |
| align 4 |
| dll_load: |
| push ebp |
| push esi |
| push edi |
| |
| mov ebp, [esp+16] |
| .next_lib: |
| mov edx, [ebp] |
| test edx, edx |
| jz .exit |
| |
| mov esi, [ebp+4] |
| mov edi, s_libdir.fname |
| @@: |
| lodsb |
| stosb |
| test al, al |
| jnz @b |
| |
| mov eax, 68 |
| mov ebx, 19 |
| mov ecx, s_libdir |
| int 0x40 |
| test eax, eax |
| jz .fail |
| |
| mov ecx, eax |
| call dll_link |
| mov eax, [ecx] |
| cmp dword[eax], 'lib_' |
| jnz @f |
| |
| mov esi, [ecx+4] |
| |
| pushad |
| mov eax, mem.Alloc |
| mov ebx, mem.Free |
| mov ecx, mem.ReAlloc |
| mov edx, dll_load |
| call esi |
| popad |
| @@: |
| add ebp, 8 |
| jmp .next_lib |
| .exit: |
| pop edi |
| pop esi |
| pop ebp |
| xor eax, eax |
| ret 4 |
| .fail: |
| pop edi |
| pop esi |
| pop ebx |
| inc eax |
| ret 4 |
| |
| align 4 |
| _http_init: |
| |
| push @IMPORT |
| call dll_load |
| ret |
| |
| align 4 |
| _http_get@16: |
| jmp [HTTP_get] |
| |
| align 4 |
| _http_receive@4: |
| jmp [HTTP_receive] |
| |
| align 4 |
| _http_free@4: |
| jmp [HTTP_free] |
| |
| proc mem.Alloc, size |
| push ebx ecx |
| mov ecx, [size] |
| mov eax, 68 |
| mov ebx, 12 |
| int 0x40 |
| pop ecx ebx |
| ret |
| endp |
| ;----------------------------------------------------------------------------- |
| proc mem.ReAlloc, mptr, size |
| push ebx ecx edx |
| mov ecx, [size] |
| test ecx, ecx |
| jz @f |
| @@: |
| mov edx, [mptr] |
| test edx, edx |
| jz @f |
| @@: |
| mov eax, 68 |
| mov ebx, 20 |
| int 0x40 |
| test eax, eax |
| jz @f |
| @@: |
| pop edx ecx ebx |
| ret |
| endp |
| ;----------------------------------------------------------------------------- |
| proc mem.Free, mptr |
| push ebx ecx |
| mov ecx,[mptr] |
| test ecx,ecx |
| jz @f |
| @@: |
| mov eax, 68 |
| mov ebx, 13 |
| int 0x40 |
| pop ecx ebx |
| ret |
| endp |
| |
| section '.data' align 16 |
| |
| ; ------------------------- |
| macro library [lname,fname] |
| { |
| forward |
| dd __#lname#_library_table__,__#lname#_library_name__ |
| common |
| dd 0 |
| forward |
| align 4 |
| __#lname#_library_name__ db fname,0 |
| } |
| |
| macro import lname,[name,sname] |
| { |
| common |
| align 4 |
| __#lname#_library_table__: |
| forward |
| if used name |
| name dd __#name#_import_name__ |
| end if |
| common |
| dd 0 |
| forward |
| if used name |
| align 4 |
| __#name#_import_name__ db sname,0 |
| end if |
| } |
| |
| align 4 |
| @IMPORT: |
| |
| library lib_http, 'http.obj' |
| |
| import lib_http, \ |
| HTTP_get, 'get', \ |
| HTTP_receive, 'receive', \ |
| HTTP_free, 'free' |
| |
| s_libdir: |
| db '/sys/lib/' |
| .fname rb 32 |