From d48e263483b61f0045a7c23ce98830e72b9bb1a6 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 10 Apr 2009 13:09:53 +0000 Subject: 2009-04-10 Thomas Quinot gnattools/ * Makefile.in: (stamp-tools): Add handling of snames.ad[sb] ada/ * snames.h, snames.ads, snames.adb: Remove files, now generated from templates. * snames.h-tmpl, snames.ads-tmpl, snames.adb-tmpl: Templates for the above. * xsnamest.adb: New file. * gcc-interface/Make-lang.in: New target for automated generation of snames.ads, snames.adb and snames.h git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145893 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/snames.h-tmpl | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 gcc/ada/snames.h-tmpl (limited to 'gcc/ada/snames.h-tmpl') diff --git a/gcc/ada/snames.h-tmpl b/gcc/ada/snames.h-tmpl new file mode 100644 index 00000000000..b15792a5724 --- /dev/null +++ b/gcc/ada/snames.h-tmpl @@ -0,0 +1,66 @@ +/**************************************************************************** + * * + * GNAT COMPILER COMPONENTS * + * * + * S N A M E S * + * * + * C Header File * + * * + * Copyright (C) 1992-2008, Free Software Foundation, Inc. * + * * + * GNAT is free software; you can redistribute it and/or modify it under * + * terms of the GNU General Public License as published by the Free Soft- * + * ware Foundation; either version 3, or (at your option) any later ver- * + * sion. GNAT is distributed in the hope that it will be useful, but WITH- * + * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY * + * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * + * for more details. You should have received a copy of the GNU General * + * Public License distributed with GNAT; see file COPYING3. If not, go to * + * http://www.gnu.org/licenses for a complete copy of the license. * + * * + * GNAT was originally developed by the GNAT team at New York University. * + * Extensive contributions were provided by Ada Core Technologies Inc. * + * * + ****************************************************************************/ + +/* This is the C file that corresponds to the Ada package specification + Snames. It was created automatically from the file snames.ads. */ + +/* Name_Id values */ + +#define Name_ !! TEMPLATE INSERTION POINT + +/* Define the function to return one of the numeric values below. Note + that it actually returns a char since an enumeration value of less + than 256 entries is represented that way in Ada. The operand is a Chars + field value. */ + +#define Get_Attribute_Id snames__get_attribute_id +extern unsigned char Get_Attribute_Id (int); + +/* Define the numeric values for attributes. */ + +#define Attr_ !! TEMPLATE INSERTION POINT + +/* Define the numeric values for the conventions. */ + +#define Convention_ !! TEMPLATE INSERTION POINT + +/* Define the function to check if a Name_Id value is a valid pragma */ + +#define Is_Pragma_Name snames__is_pragma_name +extern Boolean Is_Pragma_Name (Name_Id); + +/* Define the function to return one of the numeric values below. Note + that it actually returns a char since an enumeration value of less + than 256 entries is represented that way in Ada. The operand is a Chars + field value. */ + +#define Get_Pragma_Id snames__get_pragma_id +extern unsigned char Get_Pragma_Id (int); + +/* Define the numeric values for the pragmas. */ + +#define Pragma_ !! TEMPLATE_INSERTION_POINT + +/* End of snames.h (C version of Snames package spec) */ -- cgit v1.2.1