Subversion Repositories HelenOS-historic

/*

 * Copyright (C) 2006 Jakub Vana

 * Copyright (C) 2006 Ondrej Palkovsky

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 *

 * - Redistributions of source code must retain the above copyright

 *   notice, this list of conditions and the following disclaimer.

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

 * - The name of the author may not be used to endorse or promote products

 *   derived from this software without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 THE AUTHOR 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.

 */

#include <stdio.h>

#include <stdlib.h>

#include <unistd.h>

#include <string.h>

#include <ddi.h>

#include <task.h>

#include <sysinfo.h>

#include <align.h>

#include <as.h>

#include <ipc/fb.h>

#include <ipc/ipc.h>

#include <ipc/ns.h>

#include <ipc/services.h>

#include <kernel/errno.h>

#include <async.h>

#include "font-8x16.h"

#include "helenos.xbm"

#include "fb.h"

#define DEFAULT_BGCOLOR                0x000080

#define DEFAULT_FGCOLOR                0xffff00

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

/* Pixel specific fuctions */

typedef void (*putpixel_fn_t)(unsigned int x, unsigned int y, int color);

typedef int (*getpixel_fn_t)(unsigned int x, unsigned int y);

struct {

    __u8 *fbaddress ;

    unsigned int xres ;

    unsigned int yres ;

    unsigned int scanline ;

    unsigned int pixelbytes ;

    putpixel_fn_t putpixel;

    getpixel_fn_t getpixel;

} screen;

typedef struct {

    int initialized;

    unsigned int x, y;

    unsigned int width, height;

    /* Text support in window */

    unsigned int rows, cols;

    /* Style for text printing */

    int bgcolor, fgcolor;

    /* Auto-cursor position */

    int cursor_active, cur_x, cur_y;

} viewport_t;

#define MAX_VIEWPORTS 128

static viewport_t viewports[128];

/* Allow only 1 connection */

static int client_connected = 0;

#define RED(x, bits)    ((x >> (16 + 8 - bits)) & ((1 << bits) - 1))

#define GREEN(x, bits)  ((x >> (8 + 8 - bits)) & ((1 << bits) - 1))

#define BLUE(x, bits)   ((x >> (8 - bits)) & ((1 << bits) - 1))

#define COL_WIDTH   8

#define ROW_BYTES   (screen.scanline * FONT_SCANLINES)

#define POINTPOS(x, y)  ((y) * screen.scanline + (x) * screen.pixelbytes)

/** Put pixel - 24-bit depth, 1 free byte */

static void putpixel_4byte(unsigned int x, unsigned int y, int color)

{

    *((__u32 *)(screen.fbaddress + POINTPOS(x, y))) = color;

}

/** Return pixel color - 24-bit depth, 1 free byte */

static int getpixel_4byte(unsigned int x, unsigned int y)

{

    return *((__u32 *)(screen.fbaddress + POINTPOS(x, y))) & 0xffffff;

}

/** Put pixel - 24-bit depth */

static void putpixel_3byte(unsigned int x, unsigned int y, int color)

{

    unsigned int startbyte = POINTPOS(x, y);

#if (defined(BIG_ENDIAN) || defined(FB_BIG_ENDIAN))

    screen.fbaddress[startbyte] = RED(color, 8);

    screen.fbaddress[startbyte + 1] = GREEN(color, 8);

    screen.fbaddress[startbyte + 2] = BLUE(color, 8);

#else

    screen.fbaddress[startbyte + 2] = RED(color, 8);

    screen.fbaddress[startbyte + 1] = GREEN(color, 8);

    screen.fbaddress[startbyte + 0] = BLUE(color, 8);

#endif

}

/** Return pixel color - 24-bit depth */

static int getpixel_3byte(unsigned int x, unsigned int y)

{

    unsigned int startbyte = POINTPOS(x, y);

#if (defined(BIG_ENDIAN) || defined(FB_BIG_ENDIAN))

    return screen.fbaddress[startbyte] << 16 | screen.fbaddress[startbyte + 1] << 8 | screen.fbaddress[startbyte + 2];

#else

    return screen.fbaddress[startbyte + 2] << 16 | screen.fbaddress[startbyte + 1] << 8 | screen.fbaddress[startbyte + 0];

#endif

}

/** Put pixel - 16-bit depth (5:6:5) */

static void putpixel_2byte(unsigned int x, unsigned int y, int color)

{

    /* 5-bit, 6-bits, 5-bits */

    *((__u16 *)(screen.fbaddress + POINTPOS(x, y))) = RED(color, 5) << 11 | GREEN(color, 6) << 5 | BLUE(color, 5);

}

/** Return pixel color - 16-bit depth (5:6:5) */

static int getpixel_2byte(unsigned int x, unsigned int y)

{

    int color = *((__u16 *)(screen.fbaddress + POINTPOS(x, y)));

    return (((color >> 11) & 0x1f) << (16 + 3)) | (((color >> 5) & 0x3f) << (8 + 2)) | ((color & 0x1f) << 3);

}

/** Put pixel - 8-bit depth (3:2:3) */

static void putpixel_1byte(unsigned int x, unsigned int y, int color)

{

    screen.fbaddress[POINTPOS(x, y)] = RED(color, 3) << 5 | GREEN(color, 2) << 3 | BLUE(color, 3);

}

/** Return pixel color - 8-bit depth (3:2:3) */

static int getpixel_1byte(unsigned int x, unsigned int y)

{

    int color = screen.fbaddress[POINTPOS(x, y)];

    return (((color >> 5) & 0x7) << (16 + 5)) | (((color >> 3) & 0x3) << (8 + 6)) | ((color & 0x7) << 5);

}

static void putpixel(int vp, unsigned int x, unsigned int y, int color)

{

    screen.putpixel(viewports[vp].x + x, viewports[vp].y + y, color);

}

static int getpixel(int vp, unsigned int x, unsigned int y)

{

    return screen.getpixel(viewports[vp].x + x, viewports[vp].y + y);

}

/** Fill line with color BGCOLOR */

static void clear_line(int vp, unsigned int y)

{

    unsigned int x;

    for (x = 0; x < viewports[vp].width; x++)

        putpixel(vp, x, y, viewports[vp].bgcolor);

}

/** Fill viewport with background color */

static void clear_port(int vp)

{

    unsigned int y;

    clear_line(vp, 0);

    for (y = viewports[vp].y+1; y < viewports[vp].y+viewports[vp].height; y++) {

        memcpy(&screen.fbaddress[POINTPOS(viewports[vp].x,y)],

               &screen.fbaddress[POINTPOS(viewports[vp].x,viewports[vp].y)],

               screen.pixelbytes * viewports[vp].width);

    }  

}

/** Optimized scroll for windows that cover whole lines */

//static void scroll_optim(int vp, int rows)

//{

    /* TODO */

//}

/** Scroll port up/down

 *

 * @param vp Viewport to scroll

 * @param rows Positive number - scroll up, negative - scroll down

 */

static void scroll_port(int vp, int rows)

{

    int y;

    int startline;

    int endline;

    if (rows > 0) {

        for (y=viewports[vp].y; y < viewports[vp].y+viewports[vp].height - rows*FONT_SCANLINES; y++)

            memcpy(&screen.fbaddress[POINTPOS(viewports[vp].x,y)],

                   &screen.fbaddress[POINTPOS(viewports[vp].x,y + rows*FONT_SCANLINES)],

                   screen.pixelbytes * viewports[vp].width);

        /* Clear last row */

        startline = viewports[vp].y+FONT_SCANLINES*(viewports[vp].rows-1);

        endline = viewports[vp].y + viewports[vp].height;

        clear_line(vp, startline);

        for (y=startline+1;y < endline; y++)

            memcpy(&screen.fbaddress[POINTPOS(viewports[vp].x,y)],

                   &screen.fbaddress[POINTPOS(viewports[vp].x,startline)],

                   screen.pixelbytes * viewports[vp].width);

    } else if (rows < 0) {

        rows = -rows;

        for (y=viewports[vp].y + viewports[vp].height-1; y >= viewports[vp].y + rows*FONT_SCANLINES; y--)

            memcpy(&screen.fbaddress[POINTPOS(viewports[vp].x,y)],

                &screen.fbaddress[POINTPOS(viewports[vp].x,y - rows*FONT_SCANLINES)],

                screen.pixelbytes * viewports[vp].width);

        /* Clear first row */

        clear_line(0, viewports[vp].bgcolor);

        for (y=1;y < rows*FONT_SCANLINES; y++)

            memcpy(&screen.fbaddress[POINTPOS(viewports[vp].x,viewports[vp].y+y)],

                   &screen.fbaddress[POINTPOS(viewports[vp].x,viewports[vp].y)],

                   screen.pixelbytes * viewports[vp].width);

    }

}

static void invert_pixel(int vp,unsigned int x, unsigned int y)

{

    putpixel(vp, x, y, ~getpixel(vp, x, y));

}

/** Draw one line of glyph at a given position */

static void draw_glyph_line(int vp,unsigned int glline, unsigned int x, unsigned int y)

{

    unsigned int i;

    for (i = 0; i < 8; i++)

        if (glline & (1 << (7 - i))) {

            putpixel(vp, x + i, y, viewports[vp].fgcolor);

        } else

            putpixel(vp, x + i, y, viewports[vp].bgcolor);

}

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

/* Character-console functions */

/** Draw character at given position */

static void draw_glyph(int vp,__u8 glyph, unsigned int row, unsigned int col)

{

    unsigned int y;

    for (y = 0; y < FONT_SCANLINES; y++)

        draw_glyph_line(vp ,fb_font[glyph * FONT_SCANLINES + y], col * COL_WIDTH, row * FONT_SCANLINES + y);

}

/** Invert character at given position */

static void invert_char(int vp,unsigned int col, unsigned int row)

{

    unsigned int x;

    unsigned int y;

    for (x = 0; x < COL_WIDTH; x++)

        for (y = 0; y < FONT_SCANLINES; y++)

            invert_pixel(vp, col * COL_WIDTH + x, row * FONT_SCANLINES + y);

}

static void draw_logo(int vp,unsigned int startx, unsigned int starty)

{

    unsigned int x;

    unsigned int y;

    unsigned int byte;

    unsigned int rowbytes;

    rowbytes = (helenos_width - 1) / 8 + 1;

    for (y = 0; y < helenos_height; y++)

        for (x = 0; x < helenos_width; x++) {

            byte = helenos_bits[rowbytes * y + x / 8];

            byte >>= x % 8;

            if (byte & 1)

                putpixel(vp ,startx + x, starty + y, viewports[vp].fgcolor);

        }

}

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

/* Stdout specific functions */

/** Create new viewport

 *

 * @return New viewport number

 */

static int viewport_create(unsigned int x, unsigned int y,unsigned int width,

               unsigned int height)

{

    int i;

    for (i=0; i < MAX_VIEWPORTS; i++) {

        if (!viewports[i].initialized)

            break;

    }

    if (i == MAX_VIEWPORTS)

        return ELIMIT;

    viewports[i].initialized = 1;

    viewports[i].x = x;

    viewports[i].y = y;

    viewports[i].width = width;

    viewports[i].height = height;

    viewports[i].rows = height / FONT_SCANLINES;

    viewports[i].cols = width / COL_WIDTH;

    viewports[i].bgcolor = DEFAULT_BGCOLOR;

    viewports[i].fgcolor = DEFAULT_FGCOLOR;

    return i;

}

/** Initialize framebuffer as a chardev output device

 *

 * @param addr Address of theframebuffer

 * @param x    Screen width in pixels

 * @param y    Screen height in pixels

 * @param bpp  Bits per pixel (8, 16, 24, 32)

 * @param scan Bytes per one scanline

 *

 */

static void screen_init(__address addr, unsigned int xres, unsigned int yres, unsigned int bpp, unsigned int scan)

{

    switch (bpp) {

        case 8:

            screen.putpixel = putpixel_1byte;

            screen.getpixel = getpixel_1byte;

            screen.pixelbytes = 1;

            break;

        case 16:

            screen.putpixel = putpixel_2byte;

            screen.getpixel = getpixel_2byte;

            screen.pixelbytes = 2;

            break;

        case 24:

            screen.putpixel = putpixel_3byte;

            screen.getpixel = getpixel_3byte;

            screen.pixelbytes = 3;

            break;

        case 32:

            screen.putpixel = putpixel_4byte;

            screen.getpixel = getpixel_4byte;

            screen.pixelbytes = 4;

            break;

    }

    screen.fbaddress = (unsigned char *) addr;

    screen.xres = xres;

    screen.yres = yres;

    screen.scanline = scan;

    /* Create first viewport */

    viewport_create(0,0,xres,yres);

    clear_port(0);

}

static int init_fb(void)

{

    __address fb_ph_addr;

    unsigned int fb_width;

    unsigned int fb_height;

    unsigned int fb_bpp;

    unsigned int fb_scanline;

    __address fb_addr;

    int a=0;

    int i,j,k;

    int w;

    char text[]="HelenOS Framebuffer driver\non Virtual Framebuffer\nVFB ";

    fb_ph_addr=sysinfo_value("fb.address.physical");

    fb_width=sysinfo_value("fb.width");

    fb_height=sysinfo_value("fb.height");

    fb_bpp=sysinfo_value("fb.bpp");

    fb_scanline=sysinfo_value("fb.scanline");

    fb_addr=ALIGN_UP(((__address)set_maxheapsize(USER_ADDRESS_SPACE_SIZE_ARCH>>1)),PAGE_SIZE);

    map_physmem(task_get_id(),(void *)((__address)fb_ph_addr),(void *)fb_addr,

            (fb_scanline*fb_height+PAGE_SIZE-1)>>PAGE_WIDTH,

            AS_AREA_READ | AS_AREA_WRITE | AS_AREA_CACHEABLE);

    screen_init(fb_addr, fb_width, fb_height, fb_bpp, fb_scanline);

    return 0;

}

void client_connection(ipc_callid_t iid, ipc_call_t *icall)

{

    ipc_callid_t callid;

    ipc_call_t call;

    int retval;

    int i;

    unsigned int row,col;

    char c;

    int vp = 0;

    if (client_connected) {

        ipc_answer_fast(iid, ELIMIT, 0,0);

        return;

    }

    ipc_answer_fast(iid, 0, 0, 0); /* Accept connection */

    while (1) {

        callid = async_get_call(&call);

        switch (IPC_GET_METHOD(call)) {

        case IPC_M_PHONE_HUNGUP:

            client_connected = 0;

            /* cleanup other viewports */

            for (i=1; i < MAX_VIEWPORTS; i++)

                viewports[i].initialized = 0;

            ipc_answer_fast(callid,0,0,0);

            return; /* Exit thread */

        case FB_PUTCHAR:

            c = IPC_GET_ARG1(call);

            row = IPC_GET_ARG2(call);

            col = IPC_GET_ARG3(call);

            if (row >= viewports[vp].rows || col >= viewports[vp].cols) {

                retval = EINVAL;

                break;

            }

            ipc_answer_fast(callid,0,0,0);

            draw_glyph(vp,c, row, col);

            continue; /* msg already answered */

        case FB_CLEAR:

            clear_port(vp);

            retval = 0;

            break;

/*      case FB_CURSOR_GOTO: */

/*          retval = 0; */

/*          break; */

/*      case FB_CURSOR_VISIBILITY: */

/*          retval = 0; */

/*          break; */

        case FB_GET_CSIZE:

            ipc_answer_fast(callid, 0, viewports[vp].rows, viewports[vp].cols);

            continue;

        default:

            retval = ENOENT;

        }

        retval = ENOENT;

        ipc_answer_fast(callid,retval,0,0);

    }

}

int main(int argc, char *argv[])

{

    char connected = 0;

    int res;

    ipcarg_t phonead;

    if(!sysinfo_value("fb"))

        return -1;

    if ((res = ipc_connect_to_me(PHONE_NS, SERVICE_VIDEO, 0, &phonead)) != 0)

        return -1;

    if (init_fb() != 0)

        return -1;

    async_manager();

    /* Never reached */

    return 0;

}