diff options
Diffstat (limited to 'maccaml/lib.c')
| -rw-r--r-- | maccaml/lib.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/maccaml/lib.c b/maccaml/lib.c deleted file mode 100644 index 2c556b498..000000000 --- a/maccaml/lib.c +++ /dev/null @@ -1,35 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $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); -} |