github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 00:22:59 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.maiko/src/testdsp.c
Nick Briggs 5481a14812 Replace all K&R style function definitions with new-style function definitions. 
Add some missing default function result types (int).
Add some missing void result types where appropriate.

	modified:   src/Cldeetr.c
	modified:   src/atom.c
	modified:   src/bbtsub.c
	modified:   src/bitblt.c
	modified:   src/byteswap.c
	modified:   src/chardev.c
	modified:   src/chatter.c
	modified:   src/colorbltfns.c
	modified:   src/common.c
	modified:   src/dir.c
	modified:   src/dlpi.c
	modified:   src/doskbd.c
	modified:   src/dosmouse.c
	modified:   src/draw.c
	modified:   src/dsk.c
	modified:   src/dspsubrs.c
	modified:   src/ejlisp.c
	modified:   src/ether.c
	modified:   src/imagefile.c
	modified:   src/imagefile2.c
	modified:   src/inet.c
	modified:   src/initdsp.c
	modified:   src/initkbd.c
	modified:   src/kbdsubrs.c
	modified:   src/ldeboot.c
	modified:   src/llcolor.c
	modified:   src/llstk.c
	modified:   src/loader.c
	modified:   src/loopsops.c
	modified:   src/lpdual.c
	modified:   src/lpmain.c
	modified:   src/lpread.c
	modified:   src/lptran.c
	modified:   src/lpwrite.c
	modified:   src/main.c
	modified:   src/misc7.c
	modified:   src/mkatom.c
	modified:   src/mnwevent.c
	modified:   src/mnxmeth.c
	modified:   src/mouseif.c
	modified:   src/ocr.c
	modified:   src/ocrproc.c
	modified:   src/oether.c
	modified:   src/oldeether.c
	modified:   src/osmsg.c
	modified:   src/picture.c
	modified:   src/rawcolor.c
	modified:   src/rawrs232c.c
	modified:   src/rpc.c
	modified:   src/rs232c.c
	modified:   src/socdvr.c
	modified:   src/socket.c
	modified:   src/testdsp.c
	modified:   src/testtool.c
	modified:   src/timeoday.c
	modified:   src/timeofday.c
	modified:   src/timer.c
	modified:   src/truecolor.c
	modified:   src/tty.c
	modified:   src/ufn.c
	modified:   src/ufs.c
	modified:   src/unixcomm.c
	modified:   src/unixfork.c
	modified:   src/unwind.c
	modified:   src/uraid.c
	modified:   src/vesainit.c
	modified:   src/vgainit.c
	modified:   src/vmemsave.c
	modified:   src/xcursor.c
	modified:   src/xinit.c
	modified:   src/xlspwin.c
	modified:   src/xmkicon.c
	modified:   src/xrdopt.c
	modified:   src/xwinman.c
2017-06-22 17:31:40 -07:00

369 lines
11 KiB
C
Raw Blame History

/* $Id: testdsp.c,v 1.2 1999/01/03 02:07:36 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: testdsp.c,v 1.2 1999/01/03 02:07:36 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
/* Manufactured in the United States of America. */
/* */
/* The contents of this file are proprietary information */
/* belonging to Venue, and are provided to you under license. */
/* They may not be further distributed or disclosed to third */
/* parties without the specific permission of Venue. */
/* */
/************************************************************************/
#include "version.h"
#include <stdio.h>
#include <sunwindow/window_hs.h>
#include <sunwindow/cms.h>
#include <sys/ioctl.h>
#include <sys/mman.h>
#include <sunwindow/win_ioctl.h>
#include <pixrect/pixrect_hs.h>
#include <sun/fbio.h>
#include <sundev/kbd.h>
#include <sundev/kbio.h>
#include <sys/ioctl.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <pixrect/pr_planegroups.h>
/**************************************
#include "lispemul.h"
#include "lispmap.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "emlglob.h"
#include "display.h"
#include "devconf.h"
#include "bb.h"
#include "bitblt.h"
#include "pilotbbt.h"
#include "dbprint.h" ****/
struct screen LispScreen;
struct pixrect *CursorBitMap, *InvisibleCursorBitMap;
struct pixrect *SrcePixRect, *DestPixRect;
int LispWindowFd;
int FrameBufferFd;
int KeyboardFd;
int DisplayWidth, DisplayHeight, DisplayRasterWidth, DisplayType;
int DisplayByteSize;
short *DisplayRegion68k; /* 68k addr of #{}22,0 */
struct cursor CurrentCursor, InvisibleCursor;
struct winlock DisplayLockArea;
extern int errno;
/**************************************
extern DLword *EmCursorBitMap68K;
extern IFPAGE *InterfacePage;
int DebugDSP = T;
******************************************/
/************** provide below so can skip the include files *******/
#define BITSPER_DLWORD 16
#define SUN2BW 1
#define SUN4COLOR 2
#define CURSORWIDTH 16
#define CURSORHEIGHT 16
#define DBPRINT(X) printf X
/************** provide above so can skip the include files *******/
/* ================================================================ */
void init_display2(int display_addr, int display_max)
{
int mmapstat;
int ioctlresult;
char *texture_base, *malloc();
struct fbtype my_screen;
char groups[PIXPG_OVERLAY + 1];
struct fbgattr FBattr;
struct pixrect *ColorFb;
int mask, kbtype;
if ((LispWindowFd = win_screennew(&LispScreen)) == -1) {
perror("init_display: can't create LispWindow\n");
exit(-1);
} else {
#ifdef KBINT
int_io_open(LispWindowFd);
#endif
fcntl(LispWindowFd, F_SETFL, fcntl(LispWindowFd, F_GETFL, 0) | FNDELAY);
}
DisplayRegion68k = (short *)display_addr;
if ((FrameBufferFd = open(LispScreen.scr_fbname, 2)) == -1) {
perror("init_display: can't open FrameBuffer\n");
exit(-1);
}
if ((KeyboardFd = open(LispScreen.scr_kbdname, 2)) == -1) {
perror("init_display: can't open Keyboard\n");
exit(-1);
}
DBPRINT(("LispScreen.scr_kbdname %s\n", LispScreen.scr_kbdname));
DBPRINT(("LispScreen.scr_fbname %s\n", LispScreen.scr_fbname));
if (ioctl(KeyboardFd, KIOCTYPE, &kbtype) != 0) {
perror("ioctl(KIOCTYPE,..) fails");
} else {
DBPRINT(("ioctl(KIOCTYPE): %d\n", kbtype));
}
/* initialize Display parameters */
if (ioctl(FrameBufferFd, FBIOGTYPE, &my_screen) == -1) {
perror("init_display: can't find screen parameters\n");
exit(-1);
}
DisplayWidth = my_screen.fb_width;
DisplayHeight = my_screen.fb_height;
DisplayRasterWidth = DisplayWidth / BITSPER_DLWORD;
if ((DisplayWidth * DisplayHeight) > display_max) { DisplayHeight = display_max / DisplayWidth; }
DBPRINT(("FBIOGTYPE w x h = %d x %d\n", DisplayWidth, DisplayHeight));
DBPRINT((" type = %d\n", my_screen.fb_type));
DBPRINT((" bpp = %d\n", my_screen.fb_depth));
/** now attempt to use the FBIOGATTR call for more information **/
ioctlresult = ioctl(FrameBufferFd, FBIOGATTR, &FBattr);
if (ioctlresult >= 0) {
DBPRINT(("FBIOGATTR realtype = %d\n", FBattr.real_type));
DBPRINT((" (real) w x h = %d x %d\n", FBattr.fbtype.fb_width, FBattr.fbtype.fb_height));
DBPRINT((" (real) type = %d\n", FBattr.fbtype.fb_type));
DBPRINT((" (real) bpp = %d\n", FBattr.fbtype.fb_depth));
DBPRINT((" emuls = %d %d %d %d %d\n", FBattr.emu_types[0], FBattr.emu_types[1],
FBattr.emu_types[2], FBattr.emu_types[3], FBattr.emu_types[4]));
} else {
DBPRINT(("ioctl(fd,FBIOGATTR,&FBattr) => %d\n", ioctlresult));
}
ColorFb = pr_open("/dev/fb");
DBPRINT(("pixrect w, h, depth = %d %d %d\n", ColorFb->pr_size.x, ColorFb->pr_size.y,
ColorFb->pr_depth));
pr_getattributes(ColorFb, &mask);
DBPRINT((" getattrmask = %d\n", mask));
groups[0] = 0;
groups[1] = 0;
groups[2] = 0;
groups[3] = 0;
groups[4] = 0;
pr_available_plane_groups(ColorFb, sizeof(groups), groups);
DBPRINT(("plane groups = current: %d\n", groups[0]));
DBPRINT((" mono : %d\n", groups[1]));
DBPRINT((" 8bitcol: %d\n", groups[2]));
DBPRINT((" ovrlyen: %d\n", groups[3]));
DBPRINT((" ovrly : %d\n", groups[4]));
pr_available_plane_groups(ColorFb, sizeof(groups), groups);
/* try to clear enable plane if it exists */
if (groups[PIXPG_OVERLAY] && groups[PIXPG_OVERLAY_ENABLE]) {
pr_set_plane_group(ColorFb, PIXPG_OVERLAY_ENABLE);
pr_rop(ColorFb, 0, 0, ColorFb->pr_width, ColorFb->pr_height, PIX_SET, 0, 0, 0);
pr_set_plane_group(ColorFb, PIXPG_OVERLAY);
}
{
int currgroup;
currgroup = pr_get_plane_group(ColorFb);
DBPRINT(("current planegroup: %d, unknown: %d\n", currgroup, currgroup == PIXPG_CURRENT));
}
/* ================================================================ */
#ifdef NOTUSED
if (my_screen.fb_type == FBTYPE_SUN2BW) {
if (ioctlresult) >= 0) {
if (FBattr.real_type == FBTYPE_SUN4COLOR) {
/* must be color display cgfour */
/* we've already gotten the plane groups from above */
if (groups[PIXPG_OVERLAY] && groups[PIXPG_OVERLAY_ENABLE]) {
pr_set_plane_group(ColorFb, PIXPG_OVERLAY_ENABLE);
pr_rop(ColorFb, 0, 0, ColorFb->pr_width, ColorFb->pr_height, PIX_SET, 0, 0, 0);
pr_set_plane_group(ColorFb, PIXPG_OVERLAY);
}
} else { /* not cgfour */
printf("initdisplay: Unsupported FBTYPE %d\n", FBattr.real_type);
}
} /* if ioctlresult...... */
} /* if ...FBTYPE_SUN2BW end */
#endif
/* ================================================================ */
DisplayLockArea.wl_rect.r_width = DisplayWidth;
DisplayLockArea.wl_rect.r_height = DisplayHeight;
init_cursor();
DisplayByteSize = ((DisplayWidth * DisplayHeight / 8 + (getpagesize() - 1)) & -getpagesize());
DBPRINT(("Display Addr: 0x%x\n", DisplayRegion68k));
DBPRINT(("length: 0x%x\n", DisplayByteSize));
DBPRINT(("page size: 0x%x\n", getpagesize()));
mmapstat = (int)mmap(DisplayRegion68k, DisplayByteSize, PROT_READ | PROT_WRITE,
#ifdef OS4
MAP_FIXED |
#endif
MAP_SHARED,
FrameBufferFd, 0);
DBPRINT(("after mmap: 0x%x\n", mmapstat));
if (mmapstat == -1) {
perror("init_display: ERROR at mmap system call\n");
exit(0);
}
DBPRINT(("before clear display()\n"));
clear_display();
DBPRINT(("after clear_display()\n"));
/* initialize pixrects used in pilotbitblt (internal will change) */
SrcePixRect = mem_point(0, 0, 1, NULL);
DestPixRect = mem_point(0, 0, 1, NULL);
DBPRINT(("before set_cursor\n"));
}
/* ================================================================ */
init_cursor() {
CursorBitMap = mem_create(CURSORWIDTH, CURSORHEIGHT, 1);
mpr_mdlinebytes(CursorBitMap) = CURSORWIDTH >> 3; /* 2(byte) */
CurrentCursor.cur_xhot = 0;
CurrentCursor.cur_yhot = 0;
CurrentCursor.cur_shape = CursorBitMap;
CurrentCursor.cur_function = PIX_SRC | PIX_DST;
/* Invisible Cursor */
InvisibleCursorBitMap = mem_create(0, 0, 1);
InvisibleCursor.cur_xhot = 0;
InvisibleCursor.cur_yhot = 0;
InvisibleCursor.cur_shape = InvisibleCursorBitMap;
InvisibleCursor.cur_function = /*PIX_SRC |*/ PIX_DST;
win_setcursor(LispWindowFd, &InvisibleCursor);
win_setmouseposition(LispWindowFd, 0, 0);
}
/* ================================================================ */
display_before_exit() {
clear_display();
win_screendestroy(LispWindowFd);
#ifdef KBINT
int_io_close(LispWindowFd);
#endif
close(LispWindowFd);
}
/* ================================================================ */
clear_display() {
register short *word;
register int w, h;
word = DisplayRegion68k;
for (h = DisplayHeight; (h--);) {
for (w = DisplayRasterWidth; (w--);) { *word++ = 0; }
}
}
/* ================================================================ */
paint_display() {
register short *word;
register int w, h;
word = DisplayRegion68k;
for (h = DisplayHeight; (h--);) {
for (w = DisplayRasterWidth; (w--);) { *word++ = w; }
}
}
/* ================================================================ */
#define BYTESPER_PAGE 512
read_datum(char *lispworld)
{
int srcefile; /* fd */
int i, j, sysout_size;
int lispworld_offset;
struct stat stat_buf;
char *charptr;
int readresult;
char bigbuff[BYTESPER_PAGE];
srcefile = open("fake.sysout", O_RDONLY, NULL);
/* get sysout file size in halfpage(256) */
if (fstat(srcefile, &stat_buf) == -1) {
perror("read_datum: can't get srcefile size (fstat fails)");
exit(-1);
}
sysout_size = stat_buf.st_size / BYTESPER_PAGE * 2;
DBPRINT(("file size = %d\n", stat_buf.st_size));
DBPRINT(("sysout size / 2 = 0x%x\n", sysout_size / 2));
lispworld_offset = 0;
for (i = 0; i < (sysout_size / 2); i++) {
lispworld_offset += BYTESPER_PAGE;
charptr = (char *)lispworld + lispworld_offset;
#ifdef BUFFER
readresult = read(srcefile, bigbuff, BYTESPER_PAGE);
for (j = 0; j < BYTESPER_PAGE; j++) { *(charptr + j) = bigbuff[j]; }
#else
readresult = read(srcefile, charptr, BYTESPER_PAGE);
#endif
if (readresult == -1) {
printf("read_datum: can't read srcefile file at %d\n", i);
perror("read() error was");
exit(-1);
};
};
DBPRINT(("srcefile is read completely\n"));
close(srcefile);
}
/* ================================================================ */
int_io_open(){}; /* stubs for other parts of our prog. */
int_io_close(){}; /* stubs for other parts of our prog. */
main() {
int maxdisplayregion; /* in what units? */
int realaddr;
realaddr = valloc(5000000);
if (realaddr == 0) {
printf("valloc returns 0\n");
} else {
maxdisplayregion = 4000000; /* assume 4Mb display reg. */
init_display2(realaddr, maxdisplayregion);
paint_display();
sleep(4);
DBPRINT(("before read_datum\n"));
read_datum(realaddr);
sleep(4);
display_before_exit();
}
}
Reference in New Issue View Git Blame Copy Permalink