Author: wmb
Date: 2008-01-03 00:30:27 +0100 (Thu, 03 Jan 2008)
New Revision: 763
Modified:
forth/wrapper/logger.c
forth/wrapper/wrapper.c
Log:
This goes with svn 761 - I missed a couple of files in the checkin list.
Modified: forth/wrapper/logger.c
===================================================================
--- forth/wrapper/logger.c 2008-01-02 23:29:23 UTC (rev 762)
+++ forth/wrapper/logger.c 2008-01-02 23:30:27 UTC (rev 763)
@@ -227,7 +227,7 @@
#endif
char cwdbuf[MAXPATHLEN*2];
-#ifdef UNIX
+#ifdef __unix__
#ifdef MAJC
char *hostname = "some_MAJC_machine";
#else
@@ -235,17 +235,21 @@
(void) gethostname(hostname, 64);
#endif
#endif
+
#ifdef DOS
char *hostname = "some_NT_machine";
#endif
+
#ifdef WIN32
char hostname[MAX_COMPUTERNAME_LENGTH+1];
long hostnamelen = MAX_COMPUTERNAME_LENGTH+1;
(void) GetComputerName(hostname, &hostnamelen);
#endif
+
#ifdef MACOS
char *hostname = "some_Macintosh";
#endif
+
#ifdef USE_STDIO
char *hostname = "some_machine";
#endif
Modified: forth/wrapper/wrapper.c
===================================================================
--- forth/wrapper/wrapper.c 2008-01-02 23:29:23 UTC (rev 762)
+++ forth/wrapper/wrapper.c 2008-01-02 23:30:27 UTC (rev 763)
@@ -55,29 +55,11 @@
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
-#ifdef UNIX
-#include <sys/mman.h>
-#include <sys/mman.h>
-#include <limits.h> /* for PAGESIZE */
-#ifndef PAGESIZE
-#define PAGESIZE 4096
+
+#ifdef __linux__
+char *host_os = "Linux";
+#define SYS5 1
#endif
-#ifdef MAJC
-#include <sys/unistd.h>
-#else
-#define HAVE_PSIGNAL
-#include <unistd.h>
-#endif
-#include <sys/param.h>
-#endif
-#ifdef MACOS
-#include <events.h>
-#include <files.h>
-#include <console.h>
-#endif
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
#ifdef WIN32
#define ENV_DELIM ';'
@@ -153,21 +135,12 @@
#define HOST_LITTLE_ENDIAN
#endif
-#ifdef __linux__
-char *host_os = "Linux";
-#define SYS5 1
#ifdef HOSTPOWERPC
-#define LinuxPOWERPC
char *host_cpu = "powerpc";
-#else
-# ifdef __i386__
-# ifndef CKERNEL
-# define LinuxX86
-# define HOST_LITTLE_ENDIAN
-# endif
+# ifdef __linux__
+# define LinuxPOWERPC
# endif
#endif
-#endif
#ifdef NT
char *host_os = "nt";
@@ -202,8 +175,14 @@
#define START_OFFSET 4
#endif
-#ifdef X86
+#ifdef __i386__
char *host_cpu = "x86";
+# ifndef CKERNEL
+# define HOST_LITTLE_ENDIAN
+# endif
+#endif
+
+#ifdef TARGET_X86
char *target_cpu = "x86";
#define CPU_MAGIC 0x4d503400
#define START_OFFSET 0
@@ -220,95 +199,121 @@
#include <errno.h>
+#ifdef __unix__
+# include <sys/mman.h>
+# include <sys/mman.h>
+# include <limits.h> /* for PAGESIZE */
+# ifndef PAGESIZE
+# define PAGESIZE 4096
+# endif
+# ifdef MAJC
+# include <sys/unistd.h>
+# else
+# define HAVE_PSIGNAL
+# include <unistd.h>
+# endif
+# include <sys/param.h>
+#endif
+
+#ifdef MACOS
+# include <events.h>
+# include <files.h>
+# include <console.h>
+#endif
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+
typedef long quadlet;
#ifdef WIN32
-#include <windows.h>
+# include <windows.h>
#endif
#ifdef BSD
-#include <sys/time.h>
-#include <sys/ioctl.h> /* For FIONREAD */
+# include <sys/time.h>
+# include <sys/ioctl.h> /* For FIONREAD */
#endif
#ifdef SYS5
-#define USE_TERMIOS
+# define USE_TERMIOS
#endif
#ifdef BSD
-#define USE_TERMIOS
+# define USE_TERMIOS
#endif
#ifdef DEMON
-#define USE_STDIO
+# define USE_STDIO
#endif
#ifdef USE_STDIO
-#include <stdio.h>
+# include <stdio.h>
#endif
/* fcntl.h will define this if the system needs it; otherwise we use 0 */
#ifndef _O_BINARY
-#ifdef O_BINARY
-#define _O_BINARY O_BINARY
-#else
-#define _O_BINARY 0
+# ifdef O_BINARY
+# define _O_BINARY O_BINARY
+# else
+# define _O_BINARY 0
+# endif
#endif
-#endif
#ifndef MAXPATHLEN
-#define MAXPATHLEN 256
+# define MAXPATHLEN 256
#endif
#include <signal.h>
#ifdef TARGET_POWERPC
-#ifdef LinuxPOWERPC
-#define NOGLUE
-#else
-extern void glue();
+# ifdef LinuxPOWERPC
+# define NOGLUE
+# else
+ extern void glue();
+# endif
#endif
-#endif
#ifdef AIX
-extern void _sync_cache_range(char *, long);
+ extern void _sync_cache_range(char *, long);
#endif
-#ifdef UNIX
-INTERNAL void exit_handler();
+#ifdef __unix__
+ INTERNAL void exit_handler();
# ifdef BSD
-INTERNAL void cont_handler();
-INTERNAL void stop_handler();
+ INTERNAL void cont_handler();
+ INTERNAL void stop_handler();
# endif
#endif
#ifdef WIN32
-#define isatty _isatty
-#define kbhit _kbhit
-#define getch _getch
-#define open _open
-#define close _close
-#define read _read
-#define write _write
-#define lseek _lseek
-#define unlink _unlink
-#define access _access
-#define stat _stat
-#define getcwd _getcwd
-#define chdir _chdir
+# define isatty _isatty
+# define kbhit _kbhit
+# define getch _getch
+# define open _open
+# define close _close
+# define read _read
+# define write _write
+# define lseek _lseek
+# define unlink _unlink
+# define access _access
+# define stat _stat
+# define getcwd _getcwd
+# define chdir _chdir
-INTERNAL int getnum(char *);
-INTERNAL void error(char *, char*);
+ INTERNAL int getnum(char *);
+ INTERNAL void error(char *, char*);
#else
-INTERNAL void error();
+ INTERNAL void error();
#endif
extern char *rootname();
extern char *basename();
#ifndef LinuxPOWERPC
-extern int read(), write();
+ extern int read(), write();
#endif
INTERNAL char * substr();
@@ -322,13 +327,14 @@
INTERNAL long f_ioctl();
INTERNAL long f_lseek();
INTERNAL long f_crstr();
+
#ifdef PPCSIM
-/* These are not INTERNAL because the PowerPC simulator uses then */
+ /* These are not INTERNAL because the PowerPC simulator uses then */
long c_key();
long s_bye();
#else
-INTERNAL long c_key();
-INTERNAL long s_bye();
+ INTERNAL long c_key();
+ INTERNAL long s_bye();
#endif
INTERNAL long c_emit();
@@ -378,15 +384,16 @@
#ifdef JTAG
#include "jtag.h"
#endif
+
#if defined (BSD) || defined (__linux__)
INTERNAL long s_timeofday();
#endif
+
#if defined(USE_TERMIOS)
INTERNAL long c_setraw(), c_setbaud(), c_setparity(), c_setattr();
INTERNAL long c_getattr(), c_drain();
#endif
-
long
nop()
{
@@ -442,7 +449,7 @@
pathname,
/* 156 */
-#ifdef UNIX
+#ifdef __unix__
m_sbrk,
#else
nop,
@@ -470,6 +477,7 @@
f_mkdir, f_rmdir,
/* 200 */
s_getwd0,
+
#ifdef WIN32
#include "win32fun.c"
#include "jtagfun.c"
@@ -477,18 +485,21 @@
/* Windows socket stuff 204 .. 264 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
#endif
+
#ifdef JTAG
#include "jtagfun.c"
#else
/* 268 .. 344 */
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
#endif
+
#if defined(BSD) || defined(__linux__)
/* 348 */
s_timeofday,
#else
0,
#endif
+
#if defined(USE_TERMIOS)
/* 352 356 360 364 368 372*/
c_setraw, c_setbaud, c_setparity, c_getattr, c_setattr, c_drain,
@@ -536,7 +547,7 @@
* failed system call.
*/
-#ifdef X86
+#ifdef TARGET_X86
void
fsyscall(long callno, long *args)
{
@@ -611,7 +622,7 @@
}
#endif
-#ifdef X86
+#ifdef TARGET_X86
int bittest(char *table, int index)
{
int quot, remain ;
@@ -774,7 +785,7 @@
int extrak;
char * dictfile;
char *targv[10];
-#ifdef X86
+#ifdef TARGET_X86
char *reloc_table ;
int delta_org, old_org, code_size ;
int code_wsize, cold_code, i ;
@@ -860,7 +871,7 @@
exit(1);
}
-#ifdef X86
+#ifdef TARGET_X86
/*
* XXX we should do an additional test to verify that it's
* really a Forthmacs dictionary file and not just some other
@@ -988,7 +999,7 @@
keymode();
-#ifdef UNIX
+#ifdef __unix__
signal(SIGHUP,exit_handler);
signal(SIGINT,exit_handler);
signal(SIGILL,exit_handler);
@@ -1018,7 +1029,7 @@
argc, argv, 1 /* 0=POWER, 1=PowerPC */);
#else
s_flushcache(loadaddr, dictsize); /* We're about to execute data! */
-# ifdef X86
+# ifdef TARGET_X86
{
int (*codep)();
/* There is a pointer to the startup code at offset 0x18 */
@@ -1146,7 +1157,7 @@
s_bye(0L);
} else {
restoremode();
-#ifdef UNIX
+#ifdef __unix__
kill(0,SIGQUIT);
#endif
}
@@ -1173,13 +1184,13 @@
}
#endif
-#ifdef LinuxX86
+#if defined(__linux__) && defined(__i386__)
#include <sys/io.h>
#endif
INTERNAL long
s_ioperm(unsigned long from, unsigned long num, unsigned long on)
{
-#ifdef LinuxX86
+#if defined(__linux__) && defined(__i386__)
return (long)ioperm(from, num, (int)on);
#else
return -1L;
@@ -1205,7 +1216,7 @@
int nchars = 0;
fflush(stdout);
-# ifdef UNIX
+# ifdef __unix__
# ifdef SYS5
# ifdef __linux__
no_waitchar (0);
@@ -1703,7 +1714,7 @@
INTERNAL long
syserror()
{
-#ifndef UNIX
+#ifndef __unix__
extern int errno;
#endif
@@ -1716,7 +1727,7 @@
pr_error(errnum)
long errnum;
{
-#ifndef UNIX
+#ifndef __unix__
extern int errno;
#endif
@@ -1792,7 +1803,7 @@
output_fd = result;
}
#else
-#ifdef UNIX
+#ifdef __unix__
result = open(expand_name(name), O_RDWR|O_CREAT|O_TRUNC, (int)mode);
#else
result = open(expand_name(name), _O_BINARY|O_RDWR|O_CREAT|O_TRUNC, (int)mode);
@@ -1905,7 +1916,7 @@
long fd, code;
char *buf;
{
-#ifdef UNIX
+#ifdef __unix__
return((long)ioctl((int)fd, (int)code, buf));
#else
return((long)-1);
@@ -2160,7 +2171,7 @@
return((long)mem);
}
-#ifdef UNIX
+#ifdef __unix__
INTERNAL long
m_sbrk(size)
long size;