jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added a bunch of hostOS standalone conditions

Browse source
This commit is contained in:
Simon Hafner 2013-06-30 16:41:21 -05:00
commit 36b00a107c
3 changed files with 826 additions and 787 deletions
Download patch file Download diff file Expand all files Collapse all files

1485
lib/system.nim
View file

File diff suppressed because it is too large Load diff

118
lib/system/ansi_c.nim
View file

@ -28,82 +28,90 @@ type
C_JmpBuf {.importc: "jmp_buf".} = array[0..31, int] C_JmpBuf {.importc: "jmp_buf".} = array[0..31, int]
var when not defined(noIO):
c_stdin {.importc: "stdin", noDecl.}: C_TextFileStar
c_stdout {.importc: "stdout", noDecl.}: C_TextFileStar
c_stderr {.importc: "stderr", noDecl.}: C_TextFileStar
# constants faked as variables:
when not defined(SIGINT):
var
SIGINT {.importc: "SIGINT", nodecl.}: cint
SIGSEGV {.importc: "SIGSEGV", nodecl.}: cint
SIGABRT {.importc: "SIGABRT", nodecl.}: cint
SIGFPE {.importc: "SIGFPE", nodecl.}: cint
SIGILL {.importc: "SIGILL", nodecl.}: cint
when defined(macosx):
var var
SIGBUS {.importc: "SIGBUS", nodecl.}: cint c_stdin {.importc: "stdin", noDecl.}: C_TextFileStar
# hopefully this does not lead to new bugs c_stdout {.importc: "stdout", noDecl.}: C_TextFileStar
else: c_stderr {.importc: "stderr", noDecl.}: C_TextFileStar
var
SIGBUS {.importc: "SIGSEGV", nodecl.}: cint when hostOS != "standalone":
# only Mac OS X has this shit # constants faked as variables:
when not defined(SIGINT):
var
SIGINT {.importc: "SIGINT", nodecl.}: cint
SIGSEGV {.importc: "SIGSEGV", nodecl.}: cint
SIGABRT {.importc: "SIGABRT", nodecl.}: cint
SIGFPE {.importc: "SIGFPE", nodecl.}: cint
SIGILL {.importc: "SIGILL", nodecl.}: cint
when defined(macosx):
var
SIGBUS {.importc: "SIGBUS", nodecl.}: cint
# hopefully this does not lead to new bugs
else:
var
SIGBUS {.importc: "SIGSEGV", nodecl.}: cint
# only Mac OS X has this shit
proc c_longjmp(jmpb: C_JmpBuf, retval: cint) {.nodecl, importc: "longjmp".} proc c_longjmp(jmpb: C_JmpBuf, retval: cint) {.nodecl, importc: "longjmp".}
proc c_setjmp(jmpb: var C_JmpBuf): cint {.nodecl, importc: "setjmp".} proc c_setjmp(jmpb: var C_JmpBuf): cint {.nodecl, importc: "setjmp".}
proc c_signal(sig: cint, handler: proc (a: cint) {.noconv.}) {. when hostOS != "standalone":
importc: "signal", header: "<signal.h>".} proc c_signal(sig: cint, handler: proc (a: cint) {.noconv.}) {.
proc c_raise(sig: cint) {.importc: "raise", header: "<signal.h>".} importc: "signal", header: "<signal.h>".}
proc c_raise(sig: cint) {.importc: "raise", header: "<signal.h>".}
proc c_fputs(c: cstring, f: C_TextFileStar) {.importc: "fputs", noDecl.} when hostOS != "standalone":
proc c_fgets(c: cstring, n: int, f: C_TextFileStar): cstring {. proc c_fputs(c: cstring, f: C_TextFileStar) {.importc: "fputs", noDecl.}
importc: "fgets", noDecl.} proc c_fgets(c: cstring, n: int, f: C_TextFileStar): cstring {.
proc c_fgetc(stream: C_TextFileStar): int {.importc: "fgetc", nodecl.} importc: "fgets", noDecl.}
proc c_ungetc(c: int, f: C_TextFileStar) {.importc: "ungetc", nodecl.} proc c_fgetc(stream: C_TextFileStar): int {.importc: "fgetc", nodecl.}
proc c_putc(c: Char, stream: C_TextFileStar) {.importc: "putc", nodecl.} proc c_ungetc(c: int, f: C_TextFileStar) {.importc: "ungetc", nodecl.}
proc c_putc(c: Char, stream: C_TextFileStar) {.importc: "putc", nodecl.}
proc c_fprintf(f: C_TextFileStar, frmt: CString) {. proc c_fprintf(f: C_TextFileStar, frmt: CString) {.
importc: "fprintf", nodecl, varargs.} importc: "fprintf", nodecl, varargs.}
proc c_printf(frmt: CString) {. proc c_printf(frmt: CString) {.
importc: "printf", nodecl, varargs.} importc: "printf", nodecl, varargs.}
proc c_fopen(filename, mode: cstring): C_TextFileStar {. when hostOS != "standalone":
importc: "fopen", nodecl.} proc c_fopen(filename, mode: cstring): C_TextFileStar {.
proc c_fclose(f: C_TextFileStar) {.importc: "fclose", nodecl.} importc: "fopen", nodecl.}
proc c_fclose(f: C_TextFileStar) {.importc: "fclose", nodecl.}
proc c_sprintf(buf, frmt: CString) {.nodecl, importc: "sprintf", varargs, proc c_sprintf(buf, frmt: CString) {.nodecl, importc: "sprintf", varargs,
noSideEffect.} noSideEffect.}
# we use it only in a way that cannot lead to security issues # we use it only in a way that cannot lead to security issues
proc c_fread(buf: Pointer, size, n: int, f: C_BinaryFileStar): int {. when hostOS != "standalone":
importc: "fread", noDecl.} proc c_fread(buf: Pointer, size, n: int, f: C_BinaryFileStar): int {.
proc c_fseek(f: C_BinaryFileStar, offset: clong, whence: int): int {. importc: "fread", noDecl.}
importc: "fseek", noDecl.} proc c_fseek(f: C_BinaryFileStar, offset: clong, whence: int): int {.
importc: "fseek", noDecl.}
proc c_fwrite(buf: Pointer, size, n: int, f: C_BinaryFileStar): int {. proc c_fwrite(buf: Pointer, size, n: int, f: C_BinaryFileStar): int {.
importc: "fwrite", noDecl.} importc: "fwrite", noDecl.}
proc c_exit(errorcode: cint) {.importc: "exit", nodecl.} proc c_exit(errorcode: cint) {.importc: "exit", nodecl.}
proc c_ferror(stream: C_TextFileStar): bool {.importc: "ferror", nodecl.} proc c_ferror(stream: C_TextFileStar): bool {.importc: "ferror", nodecl.}
proc c_fflush(stream: C_TextFileStar) {.importc: "fflush", nodecl.} proc c_fflush(stream: C_TextFileStar) {.importc: "fflush", nodecl.}
proc c_abort() {.importc: "abort", nodecl.} proc c_abort() {.importc: "abort", nodecl.}
proc c_feof(stream: C_TextFileStar): bool {.importc: "feof", nodecl.} proc c_feof(stream: C_TextFileStar): bool {.importc: "feof", nodecl.}
proc c_malloc(size: int): pointer {.importc: "malloc", nodecl.} when not defined(noDynamicAlloc):
proc c_free(p: pointer) {.importc: "free", nodecl.} proc c_malloc(size: int): pointer {.importc: "malloc", nodecl.}
proc c_realloc(p: pointer, newsize: int): pointer {.importc: "realloc", nodecl.} proc c_free(p: pointer) {.importc: "free", nodecl.}
proc c_realloc(p: pointer, newsize: int): pointer {.importc: "realloc", nodecl.}
when not defined(errno): when hostOS != "standalone":
var errno {.importc, header: "<errno.h>".}: cint ## error variable when not defined(errno):
proc strerror(errnum: cint): cstring {.importc, header: "<string.h>".} var errno {.importc, header: "<errno.h>".}: cint ## error variable
proc strerror(errnum: cint): cstring {.importc, header: "<string.h>".}
proc c_remove(filename: CString): cint {.importc: "remove", noDecl.} proc c_remove(filename: CString): cint {.importc: "remove", noDecl.}
proc c_rename(oldname, newname: CString): cint {.importc: "rename", noDecl.} proc c_rename(oldname, newname: CString): cint {.importc: "rename", noDecl.}
proc c_system(cmd: CString): cint {.importc: "system", header: "<stdlib.h>".} proc c_system(cmd: CString): cint {.importc: "system", header: "<stdlib.h>".}
proc c_getenv(env: CString): CString {.importc: "getenv", noDecl.} proc c_getenv(env: CString): CString {.importc: "getenv", noDecl.}
proc c_putenv(env: CString): cint {.importc: "putenv", noDecl.} proc c_putenv(env: CString): cint {.importc: "putenv", noDecl.}
{.pop} {.pop}

10
lib/system/embedded.nim
View file

@ -7,10 +7,13 @@
# distribution, for details about the copyright. # distribution, for details about the copyright.
# #
when defined(arduino):
include "system/arduino"
# Bare-bones implementation of some things for embedded targets. # Bare-bones implementation of some things for embedded targets.
proc writeToStdErr(msg: CString) = write(stdout, msg) when not defined(arduino):
proc writeToStdErr(msg: CString) = write(stdout, msg)
proc chckIndx(i, a, b: int): int {.inline, compilerproc.} proc chckIndx(i, a, b: int): int {.inline, compilerproc.}
proc chckRange(i, a, b: int): int {.inline, compilerproc.} proc chckRange(i, a, b: int): int {.inline, compilerproc.}
@ -42,11 +45,6 @@ proc reraiseException() {.compilerRtl.} =
proc WriteStackTrace() = nil proc WriteStackTrace() = nil
proc setControlCHook(hook: proc () {.noconv.}) =
# ugly cast, but should work on all architectures:
type TSignalHandler = proc (sig: cint) {.noconv.}
c_signal(SIGINT, cast[TSignalHandler](hook))
proc raiseRangeError(val: biggestInt) {.compilerproc, noreturn, noinline.} = proc raiseRangeError(val: biggestInt) {.compilerproc, noreturn, noinline.} =
writeToStdErr("value out of range") writeToStdErr("value out of range")