/red-system/runtime/utils.reds

http://github.com/dockimbel/Red · Redscript · 83 lines · 77 code · 6 blank · 0 comment · 4 complexity · 3d9f4cb0c280f7fcd492c28e8ba683f6 MD5 · raw file 

    

  1. Red/System [
    2. 

  2. 	Title:   "Red/System runtime OS-independent runtime functions"
    3. 

  3. 	Author:  "Nenad Rakocevic"
    4. 

  4. 	File: 	 %utils.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. newline: "^/"							
    13. 

  13. 

  14. lf:  	 #"^/"								;-- Line-feed
    15. 

  15. cr:  	 #"^M"
    16. 

  16. tab: 	 #"^-"
    17. 

  17. space:	 #" "
    18. 

  18. slash:	 #"/"
    19. 

  19. 

  20. ;-------------------------------------------
    21. 

  21. ;-- Print in console a single byte as an ASCII character
    22. 

  22. ;-------------------------------------------
    23. 

  23. prin-byte: func [
    24. 

  24. 	c 		[byte!]							;-- ASCII value to print
    25. 

  25. 	return: [byte!]
    26. 

  26. 	/local char
    27. 

  27. ][
    28. 

  28. 	char: " "
    29. 

  29. 	char/1: c
    30. 

  30. 	prin char
    31. 

  31. 	c
    32. 

  32. ]
    33. 

  33. 

  34. ;-------------------------------------------
    35. 

  35. ;-- Low-level polymorphic print function 
    36. 

  36. ;-- (not intended to be called directly)
    37. 

  37. ;-------------------------------------------
    38. 

  38. _print: func [
    39. 

  39. 	count	[integer!]						;-- typed values count
    40. 

  40. 	list	[typed-value!]					;-- pointer on first typed value
    41. 

  41. 	spaced?	[logic!]						;-- if TRUE, insert a space between items
    42. 

  42. ][
    43. 

  43. 	until [
    44. 

  44. 		if list/type = type-logic! [
    45. 

  45. 			prin either as-logic list/value ["true"]["false"]
    46. 

  46. 		]
    47. 

  47. 		if list/type = type-integer! [
    48. 

  48. 			prin-int list/value
    49. 

  49. 		]
    50. 

  50. 		if list/type = type-byte! [
    51. 

  51. 			prin-byte as-byte list/value
    52. 

  52. 		]
    53. 

  53. 		if list/type = type-c-string! [
    54. 

  54. 			prin as-c-string list/value
    55. 

  55. 		]
    56. 

  56. 		if list/type > 4 [
    57. 

  57. 			prin-hex list/value
    58. 

  58. 		]
    59. 

  59. 		list: list + 1
    60. 

  60. 		count: count - 1
    61. 

  61. 		if all [spaced? count <> 0][prin " "]
    62. 

  62. 		zero? count
    63. 

  63. 	]
    64. 

  64. ]
    65. 

  65. 

  66. ;-------------------------------------------
    67. 

  67. ;-- Polymorphic print in console
    68. 

  68. ;-- (inserts a space character between each item)
    69. 

  69. ;-------------------------------------------
    70. 

  70. print-wide: func [
    71. 

  71. 	[typed]	count [integer!] list [typed-value!]
    72. 

  72. ][
    73. 

  73. 	_print count list yes
    74. 

  74. ]
    75. 

  75. 

  76. ;-------------------------------------------
    77. 

  77. ;-- Polymorphic print in console
    78. 

  78. ;-------------------------------------------
    79. 

  79. print: func [
    80. 

  80. 	[typed]	count [integer!] list [typed-value!]
    81. 

  81. ][
    82. 

  82. 	_print count list no
    83. 

  83. ]
    84.