新的设计

traditional_ver/base16384.c

@@ -0,0 +1,34 @@
+//base16384.c
+//MIT fumiama 20200416
+#include <stdio.h>
+#include <stdlib.h>
+#include "base16384.h"
+
+#define CHOICE argv[1][1]
+#define READ argv[2]
+#define WRITE argv[3]
+
+int main(int argc, char **argv){
+    FILE *fp = NULL;
+    FILE *fpo = NULL;
+    
+    if(argc != 4){
+        fputs("Usage: -[e|d] inputfile outputfile\n", stderr);
+        fputs("       -e encode\n", stderr);
+        fputs("       -d decode\n", stderr);
+        exit(EXIT_FAILURE);
+    }
+
+    fp = fopen(READ, "rb");
+    fpo = fopen(WRITE, "wb");
+    if(!fp || !fpo){
+        fputs("IO error!", stderr);
+        exit(EXIT_FAILURE);
+    }
+    switch(CHOICE){
+        case 'e': encode(fp, fpo); break;
+        case 'd': decode(fp, fpo); break;
+        default: break;
+    }
+    return 0;
+}

traditional_ver/base16384.h

@@ -0,0 +1,71 @@
+//base16384.h
+//MIT fumiama 20200416
+#include "bitio.h"
+#define HEAD 0x4E
+BIT outbuf;
+unsigned char buf[BUFSIZ];
+void push(int istrue, FILE *fpo, int offset){
+    if(!~pushbit(&outbuf, istrue)){
+        if(offset) for(int i = 0; i < BITBUFSIZE; i += 2) outbuf.b[i] += offset;
+        fwrite(outbuf.b, sizeof(char), BITBUFSIZE, fpo);
+        outbuf.p = 0;
+        pushbit(&outbuf, istrue);
+    }
+}
+#define setoffset(x, offset){\
+    char flag = 0;\
+    ch1 = ch2 = x;\
+    while(!feof(fp) && (ch1 = fgetc(fp)) == x && (ch2 = fgetc(fp)) == x) {cnt8 -= offset; flag++;}\
+    if(ch2 != x) {ungetc(ch2, fp); ch2 = x;}\
+    if(ch1 != x) {ungetc(ch1, fp); ch1 = x;}\
+    while(feof(fp) && buf[cnt - 1] == x && buf[cnt - 2] == x) {cnt8 -= offset; cnt -= 2; flag++;}\
+    if(flag) cnt8 -= 8;\
+}
+void encode(FILE *fp, FILE *fpo){
+    int cnt = 0;
+
+    fputc(0xFE, fpo);
+    fputc(0xFF, fpo);
+    while((cnt = fread(buf, sizeof(char), BUFSIZ, fp))){
+        for(int i = 0; i < cnt * 8; i++){
+            if(!(outbuf.p % 16)){
+                push(0, fpo, HEAD);
+                push(0, fpo, HEAD);
+            }
+            push(buf[i / 8] & (128u >> (i % 8)), fpo, HEAD);
+        }
+    }
+    if(outbuf.p){
+        outbuf.b[outbuf.p / 8] &= ~(255u >> outbuf.p % 8);
+        for(int i = 0; i < outbuf.p / 8 + 1; i += 2) outbuf.b[i] += HEAD;
+        fwrite(outbuf.b, sizeof(char), (outbuf.p % 8)?outbuf.p / 8 + 1:outbuf.p / 8 , fpo);
+        if(((outbuf.p % 8)?outbuf.p / 8 + 1:outbuf.p / 8) % 2){
+            fputc(0, fpo);
+            fputc('>', fpo);
+            fputc('>', fpo);
+        }
+        for(int i = 0; i < outbuf.p % 8; i++) fputc('=', fpo);
+    }
+}
+void decode(FILE *fp, FILE *fpo){
+    int cnt = 0;
+    int cnt8 = 0;
+    int tc = 0;
+    char ch1;
+    char ch2;
+    while((cnt = fread(buf, sizeof(char), BUFSIZ, fp))){
+        cnt8 = cnt * 8;
+        tc = cnt;
+        setoffset('=', 14)
+        setoffset('>', 16)
+
+        for(int i = ((buf[0] == 0xFE)?16:0); i < cnt8; i++){
+            if(!(i % 16)){
+                buf[i / 8] -= HEAD;
+                i += 2;
+            }
+            push(buf[i / 8] & (128u >> (i % 8)), fpo, 0);
+        }
+    }
+    if(outbuf.p) fwrite(outbuf.b, sizeof(char), (outbuf.p % 8)?outbuf.p / 8 + 1:outbuf.p / 8, fpo);
+}

traditional_ver/bitio.h

@@ -0,0 +1,48 @@
+//bitio.h
+//made by fumiama
+//20200413
+#include <stdio.h>
+#include <string.h>
+#ifndef BITBUFSIZE
+#define BITBUFSIZE 1024
+#endif
+struct BIT{
+    char b[BITBUFSIZE];
+    int p;
+};
+typedef struct BIT BIT;
+
+int pushbit(BIT *buffer, const int isture){
+    if(buffer->p >= BITBUFSIZE * 8) return EOF;
+    else if(isture) buffer->b[buffer->p / 8] |= 128u >> buffer->p % 8;
+    else buffer->b[buffer->p / 8] &= ~(128u >> buffer->p % 8);
+    buffer->p++;
+    return isture;
+}
+
+int fpushbit(BIT *buffer, FILE *fp){
+    memset(buffer, 0, sizeof(BIT));
+    if((buffer->p = fread(buffer->b, sizeof(char), BITBUFSIZE, fp)) && feof(fp))
+        buffer->p = (buffer->p - 2) * 8 + buffer->b[buffer->p - 1] + 1;
+    else buffer->p *= 8;
+    return buffer->p;
+}
+
+int changebit(BIT *buffer, const int isture, const int position){
+    if(position >= buffer->p) return EOF;
+    else if(isture) buffer->b[position / 8] |= 128u >> position % 8;
+    else buffer->b[position / 8] &= ~(128u >> position % 8);
+    buffer->p++;
+    return isture;
+}
+
+int readbit(const BIT *buffer, const int position){
+    if(position >= buffer->p) return EOF;
+    else return buffer->b[position / 8] & (128u >> position % 8);
+}
+
+int popbit(BIT *buffer){
+    if(buffer->p >= BITBUFSIZE * 8 || buffer->p < 0) return EOF;
+    buffer->p--;
+    return buffer->b[(buffer->p+1) / 8] & (128u >> (buffer->p+1) % 8);
+}