Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!mit-eddie!apollo!madler
From: madler@apollo.UUCP
Newsgroups: comp.sys.apollo
Subject: Re: TeX font file problem
Message-ID: <34af54fd.3fb1@apollo.uucp>
Date: Tue, 5-May-87 16:04:00 EDT
Article-I.D.: apollo.34af54fd.3fb1
Posted: Tue May  5 16:04:00 1987
Date-Received: Thu, 7-May-87 04:13:22 EDT
References: <8705011755.AA03991@hi-csc.uucp>
Organization: Apollo Computer, Chelmsford, Mass.
Lines: 49

Actually, Apollo Pascal doesn't require that an existing FILE OF FOO
be a REC file.  It only expects that non-text files be marked as binary,
not ascii, data.  You can use the following program to set the binary
bit in the files' headers.

The program takes the target file name from the command line.
-Michael Adler
 Apollo Computer

PROGRAM set_binary;

%NOLIST;
%INCLUDE '/sys/ins/base.ins.pas';
%INCLUDE '/sys/ins/ios.ins.pas';
%INCLUDE '/sys/ins/pgm.ins.pas';
%INCLUDE '/sys/ins/error.ins.pas';
%LIST;

VAR
    status    : status_$t;
    ios_id    : ios_$id_t;
    pname     : name_$pname_t;
    pname_len : integer;

    PROCEDURE error_check( IN status: status_$t );

    BEGIN
        IF status.all <> status_$ok
        THEN
            BEGIN
            error_$print( status );
            pgm_$set_severity( pgm_$error );
            pgm_$exit;
            END;
    END;

BEGIN
    pname_len := pgm_$get_arg( 1, pname, status, SIZEOF( pname ) );
    error_check( status );

    ios_id := ios_$open( pname, pname_len, [ios_$write_opt], status );
    error_check( status );

    ios_$set_obj_flag( ios_id, ios_$of_ascii, FALSE, status );
    error_check( status );

    ios_$close( ios_id, status );
    error_check( status );
END.