ftp.nice.ch/pub/next/developer/languages/ada/Adaed.1.11.s.tar.gz#/Adaed-1.11.0a/14.c

This is 14.c in view mode; [Download] [Up]

/*
 * Copyright (C) 1985-1992  New York University
 * 
 * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
 * warranty (none) and distribution info and also the GNU General Public
 * License for more details.

 */
#include "hdr.h"
#include "vars.h"
#include "attr.h"
#include "errmsgprots.h"
#include "chapprots.h"

void check_range_attribute(Node node)				/*;check_range_attribute*/
{
	if (N_KIND(node) == as_attribute
	  && ((int)attribute_kind(node) == ATTR_O_RANGE
	  ||  (int)attribute_kind(node) == ATTR_T_RANGE)) {
#ifdef ERRNUM
		errmsgn(128,10,node);
#else
		errmsg("invalid use of 'RANGE in expression", "none", node) ;
#endif
	}
}

#ifdef TBSN
int is_value(char *x)										/*;is_value*/
{
	TO_ERRFILE("is_value (ch 14) not implemented");
	return	   (is_tuple(x) and x(1) = 'ivalue') ;
}
#endif

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.