Added microtar library(mtar.obj)

(Library for working with tar archives) git-svn-id: svn://kolibrios.org@8791 a494cfbc-eb01-0410-851d-a64ba20cac60
2021-06-10 12:17:09 +00:00
parent a834601c69
commit 813dc9abc7
8 changed files with 859 additions and 0 deletions
--- a/programs/develop/libraries/microtar/example/read.asm
+++ b/programs/develop/libraries/microtar/example/read.asm
@@ -0,0 +1,78 @@
+format binary as "kex"
+
+use32
+        org     0x0
+        db      'MENUET01'      
+        dd      0x01            
+        dd      START           
+        dd      IM_END          
+        dd      MEM  
+        dd      MEM
+        dd      0
+        dd      0
+
+include '../../../../macros.inc'
+include '../../../../proc32.inc'
+include '../../../../KOSfuncs.inc'
+include '../../../../dll.inc'
+include '../mtar.inc'
+;include '../../../../debug-fdo.inc'
+
+;__DEBUG__               = 1
+;__DEBUG_LEVEL__         = 2   
+
+
+START:
+        stdcall dll.Load, @IMPORT ; Имортироуем функции из mtar.obj
+        test    eax, eax
+        jnz     exit
+     
+        ccall [mtar_init] ; Инициализируем библиотеку (на самом деле подгружается libc.obj
+        ccall [mtar_open], tar, tar_fname, tar_fmode ; Открываем для чтения файл 'test.tar'
+        
+       ; DEBUGF 2, "%d", eax
+        
+print_next:
+        ccall [mtar_read_header], tar, header ; Читаем заголовок
+        cmp eax, MTAR_ENULLRECORD ; Если заголовок не был прочитан (return -7) выходим из цикла
+        je exit
+        ccall [printf], format_str, header+mtar_header_t.name, dword[header+mtar_header_t.size] ; Выводим в консоль имя файла и размер в байтах
+        ccall [mtar_next], tar ; Переходим к следующему заголовку
+        jmp print_next ; прыгаем в начало цикла
+        
+exit:
+        ccall [mtar_close], tar ; Закрываем 'test.tar'
+        mcall SF_TERMINATE_PROCESS ; Выходим из программы
+        
+; data
+       
+tar_fname db 'test.tar', 0
+tar_fmode db 'r', 0
+
+tar    rb sizeof.mtar_t
+header rb sizeof.mtar_header_t 
+
+format_str db '%-10s (%-4d bytes)', 0x0A,0
+
+align 4
+
+@IMPORT:
+library mtar,   'mtar.obj', libc , 'libc.obj'
+import  mtar,   \
+        mtar_init, 'mtar_init', \
+        mtar_open, 'mtar_open', \
+        mtar_next, 'mtar_next', \
+        mtar_strerror, 'mtar_strerror', \
+        mtar_read_header, 'mtar_read_header', \
+        mtar_write_data, 'mtar_write_data', \
+        mtar_finalize, 'mtar_finalize', \
+        mtar_close, 'mtar_finalize'
+
+import  libc,   \
+        printf, 'printf'
+
+
+IM_END:
+align   4
+rb      4096    ; stack
+MEM: