/sys/boot/forth/screen.4th

https://bitbucket.org/iorivur/freebsd-bhyve-with-suspend-resume · Forth · 36 lines · 27 code · 9 blank · 0 comment · 0 complexity · 14d6e76af7c43b68146696abbb4f401e MD5 · raw file 

    

  1. \ Screen manipulation related words.
    2. 

  2. \ $FreeBSD: head/sys/boot/forth/screen.4th 115410 2003-05-30 09:29:24Z scottl $
    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.