Implement dynamic linking with system libraries via -lsyslibname:

console.obj http.ibj InputBox.obj Add header files for apps what dynamically link these libraries. git-svn-id: svn://kolibrios.org@7925 a494cfbc-eb01-0410-851d-a64ba20cac60
2020-05-16 08:07:10 +00:00
parent 67dc3cd6fc
commit 90cf9246ac
46 changed files with 1146 additions and 19 deletions
--- a/programs/develop/ktcc/trunk/libc/start/start.old.asm
+++ b/programs/develop/ktcc/trunk/libc/start/start.old.asm
@@ -0,0 +1,143 @@
+format ELF
+section '.text' executable
+public start
+public start as '_start'
+;extrn mf_init
+extrn main
+;include 'debug2.inc'
+__DEBUG__=0
+
+;start_:
+virtual at 0
+	db 'MENUET01' ; 1. Magic number (8 bytes)
+	dd 0x01       ; 2. Version of executable file
+	dd start       ; 3. Start address
+	dd 0x0	      ; 4. Size of image
+	dd 0x100000   ; 5. Size of needed memory
+	dd 0x100000   ; 6. Pointer to stack
+hparams dd 0x0	      ; 7. Pointer to program arguments
+hpath	dd 0x0	      ; 8. Pointer to program path
+end virtual
+
+start:
+;DEBUGF 'Start programm\n'
+    ;init heap of memory
+    mov eax,68
+    mov ebx,11
+    int 0x40
+
+;DEBUGF ' path "%s"\n params "%s"\n', .path, .params
+; check for overflow
+;; that not work
+;    mov  al, [path+buf_len-1]
+;    or	 al, [params+buf_len-1]
+;    jnz   .crash
+; check if path written by OS
+	mov  [argc], 0
+    mov  eax, [hparams]
+    test eax, eax
+    jz	 .without_path
+    mov  eax, path
+    cmp	 word ptr eax, 32fh  ; '/#3'  UTF8 
+    jne  .without_path
+    mov  word ptr eax, 12fh  ; '/#1'  fix to CP866
+.without_path:
+    mov  esi, eax
+    call push_param
+; retrieving parameters
+    mov  esi, params
+    xor  edx, edx  ; dl - <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(1) <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(0)
+		   ; dh - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 0 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
+    mov  ecx, 1    ; cl = 1
+		   ; ch = 0  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
+.parse: 
+    lodsb
+    test al, al
+    jz	 .run
+    test dl, dl
+    jnz  .findendparam
+		     ;{<7B><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    cmp  al, ' '
+    jz	 .parse  ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    mov  dl, cl  ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    cmp  al, '"'
+    jz	 @f	 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    mov  dh, ch     ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    dec  esi
+    call push_param
+    inc  esi
+    jmp  .parse
+
+  @@:  
+    mov  dh, cl     ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    call push_param ;<3B><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    jmp  .parse     ;<3B><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
+
+.findendparam:
+    test dh, dh
+    jz	 @f ; <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    cmp  al, '"'
+    jz	 .clear
+    jmp  .parse
+  @@:  
+    cmp  al, ' '
+    jnz  .parse
+
+.clear: 
+    lea  ebx, [esi - 1]
+    mov  [ebx], ch
+    mov  dl, ch
+    jmp  .parse
+
+.run:
+;DEBUGF 'call main(%x, %x) with params:\n', [argc], argv
+if __DEBUG__ = 1
+    mov  ecx, [argc]
+  @@:
+    lea  esi, [ecx * 4 + argv-4]
+    DEBUGF '0x%x) "%s"\n', cx, [esi]
+    loop @b
+end if
+    push argv
+    push [argc]
+    call main
+.exit:
+;DEBUGF 'Exit from prog\n';
+    xor  eax,eax
+    dec  eax
+    int  0x40
+    dd	 -1
+.crash:
+;DEBUGF 'E:buffer overflowed\n'
+    jmp  .exit
+;============================
+push_param:
+;============================
+;parameters
+;  esi - pointer
+;description
+;  procedure increase argc
+;  and add pointer to array argv
+;  procedure changes ebx
+    mov  ebx, [argc]
+    cmp  ebx, max_parameters
+    jae  .dont_add
+    mov  [argv+4*ebx], esi
+    inc  [argc]
+.dont_add:    
+    ret
+;==============================
+public argc as '__argc'
+public params as '__argv'
+public path as '__path'
+
+section '.bss' 
+buf_len = 0x400
+max_parameters=0x20
+argc	 rd 1
+argv	 rd max_parameters
+path	 rb buf_len 
+params	 rb buf_len 
+
+;section '.data'
+;include_debug_strings ; ALWAYS present in data section