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

This is units.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 "unitsprots.h"

int unitNumberFromName(char *name)			/*;unitNumberFromName*/
{
	int i;
	if (!name) return 0;
	for (i = 1; i <= unit_numbers; i++)
		if (pUnits[i]->name && !strcmp(name, pUnits[i]->name))
			return i;
	return 0;
}
int unitNumberFromLibUnit(char *name)			/*;unitNumberFromLibUnit*/
{
	int i;
	if (!name) return 0;
	for (i = 1; i <= unit_numbers; i++)
		if (pUnits[i]->libUnit && !strcmp(name, pUnits[i]->libUnit))
			return i;
	return 0;
}

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