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,105 @@
+/*
+DIRLIST
+*/
+
+#include <plib.h>
+#include <prndir.g>
+
+LOCAL_D VOID *dcb=NULL;
+LOCAL_D VOID *hand;
+
+LOCAL_C VOID error(TEXT *msg, INT errno)
+    {
+    TEXT bb[E_MAX_ERROR_TEXT_SIZE];
+
+    p_close(dcb);
+    dcb=NULL;
+    p_errs(&bb[0],errno);
+    p_printf("%s: %s",msg,&bb[0]);
+    }
+
+LOCAL_C VOID panic(TEXT *msg, INT errno)
+    {
+    error(msg,errno);
+    p_leave(0);
+    }
+
+LOCAL_C VOID PrintDirLine(TEXT *name, P_INFO *pinfo)
+    {
+    P_DAYSEC ds;
+    P_DATE dt;
+    TEXT *p,b[40];
+
+    p=&b[0];
+    if (pinfo->status&P_FAVOLUME)
+        p=p_scpy(p,"Vol,");
+    if (pinfo->status&P_FADIR)
+        p=p_scpy(p,"Dir,");
+    if (pinfo->status&P_FAMOD)
+        p=p_scpy(p,"Mod,");
+    if (!(pinfo->status&P_FAWRITE))
+        p=p_scpy(p,"Read,");
+    if (pinfo->status&P_FASYSTEM)
+        p=p_scpy(p,"Sys,");
+    if (pinfo->status&P_FAHIDDEN)
+        p=p_scpy(p,"Hid,");
+    if (*(p-1)==',')
+        *--p=0;
+    p_sttods(&pinfo->modst,&ds);
+    p_dstodt(&ds,&dt);
+    p_printf("%- 12s %7lu %02u-%02u-%02u %02u:%02u %s",
+        name,pinfo->size,dt.day+1,dt.month+1,dt.year,dt.hour,dt.minute,&b[0]);
+    }
+
+LOCAL_C VOID CDECL PrintDirList(TEXT *dir)
+    {
+    INT ret;
+    UWORD i,count;
+    DIRLIST_ITEM *pd,d;
+    RC_VAXVAR rec;
+
+    p_send2(hand,O_VA_RESET);
+    if ((ret=p_open(&dcb,dir,P_FDIR))!=0)
+        panic("Failed to open directory file",ret);
+    while (!(ret=p_iow(dcb,P_FREAD,&d.name[0],&d.info)))
+        {
+        rec.buf=(UBYTE *)&d;
+        rec.len=sizeof(d.info)+p_slen(&d.name[0])+1;
+        p_send4(hand,O_VA_INSERTISQ,&rec,&i);
+        }
+    p_close(dcb);
+    dcb=NULL;
+    if (ret!=E_FILE_EOF)
+        panic("Failed to read directory",ret);
+    if (!(count=p_send2(hand,O_VA_COUNT)))
+        p_printf("No files found");
+    else
+        {
+        for (i=0;i<count;i++)
+            {
+            pd=(DIRLIST_ITEM *)p_send3(hand,O_VA_PBUF,i);
+            PrintDirLine(&pd->name[0],&pd->info);
+            }
+        }
+    }
+
+GLDEF_C INT CDECL DoDirLists(VOID)
+    {
+    TEXT name[P_FNAMESIZE];
+
+    hand=f_newsend(CAT_PRNDIR_PRNDIR,C_DIRLIST,O_VA_INIT,16);
+    while (p_getl(">",&name[0],P_FNAMESIZE))
+        PrintDirList(&name[0]);
+    p_send2(hand,O_DESTROY);
+    return(0);
+    }
+
+GLDEF_C INT main(VOID)
+    {
+    INT err;
+
+    p_linklib(0);
+    if ((err=p_enter((VOID *)DoDirLists))!=0)
+        error("Called p_leave",err);
+    return(0);
+    }