PageRenderTime 37ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 0ms

/fth/termio.fth

https://github.com/cataska/pforth
Forth | 88 lines | 74 code | 14 blank | 0 comment | 2 complexity | 09529f50b8e0fd875238ab7a35abed24 MD5 | raw file
    

  1. \ Terminal I/O

    2. 

  2. \

    3. 

  3. \ Requires an ANSI compatible terminal.

    4. 

  4. \

    5. 

  5. \ To get Windows computers to use ANSI mode in their DOS windows,

    6. 

  6. \ Add this line to "C:\CONFIG.SYS" then reboot.

    7. 

  7. \  

    8. 

  8. \  device=c:\windows\command\ansi.sys

    9. 

  9. \

    10. 

  10. \ Author: Phil Burk

    11. 

  11. \ Copyright 1988 Phil Burk

    12. 

  12. \ Revised 2001 for pForth

    13. 

  13. 

    14. 

  14. ANEW TASK-TERMIO.FTH

    15. 

  15. decimal

    16. 

  16. 

    17. 

  17. $ 08 constant ASCII_BACKSPACE

    18. 

  18. $ 7F constant ASCII_DELETE

    19. 

  19. $ 1B constant ASCII_ESCAPE

    20. 

  20. $ 01 constant ASCII_CTRL_A

    21. 

  21. $ 05 constant ASCII_CTRL_E

    22. 

  22. $ 18 constant ASCII_CTRL_X

    23. 

  23. 

    24. 

  24. \ ANSI Terminal Control

    25. 

  25. : ESC[ ( send ESCAPE and [ )

    26. 

  26. 	ASCII_ESCAPE emit

    27. 

  27. 	ascii [ emit

    28. 

  28. ;

    29. 

  29. 

    30. 

  30. : CLS ( -- , clear screen )

    31. 

  31. 	ESC[ ." 2J"

    32. 

  32. ;

    33. 

  33. 

    34. 

  34. : TIO.BACKWARDS ( n -- , move cursor backwards )

    35. 

  35. 	ESC[

    36. 

  36. 	base @ >r decimal

    37. 

  37. 	0 .r

    38. 

  38. 	r> base !

    39. 

  39. 	ascii D emit

    40. 

  40. ;

    41. 

  41. 

    42. 

  42. : TIO.FORWARDS ( n -- , move cursor forwards )

    43. 

  43. 	ESC[

    44. 

  44. 	base @ >r decimal

    45. 

  45. 	0 .r

    46. 

  46. 	r> base !

    47. 

  47. 	ascii C emit

    48. 

  48. ;

    49. 

  49. 

    50. 

  50. : TIO.ERASE.EOL ( -- , erase to the end of the line )

    51. 

  51. 	ESC[

    52. 

  52. 	ascii K emit

    53. 

  53. ;

    54. 

  54. 

    55. 

  55. 

    56. 

  56. : BELL ( -- , ring the terminal bell )

    57. 

  57. 	7 emit

    58. 

  58. ;

    59. 

  59. 

    60. 

  60. : BACKSPACE ( -- , backspace action )

    61. 

  61. 	8 emit  space  8 emit

    62. 

  62. ;

    63. 

  63. 

    64. 

  64. 0 [IF] \ for testing

    65. 

  65. 

    66. 

  66. : SHOWKEYS  ( -- , show keys pressed in hex )

    67. 

  67. 	BEGIN

    68. 

  68. 		key

    69. 

  69. 		dup .

    70. 

  70. 		." , $ " dup .hex cr

    71. 

  71. 		ascii q =

    72. 

  72. 	UNTIL

    73. 

  73. ;

    74. 

  74. 

    75. 

  75. : AZ ascii z 1+ ascii a DO i emit LOOP ;

    76. 

  76. 

    77. 

  77. : TEST.BACK1

    78. 

  78. 	AZ 5 tio.backwards

    79. 

  79. 	1000 msec

    80. 

  80. 	tio.erase.eol

    81. 

  81. ;

    82. 

  82. : TEST.BACK2

    83. 

  83. 	AZ 10 tio.backwards

    84. 

  84. 	1000 msec

    85. 

  85. 	." 12345"

    86. 

  86. 	1000 msec

    87. 

  87. ;

    88. 

  88. [THEN]

    89. 

  89.