ftp.nice.ch/pub/next/text/tex/teTeX/distrib/sources/teTeX-src-0.4.tar.gz#/teTeX-src-0.4/kpse-2.6/web2c/lib/xfopen-pas.c

This is xfopen-pas.c in view mode; [Download] [Up]

/* xfopen-pas.c: Open a file; don't return if any error occurs.  NAME
   should be a Pascal string; it is changed to a C string and then
   changed back.  */

#include "config.h"

FILE *
xfopen_pas (name, mode)
  char *name;
  char *mode;
{
  FILE *result;

  make_c_string (&name);
  result = fopen (name, mode);

  if (result != NULL)
    {
      make_pascal_string (&name);
      return result;
    }
  
  FATAL_PERROR (name);
  return NULL; /* Stop compiler warnings.  */
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.