build: add the SIBO SDK

2026-07-06 18:01:36 +01:00
parent d76326729c
commit 64e484448c
757 changed files with 97167 additions and 0 deletions
@@ -0,0 +1,89 @@
+/*
+TXTWRITE.C
+*/
+
+#include <p_std.h>
+#include <p_file.h>
+#include <ws$txt.g>
+#include "wpfconv.h"
+
+GLREF_D VOID *DatApp5;
+
+LOCAL_C INT OpenFile(PR_TXTSAVE *self)
+/* forces .TXT extension */
+    {
+    TEXT extension[6];
+    P_INFO info;
+    TEXT name[P_FNAMESIZE];
+
+    *((UWORD *)&extension[0])='.'+('T'<<8);
+    *((UWORD *)&extension[2])='X'+('T'<<8);
+    extension[4]=0;
+    f_fparse(&extension[0],DatApp5,&name[0],NULL);
+    if (!p_finfo(&name[0],&info))
+        {
+        if (!DoConfirmOverwrite())
+            return(FALSE);
+        }
+    f_open(&self->active.pcb,&name[0],P_FUPDATE|P_FREPLACE|P_FSTREAM_TEXT);
+    return(TRUE);
+    }
+
+LOCAL_C VOID ReplaceNulls(TEXT *p,UINT len)
+    {
+    TEXT *pe;
+
+    for (pe=p+len;p<pe;p++)
+        {
+        if (!*p)
+            *p=CHAR_CR;
+        }
+    }
+
+#pragma METHOD_CALL
+
+METHOD VOID txtsave_ao_init(PR_TXTSAVE *self)
+    {
+    OpenFile(self);
+    self->txtsave.ntags=CountTags();
+    StartActive(self);
+    }
+METHOD VOID txtsave_ao_queue(PR_TXTSAVE *self)
+    {
+    self->active.isactive=TRUE;
+    p_iosignal();
+    }
+METHOD INT txtsave_ao_run(PR_TXTSAVE *self)
+    {
+    PARA_STYLE style;
+    EMPH_STYLE emphasis;
+    UINT taglen,txtlen;
+
+    taglen=SenseTagItem(self->txtsave.curtag++,&style,&emphasis);
+    while (taglen)
+        {
+        txtlen=taglen>TXTSAVE_BUFFER_LEN ? TXTSAVE_BUFFER_LEN : taglen;
+        ExtractText(self->txtsave.pos,&self->txtsave.buf[0],txtlen);
+        ReplaceNulls(&self->txtsave.buf[0],txtlen);
+        f_write(self->active.pcb,&self->txtsave.buf[0],txtlen);
+        self->txtsave.pos+=txtlen;
+        taglen-=txtlen;
+        }
+    if (self->txtsave.curtag<self->txtsave.ntags)
+        p_send2(self,O_AO_QUEUE);
+    else
+        p_send2(self,O_DESTROY);
+    return(RUN_ACTIVE_USED);
+    }
+METHOD VOID txtsave_ao_abrun(PR_TXTSAVE *self)
+    {
+    p_close(self->active.pcb);
+    StopActive();
+    p_supersend2(self,O_AO_ABRUN);
+    p_supersend2(self,O_DESTROY);
+    }
+METHOD VOID txtsave_destroy(PR_TXTSAVE *self)
+    {
+    StopActive();
+    p_supersend2(self,O_DESTROY);
+    }