ftp.nice.ch/users/chris/Studium/psopt-0.01.tar.gz#/psopt-0.01/src/opers.c

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

/* -*-C-*-
 ******************************************************************************
 *
 * File:         opers.c
 * RCS:          $Header: /home/chris/Psopt/cvs/psopt/src/opers.c,v 1.2 1997/06/20 00:46:50 chris Exp $
 * Description:  
 * Author:       Christian Limpach <chris@nice.ch>
 * Created:      Fri Apr 25 00:34:15 1997
 * Modified:     Thu Jun 19 00:52:30 1997 (Christian Limpach) chris@nice.ch
 * Language:     C
 * Package:      N/A
 * Status:       Experimental (Do Not Distribute)
 *
 * (C) Copyright 1997, Christian Limpach, all rights reserved.
 *            
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 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 General Public License for more details.
 *            
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, a copy can be obtained from this
 * program's author (send electronic mail to chris@nice.ch) or from
 * the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
 * 02139, USA.
 *
 ******************************************************************************
 */

#include "psopt.h"
#include "opers.h"

static Ps_op *head = NULL;

void
ps_ops_init ()
{
#include "psoplist.h"
}

void
add_ps_op (name, in, out)
     char *name;
     int in, out;
{
  Ps_op *p = (Ps_op *)malloc (sizeof (Ps_op));

  p->name = name;
  p->in = in;
  p->out = out;

  p->next = head;
  head = p;
}

Ps_op *
find_ps_op (name)
     char *name;
{
  Ps_op *p = head;

  while (p != NULL)
    {
      if (!strcmp (p->name, name))
        break;
      p = p->next;
    }
  return (p);
}

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