lircmd.c

很少见的linux下的红外口的工具

/*      $Id: lircmd.c,v 5.14 2002/08/17 11:17:41 lirc Exp $      */

/****************************************************************************
 ** lircmd.c ****************************************************************
 ****************************************************************************
 *
 * lircmd - LIRC Mouse Daemon
 * 
 * Copyright (C) 1998 Christoph Bartelmus <[e-mail]>
 *
 * Wheel support based on lirc-imps2 by 
 * Ryan Gammon <[e-mail]>
 *
 */ 

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <signal.h>
#include <fcntl.h>
#include <string.h>
#include <syslog.h>
#include <errno.h>
#include <getopt.h>

#include <sys/types.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <sys/un.h>

#define CLICK_DELAY 50000 /* usecs */
#define PACKET_SIZE 256
#define WHITE_SPACE " \t"
#define ALL ((char *) (-1))
#define CIRCLE 10

#define BUTTONS 3 /* 3 buttons supported */

/* buttons chosen to match MouseSystem protocol*/
#define BUTTON1 0x04 
#define BUTTON2 0x02
#define BUTTON3 0x01

#define MAP_BUTTON1 0
#define MAP_BUTTON2 1
#define MAP_BUTTON3 2

inline int map_buttons(int b)
{
	switch(b)
	{
	case BUTTON1:
		return(MAP_BUTTON1);
	case BUTTON2:
		return(MAP_BUTTON2);
	default:
		return(MAP_BUTTON3);
	}
}

enum directive {move_n,move_ne,move_e,move_se,
		move_s,move_sw,move_w,move_nw,
		move_in,move_out,
		button1_down,button1_up,button1_toggle,button1_click,
		button2_down,button2_up,button2_toggle,button2_click,
		button3_down,button3_up,button3_toggle,button3_click,
		mouse_activate,mouse_toggle_activate
};

struct config_mouse
{
	char *string;
	enum directive d;
	int x,y,z,down,up,toggle;
};

struct config_mouse config_table[]=
{
	{"MOVE_N"             ,move_n          , 0, 1, 0,      0,      0, 0},
	{"MOVE_NE"            ,move_ne         , 1, 1, 0,      0,      0, 0},
	{"MOVE_E"             ,move_e          , 1, 0, 0,      0,      0, 0},
	{"MOVE_SE"            ,move_se         , 1,-1, 0,      0,      0, 0},
	{"MOVE_S"             ,move_s          , 0,-1, 0,      0,      0, 0},
	{"MOVE_SW"            ,move_sw         ,-1,-1, 0,      0,      0, 0},
	{"MOVE_W"             ,move_w          ,-1, 0, 0,      0,      0, 0},
	{"MOVE_NW"            ,move_nw         ,-1, 1, 0,      0,      0, 0},
	{"MOVE_IN"            ,move_in         , 0, 0,-1,      0,      0, 0},
	{"MOVE_OUT"           ,move_out        , 0, 0, 1,      0,      0, 0},
	{"BUTTON1_DOWN"       ,button1_down    , 0, 0, 0,BUTTON1,      0, 0},
	{"BUTTON1_UP"         ,button1_up      , 0, 0, 0,      0,BUTTON1, 0},
	{"BUTTON1_TOGGLE"     ,button1_toggle  , 0, 0, 0,BUTTON1,BUTTON1, 1},
	{"BUTTON1_CLICK"      ,button1_click   , 0, 0, 0,BUTTON1,BUTTON1, 0},
	{"BUTTON2_DOWN"       ,button2_down    , 0, 0, 0,BUTTON2,      0, 0},
	{"BUTTON2_UP"         ,button2_up      , 0, 0, 0,      0,BUTTON2, 0},
	{"BUTTON2_TOGGLE"     ,button2_toggle  , 0, 0, 0,BUTTON2,BUTTON2, 1},
	{"BUTTON2_CLICK"      ,button2_click   , 0, 0, 0,BUTTON2,BUTTON2, 0},
	{"BUTTON3_DOWN"       ,button3_down    , 0, 0, 0,BUTTON3,      0, 0},
	{"BUTTON3_UP"         ,button3_up      , 0, 0, 0,      0,BUTTON3, 0},
	{"BUTTON3_TOGGLE"     ,button3_toggle  , 0, 0, 0,BUTTON3,BUTTON3, 1},
	{"BUTTON3_CLICK"      ,button3_click   , 0, 0, 0,BUTTON3,BUTTON3, 0},
	{NULL                 ,button3_click   , 0, 0, 0,      0,      0, 0}
};

enum protocol {mouse_systems,imps_2,im_serial};

struct trans_mouse
{
	struct trans_mouse *tm_next;
	char *tm_remote;
	char *tm_button;
	enum directive tm_directive;
} *tm_first=NULL;

enum state_button { button_up, button_down };
enum state_axis   { axis_none, axis_up, axis_down };

struct state_mouse
{
	int protocol;
	int always_active,toggle_active,active;
	int acc_start,acc_max,acc_fak; /* defaults, acc_fak == acc_factor */
	enum state_button buttons[BUTTONS];
};

struct state_mouse new_ms,ms=
{
	mouse_systems,
	1,0,0,
	2,20,2,
	{button_up,button_up,button_up}
};

char *progname="lircmd "VERSION;
char *configfile=LIRCMDCFGFILE;

int lircd,lircm;

sig_atomic_t hup=0;

struct trans_mouse *read_config(FILE *fd);

void freetm(struct trans_mouse *tm_all)
{
	struct trans_mouse *tm;

	while(tm_all!=NULL)
	{
		if(tm_all->tm_remote!=ALL && tm_all->tm_remote!=NULL)
			free(tm_all->tm_remote);
		if(tm_all->tm_button!=ALL && tm_all->tm_button!=NULL)
			free(tm_all->tm_button);
		tm=tm_all;
		tm_all=tm->tm_next;
		free(tm);
	}	
}

void sigterm(int sig)
{
	/* not safe in a signal handler *//*freetm(tm_first);*/
	
	shutdown(lircd,2);
	close(lircd);
	shutdown(lircm,2);
	close(lircm);
	
	signal(sig,SIG_DFL);
	raise(sig);
}

void sighup(int sig)
{
	hup=1;
}

void dohup(void)
{
	FILE *fd;
	struct trans_mouse *tm_list;

	fd=fopen(configfile,"r");
	if(fd==NULL)
	{
		syslog(LOG_WARNING,"could not open config file: %m");
		return;
	}
	tm_list=read_config(fd);
	fclose(fd);
	if(tm_list==(void *) -1)
	{
		syslog(LOG_WARNING,"reading of config file failed");
	}
	else
	{
		freetm(tm_first);
		tm_first=tm_list;
		ms=new_ms;
	}
}

#ifdef DAEMONIZE
void daemonize(void)
{
	if(daemon(0,0)==-1)
	{
		fprintf(stderr,"%s: daemon() failed\n",progname);
		perror(progname);
		exit(EXIT_FAILURE);
	}
	umask(0);
}
#endif /* DAEMONIZE */

void msend(int dx,int dy,int dz,int rep,int buttp,int buttr)
{
	static int buttons=0;
	int f=1;
	char buffer[5];
	
	if(rep>=ms.acc_start)
	{
		if(rep*ms.acc_fak>=ms.acc_max)
		{
			f=ms.acc_max;
		}
		else
		{
			f=rep*ms.acc_fak;
		}
	}
	
	buttons|=buttp;
	buttons&=~buttr;

	switch(ms.protocol)
	{
	case mouse_systems:
		buffer[0]=~(buttons|0x78);
		
		buffer[1]=dx; 
		buffer[2]=dy;
		buffer[3]=buffer[4]=0;

		while(f>0)
		{
			f--;
			write(lircm,buffer,5);
		}
		break;
	case imps_2:
		buffer[0] = ((buttons&BUTTON1) ? 0x01:0x00)
		           |((buttons&BUTTON3) ? 0x02:0x00)
		           |((buttons&BUTTON2) ? 0x04:0x00)
		           |                     0x08
		           |(dx<0 ? 0x10:0x00)
    		           |(dy<0 ? 0x20:0x00);
		buffer[1]=dx+(dx>=0 ? 0:256);
		buffer[2]=dy+(dy>=0 ? 0:256);
		buffer[3]=dz;

		while(f>0)
		{
			f--;
			write(lircm,buffer,4);
		}
		break;
	case im_serial:
		dy = -dy;
		buffer[0] = ((buttons&BUTTON1) ? 0x20:0x00)
		           |((buttons&BUTTON3) ? 0x10:0x00)
		           |                     0x40
		           |((dx & 0xC0) >> 6)
    		           |((dy & 0xC0) >> 4);
		buffer[1]=dx & ~0xC0;
		buffer[2]=dy & ~0xC0;
		buffer[3] = ((dz < 0) ? 0x0f:0x00)
			   |((dz > 0) ? 0x01:0x00)
			   |((buttons&BUTTON2) ? 0x10:0x00);

		while(f>0)
		{
			f--;
			write(lircm,buffer,4);
		}
		break;
	}
}

void mouse_move(int dx,int dy,int dz,int rep)
{
	msend(dx,dy,dz,rep,0,0);
}

void mouse_button(int down,int up,int rep)
{
	if(rep==0)
	{
		msend(0,0,0,rep,down,up);
		if(down&BUTTON1) ms.buttons[map_buttons(BUTTON1)]=button_down;
		if(down&BUTTON2) ms.buttons[map_buttons(BUTTON2)]=button_down;
		if(down&BUTTON3) ms.buttons[map_buttons(BUTTON3)]=button_down;
		if(up&BUTTON1) ms.buttons[map_buttons(BUTTON1)]=button_up;
		if(up&BUTTON2) ms.buttons[map_buttons(BUTTON2)]=button_up;
		if(up&BUTTON3) ms.buttons[map_buttons(BUTTON3)]=button_up;
	}
}

/*
  You don't understand this funktion?
  Never mind, I don't understand it, too.
*/

void mouse_circle(int r,int dirx,int diry)
{
	int i,d,incX,incY,x,y;
	int dd[8]=
	{
		1, 0,-1,-1,-1, 0, 1, 1
	};

	for(i=0;i<8;i++)
	{
		d=1-r;
		incX=0;
		incY=2*r;
		x=0;
		y=r;
		while(x<y)
		{
			if(d>=0)
			{
				y--;
				incY-=2;
				d-=incY;
				mouse_move(dirx*dd[i],
					   diry*dd[(i+8-6)%8],0,0);
			}
			else
			{
				mouse_move(dirx*dd[(i+8-1)%8],
					   diry*dd[(i+8-7)%8],0,0);
			}
			x++;
			incX+=2;
			d+=incX+1;
			usleep(1);
		}
	}
}

void activate()
{
	ms.active=1;
	mouse_circle(CIRCLE,1,1);
}

void deactivate()
{
	/* all buttons up */
	mouse_button(0,BUTTON1|BUTTON2|BUTTON3,0);
	ms.active=0;
	mouse_circle(CIRCLE,-1,1);
}


void mouse_conv(int rep,char *button,char *remote)
{
	struct trans_mouse *tm;
	int found=0;
	
	tm=tm_first;
	while(tm!=NULL)
	{
		if(tm->tm_remote!=ALL)
		{
			if(strcasecmp(remote,tm->tm_remote)!=0)
			{
				tm=tm->tm_next;
				continue;
			}
		}
		if(tm->tm_button!=ALL)
		{
			if(strcasecmp(button,tm->tm_button)!=0)
			{
				tm=tm->tm_next;
				continue;
			}
		}
		if(tm->tm_directive==mouse_activate)
		{
			if(ms.active==0 && ms.always_active==0)
			{
				activate();
			}
		}
		else if(tm->tm_directive==mouse_toggle_activate && rep==0)
		{
			if(ms.always_active==0)
			{
				if(ms.active==0)
				{
					activate();
					ms.toggle_active=1;
				}
				else
				{
					deactivate();
				}
			}
		}
		
		if(ms.active || ms.always_active)
		{
			int i;
			for(i=0;config_table[i].string!=NULL;i++)
			{
				if(tm->tm_directive==config_table[i].d)
				{