From 45007835fa3a76ba8879a578bbabab30289e4a0e Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Sat, 2 Nov 2019 17:52:38 -0400
Subject: [PATCH] add bpic sources

from book cd under /TOOLS/BPIC
---
 bpic/bpic.c   | 154 ++++++++++++++++++++++++++++++++++++++++++++++++++
 bpic/makefile |  49 ++++++++++++++++
 2 files changed, 203 insertions(+)
 create mode 100644 bpic/bpic.c
 create mode 100644 bpic/makefile

diff --git a/bpic/bpic.c b/bpic/bpic.c
new file mode 100644
index 0000000..f5fa8d9
--- /dev/null
+++ b/bpic/bpic.c
@@ -0,0 +1,154 @@
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <dos.h>
+#include <io.h>
+#include <string.h>
+#include <fcntl.h>
+#include <sys\stat.h>
+
+#define MAX_RBA     500
+
+
+
+    unsigned    long    rTable[MAX_RBA+1];
+
+
+/****************************************************************************
+**                                     **
+****************************************************************************/
+char *StripEndOfLine(char *s)
+{
+    int     len;
+    char    ch;
+
+len = strlen(s);
+
+while (--len >= 0)
+    {
+    ch = s[len];
+    if (ch != ' ' && ch != ';' && ch != '\t' && ch != 13 && ch != 10)
+    break;
+
+    s[len] = '\0';
+    }
+
+return(s);
+}
+
+
+
+/******************************************************************************
+*                                         *
+******************************************************************************/
+int main(int argc,char *argv[])
+{
+        int InHandle,OutHandle;
+        int hNum;
+        long    rba;
+    unsigned    int hLen,len;
+    unsigned    char    *xferbuf;
+        FILE    *fp;
+        char    dbuf[200];
+
+printf("\nResource file builder Version 1.0\n");
+printf("Copyright 1993 Lary Myers\n");
+
+if (argc < 3)
+    {
+    printf("Syntax: BPIC datafile.ext outfile.ext\n");
+    printf(" Where: datafile.ext is an ASCII file containing filenames\n");
+    printf("        to be compiled into the outfile.ext resource file.\n");
+    return(1);
+    }
+
+xferbuf = malloc(64000);
+if (xferbuf == NULL)
+    {
+    printf("Unable to get memory to run.\n");
+    return(1);
+    }
+
+fp = fopen(argv[1],"rt");
+if (fp == NULL)
+    {
+    printf("Unable to open datafile %s\n",argv[1]);
+    return(1);
+    }
+
+OutHandle = open(argv[2],O_RDWR|O_BINARY|O_CREAT|O_TRUNC,S_IREAD|S_IWRITE);
+if (OutHandle < 1)
+    {
+    printf("Error creating outfile %s\n",argv[2]);
+    fclose(fp);
+    return(1);
+    }
+
+hLen = MAX_RBA * sizeof(long);
+memset(rTable,0,hLen);
+
+write(OutHandle,rTable,hLen);
+hNum = 0;
+rba = hLen;
+
+while (1)
+    {
+    if (feof(fp))
+    break;
+
+    *dbuf = '\0';
+    fgets(dbuf,198,fp);
+    if (*dbuf == ';')
+    continue;
+
+    StripEndOfLine(dbuf);
+
+    if (!strlen(dbuf))
+    continue;
+
+    printf("Processing....%s\n",dbuf);
+
+    InHandle = open(dbuf,O_RDWR|O_BINARY);
+
+    if (InHandle < 1)
+    {
+    printf("Error opening file %s - Number %d\n",dbuf,hNum);
+    break;
+    }
+
+    rTable[hNum++] = rba;
+
+
+    while (1)
+    {
+    len = read(InHandle,xferbuf,64000U);
+    if (len)
+        {
+        if (write(OutHandle,xferbuf,len) != len)
+        {
+        printf("Error writing to resource file. Check disk space.\n");
+        break;
+        }
+        rba += len;
+        }
+
+    if (len < 64000)
+        break;
+
+    }
+
+    close(InHandle);
+    }
+
+rTable[hNum] = rba;
+
+lseek(OutHandle,0L,SEEK_SET);
+write(OutHandle,rTable,hLen);
+close(OutHandle);
+fclose(fp);
+
+printf("Processing complete.\n");
+
+return(0);
+}
+
diff --git a/bpic/makefile b/bpic/makefile
new file mode 100644
index 0000000..51b45b5
--- /dev/null
+++ b/bpic/makefile
@@ -0,0 +1,49 @@
+target_config = debug
+
+target_name = bpic
+
+object_files = bpic.obj
+
+
+cc_flags_debug = /d2 /zp1 /4r /fp3 /j
+cc_flags_release = /d1+ /zp1 /4r /fp3 /ontx /oe=40 /j
+cc_flags = /mf $(cc_flags_$(target_config))
+
+link_flags_debug = debug all
+link_flags_release = debug all
+link_flags = $(link_flags_$(target_config))
+
+.c.obj: .AUTODEPEND
+    wcc386 $[. /zq $(cc_flags)
+
+.asm.obj: .AUTODEPEND
+    tasm $[. /t $(asm_flags)
+
+$(target_name).lnk: $(object_files)
+    %create $^@
+    %append $^@ NAME $(target_name).exe
+    %append $^@ SYSTEM DOS4G
+    %append $^@ OPTION QUIET
+    %append $^@ OPTION STACK=16k
+    @for %i in ($(object_files)) do %append $^@ FILE %i
+
+$(target_name).exe: $(object_files) $(target_name).lnk
+    wlink $(link_flags) @$(target_name).lnk
+
+clean : .SYMBOLIC
+    del *.obj
+    del *.err
+    del $(target_name).exe
+    del $(target_name).lnk
+
+.NOCHECK
+build : $(target_name).exe
+
+.NOCHECK
+run : $(target_name).exe
+    $(target_name).exe
+
+.NOCHECK
+debug : $(target_name).exe
+    wd /swap /trap=rsi $(target_name).exe
+