Build/source/texk/ps2pk/texfiles.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

/*
 * File:    texfiles.c
 * Purpose: basic binary TeX reading functions
 * Version: 1.0 (Nov 1993)
 * Author:  Piet Tutelaers (derived from xdvi/pl16)
 */

#include <stdio.h>
#include "texfiles.h"

#define one(fp)		((unsigned char) getc(fp))

unsigned long num(FILE *fp, int size)
{  unsigned long x = 0;

   while (size--) x = (x << 8) | one(fp);
   return x;
}

integer snum(FILE *fp, int size)
{  integer x;

   x = getc(fp);
   while (--size) x = (x << 8) | one(fp);
   return x;
}