Merge commit 'd26ed8388f100a12996c0b92a98040ef2ba7fa8e' as 'ast'

1 files changed, 74 insertions, 0 deletions

diff --git a/ast/grf_3.2.c b/ast/grf_3.2.c
new file mode 100644
index 0000000..d6fc1a1
--- /dev/null
+++ b/ast/grf_3.2.c
@@ -0,0 +1,74 @@
+/*
+*  Name:
+*     grf_3.2.c
+
+*  Purpose:
+*     Implement the grf module required by AST V3.2 if no graphics system
+*     is available.
+
+*  Description:
+*     This file implements the low level graphics functions required
+*     by the rest of AST V3.2, except for those already defined in
+*     grf_2.0.c (i.e. those needed by AST V2.0). These implementations
+*     simply report an error when called.
+
+*  Inheritance:
+*     This module is not a class and does not inherit.
+
+*  Copyright:
+*     Copyright (C) 1997-2006 Council for the Central Laboratory of the
+*     Research Councils
+
+*  Licence:
+*     This program is free software: you can redistribute it and/or
+*     modify it under the terms of the GNU Lesser General Public
+*     License as published by the Free Software Foundation, either
+*     version 3 of the License, or (at your option) any later
+*     version.
+*     
+*     This program is distributed in the hope that it will be useful,
+*     but WITHOUT ANY WARRANTY; without even the implied warranty of
+*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+*     GNU Lesser General Public License for more details.
+*     
+*     You should have received a copy of the GNU Lesser General
+*     License along with this program.  If not, see
+*     <http://www.gnu.org/licenses/>.
+
+*  Authors:
+*     DSB: David S. Berry (Starlink)
+
+*  History:
+*     23-NOV-2004 (DSB):
+*        Original version.
+*/
+
+/* Header files */
+/* ============ */
+#include "grf.h"           /* Declare the functions in this module */
+#include "error.h"         /* AST error reporting facilities */
+#include "ast_err.h"       /* AST error codes */
+
+/* Function Prototypes */
+/* =================== */
+static void Report( const char * );
+
+/* Function definitions */
+/* ==================== */
+int astGScales( float *alpha, float *beta ){
+   Report( "astGScales" );
+   return 0;
+}
+
+int astGCap( int cap, int value ){
+   return 0;
+}
+
+static void Report( const char *name ){
+   astError( AST__GRFER, "%s: The graphics facilities implement by %s "
+             "(introduced at AST V3.2) are needed but are unavailable.",
+             name, name );
+   astError( AST__GRFER, "Re-link using a suitable option such as '-pgplot' "
+             "with the ast_link script, or add an implementation of this "
+             "function to your 'grf' module." );
+}