stripttc.c

#include <libgen.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/*
 * This is stripttc.c from contrib/fonttools/stripttc.c in the FontForge
 * github repo, modified to always write its outputs in the current
 * directory.
 */

/* This program takes a ttc file and turns it into its component ttf files */
/* This makes two changes to the data:                                     */
/*      * The tables are placed at different offsets, therefore            */
/*        the offset fields in the table header are also different.        */
/*      * the 'head' table checksumAdjustment field is set correctly       */

#define CHR(ch1,ch2,ch3,ch4) (((ch1)<<24)|((ch2)<<16)|((ch3)<<8)|(ch4))

static void putshort(FILE *file,int sval) {
    putc((sval>>8)&0xff,file);
    putc(sval&0xff,file);
}

static void putlong(FILE *file,int val) {
    putc((val>>24)&0xff,file);
    putc((val>>16)&0xff,file);
    putc((val>>8)&0xff,file);
    putc(val&0xff,file);
}

static int getushort(FILE *ttf) {
    int ch1 = getc(ttf);
    int ch2 = getc(ttf);
    if ( ch2==EOF )
return( EOF );
return( (ch1<<8)|ch2 );
}

static int getlong(FILE *ttf) {
    int ch1 = getc(ttf);
    int ch2 = getc(ttf);
    int ch3 = getc(ttf);
    int ch4 = getc(ttf);
    if ( ch4==EOF )
return( EOF );
return( (ch1<<24)|(ch2<<16)|(ch3<<8)|ch4 );
}

static unsigned int filecheck(FILE *file) {
    unsigned int sum = 0, chunk;

    rewind(file);
    while ( 1 ) {
        chunk = getlong(file);
        if ( feof(file) || ferror(file))
    break;
        sum += chunk;
    }
return( sum );
}

static void copytable(FILE *ttf,FILE *ttc,int offset,int length) {
    int i, ch;

    fseek(ttc,offset,SEEK_SET);
    for ( i=0; i<length && (ch=getc(ttc))!=EOF ; ++i )
        putc(ch,ttf);
    if ( ch==EOF )
        fprintf( stderr, "File ended before table\n" );
    if ( length&1 ) {
        putc('\0',ttf);
        ++length;
    }
    if ( length & 2 ) {
        putshort(ttf,0);
    }
}

static int handlefont(char *filename,int which,FILE *ttc,int offset) {
    char *scratch, *outfile, *ext;
    FILE *ttf;
    int i, cnt, *offsets, *lengths, head, tag, pos, headpos;

    scratch = strdup(filename);
    strcpy(scratch, basename(scratch));
    ext = strrchr(scratch, '.');
    if (ext != NULL) *ext = '\0';
    cnt = strlen(scratch) + strlen("_XX.ttf") + 1;
    outfile = malloc(cnt);
    snprintf(outfile, cnt, "%s_%02d.ttf", scratch, which);
    ttf = fopen( outfile,"wb");
    free(scratch);

    if ( ttf==NULL ) {
        fprintf( stderr, "Failed to open %s for output.\n", outfile );
        return( -3 );
    }
    printf ( "%s ", outfile );
    free(outfile);

    fseek(ttc,offset,SEEK_SET);
    putlong(ttf,getlong(ttc));          /* sfnt version */
    putshort(ttf,cnt = getushort(ttc)); /* table cnt */
    putshort(ttf,getushort(ttc));       /* binary search header */
    putshort(ttf,getushort(ttc));
    putshort(ttf,getushort(ttc));

    offsets = malloc(cnt*sizeof(int));
    lengths = malloc(cnt*sizeof(int));
    head = -1;
    for ( i=0; i<cnt; ++i ) {
        tag = getlong(ttc);
        if ( tag==CHR('h','e','a','d'))
            head = i;
        putlong(ttf,tag);
        putlong(ttf,getlong(ttc));      /* checksum */
        putlong(ttf,offsets[i] = getlong(ttc));         /* Reserve space for offset, will fix later */
        putlong(ttf,lengths[i] = getlong(ttc));
    }
    headpos = -1;
    for ( i=0; i<cnt; ++i ) {
        pos = ftell(ttf);
        copytable(ttf,ttc,offsets[i],lengths[i]);
        if ( i==head ) {
            fseek(ttf,pos+8,SEEK_SET);
            putlong(ttf,0);
            headpos = pos;
        }
        fseek(ttf,12+i*16+8,SEEK_SET);
        putlong(ttf,pos);                               /* Fix offset here */
        fseek(ttf,0,SEEK_END);
    }
    if ( headpos!=-1 ) {
        unsigned int checksum;
        checksum = filecheck(ttf);
        checksum = 0xb1b0afba-checksum;
        fseek(ttf,headpos+2*sizeof(int),SEEK_SET);
        putlong(ttf,checksum);
    }
    fclose(ttf);
    free(offsets); free(lengths);
    return( 0 );
}

static int handlefile(char *filename) {
    FILE *ttc = fopen(filename,"rb");
    int version, cnt, e, i;
    int *offsets;

    if ( ttc==NULL ) {
        fprintf( stderr, "Could not open %s\n", filename );
        return( -1 );
    }

    version = getlong(ttc);
    if ( version!=CHR('t','t','c','f')) {
        fprintf( stderr, "%s does not look like a ttc file, bad version.\n", filename );
        fclose(ttc);
        return( -2 );
    }

    version = getlong(ttc);
    if ( version!=0x10000 && version != 0x20000 )
        fprintf( stderr, "Unexpected ttc version number: %08x\n", (unsigned int)(version) );
    cnt = getlong(ttc);
    offsets = malloc(cnt*sizeof(int));
    for ( i=0; i<cnt; ++i )
        offsets[i] = getlong(ttc);
    printf( "%s => ", filename );
    for ( i=0; i<cnt; ++i )
        if ( (e = handlefont(filename,i,ttc,offsets[i])) ) {
            fclose(ttc);
            free(offsets);
            return( e );
        };
    printf( "\n" );
    fclose(ttc);
    free(offsets);
    return( 0 );
}

int main(int argc, char *argv[]) {
    int e, i;

    for ( i=1; i<argc; ++i )
        if ( (e = handlefile(argv[i])) )
            return( e );
    return( 0 );
}