/red-system/runtime/darwin.reds

http://github.com/dockimbel/Red · Redscript · 39 lines · 33 code · 6 blank · 0 comment · 0 complexity · 91424752f9c6b5de1279fd974792d716 MD5 · raw file 

    

  1. Red/System [
    2. 

  2. 	Title:   "Red/System MacOS X runtime"
    3. 

  3. 	Author:  "Nenad Rakocevic"
    4. 

  4. 	File: 	 %darwin.reds
    5. 

  5. 	Rights:  "Copyright (C) 2011 Nenad Rakocevic. All rights reserved."
    6. 

  6. 	License: {
    7. 

  7. 		Distributed under the Boost Software License, Version 1.0.
    8. 

  8. 		See https://github.com/dockimbel/Red/blob/master/red-system/runtime/BSL-License.txt
    9. 

  9. 	}
    10. 

  10. ]
    11. 

  11. 

  12. #define OS_TYPE		4
    13. 

  13. 

  14. #syscall [
    15. 

  15. 	write: 4 [
    16. 

  16. 		fd		[integer!]
    17. 

  17. 		buffer	[c-string!]
    18. 

  18. 		count	[integer!]
    19. 

  19. 		return: [integer!]
    20. 

  20. 	]
    21. 

  21. ]
    22. 

  22. 

  23. #if use-natives? = yes [
    24. 

  24. 	#syscall [
    25. 

  25. 		quit: 1 [							;-- "exit" syscall
    26. 

  26. 			status	[integer!]
    27. 

  27. 		]
    28. 

  28. 	]
    29. 

  29. ]
    30. 

  30. 

  31. ;-------------------------------------------
    32. 

  32. ;-- Retrieve command-line information from stack
    33. 

  33. ;-------------------------------------------
    34. 

  34. system/args-count: 	pop
    35. 

  35. system/args-list: 	as str-array! system/stack/top
    36. 

  36. system/env-vars: 	system/args-list + system/args-count + 1
    37. 

  37. 

  38. 

  39. #include %BSD.reds
    40.