diff --git a/src/#ldeboot.c# b/src/#ldeboot.c# deleted file mode 100755 index 7f0965c..0000000 --- a/src/#ldeboot.c# +++ /dev/null @@ -1,290 +0,0 @@ -/* @(#) ldeboot.c Version 1.14 (9/6/95). copyright Venue & Fuji Xerox */ -static char *id = "@(#) ldeboot.c 1.14 9/6/95 (Venue & Fuji Xerox)"; - - - - - - -/************************************************************************/ -/* */ -/* (C) Copyright 1989-98 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" - - - -#if defined(sun) && !defined(OS5) -#define USESUNSCREEN -#else -#undef USESUNSCREEN -#endif - -#include -#include - -#include -#ifdef USESUNSCREEN -#ifdef OS5 -#include -#else -#include -#endif /* OS5 */ -#endif /* USESUNSCREEN */ - -#include -#include - -#ifdef XWINDOW -#ifndef SYSVONLY -#include -#endif /* SYSVONLY */ - -#include -#include -#include "XVersion.h" -#define LDEX "ldex" -extern char *getenv(); -#endif /* XWINDOW */ - - -#define LDEMONO "ldesingle" -#define LDECOLOR "ldemulti" -#define LDETRUECOLOR "ldetruecolor" - -#define FBTYPE_SUNFAST_COLOR 12 - -char filetorun[30]; - - - -/************************************************************************/ -/* */ -/* m a i n */ -/* */ -/* Kick-start program for the "Lisp Development Environment" (lde) */ -/* */ -/************************************************************************/ - -main(argc, argv) - int argc; char **argv; - { - char Earg[30], Ename[30], **newargv; - int i; -#ifdef USESUNSCREEN - struct fbtype my_screen; -#endif /* USESUNSCREEN */ - - - int FrameBufferFd; - -#ifdef USESUNSCREEN - struct fbinfo FB_info; - struct fbgattr FBattr; -#endif /* USESUNSCREEN */ - - - - /* Kickstart program for the Lisp Development Environment (LDE). - Display Device emulator - CG3, CG6 lde.multi - BW2, CG2, CG4, CG9 lde.single - - FB-TYPE REAL-TYPE - BW2 2 x - CG2 3 3 - CG3 8 6 - CG4 2 8 - CG6 8 12 - CG8 6 7 - CG9(GP1) 4 4 ;gpconfig -f -b - CG9(GP1) 2 13 ;gpconfig gpone0 -f -b cgtwo0 - ;We assume This config for GXP model - */ - -#ifdef XWINDOW - /* If X-Server exists on the host specified in -display option - or environment variable DISPLAY, ldex is started. Othewise - ldesingle or ldemulti. - */ - { - char *Display_Name = (char *)NULL ; - Display *Xdisplay = (Display *)NULL; - int i , option; - char *pos; - - for( i=1; i= 0) - { - if( FBattr.real_type == FBTYPE_SUN3COLOR || /* cg3 */ - FBattr.real_type == FBTYPE_SUNFAST_COLOR ) /* cg6 */ - { - strcpy(filetorun, LDECOLOR); - } - } - else - { /* if( ioctl... */ - perror("lde: This Display Model does not supported\n"); - exit( -1 ); - } - } - else if( my_screen.fb_type == FBTYPE_SUN2BW ) - { /* bw2, cg4 or cg9 */ - strcpy(filetorun, LDEMONO); - } - else if( my_screen.fb_type == FBTYPE_SUN3COLOR ) - { - if(ioctl(FrameBufferFd,FBIOGATTR,&FBattr) >= 0) - { - if( FBattr.real_type == FBTYPE_MEMCOLOR ) /* cg8 */ - { - strcpy(filetorun, LDETRUECOLOR); - } - } - else - { /* if( ioctl... */ - perror("lde: This Display Model does not supported\n"); - exit( -1 ); - } - - } - else if( my_screen.fb_type == FBTYPE_SUN2COLOR ) - { /* cg2 */ - strcpy(filetorun, LDEMONO); - } - else - { - perror("lde: This Display Model does not supported\n"); - exit (-1); - }; /* endif( my_screen... */ - - close(FrameBufferFd); - -#endif /* USESUNSCREEN */ - - - - -#ifdef FORKCOMM -/* JRB - call fork_Unix here, while we're REALLY small, unless -NF is - specified, of course... */ - for(i=0; i