Pull datCctyp into a separate file

it wasn't obvious where it was before.

Author: timj

Makefile.am

@@ -85,6 +85,7 @@ C_ROUTINES = \
 	datFind.c \
 	datType.c \
 	datClen.c \
+	datCctyp.c \
 	datName.c \
 	datSize.c \
 	datShape.c \

datCctyp.c

@@ -0,0 +1,93 @@
+/*
+*+
+*  Name:
+*     datCctyp
+
+*  Purpose:
+*     Creat type string
+
+*  Language:
+*     Starlink ANSI C
+
+*  Type of Module:
+*     Library routine
+
+*  Invocation:
+*     datCctyp( size_t size, char type[DAT__SZTYP+1] );
+
+*  Arguments:
+*     size = size_t (Given)
+*        Character string size
+*     type = char * (Given)
+*        Type string. Allocated size must be at least DAT__SZTYP+1 characters
+*        long. String will be of the form "_CHAR*nnn".
+
+*  Description:
+*     Create a type string for a specified size of character string.
+
+*  Authors:
+*     TIMJ: Tim Jenness (Cornell)
+*     {enter_new_authors_here}
+
+*  History:
+*     2014-08-31 (TIMJ):
+*        Initial version
+*     {enter_further_changes_here}
+
+*  Copyright:
+*     Copyright (C) 2014 Cornell University
+*     All Rights Reserved.
+
+*  Licence:
+*     Redistribution and use in source and binary forms, with or
+*     without modification, are permitted provided that the following
+*     conditions are met:
+*
+*     - Redistributions of source code must retain the above copyright
+*       notice, this list of conditions and the following disclaimer.
+*
+*     - Redistributions in binary form must reproduce the above
+*       copyright notice, this list of conditions and the following
+*       disclaimer in the documentation and/or other materials
+*       provided with the distribution.
+*
+*     - Neither the name of the {organization} nor the names of its
+*       contributors may be used to endorse or promote products
+*       derived from this software without specific prior written
+*       permission.
+*
+*     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+*     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+*     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+*     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+*     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
+*     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+*     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+*     LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
+*     USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
+*     AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+*     LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+*     IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+*     THE POSSIBILITY OF SUCH DAMAGE.
+
+*  Bugs:
+*     {note_any_bugs_here}
+*-
+*/
+
+#include <stdio.h>
+
+#include "ems.h"
+#include "sae_par.h"
+
+#include "hds1.h"
+#include "dat1.h"
+#include "hds.h"
+
+void
+datCctyp( size_t size, char *type ) {
+
+  /* have to assume the buffer is big enough - should be DAT__SZTYP+1
+      - noting that snprintf is C99 so not used (yet) */
+  sprintf( type, "_CHAR*%zu", size);
+}

datnew1.c

@@ -44,19 +44,6 @@ datNewC(const HDSLoc    *locator,
    return *status;
 }
 
-/*====================================*/
-/* DAT_CCTYP - Create type string     */
-/*====================================*/
-
-void
-datCctyp( size_t size,
-          char *type )
-{
-  /* have to assume the buffer is big enough - should be DAT__SZTYP+1
-      - noting that snprintf is C99 so not used (yet) */
-  sprintf( type, "_CHAR*%lu", (unsigned long)size);
-}
-
 /*================================================*/
 /* DAT_NEW1 - Create a vector structure component */
 /*================================================*/