PageRenderTime 60ms CodeModel.GetById 29ms RepoModel.GetById 1ms app.codeStats 0ms

/sys/boot/forth/screen.4th

https://github.com/oza/FreeBSD-8.0-dyntick
Forth | 36 lines | 27 code | 9 blank | 0 comment | 0 complexity | 5dc1f7695083adf327201c8c4c078fc1 MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, 0BSD, BSD-3-Clause 
    

  1. \ Screen manipulation related words.
    2. 

  2. \ $FreeBSD: src/sys/boot/forth/screen.4th,v 1.1.34.1.2.1 2009/10/25 01:10:29 kensmith Exp $
    3. 

  3. 

  4. marker task-screen.4th
    5. 

  5. 

  6. : escc	( -- )	\ emit Esc-[
    7. 

  7. 	91 27 emit emit
    8. 

  8. ;
    9. 

  9. 

  10. : ho	( -- )	\ Home cursor
    11. 

  11. 	escc 72 emit	\ Esc-[H
    12. 

  12. ;
    13. 

  13. 

  14. : cld	( -- )	\ Clear from current position to end of display
    15. 

  15. 	escc 74 emit	\ Esc-[J
    16. 

  16. ;
    17. 

  17. 

  18. : clear	( -- )	\ clear screen
    19. 

  19. 	ho cld
    20. 

  20. ;
    21. 

  21. 

  22. : at-xy	( x y -- )	\ move cursor to x rows, y cols (1-based coords)
    23. 

  23. 	escc .# 59 emit .# 72 emit	\ Esc-[%d;%dH
    24. 

  24. ;
    25. 

  25. 

  26. : fg	( x -- )	\ Set foreground color
    27. 

  27. 	escc 3 .# .# 109 emit	\ Esc-[3%dm
    28. 

  28. ;
    29. 

  29. 

  30. : bg	( x -- )	\ Set background color
    31. 

  31. 	escc 4 .# .# 109 emit	\ Esc-[4%dm
    32. 

  32. ;
    33. 

  33. 

  34. : me	( -- )	\ Mode end (clear attributes)
    35. 

  35. 	escc 109 emit
    36. 

  36. ;
    37. 

  37.