/*
 *    QuickCam Driver For Video4Linux.
 *
 *      Video4Linux conversion work by Alan Cox.
 *      Parport compatibility by Phil Blundell.
 *      Busy loop avoidance by Mark Cooke.
 *
 *    Module parameters:
 *
 *      maxpoll=<1 - 5000>
 *
 *        When polling the QuickCam for a response, busy-wait for a
 *        maximum of this many loops. The default of 250 gives little
 *        impact on interactive response.
 *
 *        NOTE: If this parameter is set too high, the processor
 *              will busy wait until this loop times out, and then
 *              slowly poll for a further 5 seconds before failing
 *              the transaction. You have been warned.
 *
 *      yieldlines=<1 - 250>
 *
 *        When acquiring a frame from the camera, the data gathering
 *        loop will yield back to the scheduler after completing
 *        this many lines. The default of 4 provides a trade-off
 *        between increased frame acquisition time and impact on
 *        interactive response.
 */

/* qcam-lib.c -- Library for programming with the Connectix QuickCam.
 * See the included documentation for usage instructions and details
 * of the protocol involved. */


/* Version 0.5, August 4, 1996 */
/* Version 0.7, August 27, 1996 */
/* Version 0.9, November 17, 1996 */


/******************************************************************

Copyright (C) 1996 by Scott Laird

Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the
"Software"), to deal in the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom the Software is furnished to do so, subject to
the following conditions:

The above copyright notice and this permission notice shall be
included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
IN NO EVENT SHALL SCOTT LAIRD BE LIABLE FOR ANY CLAIM, DAMAGES OR
OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.

******************************************************************/

#include <linux/module.h>
#include <linux/delay.h>
#include <linux/errno.h>
#include <linux/fs.h>
#include <linux/kernel.h>
#include <linux/slab.h>
#include <linux/mm.h>
#include <linux/parport.h>
#include <linux/sched.h>
#include <linux/videodev2.h>
#include <linux/mutex.h>
#include <asm/uaccess.h>
#include <media/v4l2-common.h>
#include <media/v4l2-ioctl.h>
#include <media/v4l2-device.h>
#include <media/v4l2-fh.h>
#include <media/v4l2-ctrls.h>
#include <media/v4l2-event.h>
#include <media/videobuf2-vmalloc.h>

/* One from column A... */
#define QC_NOTSET 0
#define QC_UNIDIR 1
#define QC_BIDIR  2
#define QC_SERIAL 3

/* ... and one from column B */
#define QC_ANY          0x00
#define QC_FORCE_UNIDIR 0x10
#define QC_FORCE_BIDIR  0x20
#define QC_FORCE_SERIAL 0x30
/* in the port_mode member */

#define QC_MODE_MASK    0x07
#define QC_FORCE_MASK   0x70

#define MAX_HEIGHT 243
#define MAX_WIDTH 336

/* Bit fields for status flags */
#define QC_PARAM_CHANGE 0x01 /* Camera status change has occurred */

struct qcam {
        struct v4l2_device v4l2_dev;
        struct video_device vdev;
        struct v4l2_ctrl_handler hdl;
        struct vb2_queue vb_vidq;
        struct pardevice *pdev;
        struct parport *pport;
        struct mutex lock;
        struct mutex queue_lock;
        int width, height;
        int bpp;
        int mode;
        int contrast, brightness, whitebal;
        int port_mode;
        int transfer_scale;
        int top, left;
        int status;
        unsigned int saved_bits;
        unsigned long in_use;
};

static unsigned int maxpoll = 250;   /* Maximum busy-loop count for qcam I/O */
static unsigned int yieldlines = 4;  /* Yield after this many during capture */
static int video_nr = -1;
static unsigned int force_init;         /* Whether to probe aggressively */

module_param(maxpoll, int, 0);
module_param(yieldlines, int, 0);
module_param(video_nr, int, 0);

/* Set force_init=1 to avoid detection by polling status register and
 * immediately attempt to initialize qcam */
module_param(force_init, int, 0);

#define MAX_CAMS 4
static struct qcam *qcams[MAX_CAMS];
static unsigned int num_cams;

static inline int read_lpstatus(struct qcam *q)
{
        return parport_read_status(q->pport);
}

static inline int read_lpdata(struct qcam *q)
{
        return parport_read_data(q->pport);
}

static inline void write_lpdata(struct qcam *q, int d)
{
        parport_write_data(q->pport, d);
}

static void write_lpcontrol(struct qcam *q, int d)
{
        if (d & 0x20) {
                /* Set bidirectional mode to reverse (data in) */
                parport_data_reverse(q->pport);
        } else {
                /* Set bidirectional mode to forward (data out) */
                parport_data_forward(q->pport);
        }

        /* Now issue the regular port command, but strip out the
         * direction flag */
        d &= ~0x20;
        parport_write_control(q->pport, d);
}


/* qc_waithand busy-waits for a handshake signal from the QuickCam.
 * Almost all communication with the camera requires handshaking. */

static int qc_waithand(struct qcam *q, int val)
{
        int status;
        int runs = 0;

        if (val) {
                while (!((status = read_lpstatus(q)) & 8)) {
                        /* 1000 is enough spins on the I/O for all normal
                           cases, at that point we start to poll slowly
                           until the camera wakes up. However, we are
                           busy blocked until the camera responds, so
                           setting it lower is much better for interactive
                           response. */

                        if (runs++ > maxpoll)
                                msleep_interruptible(5);
                        if (runs > (maxpoll + 1000)) /* 5 seconds */
                                return -1;
                }
        } else {
                while (((status = read_lpstatus(q)) & 8)) {
                        /* 1000 is enough spins on the I/O for all normal
                           cases, at that point we start to poll slowly
                           until the camera wakes up. However, we are
                           busy blocked until the camera responds, so
                           setting it lower is much better for interactive
                           response. */

                        if (runs++ > maxpoll)
                                msleep_interruptible(5);
                        if (runs++ > (maxpoll + 1000)) /* 5 seconds */
                                return -1;
                }
        }

        return status;
}

/* Waithand2 is used when the qcam is in bidirectional mode, and the
 * handshaking signal is CamRdy2 (bit 0 of data reg) instead of CamRdy1
 * (bit 3 of status register).  It also returns the last value read,
 * since this data is useful. */

static unsigned int qc_waithand2(struct qcam *q, int val)
{
        unsigned int status;
        int runs = 0;

        do {
                status = read_lpdata(q);
                /* 1000 is enough spins on the I/O for all normal
                   cases, at that point we start to poll slowly
                   until the camera wakes up. However, we are
                   busy blocked until the camera responds, so
                   setting it lower is much better for interactive
                   response. */

                if (runs++ > maxpoll)
                        msleep_interruptible(5);
                if (runs++ > (maxpoll + 1000)) /* 5 seconds */
                        return 0;
        } while ((status & 1) != val);

        return status;
}

/* qc_command is probably a bit of a misnomer -- it's used to send
 * bytes *to* the camera.  Generally, these bytes are either commands
 * or arguments to commands, so the name fits, but it still bugs me a
 * bit.  See the documentation for a list of commands. */

static int qc_command(struct qcam *q, int command)
{
        int n1, n2;
        int cmd;

        write_lpdata(q, command);
        write_lpcontrol(q, 6);

        n1 = qc_waithand(q, 1);

        write_lpcontrol(q, 0xe);
        n2 = qc_waithand(q, 0);

        cmd = (n1 & 0xf0) | ((n2 & 0xf0) >> 4);
        return cmd;
}

static int qc_readparam(struct qcam *q)
{
        int n1, n2;
        int cmd;

        write_lpcontrol(q, 6);
        n1 = qc_waithand(q, 1);

        write_lpcontrol(q, 0xe);
        n2 = qc_waithand(q, 0);

        cmd = (n1 & 0xf0) | ((n2 & 0xf0) >> 4);
        return cmd;
}


/* Try to detect a QuickCam.  It appears to flash the upper 4 bits of
   the status register at 5-10 Hz.  This is only used in the autoprobe
   code.  Be aware that this isn't the way Connectix detects the
   camera (they send a reset and try to handshake), but this should be
   almost completely safe, while their method screws up my printer if
   I plug it in before the camera. */

static int qc_detect(struct qcam *q)
{
        int reg, lastreg;
        int count = 0;
        int i;

        if (force_init)
                return 1;

        lastreg = reg = read_lpstatus(q) & 0xf0;

        for (i = 0; i < 500; i++) {
                reg = read_lpstatus(q) & 0xf0;
                if (reg != lastreg)
                        count++;
                lastreg = reg;
                mdelay(2);
        }


#if 0
        /* Force camera detection during testing. Sometimes the camera
           won't be flashing these bits. Possibly unloading the module
           in the middle of a grab? Or some timeout condition?
           I've seen this parameter as low as 19 on my 450Mhz box - mpc */
        printk(KERN_DEBUG "Debugging: QCam detection counter <30-200 counts as detected>: %d\n", count);
        return 1;
#endif

        /* Be (even more) liberal in what you accept...  */

        if (count > 20 && count < 400) {
                return 1;       /* found */
        } else {
                printk(KERN_ERR "No Quickcam found on port %s\n",
                                q->pport->name);
                printk(KERN_DEBUG "Quickcam detection counter: %u\n", count);
                return 0;       /* not found */
        }
}

/* Decide which scan mode to use.  There's no real requirement that
 * the scanmode match the resolution in q->height and q-> width -- the
 * camera takes the picture at the resolution specified in the
 * "scanmode" and then returns the image at the resolution specified
 * with the resolution commands.  If the scan is bigger than the
 * requested resolution, the upper-left hand corner of the scan is
 * returned.  If the scan is smaller, then the rest of the image
 * returned contains garbage. */

static int qc_setscanmode(struct qcam *q)
{
        int old_mode = q->mode;

        switch (q->transfer_scale) {
        case 1:
                q->mode = 0;
                break;
        case 2:
                q->mode = 4;
                break;
        case 4:
                q->mode = 8;
                break;
        }

        switch (q->bpp) {
        case 4:
                break;
        case 6:
                q->mode += 2;
                break;
        }

        switch (q->port_mode & QC_MODE_MASK) {
        case QC_BIDIR:
                q->mode += 1;
                break;
        case QC_NOTSET:
        case QC_UNIDIR:
                break;
        }

        if (q->mode != old_mode)
                q->status |= QC_PARAM_CHANGE;

        return 0;
}


/* Reset the QuickCam.  This uses the same sequence the Windows
 * QuickPic program uses.  Someone with a bi-directional port should
 * check that bi-directional mode is detected right, and then
 * implement bi-directional mode in qc_readbyte(). */

static void qc_reset(struct qcam *q)
{
        switch (q->port_mode & QC_FORCE_MASK) {
        case QC_FORCE_UNIDIR:
                q->port_mode = (q->port_mode & ~QC_MODE_MASK) | QC_UNIDIR;
                break;

        case QC_FORCE_BIDIR:
                q->port_mode = (q->port_mode & ~QC_MODE_MASK) | QC_BIDIR;
                break;

        case QC_ANY:
                write_lpcontrol(q, 0x20);
                write_lpdata(q, 0x75);

                if (read_lpdata(q) != 0x75)
                        q->port_mode = (q->port_mode & ~QC_MODE_MASK) | QC_BIDIR;
                else
                        q->port_mode = (q->port_mode & ~QC_MODE_MASK) | QC_UNIDIR;
                break;
        }

        write_lpcontrol(q, 0xb);
        udelay(250);
        write_lpcontrol(q, 0xe);
        qc_setscanmode(q);              /* in case port_mode changed */
}



/* Reset the QuickCam and program for brightness, contrast,
 * white-balance, and resolution. */

static void qc_set(struct qcam *q)
{
        int val;
        int val2;

        /* Set the brightness.  Yes, this is repetitive, but it works.
         * Shorter versions seem to fail subtly.  Feel free to try :-). */
        /* I think the problem was in qc_command, not here -- bls */

        qc_command(q, 0xb);
        qc_command(q, q->brightness);

        val = q->height / q->transfer_scale;
        qc_command(q, 0x11);
        qc_command(q, val);
        if ((q->port_mode & QC_MODE_MASK) == QC_UNIDIR && q->bpp == 6) {
                /* The normal "transfers per line" calculation doesn't seem to work
                   as expected here (and yet it works fine in qc_scan).  No idea
                   why this case is the odd man out.  Fortunately, Laird's original
                   working version gives me a good way to guess at working values.
                   -- bls */
                val = q->width;
                val2 = q->transfer_scale * 4;
        } else {
                val = q->width * q->bpp;
                val2 = (((q->port_mode & QC_MODE_MASK) == QC_BIDIR) ? 24 : 8) *
                        q->transfer_scale;
        }
        val = DIV_ROUND_UP(val, val2);
        qc_command(q, 0x13);
        qc_command(q, val);

        /* Setting top and left -- bls */
        qc_command(q, 0xd);
        qc_command(q, q->top);
        qc_command(q, 0xf);
        qc_command(q, q->left / 2);

        qc_command(q, 0x19);
        qc_command(q, q->contrast);
        qc_command(q, 0x1f);
        qc_command(q, q->whitebal);

        /* Clear flag that we must update the grabbing parameters on the camera
           before we grab the next frame */
        q->status &= (~QC_PARAM_CHANGE);
}

/* Qc_readbytes reads some bytes from the QC and puts them in
   the supplied buffer.  It returns the number of bytes read,
   or -1 on error. */

static inline int qc_readbytes(struct qcam *q, char buffer[])
{
        int ret = 1;
        unsigned int hi, lo;
        unsigned int hi2, lo2;
        static int state;

        if (buffer == NULL) {
                state = 0;
                return 0;
        }

        switch (q->port_mode & QC_MODE_MASK) {
        case QC_BIDIR:          /* Bi-directional Port */
                write_lpcontrol(q, 0x26);
                lo = (qc_waithand2(q, 1) >> 1);
                hi = (read_lpstatus(q) >> 3) & 0x1f;
                write_lpcontrol(q, 0x2e);
                lo2 = (qc_waithand2(q, 0) >> 1);
                hi2 = (read_lpstatus(q) >> 3) & 0x1f;
                switch (q->bpp) {
                case 4:
                        buffer[0] = lo & 0xf;
                        buffer[1] = ((lo & 0x70) >> 4) | ((hi & 1) << 3);
                        buffer[2] = (hi & 0x1e) >> 1;
                        buffer[3] = lo2 & 0xf;
                        buffer[4] = ((lo2 & 0x70) >> 4) | ((hi2 & 1) << 3);
                        buffer[5] = (hi2 & 0x1e) >> 1;
                        ret = 6;
                        break;
                case 6:
                        buffer[0] = lo & 0x3f;
                        buffer[1] = ((lo & 0x40) >> 6) | (hi << 1);
                        buffer[2] = lo2 & 0x3f;
                        buffer[3] = ((lo2 & 0x40) >> 6) | (hi2 << 1);
                        ret = 4;
                        break;
                }
                break;

        case QC_UNIDIR: /* Unidirectional Port */
                write_lpcontrol(q, 6);
                lo = (qc_waithand(q, 1) & 0xf0) >> 4;
                write_lpcontrol(q, 0xe);
                hi = (qc_waithand(q, 0) & 0xf0) >> 4;

                switch (q->bpp) {
                case 4:
                        buffer[0] = lo;
                        buffer[1] = hi;
                        ret = 2;
                        break;
                case 6:
                        switch (state) {
                        case 0:
                                buffer[0] = (lo << 2) | ((hi & 0xc) >> 2);
                                q->saved_bits = (hi & 3) << 4;
                                state = 1;
                                ret = 1;
                                break;
                        case 1:
                                buffer[0] = lo | q->saved_bits;
                                q->saved_bits = hi << 2;
                                state = 2;
                                ret = 1;
                                break;
                        case 2:
                                buffer[0] = ((lo & 0xc) >> 2) | q->saved_bits;
                                buffer[1] = ((lo & 3) << 4) | hi;
                                state = 0;
                                ret = 2;
                                break;
                        }
                        break;
                }
                break;
        }
        return ret;
}

/* requests a scan from the camera.  It sends the correct instructions
 * to the camera and then reads back the correct number of bytes.  In
 * previous versions of this routine the return structure contained
 * the raw output from the camera, and there was a 'qc_convertscan'
 * function that converted that to a useful format.  In version 0.3 I
 * rolled qc_convertscan into qc_scan and now I only return the
 * converted scan.  The format is just an one-dimensional array of
 * characters, one for each pixel, with 0=black up to n=white, where
 * n=2^(bit depth)-1.  Ask me for more details if you don't understand
 * this. */

static long qc_capture(struct qcam *q, u8 *buf, unsigned long len)
{
        int i, j, k, yield;
        int bytes;
        int linestotrans, transperline;
        int divisor;
        int pixels_per_line;
        int pixels_read = 0;
        int got = 0;
        char buffer[6];
        int  shift = 8 - q->bpp;
        char invert;

        if (q->mode == -1)
                return -ENXIO;

        qc_command(q, 0x7);
        qc_command(q, q->mode);

        if ((q->port_mode & QC_MODE_MASK) == QC_BIDIR) {
                write_lpcontrol(q, 0x2e);       /* turn port around */
                write_lpcontrol(q, 0x26);
                qc_waithand(q, 1);
                write_lpcontrol(q, 0x2e);
                qc_waithand(q, 0);
        }

        /* strange -- should be 15:63 below, but 4bpp is odd */
        invert = (q->bpp == 4) ? 16 : 63;

        linestotrans = q->height / q->transfer_scale;
        pixels_per_line = q->width / q->transfer_scale;
        transperline = q->width * q->bpp;
        divisor = (((q->port_mode & QC_MODE_MASK) == QC_BIDIR) ? 24 : 8) *
                q->transfer_scale;
        transperline = DIV_ROUND_UP(transperline, divisor);

        for (i = 0, yield = yieldlines; i < linestotrans; i++) {
                for (pixels_read = j = 0; j < transperline; j++) {
                        bytes = qc_readbytes(q, buffer);
                        for (k = 0; k < bytes && (pixels_read + k) < pixels_per_line; k++) {
                                int o;
                                if (buffer[k] == 0 && invert == 16) {
                                        /* 4bpp is odd (again) -- inverter is 16, not 15, but output
                                           must be 0-15 -- bls */
                                        buffer[k] = 16;
                                }
                                o = i * pixels_per_line + pixels_read + k;
                                if (o < len) {
                                        u8 ch = invert - buffer[k];
                                        got++;
                                        buf[o] = ch << shift;
                                }
                        }
                        pixels_read += bytes;
                }
                qc_readbytes(q, NULL);  /* reset state machine */

                /* Grabbing an entire frame from the quickcam is a lengthy
                   process. We don't (usually) want to busy-block the
                   processor for the entire frame. yieldlines is a module
                   parameter. If we yield every line, the minimum frame
                   time will be 240 / 200 = 1.2 seconds. The compile-time
                   default is to yield every 4 lines. */
                if (i >= yield) {
                        msleep_interruptible(5);
                        yield = i + yieldlines;
                }
        }

        if ((q->port_mode & QC_MODE_MASK) == QC_BIDIR) {
                write_lpcontrol(q, 2);
                write_lpcontrol(q, 6);
                udelay(3);
                write_lpcontrol(q, 0xe);
        }
        if (got < len)
                return got;
        return len;
}

/* ------------------------------------------------------------------
        Videobuf operations
   ------------------------------------------------------------------*/
static int queue_setup(struct vb2_queue *vq, const struct v4l2_format *fmt,
                                unsigned int *nbuffers, unsigned int *nplanes,
                                unsigned int sizes[], void *alloc_ctxs[])
{
        struct qcam *dev = vb2_get_drv_priv(vq);

        if (0 == *nbuffers)
                *nbuffers = 3;
        *nplanes = 1;
        mutex_lock(&dev->lock);
        if (fmt)
                sizes[0] = fmt->fmt.pix.width * fmt->fmt.pix.height;
        else
                sizes[0] = (dev->width / dev->transfer_scale) *
                   (dev->height / dev->transfer_scale);
        mutex_unlock(&dev->lock);
        return 0;
}

static void buffer_queue(struct vb2_buffer *vb)
{
        vb2_buffer_done(vb, VB2_BUF_STATE_DONE);
}

static int buffer_finish(struct vb2_buffer *vb)
{
        struct qcam *qcam = vb2_get_drv_priv(vb->vb2_queue);
        void *vbuf = vb2_plane_vaddr(vb, 0);
        int size = vb->vb2_queue->plane_sizes[0];
        int len;

        mutex_lock(&qcam->lock);
        parport_claim_or_block(qcam->pdev);

        qc_reset(qcam);

        /* Update the camera parameters if we need to */
        if (qcam->status & QC_PARAM_CHANGE)
                qc_set(qcam);

        len = qc_capture(qcam, vbuf, size);

        parport_release(qcam->pdev);
        mutex_unlock(&qcam->lock);
        v4l2_get_timestamp(&vb->v4l2_buf.timestamp);
        if (len != size)
                vb->state = VB2_BUF_STATE_ERROR;
        vb2_set_plane_payload(vb, 0, len);
        return 0;
}

static struct vb2_ops qcam_video_qops = {
        .queue_setup            = queue_setup,
        .buf_queue              = buffer_queue,
        .buf_finish             = buffer_finish,
        .wait_prepare           = vb2_ops_wait_prepare,
        .wait_finish            = vb2_ops_wait_finish,
};

/*
 *      Video4linux interfacing
 */

static int qcam_querycap(struct file *file, void  *priv,
                                        struct v4l2_capability *vcap)
{
        struct qcam *qcam = video_drvdata(file);

        strlcpy(vcap->driver, qcam->v4l2_dev.name, sizeof(vcap->driver));
        strlcpy(vcap->card, "Connectix B&W Quickcam", sizeof(vcap->card));
        strlcpy(vcap->bus_info, qcam->pport->name, sizeof(vcap->bus_info));
        vcap->device_caps = V4L2_CAP_VIDEO_CAPTURE | V4L2_CAP_READWRITE |
                                V4L2_CAP_STREAMING;
        vcap->capabilities = vcap->device_caps | V4L2_CAP_DEVICE_CAPS;
        return 0;
}

static int qcam_enum_input(struct file *file, void *fh, struct v4l2_input *vin)
{
        if (vin->index > 0)
                return -EINVAL;
        strlcpy(vin->name, "Camera", sizeof(vin->name));
        vin->type = V4L2_INPUT_TYPE_CAMERA;
        vin->audioset = 0;
        vin->tuner = 0;
        vin->std = 0;
        vin->status = 0;
        return 0;
}

static int qcam_g_input(struct file *file, void *fh, unsigned int *inp)
{
        *inp = 0;
        return 0;
}

static int qcam_s_input(struct file *file, void *fh, unsigned int inp)
{
        return (inp > 0) ? -EINVAL : 0;
}

static int qcam_g_fmt_vid_cap(struct file *file, void *fh, struct v4l2_format *fmt)
{
        struct qcam *qcam = video_drvdata(file);
        struct v4l2_pix_format *pix = &fmt->fmt.pix;

        pix->width = qcam->width / qcam->transfer_scale;
        pix->height = qcam->height / qcam->transfer_scale;
        pix->pixelformat = (qcam->bpp == 4) ? V4L2_PIX_FMT_Y4 : V4L2_PIX_FMT_Y6;
        pix->field = V4L2_FIELD_NONE;
        pix->bytesperline = pix->width;
        pix->sizeimage = pix->width * pix->height;
        /* Just a guess */
        pix->colorspace = V4L2_COLORSPACE_SRGB;
        pix->priv = 0;
        return 0;
}

static int qcam_try_fmt_vid_cap(struct file *file, void *fh, struct v4l2_format *fmt)
{
        struct v4l2_pix_format *pix = &fmt->fmt.pix;

        if (pix->height <= 60 || pix->width <= 80) {
                pix->height = 60;
                pix->width = 80;
        } else if (pix->height <= 120 || pix->width <= 160) {
                pix->height = 120;
                pix->width = 160;
        } else {
                pix->height = 240;
                pix->width = 320;
        }
        if (pix->pixelformat != V4L2_PIX_FMT_Y4 &&
            pix->pixelformat != V4L2_PIX_FMT_Y6)
                pix->pixelformat = V4L2_PIX_FMT_Y4;
        pix->field = V4L2_FIELD_NONE;
        pix->bytesperline = pix->width;
        pix->sizeimage = pix->width * pix->height;
        /* Just a guess */
        pix->colorspace = V4L2_COLORSPACE_SRGB;
        pix->priv = 0;
        return 0;
}

static int qcam_s_fmt_vid_cap(struct file *file, void *fh, struct v4l2_format *fmt)
{
        struct qcam *qcam = video_drvdata(file);
        struct v4l2_pix_format *pix = &fmt->fmt.pix;
        int ret = qcam_try_fmt_vid_cap(file, fh, fmt);

        if (ret)
                return ret;
        if (vb2_is_busy(&qcam->vb_vidq))
                return -EBUSY;
        qcam->width = 320;
        qcam->height = 240;
        if (pix->height == 60)
                qcam->transfer_scale = 4;
        else if (pix->height == 120)
                qcam->transfer_scale = 2;
        else
                qcam->transfer_scale = 1;
        if (pix->pixelformat == V4L2_PIX_FMT_Y6)
                qcam->bpp = 6;
        else
                qcam->bpp = 4;

        qc_setscanmode(qcam);
        /* We must update the camera before we grab. We could
           just have changed the grab size */
        qcam->status |= QC_PARAM_CHANGE;
        return 0;
}

static int qcam_enum_fmt_vid_cap(struct file *file, void *fh, struct v4l2_fmtdesc *fmt)
{
        static struct v4l2_fmtdesc formats[] = {
                { 0, 0, 0,
                  "4-Bit Monochrome", V4L2_PIX_FMT_Y4,
                  { 0, 0, 0, 0 }
                },
                { 1, 0, 0,
                  "6-Bit Monochrome", V4L2_PIX_FMT_Y6,
                  { 0, 0, 0, 0 }
                },
        };
        enum v4l2_buf_type type = fmt->type;

        if (fmt->index > 1)
                return -EINVAL;

        *fmt = formats[fmt->index];
        fmt->type = type;
        return 0;
}

static int qcam_enum_framesizes(struct file *file, void *fh,
                                         struct v4l2_frmsizeenum *fsize)
{
        static const struct v4l2_frmsize_discrete sizes[] = {
                {  80,  60 },
                { 160, 120 },
                { 320, 240 },
        };

        if (fsize->index > 2)
                return -EINVAL;
        if (fsize->pixel_format != V4L2_PIX_FMT_Y4 &&
            fsize->pixel_format != V4L2_PIX_FMT_Y6)
                return -EINVAL;
        fsize->type = V4L2_FRMSIZE_TYPE_DISCRETE;
        fsize->discrete = sizes[fsize->index];
        return 0;
}

static int qcam_s_ctrl(struct v4l2_ctrl *ctrl)
{
        struct qcam *qcam =
                container_of(ctrl->handler, struct qcam, hdl);
        int ret = 0;

        switch (ctrl->id) {
        case V4L2_CID_BRIGHTNESS:
                qcam->brightness = ctrl->val;
                break;
        case V4L2_CID_CONTRAST:
                qcam->contrast = ctrl->val;
                break;
        case V4L2_CID_GAMMA:
                qcam->whitebal = ctrl->val;
                break;
        default:
                ret = -EINVAL;
                break;
        }
        if (ret == 0)
                qcam->status |= QC_PARAM_CHANGE;
        return ret;
}

static const struct v4l2_file_operations qcam_fops = {
        .owner          = THIS_MODULE,
        .open           = v4l2_fh_open,
        .release        = vb2_fop_release,
        .poll           = vb2_fop_poll,
        .unlocked_ioctl = video_ioctl2,
        .read           = vb2_fop_read,
        .mmap           = vb2_fop_mmap,
};

static const struct v4l2_ioctl_ops qcam_ioctl_ops = {
        .vidioc_querycap                    = qcam_querycap,
        .vidioc_g_input                     = qcam_g_input,
        .vidioc_s_input                     = qcam_s_input,
        .vidioc_enum_input                  = qcam_enum_input,
        .vidioc_enum_fmt_vid_cap            = qcam_enum_fmt_vid_cap,
        .vidioc_enum_framesizes             = qcam_enum_framesizes,
        .vidioc_g_fmt_vid_cap               = qcam_g_fmt_vid_cap,
        .vidioc_s_fmt_vid_cap               = qcam_s_fmt_vid_cap,
        .vidioc_try_fmt_vid_cap             = qcam_try_fmt_vid_cap,
        .vidioc_reqbufs                     = vb2_ioctl_reqbufs,
        .vidioc_create_bufs                 = vb2_ioctl_create_bufs,
        .vidioc_prepare_buf                 = vb2_ioctl_prepare_buf,
        .vidioc_querybuf                    = vb2_ioctl_querybuf,
        .vidioc_qbuf                        = vb2_ioctl_qbuf,
        .vidioc_dqbuf                       = vb2_ioctl_dqbuf,
        .vidioc_streamon                    = vb2_ioctl_streamon,
        .vidioc_streamoff                   = vb2_ioctl_streamoff,
        .vidioc_log_status                  = v4l2_ctrl_log_status,
        .vidioc_subscribe_event             = v4l2_ctrl_subscribe_event,
        .vidioc_unsubscribe_event           = v4l2_event_unsubscribe,
};

static const struct v4l2_ctrl_ops qcam_ctrl_ops = {
        .s_ctrl = qcam_s_ctrl,
};

/* Initialize the QuickCam driver control structure.  This is where
 * defaults are set for people who don't have a config file.*/

static struct qcam *qcam_init(struct parport *port)
{
        struct qcam *qcam;
        struct v4l2_device *v4l2_dev;
        struct vb2_queue *q;
        int err;

        qcam = kzalloc(sizeof(struct qcam), GFP_KERNEL);
        if (qcam == NULL)
                return NULL;

        v4l2_dev = &qcam->v4l2_dev;
        snprintf(v4l2_dev->name, sizeof(v4l2_dev->name), "bw-qcam%d", num_cams);

        if (v4l2_device_register(port->dev, v4l2_dev) < 0) {
                v4l2_err(v4l2_dev, "Could not register v4l2_device\n");
                kfree(qcam);
                return NULL;
        }

        v4l2_ctrl_handler_init(&qcam->hdl, 3);
        v4l2_ctrl_new_std(&qcam->hdl, &qcam_ctrl_ops,
                          V4L2_CID_BRIGHTNESS, 0, 255, 1, 180);
        v4l2_ctrl_new_std(&qcam->hdl, &qcam_ctrl_ops,
                          V4L2_CID_CONTRAST, 0, 255, 1, 192);
        v4l2_ctrl_new_std(&qcam->hdl, &qcam_ctrl_ops,
                          V4L2_CID_GAMMA, 0, 255, 1, 105);
        if (qcam->hdl.error) {
                v4l2_err(v4l2_dev, "couldn't register controls\n");
                goto exit;
        }

        mutex_init(&qcam->lock);
        mutex_init(&qcam->queue_lock);

        /* initialize queue */
        q = &qcam->vb_vidq;
        q->type = V4L2_BUF_TYPE_VIDEO_CAPTURE;
        q->io_modes = VB2_MMAP | VB2_USERPTR | VB2_READ;
        q->drv_priv = qcam;
        q->ops = &qcam_video_qops;
        q->mem_ops = &vb2_vmalloc_memops;
        q->timestamp_type = V4L2_BUF_FLAG_TIMESTAMP_MONOTONIC;
        err = vb2_queue_init(q);
        if (err < 0) {
                v4l2_err(v4l2_dev, "couldn't init vb2_queue for %s.\n", port->name);
                goto exit;
        }
        qcam->vdev.queue = q;
        qcam->vdev.queue->lock = &qcam->queue_lock;

        qcam->pport = port;
        qcam->pdev = parport_register_device(port, v4l2_dev->name, NULL, NULL,
                        NULL, 0, NULL);
        if (qcam->pdev == NULL) {
                v4l2_err(v4l2_dev, "couldn't register for %s.\n", port->name);
                goto exit;
        }

        strlcpy(qcam->vdev.name, "Connectix QuickCam", sizeof(qcam->vdev.name));
        qcam->vdev.v4l2_dev = v4l2_dev;
        qcam->vdev.ctrl_handler = &qcam->hdl;
        qcam->vdev.fops = &qcam_fops;
        qcam->vdev.lock = &qcam->lock;
        qcam->vdev.ioctl_ops = &qcam_ioctl_ops;
        set_bit(V4L2_FL_USE_FH_PRIO, &qcam->vdev.flags);
        qcam->vdev.release = video_device_release_empty;
        video_set_drvdata(&qcam->vdev, qcam);

        qcam->port_mode = (QC_ANY | QC_NOTSET);
        qcam->width = 320;
        qcam->height = 240;
        qcam->bpp = 4;
        qcam->transfer_scale = 2;
        qcam->contrast = 192;

        qcam->brightness = 180;
        qcam->whitebal = 105;
        qcam->top = 1;
        qcam->left = 14;
        qcam->mode = -1;
        qcam->status = QC_PARAM_CHANGE;
        return qcam;

exit:
        v4l2_ctrl_handler_free(&qcam->hdl);
        kfree(qcam);
        return NULL;
}

static int qc_calibrate(struct qcam *q)
{
        /*
         *      Bugfix by Hanno Mueller hmueller@kabel.de, Mai 21 96
         *      The white balance is an individual value for each
         *      quickcam.
         */

        int value;
        int count = 0;

        qc_command(q, 27);      /* AutoAdjustOffset */
        qc_command(q, 0);       /* Dummy Parameter, ignored by the camera */

        /* GetOffset (33) will read 255 until autocalibration */
        /* is finished. After that, a value of 1-254 will be */
        /* returned. */

        do {
                qc_command(q, 33);
                value = qc_readparam(q);
                mdelay(1);
                schedule();
                count++;
        } while (value == 0xff && count < 2048);

        q->whitebal = value;
        return value;
}

static int init_bwqcam(struct parport *port)
{
        struct qcam *qcam;

        if (num_cams == MAX_CAMS) {
                printk(KERN_ERR "Too many Quickcams (max %d)\n", MAX_CAMS);
                return -ENOSPC;
        }

        qcam = qcam_init(port);
        if (qcam == NULL)
                return -ENODEV;

        parport_claim_or_block(qcam->pdev);

        qc_reset(qcam);

        if (qc_detect(qcam) == 0) {
                parport_release(qcam->pdev);
                parport_unregister_device(qcam->pdev);
                kfree(qcam);
                return -ENODEV;
        }
        qc_calibrate(qcam);
        v4l2_ctrl_handler_setup(&qcam->hdl);

        parport_release(qcam->pdev);

        v4l2_info(&qcam->v4l2_dev, "Connectix Quickcam on %s\n", qcam->pport->name);

        if (video_register_device(&qcam->vdev, VFL_TYPE_GRABBER, video_nr) < 0) {
                parport_unregister_device(qcam->pdev);
                kfree(qcam);
                return -ENODEV;
        }

        qcams[num_cams++] = qcam;

        return 0;
}

static void close_bwqcam(struct qcam *qcam)
{
        video_unregister_device(&qcam->vdev);
        v4l2_ctrl_handler_free(&qcam->hdl);
        parport_unregister_device(qcam->pdev);
        kfree(qcam);
}

/* The parport parameter controls which parports will be scanned.
 * Scanning all parports causes some printers to print a garbage page.
 *       -- March 14, 1999  Billy Donahue <billy@escape.com> */
#ifdef MODULE
static char *parport[MAX_CAMS] = { NULL, };
module_param_array(parport, charp, NULL, 0);
#endif

static int accept_bwqcam(struct parport *port)
{
#ifdef MODULE
        int n;

        if (parport[0] && strncmp(parport[0], "auto", 4) != 0) {
                /* user gave parport parameters */
                for (n = 0; n < MAX_CAMS && parport[n]; n++) {
                        char *ep;
                        unsigned long r;
                        r = simple_strtoul(parport[n], &ep, 0);
                        if (ep == parport[n]) {
                                printk(KERN_ERR
                                        "bw-qcam: bad port specifier \"%s\"\n",
                                        parport[n]);
                                continue;
                        }
                        if (r == port->number)
                                return 1;
                }
                return 0;
        }
#endif
        return 1;
}

static void bwqcam_attach(struct parport *port)
{
        if (accept_bwqcam(port))
                init_bwqcam(port);
}

static void bwqcam_detach(struct parport *port)
{
        int i;
        for (i = 0; i < num_cams; i++) {
                struct qcam *qcam = qcams[i];
                if (qcam && qcam->pdev->port == port) {
                        qcams[i] = NULL;
                        close_bwqcam(qcam);
                }
        }
}

static struct parport_driver bwqcam_driver = {
        .name   = "bw-qcam",
        .attach = bwqcam_attach,
        .detach = bwqcam_detach,
};

static void __exit exit_bw_qcams(void)
{
        parport_unregister_driver(&bwqcam_driver);
}

static int __init init_bw_qcams(void)
{
#ifdef MODULE
        /* Do some sanity checks on the module parameters. */
        if (maxpoll > 5000) {
                printk(KERN_INFO "Connectix Quickcam max-poll was above 5000. Using 5000.\n");
                maxpoll = 5000;
        }

        if (yieldlines < 1) {
                printk(KERN_INFO "Connectix Quickcam yieldlines was less than 1. Using 1.\n");
                yieldlines = 1;
        }
#endif
        return parport_register_driver(&bwqcam_driver);
}

module_init(init_bw_qcams);
module_exit(exit_bw_qcams);

MODULE_LICENSE("GPL");
MODULE_VERSION("0.0.3");