From e6729353c2e6c0af1d345aeb450d6e9e06048e93 Mon Sep 17 00:00:00 2001
From: rideout <rideout@10716dce-81a3-4424-a2c8-48026a0d3035>
Date: Wed, 26 Feb 2003 18:15:57 +0000
Subject: New specification for describing aliased functions. (From Thomas
 Radke.)

git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHSlab/trunk@99 10716dce-81a3-4424-a2c8-48026a0d3035
---
 interface.ccl | 104 +++++++++++++++++++++++++++++++++-------------------------
 1 file changed, 59 insertions(+), 45 deletions(-)

diff --git a/interface.ccl b/interface.ccl
index cdb844b..095f81c 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -4,50 +4,64 @@
 implements: Hyperslab
 inherits:   Driver
 
-CCTK_INT FUNCTION Hyperslab_Get CCTK_POINTER_TO_CONST cctkGH, \
-                                CCTK_INT mapping_handle, \
-                                CCTK_INT proc, \
-                                CCTK_INT vindex, \
-                                CCTK_INT timelevel, \
-                                CCTK_INT hdatatype, \
-                                CCTK_POINTER hdata
-CCTK_INT FUNCTION Hyperslab_GetList CCTK_POINTER_TO_CONST cctkGH, \
-                                    CCTK_INT mapping_handle, \
-                                    CCTK_INT num_arrays, \
-                                    const CCTK_INT *procs, \
-                                    const CCTK_INT *vindices, \
-                                    const CCTK_INT *timelevels, \
-                                    const CCTK_INT *hdatatypes, \
-                                    CCTK_POINTER const *hdata, \
-                                    CCTK_INT *retvals
-CCTK_INT FUNCTION Hyperslab_DefineLocalMappingByIndex CCTK_POINTER_TO_CONST cctkGH, \
-                                                      CCTK_INT vindex, \
-                                                      CCTK_INT hdim, \
-                                                      const CCTK_INT *direction, \
-                                                      const CCTK_INT *origin, \
-                                                      const CCTK_INT *extent, \
-                                                      const CCTK_INT *downsample, \
-                                                      CCTK_INT table_handle, \
-                                                      CCTK_FPOINTER conversion_fn, \
-                                                      CCTK_INT *hsize_local, \
-                                                      CCTK_INT *hsize_global, \
-                                                      CCTK_INT *hoffset_global
-CCTK_INT FUNCTION Hyperslab_DefineGlobalMappingByIndex CCTK_POINTER_TO_CONST cctkGH, \
-                                                       CCTK_INT vindex, \
-                                                       CCTK_INT hdim, \
-                                                       const CCTK_INT *direction, \
-                                                       const CCTK_INT *origin, \
-                                                       const CCTK_INT *extent, \
-                                                       const CCTK_INT *downsample, \
-                                                       CCTK_INT table_handle, \
-                                                       CCTK_FPOINTER conversion_fn, \
-                                                       CCTK_INT *hsize
-CCTK_INT FUNCTION Hyperslab_FreeMapping CCTK_INT mapping_handle
-
-PROVIDES FUNCTION Hyperslab_Get WITH PUGHSlab_Get LANGUAGE C
-PROVIDES FUNCTION Hyperslab_GetList WITH PUGHSlab_GetList LANGUAGE C
-PROVIDES FUNCTION Hyperslab_DefineGlobalMappingByIndex WITH PUGHSlab_DefineGlobalMappingByIndex LANGUAGE C
-PROVIDES FUNCTION Hyperslab_DefineLocalMappingByIndex WITH PUGHSlab_DefineLocalMappingByIndex LANGUAGE C
-PROVIDES FUNCTION Hyperslab_FreeMapping WITH PUGHSlab_FreeMapping LANGUAGE C
+CCTK_INT FUNCTION \
+  Hyperslab_Get (CCTK_POINTER cctkGH, \
+                 CCTK_INT mapping_handle, \
+                 CCTK_INT proc, \
+                 CCTK_INT vindex, \
+                 CCTK_INT timelevel, \
+                 CCTK_INT hdatatype, \
+                 CCTK_POINTER hdata)
+
+CCTK_INT FUNCTION \
+  Hyperslab_GetList (CCTK_POINTER cctkGH, \
+                     CCTK_INT mapping_handle, \
+                     CCTK_INT num_arrays, \
+                     CCTK_INT:ARRAY procs, \
+                     CCTK_INT:ARRAY vindices, \
+                     CCTK_INT:ARRAY timelevels, \
+                     CCTK_INT:ARRAY hdatatypes, \
+                     CCTK_POINTER:ARRAY hdata, \
+                     CCTK_INT:ARRAY retvals)
+
+CCTK_INT FUNCTION \
+  Hyperslab_DefineLocalMappingByIndex (CCTK_POINTER cctkGH, \
+                                       CCTK_INT vindex, \
+                                       CCTK_INT hdim, \
+                                       CCTK_INT:ARRAY direction, \
+                                       CCTK_INT:ARRAY origin, \
+                                       CCTK_INT:ARRAY extent, \
+                                       CCTK_INT:ARRAY downsample, \
+                                       CCTK_INT table_handle, \
+                                       CCTK_INT CCTK_FPOINTER conversion_fn(CCTK_INT nelems, CCTK_INT stride, CCTK_INT from_type, CCTK_INT to_type, CCTK_POINTER:ARRAY from, CCTK_POINTER:ARRAY to), \
+                                       CCTK_INT:ARRAY hsize_local, \
+                                       CCTK_INT:ARRAY hsize_global, \
+                                       CCTK_INT:ARRAY hoffset_global)
+
+CCTK_INT FUNCTION \
+  Hyperslab_DefineGlobalMappingByIndex (CCTK_POINTER cctkGH, \
+                                        CCTK_INT vindex, \
+                                        CCTK_INT hdim, \
+                                        CCTK_INT:ARRAY direction, \
+                                        CCTK_INT:ARRAY origin, \
+                                        CCTK_INT:ARRAY extent, \
+                                        CCTK_INT:ARRAY downsample, \
+                                        CCTK_INT table_handle, \
+                                        CCTK_INT CCTK_FPOINTER conversion_fn(CCTK_INT nelems, CCTK_INT stride, CCTK_INT from_type, CCTK_INT to_type, CCTK_POINTER:ARRAY from, CCTK_POINTER:ARRAY to), \
+                                        CCTK_INT:ARRAY hsize)
+
+CCTK_INT FUNCTION Hyperslab_FreeMapping (CCTK_INT mapping_handle)
+
+
+PROVIDES FUNCTION Hyperslab_Get \
+  WITH PUGHSlab_Get LANGUAGE C
+PROVIDES FUNCTION Hyperslab_GetList \
+  WITH PUGHSlab_GetList LANGUAGE C
+PROVIDES FUNCTION Hyperslab_DefineGlobalMappingByIndex \
+  WITH PUGHSlab_DefineGlobalMappingByIndex LANGUAGE C
+PROVIDES FUNCTION Hyperslab_DefineLocalMappingByIndex \
+  WITH PUGHSlab_DefineLocalMappingByIndex LANGUAGE C
+PROVIDES FUNCTION Hyperslab_FreeMapping \
+  WITH PUGHSlab_FreeMapping LANGUAGE C
 
 INCLUDES HEADER: PUGHSlab.h in Hyperslab.h
-- 
cgit v1.2.3