This is strpascal.c in view mode; [Download] [Up]
/* strpascal.c: deal with C vs. Pascal strings. */
#include "config.h"
#include <kpathsea/c-pathch.h>
/* Change the Pascal string P_STRING into a C string; i.e., make it
start after the leading character Pascal puts in, and terminate it
with a null. */
void
make_c_string (p_string)
char **p_string;
{
(*p_string)++;
null_terminate (*p_string);
}
/* Replace the first space we come to with a null. */
void
null_terminate (s)
char *s;
{
while (*s != ' ')
s++;
*s = 0;
}
/* Change the C string C_STRING into a Pascal string; i.e., make it
start one character before it does now (so C_STRING had better have
been a Pascal string originally), and terminate with a space. */
void
make_pascal_string (c_string)
char **c_string;
{
space_terminate (*c_string);
(*c_string)--;
}
/* Replace the first null we come to with a space. */
void
space_terminate (s)
char *s;
{
for ( ; *s != 0; s++)
;
*s = ' ';
}
/* Change the suffix of BASE (a Pascal string) to be SUFFIX (a
C string), if BASE does not already have a suffix. We have to change
them to C strings to do the work, then convert them back to Pascal
strings. */
void
extendfilename (base, suffix)
char *base;
char *suffix;
{
make_c_string (&base);
if (!find_suffix (base))
{
strcat (base, ".");
strcat (base, suffix);
}
make_pascal_string (&base);
}
/* Print S, a Pascal string, on the file F. It starts at index 1 and is
terminated by a space. */
static void
fprint_pascal_string (s, f)
char *s;
FILE *f;
{
s++;
while (*s != ' ') putc (*s++, f);
}
/* Print S, a Pascal string, on stdout. */
void
printpascalstring (s)
char *s;
{
fprint_pascal_string (s, stdout);
}
/* Ditto, for stderr. */
void
errprintpascalstring (s)
char *s;
{
fprint_pascal_string (s, stderr);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.