wrdk/testudo/linux-gpib-svn/lib/ibOnl.c

/***************************************************************************
                          lib/ibOnl.c
                             -------------------

    copyright            : (C) 2001,2002,2003 by Frank Mori Hess
    email                : fmhess@users.sourceforge.net
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   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.                                   *
 *                                                                         *
 ***************************************************************************/

#include "ib_internal.h"
#include <stdlib.h>

int board_online( ibBoard_t *board, int online )
{
	if( online )
	{
		if( ibBoardOpen( board ) < 0 )
			return -1;
	}else
	{
		ibBoardClose( board );
	}

	return 0;
}

int conf_online( ibConf_t *conf, int online )
{
	ibBoard_t *board;
	int retval;

	if( ( online && conf->board_is_open ) ||
		( online == 0 && conf->board_is_open == 0 ) )
		return 0;

	board = interfaceBoard( conf );

	retval = board_online( board, online );
	if( retval < 0 ) return retval;
	if( retval < 0 ) return retval;
	if( online )
	{
		retval = open_gpib_handle( conf );
	}else
	{
		retval = close_gpib_handle( conf );
	}
	if( retval < 0 ) return retval;

	conf->board_is_open = online != 0;

	return 0;
}

int reinit_descriptor( ibConf_t *conf )
{
	int retval;

	retval = internal_ibpad( conf, conf->defaults.pad );
	if( retval < 0 ) return retval;
	retval = internal_ibsad( conf, conf->defaults.sad );
	if( retval < 0 ) return retval;
	retval = my_ibbna( conf, conf->defaults.board );
	if( retval < 0 ) return retval;
	conf->settings.usec_timeout = conf->defaults.usec_timeout;
	conf->settings.spoll_usec_timeout = conf->defaults.usec_timeout;
	conf->settings.ppoll_usec_timeout = conf->defaults.usec_timeout;
	conf->settings.eos = conf->defaults.eos;
	conf->settings.eos_flags = conf->defaults.eos_flags;
	conf->settings.eos = conf->defaults.eos;
	conf->settings.ppoll_config = conf->defaults.ppoll_config;
	internal_ibeot( conf, conf->defaults.send_eoi );
	conf->settings.local_lockout = conf->defaults.local_lockout;
	conf->settings.local_ppc = conf->defaults.local_ppc;
	conf->settings.readdr = conf->defaults.readdr;
	return 0;
}

int ibonl( int ud, int onl )
{
	ibConf_t *conf;
	int retval;
	ibBoard_t *board;
	int status;

	conf = general_enter_library( ud, 1, 1 );
	if( conf == NULL )
		return general_exit_library( ud, 1, 0, 0, 0, 0, 1 );

	retval = internal_ibstop( conf );
	if( retval < 0 )
		return general_exit_library( ud, 1, 0, 0, 0, 0, 1 );

	retval = conf_lock_board( conf );
	if( retval < 0 )
		return general_exit_library( ud, 1, 0, 0, 0, 0, 1 );

	if( onl )
	{
		retval = reinit_descriptor( conf );
		if( retval < 0 ) return exit_library( ud, 1 );
		else return exit_library( ud, 0 );
	}

	board = interfaceBoard( conf );

	status = general_exit_library( ud, 0, 0, 0, 0, CMPL, 1 );

	if( onl == 0 )
		retval = close_gpib_handle( conf );
	else
		retval = 0;
	conf_unlock_board( conf );
	if( retval < 0 )
	{
		fprintf( stderr, "libgpib: failed to mark device as closed!\n" );
		setIberr( EDVR );
		setIbcnt( errno );
		status |= ERR;
		setIbsta( status );
		sync_globals();
		return status;
	}

	if( ud >= GPIB_MAX_NUM_BOARDS )
	{
		// need to take more care to clean up before freeing XXX
		free( ibConfigs[ ud ] );
		ibConfigs[ ud ] = NULL;
	}
	return status;
}