mirrors/Odin
1
0
Fork 0
mirror of https://github.com/odin-lang/Odin.git synced 2026-04-22 22:35:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add escape code for ESC \e

Browse Source
This commit is contained in:
gingerBill
2018-06-15 23:13:26 +01:00
parent ba776a3c9f
commit 6d1c32eb77
3 changed files with 143 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

284
core/os/os_essence.odin
View File

@@ -2,175 +2,175 @@ package os
OS :: "essence";
// foreign import api "system:api"
foreign import api "system:api"
// Handle :: distinct int;
// Errno :: distinct int;
Handle :: distinct int;
Errno :: distinct int;
// O_RDONLY :: 0x00001;
// O_WRONLY :: 0x00002;
// O_RDWR :: 0x00003;
// O_CREATE :: 0x00040;
// O_EXCL :: 0x00080;
// O_TRUNC :: 0x00200;
// O_APPEND :: 0x00400;
O_RDONLY :: 0x00001;
O_WRONLY :: 0x00002;
O_RDWR :: 0x00003;
O_CREATE :: 0x00040;
O_EXCL :: 0x00080;
O_TRUNC :: 0x00200;
O_APPEND :: 0x00400;
// ERROR_NONE : Errno : -1 ;
// ERROR_UNKNOWN_OPERATION_FAILURE : Errno : -7 ;
// ERROR_PATH_NOT_WITHIN_MOUNTED_VOLUME : Errno : -14;
// ERROR_PATH_NOT_FOUND : Errno : -15;
// ERROR_FILE_EXISTS : Errno : -19;
// ERROR_FILE_NOT_FOUND : Errno : -20;
// ERROR_DRIVE_ERROR_FILE_DAMAGED : Errno : -21;
// ERROR_ACCESS_NOT_WITHIN_FILE_BOUNDS : Errno : -22;
// ERROR_ACCESS_DENIED : Errno : -23;
// ERROR_FILE_IN_EXCLUSIVE_USE : Errno : -24;
// ERROR_FILE_CANNOT_GET_EXCLUSIVE_USE : Errno : -25;
// ERROR_INCORRECT_NODE_TYPE : Errno : -26;
// ERROR_EVENT_NOT_SET : Errno : -27;
// ERROR_TIMEOUT_REACHED : Errno : -29;
// ERROR_REQUEST_CLOSED_BEFORE_COMPLETE : Errno : -30;
// ERROR_NO_CHARACTER_AT_COORDINATE : Errno : -31;
// ERROR_FILE_ON_READ_ONLY_VOLUME : Errno : -32;
// ERROR_USER_CANCELED_IO : Errno : -33;
// ERROR_DRIVE_CONTROLLER_REPORTED : Errno : -35;
// ERROR_COULD_NOT_ISSUE_PACKET : Errno : -36;
ERROR_NONE :: Errno(-1);
ERROR_UNKNOWN_OPERATION_FAILURE :: Errno(-7);
ERROR_PATH_NOT_WITHIN_MOUNTED_VOLUME :: Errno(-14);
ERROR_PATH_NOT_FOUND :: Errno(-15);
ERROR_FILE_EXISTS :: Errno(-19);
ERROR_FILE_NOT_FOUND :: Errno(-20);
ERROR_DRIVE_ERROR_FILE_DAMAGED :: Errno(-21);
ERROR_ACCESS_NOT_WITHIN_FILE_BOUNDS :: Errno(-22);
ERROR_ACCESS_DENIED :: Errno(-23);
ERROR_FILE_IN_EXCLUSIVE_USE :: Errno(-24);
ERROR_FILE_CANNOT_GET_EXCLUSIVE_USE :: Errno(-25);
ERROR_INCORRECT_NODE_TYPE :: Errno(-26);
ERROR_EVENT_NOT_SET :: Errno(-27);
ERROR_TIMEOUT_REACHED :: Errno(-29);
ERROR_REQUEST_CLOSED_BEFORE_COMPLETE :: Errno(-30);
ERROR_NO_CHARACTER_AT_COORDINATE :: Errno(-31);
ERROR_FILE_ON_READ_ONLY_VOLUME :: Errno(-32);
ERROR_USER_CANCELED_IO :: Errno(-33);
ERROR_DRIVE_CONTROLLER_REPORTED :: Errno(-35);
ERROR_COULD_NOT_ISSUE_PACKET :: Errno(-36);
// ERROR_NOT_IMPLEMENTED : Errno : 1;
ERROR_NOT_IMPLEMENTED :: Errno(1);
// OS_Node_Type :: enum i32 {
// File = 0,
// Directory = 1,
// }
OS_Node_Type :: enum i32 {
File = 0,
Directory = 1,
}
// OS_Node_Information :: struct {
// handle: Handle,
// id: [16]byte,
// ntype: OS_Node_Type,
// size: i64,
OS_Node_Information :: struct {
handle: Handle,
id: [16]byte,
ntype: OS_Node_Type,
size: i64,
// // Our additions...
// position: i64,
// }
// Our additions...
position: i64,
}
// foreign api {
// @(link_name="OSPrintDirect") OSPrintDirect :: proc(str: ^u8, length: int) ---;
// @(link_name="malloc") OSMalloc :: proc(bytes: int) -> rawptr ---;
// @(link_name="free") OSFree :: proc(address: rawptr) ---;
// @(link_name="OSOpenNode") OSOpenNode :: proc(path: ^u8, path_length: int, flags: u64, information: ^OS_Node_Information) -> Errno ---;
// @(link_name="OSResizeFile") OSResizeFile :: proc(handle: Handle, new_size: u64) -> Errno ---;
// @(link_name="OSCloseHandle") OSCloseHandle :: proc(handle: Handle) ---;
// @(link_name="OSWriteFileSync") OSWriteFileSync :: proc(handle: Handle, offset: i64, size: i64, buffer: rawptr) -> i64 ---;
// @(link_name="OSReadFileSync") OSReadFileSync :: proc(handle: Handle, offset: i64, size: i64, buffer: rawptr) -> i64 ---;
// @(link_name="realloc") OSRealloc :: proc(address: rawptr, size: int) -> rawptr ---;
// @(link_name="OSGetThreadID") OSGetThreadID :: proc(handle: Handle) -> int ---;
// @(link_name="OSRefreshNodeInformation") OSRefreshNodeInformation :: proc(information: ^OS_Node_Information) ---;
// }
foreign api {
@(link_name="OSPrintDirect") OSPrintDirect :: proc(str: ^u8, length: int) ---;
@(link_name="malloc") OSMalloc :: proc(bytes: int) -> rawptr ---;
@(link_name="free") OSFree :: proc(address: rawptr) ---;
@(link_name="OSOpenNode") OSOpenNode :: proc(path: ^u8, path_length: int, flags: u64, information: ^OS_Node_Information) -> Errno ---;
@(link_name="OSResizeFile") OSResizeFile :: proc(handle: Handle, new_size: u64) -> Errno ---;
@(link_name="OSCloseHandle") OSCloseHandle :: proc(handle: Handle) ---;
@(link_name="OSWriteFileSync") OSWriteFileSync :: proc(handle: Handle, offset: i64, size: i64, buffer: rawptr) -> i64 ---;
@(link_name="OSReadFileSync") OSReadFileSync :: proc(handle: Handle, offset: i64, size: i64, buffer: rawptr) -> i64 ---;
@(link_name="realloc") OSRealloc :: proc(address: rawptr, size: int) -> rawptr ---;
@(link_name="OSGetThreadID") OSGetThreadID :: proc(handle: Handle) -> int ---;
@(link_name="OSRefreshNodeInformation") OSRefreshNodeInformation :: proc(information: ^OS_Node_Information) ---;
}
// stdin := Handle(-1); // Not implemented
// stdout := Handle(0);
// stderr := Handle(0);
stdin := Handle(-1); // Not implemented
stdout := Handle(0);
stderr := Handle(0);
// current_thread_id :: proc() -> int {
// return OSGetThreadID(Handle(0x1000));
// }
current_thread_id :: proc() -> int {
return OSGetThreadID(Handle(0x1000));
}
// heap_alloc :: proc(size: int) -> rawptr {
// return OSMalloc(size);
// }
heap_alloc :: proc(size: int) -> rawptr {
return OSMalloc(size);
}
// heap_free :: proc(address: rawptr) {
// OSFree(address);
// }
heap_free :: proc(address: rawptr) {
OSFree(address);
}
// heap_resize :: proc(address: rawptr, new_size: int) -> rawptr {
// return OSRealloc(address, new_size);
// }
heap_resize :: proc(address: rawptr, new_size: int) -> rawptr {
return OSRealloc(address, new_size);
}
// open :: proc(path: string, mode: int = O_RDONLY, perm: u32 = 0) -> (Handle, Errno) {
// flags : u64 = 0;
open :: proc(path: string, mode: int = O_RDONLY, perm: u32 = 0) -> (Handle, Errno) {
flags : u64 = 0;
// if mode & O_CREATE == O_CREATE {
// flags = flags | 0x9000; // Fail if found and create directories leading to the file if they don't exist
// } else {
// flags = flags | 0x2000; // Fail if not found
// }
if mode & O_CREATE == O_CREATE {
flags = flags | 0x9000; // Fail if found and create directories leading to the file if they don't exist
} else {
flags = flags | 0x2000; // Fail if not found
}
// if mode & O_EXCL == O_EXCL {
// flags = flags | 0x111; // Block opening the node for any reason
// }
if mode & O_EXCL == O_EXCL {
flags = flags | 0x111; // Block opening the node for any reason
}
// if mode & O_RDONLY == O_RDONLY {
// flags = flags | 0x2; // Read access
// }
if mode & O_RDONLY == O_RDONLY {
flags = flags | 0x2; // Read access
}
// if mode & O_WRONLY == O_WRONLY {
// flags = flags | 0x220; // Write and resize access
// }
if mode & O_WRONLY == O_WRONLY {
flags = flags | 0x220; // Write and resize access
}
// if mode & O_TRUNC == O_TRUNC {
// flags = flags | 0x200; // Resize access
// }
if mode & O_TRUNC == O_TRUNC {
flags = flags | 0x200; // Resize access
}
// information := new(OS_Node_Information);
// error := OSOpenNode(&path[0], len(path), flags, information);
information := new(OS_Node_Information);
error := OSOpenNode(&path[0], len(path), flags, information);
// if error < ERROR_NONE {
// free(information);
// return 0, error;
// }
if error < ERROR_NONE {
free(information);
return 0, error;
}
// if mode & O_TRUNC == O_TRUNC {
// error := OSResizeFile(information.handle, 0);
// if error < ERROR_NONE do return 0, ERROR_UNKNOWN_OPERATION_FAILURE;
// }
if mode & O_TRUNC == O_TRUNC {
error := OSResizeFile(information.handle, 0);
if error < ERROR_NONE do return 0, ERROR_UNKNOWN_OPERATION_FAILURE;
}
// if mode & O_APPEND == O_APPEND {
// information.position = information.size;
// } else {
// information.position = 0;
// }
if mode & O_APPEND == O_APPEND {
information.position = information.size;
} else {
information.position = 0;
}
// return Handle(uintptr(information)), ERROR_NONE;
// }
return Handle(uintptr(information)), ERROR_NONE;
}
// close :: proc(fd: Handle) {
// information := (^OS_Node_Information)(uintptr(fd));
// OSCloseHandle(information.handle);
// free(information);
// }
close :: proc(fd: Handle) {
information := (^OS_Node_Information)(uintptr(fd));
OSCloseHandle(information.handle);
free(information);
}
// file_size :: proc(fd: Handle) -> (i64, Errno) {
// x : OS_Node_Information;
// OSRefreshNodeInformation(&x);
// return x.size, ERROR_NONE;
// }
file_size :: proc(fd: Handle) -> (i64, Errno) {
x: OS_Node_Information;
OSRefreshNodeInformation(&x);
return x.size, ERROR_NONE;
}
// write :: proc(fd: Handle, data: []byte) -> (int, Errno) {
// if fd == 0 {
// OSPrintDirect(&data[0], len(data));
// return len(data), ERROR_NONE;
// } else if fd == 1 {
// assert(false);
// return 0, ERROR_NOT_IMPLEMENTED;
// }
write :: proc(fd: Handle, data: []byte) -> (int, Errno) {
if fd == 0 {
OSPrintDirect(&data[0], len(data));
return len(data), ERROR_NONE;
} else if fd == 1 {
assert(false);
return 0, ERROR_NOT_IMPLEMENTED;
}
// information := (^OS_Node_Information)(uintptr(fd));
// count := OSWriteFileSync(information.handle, information.position, i64(len(data)), &data[0]);
// if count < 0 do return 0, 1;
// information.position += count;
// return int(count), 0;
// }
information := (^OS_Node_Information)(uintptr(fd));
count := OSWriteFileSync(information.handle, information.position, i64(len(data)), &data[0]);
if count < 0 do return 0, 1;
information.position += count;
return int(count), 0;
}
// read :: proc(fd: Handle, data: []byte) -> (int, Errno) {
// if (fd == 0 || fd == 1) {
// assert(false);
// return 0, ERROR_NOT_IMPLEMENTED;
// }
read :: proc(fd: Handle, data: []byte) -> (int, Errno) {
if (fd == 0 || fd == 1) {
assert(false);
return 0, ERROR_NOT_IMPLEMENTED;
}
// information := (^OS_Node_Information)(uintptr(fd));
// count := OSReadFileSync(information.handle, information.position, i64(len(data)), &data[0]);
// if count < 0 do return 0, ERROR_UNKNOWN_OPERATION_FAILURE;
// information.position += count;
// return int(count), ERROR_NONE;
// }
information := (^OS_Node_Information)(uintptr(fd));
count := OSReadFileSync(information.handle, information.position, i64(len(data)), &data[0]);
if count < 0 do return 0, ERROR_UNKNOWN_OPERATION_FAILURE;
information.position += count;
return int(count), ERROR_NONE;
}

4
src/exact_value.cpp
View File

@@ -407,10 +407,6 @@ ExactValue exact_unary_operator_value(TokenKind op, ExactValue v, i32 precision,
if (is_unsigned) {
i = i & unsigned_integer_maxs[precision/8];
}
// if (0 < precision && precision < 64) {
// i = i & ~(-1ll << precision);
// }
return exact_value_i64(i);
}

1
src/string.cpp
View File

@@ -451,6 +451,7 @@ bool unquote_char(String s, u8 quote, Rune *rune, bool *multiple_bytes, String *
case 'a': *rune = '\a'; break;
case 'b': *rune = '\b'; break;
case 'e': *rune = 0x1b; break;
case 'f': *rune = '\f'; break;
case 'n': *rune = '\n'; break;
case 'r': *rune = '\r'; break;