summaryrefslogtreecommitdiff
path: root/dviware/beebe/src/cvt.c
blob: f1ab02c742780b2bb4dcaa53b20665f4267baa98 (plain)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/***********************************************************************
Convert a stream format file to fixed binary, supplying trailing NUL's
for padding if necessary.

Usage:
  	cvt infile outfile
[22-Aug-87]
***********************************************************************/

#define PAD '\0'
#define FAILURE ((1 << 28) + 2)
#define SUCCESS 1

#include <stdio.h>

main(argc,argv)
int argc;
char* argv[];
{
	FILE* in;
	FILE* out;
	int c;
	long count;

	if (argc != 3)
	  {
	    fprintf(stderr,"Usage: cvf infile outfile\n");
	    exit(FAILURE);
	  }

	in = fopen(argv[1],"rb","rfm=stm","ctx=stm");
	if (in == (FILE*)NULL)
	  {
	    fprintf(stderr,"?Cannot open [%s] for input\n",argv[1]);
	    exit(FAILURE);
	  }

	out = fopen(argv[2],"wb","rfm=fix","bls=512","mrs=512");
	if (out == (FILE*)NULL)
	  {
	    fprintf(stderr,"?Cannot open [%s] for output\n",argv[1]);
	    exit(FAILURE);
	  }

	count = 0;
	while ((c = getc(in)) != EOF)
	  {
	    putc(c,out);
	    count++;
	  }
	fprintf(stderr,"File size = %ld\n",count);
	/* Now supply trailing padding to ensure output is a multiple of
	   512 characters; otherwise, RMS will not close the output file
	   correctly. */
	count %= 512;
	if (count > 0)
	    for (; count < 512; ++count)
	        putc(PAD,out);
	if (fclose(in) == EOF)
	  {
		fprintf(stderr,"?Close failure on [%s]\n",argv[1]);
		exit(FAILURE);
	  }
	if (fclose(out) == EOF)
	  {
		fprintf(stderr,"?Close failure on [%s]\n",argv[2]);
		exit(FAILURE);
	  }
	exit(SUCCESS);
}