From 1bb7a68ecb8e06d87b9b9e74d30a6615d34cb7f4 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 20 Jun 2016 14:33:39 -0700 Subject: [PATCH] curses: don't use /* */ comments. --- ffi/curses/curses.factor | 194 +++++++++++++++++++-------------------- 1 file changed, 97 insertions(+), 97 deletions(-) diff --git a/ffi/curses/curses.factor b/ffi/curses/curses.factor index 63792b7e33..d9b7496659 100644 --- a/ffi/curses/curses.factor +++ b/ffi/curses/curses.factor @@ -3,7 +3,7 @@ USING: accessors alien.c-types alien.data alien.strings classes.struct combinators continuations destructors fry -io.encodings.utf8 kernel libc locals math memoize multiline +io.encodings.utf8 kernel libc locals math memoize namespaces sequences unix.ffi ; QUALIFIED-WITH: curses.ffi ffi ; @@ -41,102 +41,102 @@ CONSTANT: A_RIGHT 268435456 ; CONSTANT: A_TOP 536870912 ; CONSTANT: A_VERTICAL 1073741824 ; -CONSTANT: KEY_CODE_YES 0o400 ; /* A wchar_t contains a key code */ -CONSTANT: KEY_MIN 0o401 ; /* Minimum curses key */ -CONSTANT: KEY_BREAK 0o401 ; /* Break key (unreliable) */ -CONSTANT: KEY_SRESET 0o530 ; /* Soft (partial) reset (unreliable) */ -CONSTANT: KEY_RESET 0o531 ; /* Reset or hard reset (unreliable) */ -CONSTANT: KEY_DOWN 0o402 ; /* down-arrow key */ -CONSTANT: KEY_UP 0o403 ; /* up-arrow key */ -CONSTANT: KEY_LEFT 0o404 ; /* left-arrow key */ -CONSTANT: KEY_RIGHT 0o405 ; /* right-arrow key */ -CONSTANT: KEY_HOME 0o406 ; /* home key */ -CONSTANT: KEY_BACKSPACE 0o407 ; /* backspace key */ -CONSTANT: KEY_DL 0o510 ; /* delete-line key */ -CONSTANT: KEY_IL 0o511 ; /* insert-line key */ -CONSTANT: KEY_DC 0o512 ; /* delete-character key */ -CONSTANT: KEY_IC 0o513 ; /* insert-character key */ -CONSTANT: KEY_EIC 0o514 ; /* sent by rmir or smir in insert mode */ -CONSTANT: KEY_CLEAR 0o515 ; /* clear-screen or erase key */ -CONSTANT: KEY_EOS 0o516 ; /* clear-to-end-of-screen key */ -CONSTANT: KEY_EOL 0o517 ; /* clear-to-end-of-line key */ -CONSTANT: KEY_SF 0o520 ; /* scroll-forward key */ -CONSTANT: KEY_SR 0o521 ; /* scroll-backward key */ -CONSTANT: KEY_NPAGE 0o522 ; /* next-page key */ -CONSTANT: KEY_PPAGE 0o523 ; /* previous-page key */ -CONSTANT: KEY_STAB 0o524 ; /* set-tab key */ -CONSTANT: KEY_CTAB 0o525 ; /* clear-tab key */ -CONSTANT: KEY_CATAB 0o526 ; /* clear-all-tabs key */ -CONSTANT: KEY_ENTER 0o527 ; /* enter/send key */ -CONSTANT: KEY_PRINT 0o532 ; /* print key */ -CONSTANT: KEY_LL 0o533 ; /* lower-left key (home down) */ -CONSTANT: KEY_A1 0o534 ; /* upper left of keypad */ -CONSTANT: KEY_A3 0o535 ; /* upper right of keypad */ -CONSTANT: KEY_B2 0o536 ; /* center of keypad */ -CONSTANT: KEY_C1 0o537 ; /* lower left of keypad */ -CONSTANT: KEY_C3 0o540 ; /* lower right of keypad */ -CONSTANT: KEY_BTAB 0o541 ; /* back-tab key */ -CONSTANT: KEY_BEG 0o542 ; /* begin key */ -CONSTANT: KEY_CANCEL 0o543 ; /* cancel key */ -CONSTANT: KEY_CLOSE 0o544 ; /* close key */ -CONSTANT: KEY_COMMAND 0o545 ; /* command key */ -CONSTANT: KEY_COPY 0o546 ; /* copy key */ -CONSTANT: KEY_CREATE 0o547 ; /* create key */ -CONSTANT: KEY_END 0o550 ; /* end key */ -CONSTANT: KEY_EXIT 0o551 ; /* exit key */ -CONSTANT: KEY_FIND 0o552 ; /* find key */ -CONSTANT: KEY_HELP 0o553 ; /* help key */ -CONSTANT: KEY_MARK 0o554 ; /* mark key */ -CONSTANT: KEY_MESSAGE 0o555 ; /* message key */ -CONSTANT: KEY_MOVE 0o556 ; /* move key */ -CONSTANT: KEY_NEXT 0o557 ; /* next key */ -CONSTANT: KEY_OPEN 0o560 ; /* open key */ -CONSTANT: KEY_OPTIONS 0o561 ; /* options key */ -CONSTANT: KEY_PREVIOUS 0o562 ; /* previous key */ -CONSTANT: KEY_REDO 0o563 ; /* redo key */ -CONSTANT: KEY_REFERENCE 0o564 ; /* reference key */ -CONSTANT: KEY_REFRESH 0o565 ; /* refresh key */ -CONSTANT: KEY_REPLACE 0o566 ; /* replace key */ -CONSTANT: KEY_RESTART 0o567 ; /* restart key */ -CONSTANT: KEY_RESUME 0o570 ; /* resume key */ -CONSTANT: KEY_SAVE 0o571 ; /* save key */ -CONSTANT: KEY_SBEG 0o572 ; /* shifted begin key */ -CONSTANT: KEY_SCANCEL 0o573 ; /* shifted cancel key */ -CONSTANT: KEY_SCOMMAND 0o574 ; /* shifted command key */ -CONSTANT: KEY_SCOPY 0o575 ; /* shifted copy key */ -CONSTANT: KEY_SCREATE 0o576 ; /* shifted create key */ -CONSTANT: KEY_SDC 0o577 ; /* shifted delete-character key */ -CONSTANT: KEY_SDL 0o600 ; /* shifted delete-line key */ -CONSTANT: KEY_SELECT 0o601 ; /* select key */ -CONSTANT: KEY_SEND 0o602 ; /* shifted end key */ -CONSTANT: KEY_SEOL 0o603 ; /* shifted clear-to-end-of-line key */ -CONSTANT: KEY_SEXIT 0o604 ; /* shifted exit key */ -CONSTANT: KEY_SFIND 0o605 ; /* shifted find key */ -CONSTANT: KEY_SHELP 0o606 ; /* shifted help key */ -CONSTANT: KEY_SHOME 0o607 ; /* shifted home key */ -CONSTANT: KEY_SIC 0o610 ; /* shifted insert-character key */ -CONSTANT: KEY_SLEFT 0o611 ; /* shifted left-arrow key */ -CONSTANT: KEY_SMESSAGE 0o612 ; /* shifted message key */ -CONSTANT: KEY_SMOVE 0o613 ; /* shifted move key */ -CONSTANT: KEY_SNEXT 0o614 ; /* shifted next key */ -CONSTANT: KEY_SOPTIONS 0o615 ; /* shifted options key */ -CONSTANT: KEY_SPREVIOUS 0o616 ; /* shifted previous key */ -CONSTANT: KEY_SPRINT 0o617 ; /* shifted print key */ -CONSTANT: KEY_SREDO 0o620 ; /* shifted redo key */ -CONSTANT: KEY_SREPLACE 0o621 ; /* shifted replace key */ -CONSTANT: KEY_SRIGHT 0o622 ; /* shifted right-arrow key */ -CONSTANT: KEY_SRSUME 0o623 ; /* shifted resume key */ -CONSTANT: KEY_SSAVE 0o624 ; /* shifted save key */ -CONSTANT: KEY_SSUSPEND 0o625 ; /* shifted suspend key */ -CONSTANT: KEY_SUNDO 0o626 ; /* shifted undo key */ -CONSTANT: KEY_SUSPEND 0o627 ; /* suspend key */ -CONSTANT: KEY_UNDO 0o630 ; /* undo key */ -CONSTANT: KEY_MOUSE 0o631 ; /* Mouse event has occurred */ -CONSTANT: KEY_RESIZE 0o632 ; /* Terminal resize event */ -CONSTANT: KEY_EVENT 0o633 ; /* We were interrupted by an event */ -CONSTANT: KEY_MAX 0o777 ; /* Maximum key value is 0633 */ -CONSTANT: KEY_F0 0o410 ; /* Function keys. Space for 64 */ -: KEY_F ( n -- code ) KEY_F0 + ; inline /* Value of function key n */ +CONSTANT: KEY_CODE_YES 0o400 ; ! A wchar_t contains a key code +CONSTANT: KEY_MIN 0o401 ; ! Minimum curses key +CONSTANT: KEY_BREAK 0o401 ; ! Break key (unreliable) +CONSTANT: KEY_SRESET 0o530 ; ! Soft (partial) reset (unreliable) +CONSTANT: KEY_RESET 0o531 ; ! Reset or hard reset (unreliable) +CONSTANT: KEY_DOWN 0o402 ; ! down-arrow key +CONSTANT: KEY_UP 0o403 ; ! up-arrow key +CONSTANT: KEY_LEFT 0o404 ; ! left-arrow key +CONSTANT: KEY_RIGHT 0o405 ; ! right-arrow key +CONSTANT: KEY_HOME 0o406 ; ! home key +CONSTANT: KEY_BACKSPACE 0o407 ; ! backspace key +CONSTANT: KEY_DL 0o510 ; ! delete-line key +CONSTANT: KEY_IL 0o511 ; ! insert-line key +CONSTANT: KEY_DC 0o512 ; ! delete-character key +CONSTANT: KEY_IC 0o513 ; ! insert-character key +CONSTANT: KEY_EIC 0o514 ; ! sent by rmir or smir in insert mode +CONSTANT: KEY_CLEAR 0o515 ; ! clear-screen or erase key +CONSTANT: KEY_EOS 0o516 ; ! clear-to-end-of-screen key +CONSTANT: KEY_EOL 0o517 ; ! clear-to-end-of-line key +CONSTANT: KEY_SF 0o520 ; ! scroll-forward key +CONSTANT: KEY_SR 0o521 ; ! scroll-backward key +CONSTANT: KEY_NPAGE 0o522 ; ! next-page key +CONSTANT: KEY_PPAGE 0o523 ; ! previous-page key +CONSTANT: KEY_STAB 0o524 ; ! set-tab key +CONSTANT: KEY_CTAB 0o525 ; ! clear-tab key +CONSTANT: KEY_CATAB 0o526 ; ! clear-all-tabs key +CONSTANT: KEY_ENTER 0o527 ; ! enter/send key +CONSTANT: KEY_PRINT 0o532 ; ! print key +CONSTANT: KEY_LL 0o533 ; ! lower-left key (home down) +CONSTANT: KEY_A1 0o534 ; ! upper left of keypad +CONSTANT: KEY_A3 0o535 ; ! upper right of keypad +CONSTANT: KEY_B2 0o536 ; ! center of keypad +CONSTANT: KEY_C1 0o537 ; ! lower left of keypad +CONSTANT: KEY_C3 0o540 ; ! lower right of keypad +CONSTANT: KEY_BTAB 0o541 ; ! back-tab key +CONSTANT: KEY_BEG 0o542 ; ! begin key +CONSTANT: KEY_CANCEL 0o543 ; ! cancel key +CONSTANT: KEY_CLOSE 0o544 ; ! close key +CONSTANT: KEY_COMMAND 0o545 ; ! command key +CONSTANT: KEY_COPY 0o546 ; ! copy key +CONSTANT: KEY_CREATE 0o547 ; ! create key +CONSTANT: KEY_END 0o550 ; ! end key +CONSTANT: KEY_EXIT 0o551 ; ! exit key +CONSTANT: KEY_FIND 0o552 ; ! find key +CONSTANT: KEY_HELP 0o553 ; ! help key +CONSTANT: KEY_MARK 0o554 ; ! mark key +CONSTANT: KEY_MESSAGE 0o555 ; ! message key +CONSTANT: KEY_MOVE 0o556 ; ! move key +CONSTANT: KEY_NEXT 0o557 ; ! next key +CONSTANT: KEY_OPEN 0o560 ; ! open key +CONSTANT: KEY_OPTIONS 0o561 ; ! options key +CONSTANT: KEY_PREVIOUS 0o562 ; ! previous key +CONSTANT: KEY_REDO 0o563 ; ! redo key +CONSTANT: KEY_REFERENCE 0o564 ; ! reference key +CONSTANT: KEY_REFRESH 0o565 ; ! refresh key +CONSTANT: KEY_REPLACE 0o566 ; ! replace key +CONSTANT: KEY_RESTART 0o567 ; ! restart key +CONSTANT: KEY_RESUME 0o570 ; ! resume key +CONSTANT: KEY_SAVE 0o571 ; ! save key +CONSTANT: KEY_SBEG 0o572 ; ! shifted begin key +CONSTANT: KEY_SCANCEL 0o573 ; ! shifted cancel key +CONSTANT: KEY_SCOMMAND 0o574 ; ! shifted command key +CONSTANT: KEY_SCOPY 0o575 ; ! shifted copy key +CONSTANT: KEY_SCREATE 0o576 ; ! shifted create key +CONSTANT: KEY_SDC 0o577 ; ! shifted delete-character key +CONSTANT: KEY_SDL 0o600 ; ! shifted delete-line key +CONSTANT: KEY_SELECT 0o601 ; ! select key +CONSTANT: KEY_SEND 0o602 ; ! shifted end key +CONSTANT: KEY_SEOL 0o603 ; ! shifted clear-to-end-of-line key +CONSTANT: KEY_SEXIT 0o604 ; ! shifted exit key +CONSTANT: KEY_SFIND 0o605 ; ! shifted find key +CONSTANT: KEY_SHELP 0o606 ; ! shifted help key +CONSTANT: KEY_SHOME 0o607 ; ! shifted home key +CONSTANT: KEY_SIC 0o610 ; ! shifted insert-character key +CONSTANT: KEY_SLEFT 0o611 ; ! shifted left-arrow key +CONSTANT: KEY_SMESSAGE 0o612 ; ! shifted message key +CONSTANT: KEY_SMOVE 0o613 ; ! shifted move key +CONSTANT: KEY_SNEXT 0o614 ; ! shifted next key +CONSTANT: KEY_SOPTIONS 0o615 ; ! shifted options key +CONSTANT: KEY_SPREVIOUS 0o616 ; ! shifted previous key +CONSTANT: KEY_SPRINT 0o617 ; ! shifted print key +CONSTANT: KEY_SREDO 0o620 ; ! shifted redo key +CONSTANT: KEY_SREPLACE 0o621 ; ! shifted replace key +CONSTANT: KEY_SRIGHT 0o622 ; ! shifted right-arrow key +CONSTANT: KEY_SRSUME 0o623 ; ! shifted resume key +CONSTANT: KEY_SSAVE 0o624 ; ! shifted save key +CONSTANT: KEY_SSUSPEND 0o625 ; ! shifted suspend key +CONSTANT: KEY_SUNDO 0o626 ; ! shifted undo key +CONSTANT: KEY_SUSPEND 0o627 ; ! suspend key +CONSTANT: KEY_UNDO 0o630 ; ! undo key +CONSTANT: KEY_MOUSE 0o631 ; ! Mouse event has occurred +CONSTANT: KEY_RESIZE 0o632 ; ! Terminal resize event +CONSTANT: KEY_EVENT 0o633 ; ! We were interrupted by an event +CONSTANT: KEY_MAX 0o777 ; ! Maximum key value is 0633 +CONSTANT: KEY_F0 0o410 ; ! Function keys. Space for 64 +: KEY_F ( n -- code ) KEY_F0 + ; inline ! Value of function key n : BUTTON1_RELEASED ( -- mask ) 1 ffi:NCURSES_BUTTON_RELEASED ffi:NCURSES_MOUSE_MASK ; inline : BUTTON1_PRESSED ( -- mask ) 1 ffi:NCURSES_BUTTON_PRESSED ffi:NCURSES_MOUSE_MASK ; inline