dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.
if (fp == NULL)
return 70;
if (fwrite ("foogarsh", 1, 8, fp) < 8)
if (fp == NULL)
return 70;
if (fwrite ("foogarsh", 1, 8, fp) < 8)
{
char buf[10];
if (!(fread (buf, 1, 10, fp) == 9))
{
char buf[10];
if (!(fread (buf, 1, 10, fp) == 9))