extract_ttc 0.3.6 → 0.3.7

data/ext/stripttc/stripttc.c

@@ -1,187 +0,0 @@
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <libgen.h>
-
-/* 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))
-
-#ifdef _WIN32
-#define EXPORT_API __declspec(dllexport)
-#else
-#define EXPORT_API 
-#endif
-
-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 outfile[2000], *pt;
-    FILE *ttf;
-    int i, cnt, *offsets, *lengths, head, tag, pos, headpos;
-    strcpy(outfile,basename(filename));
-    pt = strrchr(outfile,'.');
-    if ( pt==NULL )
-	pt = outfile + strlen(outfile);
-    sprintf( pt, "_%02d.ttf", which );
-
-    ttf = fopen( outfile,"wb");
-    if ( ttf==NULL ) {
-	fprintf( stderr, "Failed to open %s for output.\n", outfile );
-	return( -3 );
-    }
-    printf ( "%s ", 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 );
-}
-
-EXPORT_API 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])) ) {
-            fflush(stdout);
-	    fclose(ttc);
-	    free(offsets);
-	    return( e );
-	};
-    printf( "\n" );
-    fflush(stdout);
-    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 );
-}