/* * Copyright 2000, 2001, 2002 Brian S. Dean * All Rights Reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY BRIAN S. DEAN ``AS IS'' AND ANY * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BRIAN S. DEAN BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE * USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH * DAMAGE. * */ /* $Id$ */ #include #include #include #include "ppi.h" #define SLOW_TOGGLE 0 extern char * progname; struct ppipins_t { int pin; int reg; int bit; int inverted; }; static struct ppipins_t pins[] = { { 1, PPICTRL, 0x01, 1 }, { 2, PPIDATA, 0x01, 0 }, { 3, PPIDATA, 0x02, 0 }, { 4, PPIDATA, 0x04, 0 }, { 5, PPIDATA, 0x08, 0 }, { 6, PPIDATA, 0x10, 0 }, { 7, PPIDATA, 0x20, 0 }, { 8, PPIDATA, 0x40, 0 }, { 9, PPIDATA, 0x80, 0 }, { 10, PPISTATUS, 0x40, 0 }, { 11, PPISTATUS, 0x80, 1 }, { 12, PPISTATUS, 0x20, 0 }, { 13, PPISTATUS, 0x10, 0 }, { 14, PPICTRL, 0x02, 1 }, { 15, PPISTATUS, 0x08, 0 }, { 16, PPICTRL, 0x04, 0 }, { 17, PPICTRL, 0x08, 1 } }; #define NPINS (sizeof(pins)/sizeof(struct ppipins_t)) char * ppi_version = "$Id$"; /* * set 'get' and 'set' appropriately for subsequent passage to ioctl() * to get/set the specified PPI registers. */ int ppi_getops(int reg, unsigned long * get, unsigned long * set) { switch (reg) { case PPIDATA: *set = PPISDATA; *get = PPIGDATA; break; case PPICTRL: *set = PPISCTRL; *get = PPIGCTRL; break; case PPISTATUS: *set = PPISSTATUS; *get = PPIGSTATUS; break; default: fprintf(stderr, "%s: avr_set(): invalid register=%d\n", progname, reg); return -1; break; } return 0; } /* * set the indicated bit of the specified register. */ int ppi_set(int fd, int reg, int bit) { unsigned char v; unsigned long get, set; int rc; rc = ppi_getops(reg, &get, &set); if (rc) return -1; ioctl(fd, get, &v); v |= bit; ioctl(fd, set, &v); return 0; } /* * clear the indicated bit of the specified register. */ int ppi_clr(int fd, int reg, int bit) { unsigned char v; unsigned long get, set; int rc; rc = ppi_getops(reg, &get, &set); if (rc) return -1; ioctl(fd, get, &v); v &= ~bit; ioctl(fd, set, &v); return 0; } /* * get the indicated bit of the specified register. */ int ppi_get(int fd, int reg, int bit) { unsigned char v; unsigned long get, set; int rc; rc = ppi_getops(reg, &get, &set); if (rc) return -1; ioctl(fd, get, &v); v &= bit; return v; /* v == bit */ } /* * toggle the indicated bit of the specified register. */ int ppi_toggle(int fd, int reg, int bit) { unsigned char v; unsigned long get, set; int rc; rc = ppi_getops(reg, &get, &set); if (rc) return -1; ioctl(fd, get, &v); v ^= bit; ioctl(fd, set, &v); return 0; } /* * get all bits of the specified register. */ int ppi_getall(int fd, int reg) { unsigned char v; unsigned long get, set; int rc; rc = ppi_getops(reg, &get, &set); if (rc) return -1; ioctl(fd, get, &v); return (int)v; } /* * set all bits of the specified register to val. */ int ppi_setall(int fd, int reg, int val) { unsigned char v; unsigned long get, set; int rc; rc = ppi_getops(reg, &get, &set); if (rc) return -1; v = val; ioctl(fd, set, &v); return 0; } /* * pulse the indicated bit of the specified register. */ int ppi_pulse(int fd, int reg, int bit) { ppi_toggle(fd, reg, bit); #if SLOW_TOGGLE usleep(1000); #endif ppi_toggle(fd, reg, bit); #if SLOW_TOGGLE usleep(1000); #endif return 0; } int ppi_setpin(int fd, int pin, int value) { if (pin < 1 || pin > 17) return -1; pin--; if (pins[pin].inverted) value = !value; if (value) ppi_set(fd, pins[pin].reg, pins[pin].bit); else ppi_clr(fd, pins[pin].reg, pins[pin].bit); #if SLOW_TOGGLE usleep(1000); #endif return 0; } int ppi_getpin(int fd, int pin) { int value; if (pin < 1 || pin > 17) return -1; pin--; value = ppi_get(fd, pins[pin].reg, pins[pin].bit); if (value) value = 1; if (pins[pin].inverted) value = !value; return value; } int ppi_pulsepin(int fd, int pin) { if (pin < 1 || pin > 17) return -1; pin--; ppi_toggle(fd, pins[pin].reg, pins[pin].bit); #if SLOW_TOGGLE usleep(1000); #endif ppi_toggle(fd, pins[pin].reg, pins[pin].bit); #if SLOW_TOGGLE usleep(1000); #endif return 0; } int ppi_getpinmask(int pin) { if (pin < 1 || pin > 17) return -1; return pins[pin-1].bit; } int ppi_getpinreg(int pin) { if (pin < 1 || pin > 17) return -1; return pins[pin-1].reg; } /* * infinite loop, sensing on the pin that we use to read data out of * the device; this is a debugging aid, you can insert a call to this * function in 'main()' and can use it to determine whether your sense * pin is actually sensing. */ int ppi_sense(int fd) { unsigned int pr; int count; char buf[128]; int i; count = 0; fprintf(stderr, "parallel port data:\n" " 111111111\n" "123456789012345678\n"); buf[17] = 0; pr = 1; do { usleep(1); /* don't be too much of a cpu hog */ for (i=1; i<=17; i++) { buf[i-1] = ppi_getpin(fd, i); if (buf[i-1]) buf[i-1] = '|'; else buf[i-1] = '.'; } fprintf(stderr, "\r \r%s", buf); } while(1); return 0; }