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

This is ipar.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 <stdlib.h>
#include "ipar.h"
#include "int.h"
#include "iparprots.h"

int fetch_and_store(int *i, int j)						/*;fetch_and_store*/
{
	int temp = *i;
	*i = j;
	return temp;
}

char *pointer_fetch_and_store(char **i, char *j)	/*;pointer_fetch_and_store*/
{
	/* fetch_and_store rewritten to accept pointer arguments */

	char *temp = *i;
	*i = j;
	return temp;
}

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