1998-10-02 06:02:32 -07:00
|
|
|
/***********************************************************************/
|
|
|
|
|
/* */
|
|
|
|
|
/* Objective Caml */
|
|
|
|
|
/* */
|
|
|
|
|
/* Damien Doligez, projet Para, INRIA Rocquencourt */
|
|
|
|
|
/* */
|
|
|
|
|
/* Copyright 1998 Institut National de Recherche en Informatique et */
|
1999-11-17 10:59:06 -08:00
|
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
|
|
|
/* under the terms of the GNU Library General Public License. */
|
1998-10-02 06:02:32 -07:00
|
|
|
/* */
|
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
|
|
|
|
#include "main.h"
|
|
|
|
|
|
|
|
|
|
/* These are declared in TextUtils.h but not implemented in Apple's
|
|
|
|
|
libraries ?!
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
void CopyPascalStringToC (ConstStr255Param src, char *dst)
|
|
|
|
|
{
|
|
|
|
|
strncpy (dst, (char *) src + 1, src[0]);
|
|
|
|
|
dst [src[0]] = '\000';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void CopyCStringToPascal (const char *src, Str255 dst)
|
|
|
|
|
{
|
|
|
|
|
int l = strlen (src);
|
|
|
|
|
|
|
|
|
|
l = l > 255 ? 255 : l;
|
|
|
|
|
dst [0] = l;
|
|
|
|
|
strncpy ((char *) dst + 1, src, l);
|
|
|
|
|
}
|
