e3.h

e3 是一个全屏的用户友好的文本编辑器

%else
%ifdef FREEBSD	;----------------------- FREE B S D -----------------------
	;sys/termios.h
	%define TERMIOS_SET   802c7414h		;TIOCSETA
	%define TERMIOS_GET   402c7413h		;TIOCGETA
	%define TERMIOS_WSIZE 40087468h
	;		      rw	
	;		        size
	;			  't'
	;			    nr.
	%define NCCS 20
	%define VMIN 16
	%define speed_t3	resd
	%define ICRNL	0x100 
	%define IXON	0x200
	%define ICANON	0x100
	%define ISIG	0x80
	%define ECHO	0x8
	%define TSize   word			;due oversized ICANON
;------
	struc stat_struc
.st_dev:	resd 1
.st_ino:	resd 1
.st_mode:	resw 1
.st_nlink:	resw 1
.st_uid:	resd 1
.st_gid:	resd 1
.st_rdev:	resd 1
.st_atime:	resd 1
.st_atimes:	resd 1
.st_mtime:	resd 1
.st_mtimes:	resd 1
.st_ctime:	resd 1
.st_ctimes:	resd 1
.st_size:	resd 2
.st_blocks:	resd 2
.st_blksize:	resd 1
.st_flags:	resd 1
.st_gen:	resd 1
.st_spare:	resd 5
	endstruc
%define SYS_exit	1
%define SYS_fork	2
%define SYS_read	3
%define SYS_write	4
%define SYS_open	5
%define SYS_close	6
%define SYS_unlink	10
%define SYS_execve	59
%define SYS_lseek	19	;also 199
%define SYS_utime	138
%define SYS_kill	37
%define SYS_rename	128
%define SYS_pipe	42
%define SYS_ioctl	54
%define SYS_dup2	90
%define SYS_sigaction	46	;also 342
%define SYS_readlink	58
%define SYS_fchown	123
%define SYS_fstat	189
%define SYS_wait4	7
%define SYS_select	93
%define time_t	resd

	struc utimbuf_struc
.actime: time_t  2
.modtime:time_t 2
	endstruc
	
%undef CAPTURE_STDERR			;******is buggy in e3/BSD******
%ifdef EX
 %define USE_EX_NO_SED
 %define EX_PATH '/usr/bin/ex'		;(ex is usually a symlink to vi)   [ old was /bin/ex ]
%else
 %undef USE_EX_NO_SED
 %ifndef PERLPIPE
 %define SEDPATH '/usr/bin/sed'		;DEFAULT
 %else
 %define SEDPATH '/usr/bin/perl'
 %endif
%endif

MAXERRNO	equ 32
ERRNOMEM	equ 12
ERRNOIO		equ 5
ERRNOEXEC	equ 31
ERRNOREGFILE	equ 21
	%macro errortext 0
db "Op not permitted",10		;1
db "No such file|directory",10		;2
db 10					;3
db 10					;4
db "Input/output",10			;5
db "No such device",10			;6
db 10					;7
db 10					;8
db "Bad file descriptor",10		;9
db "No child processes",10		;10
db 10					;11		
db "Memory exhausted",10		;12
db "Permission denied",10		;13
db 10					;14
db 10					;15
db "Device busy",10			;16
db "File exists",10			;17
db 10					;18
db "No such device",10			;19
db 10					;20
db "Is a directory",10			;21
db "Invalid argument",10		;22
db "Too many open files",10		;23
db "Too many open files",10		;24
db "Inappropriate ioctl",10		;25
db "Text file busy",10			;26
db "File too large",10			;27
db "No space on device",10		;28
db "Illegal seek",10			;29
db "R/O file system",10			;30
db "Can't exec "			;31
%ifdef USE_EX_NO_SED
db EX_PATH,10
%else
db SEDPATH,10
%endif
db "Broken pipe",10			;32
	%endmacro
%ifdef LIBC
 extern open,read,write,close,lseek,rename,_exit,ioctl,fstat,fchown,select,unlink
 extern errno
 %undef SYS_readlink
 %undef SYS_brk
 %undef SYS_kill
 %undef SYS_sigaction
 %undef USE_PIPE
%endif

%else
%ifdef W32	;----------------------- W I N  32 -----------------------
%define W32LF				;<-- controls linefeed style

STD_INPUT_HANDLE	equ -10
STD_OUTPUT_HANDLE	equ -11
ENABLE_WINDOW_INPUT	equ 8
FILE_ATTRIBUTE_NORMAL	equ 128
OPEN_EXISTING		equ 3
CREATE_ALWAYS		equ 2
GENERIC_READ		equ $80000000
GENERIC_WRITE		equ $40000000
INVALID_HANDLE_VALUE	equ -1
FOREGROUND_BLUE		equ 1
FOREGROUND_GREEN	equ 2
FOREGROUND_RED		equ 4
FOREGROUND_INTENSITY	equ 8
DARKWHITE		equ (FOREGROUND_GREEN|FOREGROUND_BLUE|FOREGROUND_RED)
WHITE			equ (DARKWHITE|FOREGROUND_INTENSITY)
BACKGROUND_BLUE		equ 16
YELLOW_BLUE		equ FOREGROUND_GREEN|FOREGROUND_RED|FOREGROUND_INTENSITY|BACKGROUND_BLUE
YELLOW_BLUE_TWICE	equ YELLOW_BLUE| (YELLOW_BLUE<<16)
LEFT_ALT_PRESSED	equ 2
CTRL_PRESSED		equ 12
VK_SPACE		equ 0x0020
VK_PRIOR		equ 0x0021
VK_DELETE		equ 0x002E
CF_OEMTEXT		equ 7

extern MessageBoxA,MessageBeep,ExitProcess
extern GetStdHandle,GetCommandLineA,GetLastError,SetConsoleTextAttribute
extern SetConsoleMode,GetConsoleScreenBufferInfo,SetConsoleCursorPosition
extern WriteFile,ReadFile,CreateFileA,CloseHandle,SetFilePointer,MoveFileA,DeleteFileA
extern FillConsoleOutputAttribute,WaitForSingleObject,ReadConsoleA,ReadConsoleInputA
extern FlushConsoleInputBuffer,WriteConsoleOutputCharacterA,WriteConsoleOutputAttribute
extern HeapCreate,HeapAlloc,HeapFree,HeapDestroy,OpenClipboard,EmptyClipboard
extern SetClipboardData,GetClipboardData,IsClipboardFormatAvailable,CloseClipboard
	%define W32_EXTENDED_IO
	%undef USE_PIPE

MAXERRNO	equ 32
ERRNOMEM	equ 8
ERRNOIO		equ 7

	%macro errortext 0
db "invalid function",10		;1
db "file not found",10			;2
db "path not found",10			;3
db "too many open files",10		;4
db "access denied",10			;5
db "invalid handle",10			;6
db "I/O error",10			;7
db "not enough memory",10		;8
db 10					;9
db 10					;10
db 10					;11
db 10					;12
db 10					;13
db 10					;14
db 10					;15
db 10					;16
db 10					;17
db 10					;18
db 10					;19
db 10					;20
db 10					;21
db 10					;22
db 10					;23
db 10					;24
db 10					;25
db 10					;26
db 10					;27
db 10					;28
db 10					;29
db 10					;30
db 10					;31
db "sharing violation",10  		;32
	%endmacro

%else		;----------------------- END OS -----------------------
%error no OS defined
%endif
%endif
%endif
%endif
%endif
%endif


%ifdef TERMIOS_SET
%ifdef ARMCPU
 	struc termios_struc
.c_iflag:	resd 1
.c_oflag:	resd 1
.c_cflag:	resd 1
.c_lflag:	resd 1
.c_line:	resb 1
.c_cc:		resb NCCS
	endstruc
%else
%define tcflag_t	resd
%define cc_t		resb
 	struc termios_struc
.c_iflag:	tcflag_t 1
.c_oflag:	tcflag_t 1
.c_cflag:	tcflag_t 1
.c_lflag:	tcflag_t 1
.c_line:	cc_t 1
%ifdef speed_t1
c_ixxxxx:	speed_t1 1
c_oxxxxx:	speed_t1 1
%endif
.c_cc:		cc_t NCCS
%ifdef speed_t2
res:		resd 3
c_ixxxxx:	speed_t2 1
c_oxxxxx:	speed_t2 1
%endif
%ifdef speed_t3
c_ispeed speed_t3 1
c_ospeed speed_t3 1
%endif
	endstruc
%endif
	struc winsize_struc
.ws_row:resw 1
.ws_col:resw 1
.ws_xpixel:resw 1
.ws_ypixel:resw 1
	endstruc

%ifndef IXON				;all except *BSD
%define ICRNL	0000400q
%define IXON	0002000q
%define ICANON	0000002q
%define ISIG	0000001q
%define ECHO	0000010q
%define TSize   byte
%endif
%endif

;-------
%ifndef LINUX
 %undef CRIPLED_ELF
%endif
;
%ifdef LESSWRITEOPS			;constraints
	%define LESSWRITEOPS_OR_CURSORMGNT
%endif
%ifdef CURSORMGNT
	%define LESSWRITEOPS_OR_CURSORMGNT
%endif

stdtxtlen	equ 10			;do not move this to EOF: code size would increase

%ifdef FREEBSD
SIGCONT		equ 19
SIGSTOP		equ 17
O_WRONLY_CREAT_TRUNC equ 601h		;see fcntl.h
%else
%ifdef QNX
O_WRONLY_CREAT_TRUNC equ 1401q
%else
O_WRONLY_CREAT_TRUNC equ 1101q
%endif
%endif

O_RDONLY	equ 0
PERMS		equ 644q
stdin		equ 0
stdout 		equ 1
optslen		equ 124
TAB		equ 8
TABCHAR		equ 09h
SPACECHAR	equ ' '
CHANGED		equ '*'
UNCHANGED	equ SPACECHAR
LINEFEED	equ 0ah
NEWLINE		equ LINEFEED
RETURN		equ 0dh
SEDBLOCK	equ 4096




;--------------------------------------------------------------------------
%ifdef CRIPLED_ELF
;
; building e3 via "nasm -f bin ...."  using an idea from
;"A Whirlwind Tutorial on Creating Really Teensy ELF Executables for Linux"
;
       %macro ELFheader 0
ehdr:	db 0x7F, "ELF", 1, 1, 1, 0	;Elf32_Ehdr starts here
	dd 0,0
	dw 2				;e_type
	dw 3				;e_machine
	dd 1				;e_version
	dd _start			;e_entry
	dd phdr1- $$			;e_phoff
	dd 0				;e_shoff
	dd 0				;e_flags
	dw ehdrsize			;e_ehsize
	dw phdrsize			;e_phentsize
	dw 2				;e_phnum
phdr1:					;Elf32_Phdr starts here
	dd 1				;both p_type and e_shentsize,e_shnum
	dw 0				;both p_offset and e_shstrndx
ehdrsize equ $ - ehdr
	dw 0
	dd $$				;p_vaddr
	dd $$				;p_paddr
	dd filesize			;p_filesz
	dd filesize			;p_memsz
	dd 5				;p_flags i.e. READ/EXECUTE
	dd 0;  0x1000			;p_align
phdrsize equ $ - phdr1
phdr2:					;another Elf32_Phdr starts here
	dd 1				;p_type
	dd filesize
	dd $$+filesize
	dd $$+filesize
	dd 0				;p_filesz
	dd bsssize			;p_memsz
	dd 6				;p_flags i.e. READ/WRITE
	dd 0;  0x1000			;p_align
	%endmacro
%endif
;-------
%ifndef ARMCPU
	%macro ORGheader 0
%ifdef USE_SPECIAL_HEADER
%ifdef TINLINK
	org 0x800004A			;see file contrib/README.tinlink624
%else
	org 0x8048000
	ELFheader
%endif
%else
	;nothing
%endif
	%endmacro
%endif
;-------
%ifdef DYN				;DYN == "libc dynamic linked"
 %define _start main			;call it "main", libc startup code expects this name
%endif
;--------------------------------------------------------------------------