libs/asm-xml: add the AsmXml XML parser as xml.obj

AsmXml 1.4 by Marc Kerbiquet (BSD 3-clause, tibleiz.net), unmodified,
with a KolibriOS wrapper: COFF export table, lib_init and cdecl
adapters for the heap functions passed by the loader. It exports
lib_init and the ax_* functions used by FeedFlow and by the C--
header lib/obj/xml.h, and is shipped as /sys/lib/xml.obj.

Co-authored-by: efpiem <fpmastrorilli@gmail.com>
Assisted-by: Claude:claude-opus-5-5

data/Tupfile.lua

@@ -523,6 +523,7 @@ tup.append_table(img_files, {
  {"LIB/RASTERWORKS.OBJ", VAR_PROGS .. "/develop/libraries/fontRasterWorks_unicode/RasterWorks.obj"},
  {"LIB/SORT.OBJ", VAR_PROGS .. "/develop/libraries/sorter/sort.obj"},
  {"LIB/TINYGL.OBJ", VAR_PROGS .. "/develop/libraries/TinyGL/asm_fork/tinygl.obj"},
+ {"LIB/XML.OBJ", VAR_PROGS .. "/develop/libraries/asm-xml/xml.obj"},
  {"MEDIA/ANIMAGE", VAR_PROGS .. "/media/animage/animage"},
  {"MEDIA/FILLSCR", VAR_PROGS .. "/media/FillScr/fillscr"},
  {"MEDIA/KIV", VAR_PROGS .. "/media/kiv/kiv"},

kernel/trunk/network/tcp.inc

@@ -63,7 +63,7 @@ TCP_OPT_TIMESTAMP       = 8
 TCP_time_MSL            = 47          ; max segment lifetime (30s)
 TCP_time_re_min         = 2           ; min retransmission (1,28s)
 TCP_time_re_max         = 100         ; max retransmission (64s)
-TCP_time_pers_min       = 2           ; min persist (1,28s)
+TCP_time_pers_min       = 8           ; min persist (5,12s)
 TCP_time_pers_max       = 94          ; max persist (60,16s)
 TCP_time_keep_init      = 118         ; connection establishment (75,52s)
 TCP_time_keep_idle      = 4608        ; idle time before 1st probe (2h)

kernel/trunk/network/tcp_input.inc

@@ -525,11 +525,8 @@ endl
 
         test    [temp_bits], TCP_BIT_TIMESTAMP
         jz      .no_timestamp_rtt
-        cmp     [ebx + TCP_SOCKET.ts_ecr], 0    ; nothing echoed
-        je      .no_timestamp_rtt
         mov     eax, [timestamp]
         sub     eax, [ebx + TCP_SOCKET.ts_ecr]
-        shr     eax, 6                          ; 1/100 s -> 640 ms ticks
         inc     eax
         call    tcp_xmit_timer
         jmp     .rtt_done
@@ -1117,11 +1114,8 @@ endl
 
         test    [temp_bits], TCP_BIT_TIMESTAMP
         jz      .timestamp_not_present
-        cmp     [ebx + TCP_SOCKET.ts_ecr], 0    ; nothing echoed
-        je      .timestamp_not_present
         mov     eax, [timestamp]
         sub     eax, [ebx + TCP_SOCKET.ts_ecr]
-        shr     eax, 6                          ; 1/100 s -> 640 ms ticks
         inc     eax
         call    tcp_xmit_timer
         jmp     .rtt_done_

kernel/trunk/network/tcp_output.inc

@@ -626,7 +626,7 @@ endl
         mov     [eax + TCP_SOCKET.SND_MAX], edx                 ; [eax + TCP_SOCKET.SND_NXT] from before we updated it
 
         cmp     [eax + TCP_SOCKET.t_rtt], 0                     ; are we currently timing anything?
-        jne     @f
+        je      @f
         mov     [eax + TCP_SOCKET.t_rtt], 1                     ; nope, start transmission timer
         mov     [eax + TCP_SOCKET.t_rtseq], edi
         inc     [TCPS_segstimed]

kernel/trunk/network/tcp_subr.inc

@@ -96,7 +96,7 @@ macro   tcp_init_socket socket {
         mov     [socket + TCP_SOCKET.t_srtt], TCP_time_srtt_default
         mov     [socket + TCP_SOCKET.t_rttvar], TCP_time_rtt_default * 4
         mov     [socket + TCP_SOCKET.t_rttmin], TCP_time_re_min
-        mov     [socket + TCP_SOCKET.t_rxtcur], TCP_time_rtt_default
+;;; TODO: TCP_time_rangeset
 
         mov     [socket + TCP_SOCKET.SND_CWND], TCP_max_win shl TCP_max_winshift
         mov     [socket + TCP_SOCKET.SND_SSTHRESH], TCP_max_win shl TCP_max_winshift
@@ -518,7 +518,7 @@ tcp_xmit_timer:
 
         inc     [TCPS_rttupdated]
 
-        cmp     [ebx + TCP_SOCKET.t_srtt], 0    ; first sample?
+        cmp     [ebx + TCP_SOCKET.t_rtt], 0
         je      .no_rtt_yet
 
 ; srtt is stored as a fixed point with 3 bits after the binary point.
@@ -534,7 +534,7 @@ tcp_xmit_timer:
         pop     ecx
 
         add     [ebx + TCP_SOCKET.t_srtt], eax
-        jg      @f                              ; signed: delta may be negative
+        ja      @f
         mov     [ebx + TCP_SOCKET.t_srtt], 1
   @@:
 
@@ -556,10 +556,10 @@ tcp_xmit_timer:
         pop     edx
 
         add     [ebx + TCP_SOCKET.t_rttvar], eax
-        jg      @f
+        ja      @f
         mov     [ebx + TCP_SOCKET.t_rttvar], 1
   @@:
-        jmp     .rto
+        ret
 
 
   .no_rtt_yet:
@@ -572,16 +572,6 @@ tcp_xmit_timer:
         mov     [ebx + TCP_SOCKET.t_rttvar], eax
         pop     ecx
 
-  .rto:
-; Retransmit timeout = srtt + 4*rttvar, reset the backoff
-        push    ecx
-        mov     ecx, [ebx + TCP_SOCKET.t_srtt]
-        shr     ecx, TCP_RTT_SHIFT
-        add     ecx, [ebx + TCP_SOCKET.t_rttvar]
-        tcpt_rangeset [ebx + TCP_SOCKET.t_rxtcur], ecx, TCP_time_re_min, TCP_time_re_max
-        pop     ecx
-        mov     [ebx + TCP_SOCKET.t_rxtshift], 0
-        mov     [ebx + TCP_SOCKET.t_rtt], 0     ; the timed segment is done
         ret
 
 

kernel/trunk/network/tcp_timer.inc

@@ -91,10 +91,6 @@ proc tcp_timer_640ms
         jne     .loop
 
         inc     [eax + TCP_SOCKET.t_idle]
-        cmp     [eax + TCP_SOCKET.t_rtt], 0     ; timing a segment?
-        je      @f
-        inc     [eax + TCP_SOCKET.t_rtt]
-  @@:
 
         test    [eax + TCP_SOCKET.timer_flags], timer_flag_retransmission
         jz      .check_more2
@@ -103,95 +99,6 @@ proc tcp_timer_640ms
 
         DEBUGF  DEBUG_NETWORK_VERBOSE, "socket %x: Retransmission timer expired\n", eax
 
-; Lock socket, an ACK may have stopped or restarted the timer meanwhile
-        pusha
-        lea     ecx, [eax + SOCKET.mutex]
-        call    mutex_lock
-        popa
-        test    [eax + TCP_SOCKET.timer_flags], timer_flag_retransmission
-        jz      .rexmt_cancelled
-        cmp     [eax + TCP_SOCKET.timer_retransmission], 0
-        jne     .rexmt_cancelled
-
-; Too many retransmissions? Drop the connection
-        inc     [eax + TCP_SOCKET.t_rxtshift]
-        cmp     [eax + TCP_SOCKET.t_rxtshift], TCP_max_rxtshift
-        jbe     .rexmt
-
-        pusha
-        lea     ecx, [eax + SOCKET.mutex]
-        call    mutex_unlock
-        popa
-
-        DEBUGF  DEBUG_NETWORK_VERBOSE, "socket %x: too many retransmissions, dropping\n", eax
-
-        push    [eax + SOCKET.NextPtr]
-        mov     ebx, ETIMEDOUT
-        call    tcp_drop
-        pop     eax
-        jmp     .check_only
-
-  .rexmt_cancelled:
-        pusha
-        lea     ecx, [eax + SOCKET.mutex]
-        call    mutex_unlock
-        popa
-        jmp     .check_more2
-
-  .rexmt:
-        push    ebx ecx edx
-
-; Restart timer with backoff: t_rxtcur << min(t_rxtshift, 6)
-        mov     ebx, [eax + TCP_SOCKET.t_rxtcur]
-        mov     cl, [eax + TCP_SOCKET.t_rxtshift]
-        cmp     cl, 6
-        jbe     @f
-        mov     cl, 6
-       @@:
-        shl     ebx, cl
-        cmp     ebx, TCP_time_re_min
-        jae     @f
-        mov     ebx, TCP_time_re_min
-       @@:
-        cmp     ebx, TCP_time_re_max
-        jbe     @f
-        mov     ebx, TCP_time_re_max
-       @@:
-        mov     [eax + TCP_SOCKET.timer_retransmission], ebx
-
-; Resend from the last acknowledged byte, don't time it
-        push    [eax + TCP_SOCKET.SND_UNA]
-        pop     [eax + TCP_SOCKET.SND_NXT]
-        mov     [eax + TCP_SOCKET.t_rtt], 0
-        mov     [eax + TCP_SOCKET.t_dupacks], 0
-
-; Slow start: ssthresh = max(2, min(wnd, cwnd) / 2 / mss) * mss, cwnd = mss
-        mov     ecx, [eax + TCP_SOCKET.t_maxseg]
-        mov     edx, [eax + TCP_SOCKET.SND_WND]
-        cmp     edx, [eax + TCP_SOCKET.SND_CWND]
-        jbe     @f
-        mov     edx, [eax + TCP_SOCKET.SND_CWND]
-       @@:
-        mov     ebx, eax                                ; socket ptr
-        mov     eax, edx
-        shr     eax, 1
-        xor     edx, edx
-        div     ecx
-        cmp     eax, 2
-        jae     @f
-        mov     eax, 2
-       @@:
-        mul     ecx
-        mov     [ebx + TCP_SOCKET.SND_SSTHRESH], eax
-        mov     [ebx + TCP_SOCKET.SND_CWND], ecx
-        mov     eax, ebx
-        pop     edx ecx ebx
-
-        pusha
-        lea     ecx, [eax + SOCKET.mutex]
-        call    mutex_unlock
-        popa
-
         push    eax
         call    tcp_output
         pop     eax

programs/develop/libraries/asm-xml/LICENSE.txt

@@ -0,0 +1,25 @@
+Copyright (c) 2007-2012, Marc Kerbiquet
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice,
+   this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+3. Neither the name of AsmXml nor the names of its contributors may be
+   used to endorse or promote products derived from this software without
+   specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

programs/develop/libraries/asm-xml/Tupfile.lua

@@ -0,0 +1,2 @@
+if tup.getconfig("NO_FASM") ~= "" then return end
+tup.rule("xml.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "xml.obj")

programs/develop/libraries/asm-xml/xml.asm

@@ -0,0 +1,59 @@
+; SPDX-License-Identifier: GPL-2.0-only
+;
+; xml.obj - AsmXml parser as a KolibriOS library
+; Copyright (C) KolibriOS team 2026
+;
+; asm-xml.asm and LICENSE.txt are the unmodified AsmXml 1.4 release
+; by Marc Kerbiquet (BSD 3-clause), https://tibleiz.net/asm-xml/
+
+format MS COFF
+
+public EXPORTS
+
+section '.flat' code readable align 16
+
+; AsmXml calls malloc/free as cdecl, the heap functions given to lib_init
+; are stdcall: the caller pops the argument they have already taken
+lib_init:
+        mov     [mem.alloc], eax
+        mov     [mem.free], ebx
+        mov     eax, malloc
+        mov     ebx, free
+        jmp     initialize
+
+malloc:
+        push    dword [esp + 4]
+        call    [mem.alloc]
+        ret
+
+free:
+        push    dword [esp + 4]
+        call    [mem.free]
+        ret
+
+align 4
+mem.alloc       dd ?
+mem.free        dd ?
+
+align 16
+EXPORTS:
+        dd      sz_lib_init,                    lib_init
+        dd      sz_initializeParser,            _initializeParser
+        dd      sz_releaseParser,               _releaseParser
+        dd      sz_parse,                       _parse
+        dd      sz_initializeClassParser,       _initializeClassParser
+        dd      sz_releaseClassParser,          _releaseClassParser
+        dd      sz_classFromElement,            _classFromElement
+        dd      sz_classFromString,             _classFromString
+        dd      0, 0
+
+sz_lib_init                     db 'lib_init', 0
+sz_initializeParser             db 'ax_initializeParser', 0
+sz_releaseParser                db 'ax_releaseParser', 0
+sz_parse                        db 'ax_parse', 0
+sz_initializeClassParser        db 'ax_initializeClassParser', 0
+sz_releaseClassParser           db 'ax_releaseClassParser', 0
+sz_classFromElement             db 'ax_classFromElement', 0
+sz_classFromString              db 'ax_classFromString', 0
+
+include 'asm-xml.asm'