andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Grand indent: prepare.

This commit is contained in:
Jan Nieuwenhuizen 2019-02-11 00:07:32 +01:00
parent 615a4a1d22
commit dac4283f7d
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
15 changed files with 67 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/fcntl.h
View File

@ -29,6 +29,7 @@
#else // ! WITH_GLIBC
// *INDENT-OFF*
#define O_RDONLY 0
#define O_WRONLY 1
#define O_RDWR 2
@ -37,6 +38,7 @@
#define O_TRUNC 0x200
#define O_APPEND 0x400
#define O_DIRECTORY 0x10000
// *INDENT-ON*
#define FD_CLOEXEC 1

3
include/locale.h
View File

@ -29,12 +29,15 @@
#else // ! WITH_GLIBC
// *INDENT-OFF*
#ifndef LC_ALL
#define LC_CTYPE 0
#define LC_NUMERIC 1
#define LC_COLLATE 3
#define LC_ALL 6
#endif
// *INDENT-ON*
char * setlocale (int category, char const *locale);
#endif // ! WITH_GLIBC

50
include/signal.h
View File

@ -31,6 +31,7 @@ typedef long stack_t;
#include <sys/types.h>
// *INDENT-OFF*
#define NSIG 30
#define SIGHUP 1
#define SIGINT 2
@ -85,35 +86,34 @@ typedef long stack_t;
#define SA_NOMASK SA_NODEFER
#define SA_ONESHOT SA_RESETHAND
typedef struct siginfo_t
{
int si_signo;
int si_errno;
int si_code;
int si_trapno;
pid_t si_pid;
uid_t si_uid;
int si_status;
clock_t si_utime;
clock_t si_stime;
sigval_t si_value;
int si_int;
void *si_ptr;
int si_overrun;
int si_timerid;
void *si_addr;
long si_band;
int si_fd;
short si_addr_lsb;
void *si_lower;
void *si_upper;
int si_pkey;
void *si_call_addr;
int si_syscall;
int si_signo;
int si_errno;
int si_code;
int si_trapno;
pid_t si_pid;
uid_t si_uid;
int si_status;
clock_t si_utime;
clock_t si_stime;
sigval_t si_value;
int si_int;
void *si_ptr;
int si_overrun;
int si_timerid;
void *si_addr;
long si_band;
int si_fd;
short si_addr_lsb;
void *si_lower;
void *si_upper;
int si_pkey;
void *si_call_addr;
int si_syscall;
unsigned int si_arch;
} siginfo_t;
// *INDENT-ON*
#if __MESC__
typedef long sighandler_t;

2
include/sys/stat.h
View File

@ -34,6 +34,7 @@
typedef int mode_t;
#endif
// *INDENT-OFF*
#if __i386__
struct stat
{
@ -79,6 +80,7 @@ struct stat
unsigned long __foo1;
};
#endif
// *INDENT-ON*
int chmod (char const *file_name, mode_t mode);
int mkdir (char const *file_name, mode_t mode);

46
include/sys/user.h
View File

@ -77,32 +77,34 @@ struct user_regs_struct
long int xss;
};
// *INDENT-OFF*
struct user
{
struct user_regs_struct regs;
int u_fpvalid;
struct user_fpregs_struct i387;
unsigned long int u_tsize;
unsigned long int u_dsize;
unsigned long int u_ssize;
unsigned long int start_code;
unsigned long int start_stack;
long int signal;
int reserved;
struct user_regs_struct* u_ar0;
struct user_fpregs_struct* u_fpstate;
unsigned long int magic;
char u_comm [32];
int u_debugreg [8];
struct user_regs_struct regs;
int u_fpvalid;
struct user_fpregs_struct i387;
unsigned long int u_tsize;
unsigned long int u_dsize;
unsigned long int u_ssize;
unsigned long int start_code;
unsigned long int start_stack;
long int signal;
int reserved;
struct user_regs_struct *u_ar0;
struct user_fpregs_struct *u_fpstate;
unsigned long int magic;
char u_comm [32];
int u_debugreg [8];
};
#define PAGE_SHIFT 12
#define PAGE_SIZE (1UL << PAGE_SHIFT)
#define PAGE_MASK (~(PAGE_SIZE-1))
#define NBPG PAGE_SIZE
#define UPAGES 1
#define HOST_TEXT_START_ADDR (u.start_code)
#define HOST_STACK_END_ADDR (u.start_stack + u.u_ssize * NBPG)
#define PAGE_SHIFT 12
#define PAGE_SIZE (1UL << PAGE_SHIFT)
#define PAGE_MASK (~(PAGE_SIZE-1))
#define NBPG PAGE_SIZE
#define UPAGES 1
#define HOST_TEXT_START_ADDR (u.start_code)
#define HOST_STACK_END_ADDR (u.start_stack + u.u_ssize * NBPG)
// *INDENT-ON*
#endif // ! WITH_GLIBC

1
lib/linux/x86-mes-gcc/crt0.c
View File

@ -26,6 +26,7 @@
#include <mes/lib-mini.h>
int _main (int argc, char *argv[]);
// *INDENT-OFF*
void
_start ()
{

1
lib/linux/x86-mes-gcc/crt1.c
View File

@ -21,6 +21,7 @@
#include <mes/lib-mini.h>
//int main (int argc, char *argv[], char *envp[]);
// *INDENT-OFF*
void
_start ()
{

1
lib/linux/x86-mes-gcc/mes.c
View File

@ -21,6 +21,7 @@
#include <errno.h>
#include <linux/x86/syscall.h>
// *INDENT-OFF*
long
_sys_call (long sys_call)
{

1
lib/linux/x86-mes-gcc/mini.c
View File

@ -21,6 +21,7 @@
#define SYS_exit "0x01"
#define SYS_write "0x04"
// *INDENT-OFF*
void
_exit (int code)
{

1
lib/linux/x86_64-mes-gcc/crt0.c
View File

@ -29,6 +29,7 @@ int main (int argc, char *argv[]);
// gcc x86_64 calling convention:
// rdi, rsi, rdx, rcx, r8, r9, <stack0>, <stack1>
// *INDENT-OFF*
void
_start ()
{

1
lib/linux/x86_64-mes-gcc/crt1.c
View File

@ -24,6 +24,7 @@
// gcc x86_64 calling convention:
// rdi, rsi, rdx, rcx, r8, r9, <stack0>, <stack1>
// *INDENT-OFF*
void
_start ()
{

1
lib/linux/x86_64-mes-gcc/mes.c
View File

@ -28,6 +28,7 @@
// #define R0 rax
// #define R1 rdi
// *INDENT-OFF*
long
_sys_call (long sys_call)
{

1
lib/linux/x86_64-mes-gcc/mini.c
View File

@ -21,6 +21,7 @@
#define SYS_exit "0x3c"
#define SYS_write "0x01"
// *INDENT-OFF*
void
_exit (int code)
{

1
lib/x86_64-mes-gcc/setjmp.c
View File

@ -34,6 +34,7 @@ longjmp (jmp_buf env, int val)
exit (42);
}
// *NO-INDENT*
int
setjmp (jmp_buf env)
{

5
src/reader.c
View File

@ -232,10 +232,9 @@ reader_read_hash (int c, SCM a)
if (c == ':')
{
SCM x = reader_read_identifier_or_number (readchar ());
SCM msg = MAKE_STRING0 ("keyword perifx ':' not followed by a symbol: ");
if (TYPE (x) == TNUMBER)
error (cell_symbol_system_error, // READ error
cons (MAKE_STRING0 ("keyword perifx ':' not followed by a symbol: "),
x));
error (cell_symbol_system_error, cons (msg, x));
return symbol_to_keyword (x);
}
if (c == 'b')