Skip to content

Commit 7c2ba50

Browse files
author
Rubens F. N. da Silva
committed
removes a little test i did
1 parent 6a2c989 commit 7c2ba50

File tree

3 files changed

+2
-244
lines changed

3 files changed

+2
-244
lines changed

‎mac/Port.mac‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,5 +3,5 @@ Install
33
quit
44

55
Wizard
6-
do ##class(Port.Wizard).Start()
7-
quit
6+
do ##class(Port.Wizard).Start()
7+
quit

‎port-prod.xml‎

Lines changed: 0 additions & 121 deletions
Original file line numberDiff line numberDiff line change
@@ -927,127 +927,6 @@ Install
927927
Wizard
928928
do ##class(Port.Wizard).Start()
929929
quit
930-
931-
/// This routine demonstrates Caché terminal escape sequences support.
932-
/// Created as standard for Caché WEB Terminal v2
933-
EscapeSequencesDemo
934-
s ESC = $c(27)
935-
s standardAttributes = $lb("Bright", "Dim", "", "Underscore", "Blink", "", "Reverse", "Hidden")
936-
s foregroundColors = $lb("Black", "Red", "Green", "Yellow", "Blue", "Magenta", "Cyan", "White")
937-
s backgroundColors = $lb("Black", "Red", "Green", "Yellow", "Blue", "Magenta", "Cyan", "White")
938-
939-
w #
940-
w "Screen cleared.", !
941-
942-
w !, "Standard attributes:", !
943-
for i=1:1:8 {
944-
if ($lg(standardAttributes, i) = "") continue
945-
w "[" , i, "m", ": ", ESC, "[", i, "m", $lg(standardAttributes, i), ESC, "[0m", " "
946-
}
947-
948-
w !!, "Foreground colors:", !
949-
for i=30:1:37 {
950-
if ($lg(foregroundColors, i-29) = "") continue
951-
w "[" , i, "m", ": ", ESC, "[", i, "m", $lg(foregroundColors, i-29), ESC, "[0m", " "
952-
}
953-
954-
w !!, "Background colors:", !
955-
for i=40:1:47 {
956-
if ($lg(backgroundColors, i-39) = "") continue
957-
w "[" , i, "m", ": ", ESC, "[", i, "m", $lg(backgroundColors, i-39), ESC, "[0m", " "
958-
}
959-
960-
w !!, "Combinations:"
961-
w !, ESC, "[31;1;46;4m", "Bright red underscored text on cyan background", ESC, "[0m", !
962-
w ESC, "[5;34;42;4m", "Blue blinking text on green background", ESC, "[0m", !
963-
964-
d Read
965-
w #
966-
967-
w !!, "Scrolling sequences.", !, "This", !, "Text", !, "Must", !, "Be", !, "Overwritten", !
968-
w ESC, "[18;22r"
969-
970-
for i=0:1:40 {
971-
if (i = 16) w ESC, "[4m"
972-
w "Line --------------- ", i, !
973-
if (i = 16) w ESC, "[0m"
974-
}
975-
976-
w !, "Here display scrolls. Next: \r, scroll 16 up, 1 down."
977-
r null
978-
w $c(13), ESC, "M", ESC, "M", ESC, "M", ESC, "M",
979-
ESC, "M", ESC, "M", ESC, "M", ESC, "M",
980-
ESC, "M", ESC, "M", ESC, "M", ESC, "M",
981-
ESC, "M", ESC, "M", ESC, "M", ESC, "M", ESC, "D"
982-
983-
w "Next: enable scrolling for entire display and clearing the screen."
984-
d Read
985-
w ESC, "[r", #
986-
987-
w !!, "Tab control: clear all tabs, set new tabs.", !!
988-
w ESC, "[3g"
989-
w " -1->", ESC, "H", " ---2--->", ESC, "H", " --------3------->", ESC, "H", " ---4--->", ESC, "H",
990-
" -------5------->", ESC, "H", !
991-
w $c(9), "1", $c(9), "2", $c(9), "3", $c(9), "4", $c(9), "5", !
992-
993-
w "clear tab position 3 ---------->", ESC, "[g", !
994-
w $c(9), "1", $c(9), "2", $c(9), "3", $c(9), "4", $c(9), "5", !
995-
d Read
996-
997-
w !!, "Device status queries:"
998-
w !, "<ESC>[c (Querying device code): ", ESC, "[c"
999-
r temp
1000-
w "RESPONSE: ", $replace(temp, ESC, "<ESC>"), ";"
1001-
w !, "<ESC>[5n (Querying device status): ", ESC, "[5n"
1002-
r temp
1003-
w "RESPONSE: ", $replace(temp, ESC, "<ESC>"), "; (<ESC>[0n = OK, <ESC>[3n = FAIL)"
1004-
w !, "<ESC>[6n (Querying cursor position): ", ESC, "[6n"
1005-
r temp
1006-
w "RESPONSE: ", $replace(temp, ESC, "<ESC>"), ";"
1007-
// it seems that Caché term isn't responding to this requests
1008-
1009-
// does this affects to something?
1010-
w !!, "Resetting device...", ESC, "c"
1011-
d Read
1012-
1013-
// Not effective for Caché term:
1014-
// <ESC>[7l (disable line wrap)
1015-
// <ESC>[7h (enable line wrap)
1016-
1017-
w #, !!, "Cursor control: move (38, 10), draw box."
1018-
w ESC, "[10;38H", "XX", ESC, "[1C", "XX", ESC, "[1B", ESC, "[1D", "X",
1019-
ESC, "[1B", ESC, "[1D", "X", ESC, "[5D", "XXXX", ESC, "[4D", ESC, "[1A", "X"
1020-
// Not effective for Caché term:
1021-
// <ESC>[s (save cursor)
1022-
// <ESC>[u (restore cursor)
1023-
// <ESC>[7 (save cursor with attributes)
1024-
// <ESC>[8 (restore cursor with attributes)
1025-
1026-
w !!, "this text", !!!, "will (except this line) be", !!!,
1027-
"e ", $c(10), "r ", $c(10), "a ", $c(10), "z ", $c(10), "e ",
1028-
$c(10), "d"
1029-
d Read
1030-
1031-
w ESC, "[1A", ESC, "[K" // erase "d" letter (till end of a line)
1032-
w ESC, "[2A", ESC, "[40C", "X", ESC, "[1K" // erase "z" letter (till start of a line)
1033-
w ESC, "[1B", ESC, "[2K" // erase "e" letter (whole line)
1034-
w ESC, "[5A", ESC, "[J" // erase "a", "r", "e" (to bottom)
1035-
w ESC, "[5A", ESC, "[1J" // erase screen to home except one line
1036-
w ESC, "[1;1H", "Erasing whole screen and finishing program."
1037-
d Read
1038-
1039-
w ESC, "[2J", !, "Done."
1040-
1041-
// check printing support (when printer is connected)
1042-
// define key support?
1043-
1044-
q
1045-
1046-
Read()
1047-
w !, "Press ENTER to continue..."
1048-
r null
1049-
q
1050-
1051930
]]></Routine>
1052931

1053932

‎port.xml‎

Lines changed: 0 additions & 121 deletions
Original file line numberDiff line numberDiff line change
@@ -927,127 +927,6 @@ Install
927927
Wizard
928928
do ##class(Port.Wizard).Start()
929929
quit
930-
931-
/// This routine demonstrates Caché terminal escape sequences support.
932-
/// Created as standard for Caché WEB Terminal v2
933-
EscapeSequencesDemo
934-
s ESC = $c(27)
935-
s standardAttributes = $lb("Bright", "Dim", "", "Underscore", "Blink", "", "Reverse", "Hidden")
936-
s foregroundColors = $lb("Black", "Red", "Green", "Yellow", "Blue", "Magenta", "Cyan", "White")
937-
s backgroundColors = $lb("Black", "Red", "Green", "Yellow", "Blue", "Magenta", "Cyan", "White")
938-
939-
w #
940-
w "Screen cleared.", !
941-
942-
w !, "Standard attributes:", !
943-
for i=1:1:8 {
944-
if ($lg(standardAttributes, i) = "") continue
945-
w "[" , i, "m", ": ", ESC, "[", i, "m", $lg(standardAttributes, i), ESC, "[0m", " "
946-
}
947-
948-
w !!, "Foreground colors:", !
949-
for i=30:1:37 {
950-
if ($lg(foregroundColors, i-29) = "") continue
951-
w "[" , i, "m", ": ", ESC, "[", i, "m", $lg(foregroundColors, i-29), ESC, "[0m", " "
952-
}
953-
954-
w !!, "Background colors:", !
955-
for i=40:1:47 {
956-
if ($lg(backgroundColors, i-39) = "") continue
957-
w "[" , i, "m", ": ", ESC, "[", i, "m", $lg(backgroundColors, i-39), ESC, "[0m", " "
958-
}
959-
960-
w !!, "Combinations:"
961-
w !, ESC, "[31;1;46;4m", "Bright red underscored text on cyan background", ESC, "[0m", !
962-
w ESC, "[5;34;42;4m", "Blue blinking text on green background", ESC, "[0m", !
963-
964-
d Read
965-
w #
966-
967-
w !!, "Scrolling sequences.", !, "This", !, "Text", !, "Must", !, "Be", !, "Overwritten", !
968-
w ESC, "[18;22r"
969-
970-
for i=0:1:40 {
971-
if (i = 16) w ESC, "[4m"
972-
w "Line --------------- ", i, !
973-
if (i = 16) w ESC, "[0m"
974-
}
975-
976-
w !, "Here display scrolls. Next: \r, scroll 16 up, 1 down."
977-
r null
978-
w $c(13), ESC, "M", ESC, "M", ESC, "M", ESC, "M",
979-
ESC, "M", ESC, "M", ESC, "M", ESC, "M",
980-
ESC, "M", ESC, "M", ESC, "M", ESC, "M",
981-
ESC, "M", ESC, "M", ESC, "M", ESC, "M", ESC, "D"
982-
983-
w "Next: enable scrolling for entire display and clearing the screen."
984-
d Read
985-
w ESC, "[r", #
986-
987-
w !!, "Tab control: clear all tabs, set new tabs.", !!
988-
w ESC, "[3g"
989-
w " -1->", ESC, "H", " ---2--->", ESC, "H", " --------3------->", ESC, "H", " ---4--->", ESC, "H",
990-
" -------5------->", ESC, "H", !
991-
w $c(9), "1", $c(9), "2", $c(9), "3", $c(9), "4", $c(9), "5", !
992-
993-
w "clear tab position 3 ---------->", ESC, "[g", !
994-
w $c(9), "1", $c(9), "2", $c(9), "3", $c(9), "4", $c(9), "5", !
995-
d Read
996-
997-
w !!, "Device status queries:"
998-
w !, "<ESC>[c (Querying device code): ", ESC, "[c"
999-
r temp
1000-
w "RESPONSE: ", $replace(temp, ESC, "<ESC>"), ";"
1001-
w !, "<ESC>[5n (Querying device status): ", ESC, "[5n"
1002-
r temp
1003-
w "RESPONSE: ", $replace(temp, ESC, "<ESC>"), "; (<ESC>[0n = OK, <ESC>[3n = FAIL)"
1004-
w !, "<ESC>[6n (Querying cursor position): ", ESC, "[6n"
1005-
r temp
1006-
w "RESPONSE: ", $replace(temp, ESC, "<ESC>"), ";"
1007-
// it seems that Caché term isn't responding to this requests
1008-
1009-
// does this affects to something?
1010-
w !!, "Resetting device...", ESC, "c"
1011-
d Read
1012-
1013-
// Not effective for Caché term:
1014-
// <ESC>[7l (disable line wrap)
1015-
// <ESC>[7h (enable line wrap)
1016-
1017-
w #, !!, "Cursor control: move (38, 10), draw box."
1018-
w ESC, "[10;38H", "XX", ESC, "[1C", "XX", ESC, "[1B", ESC, "[1D", "X",
1019-
ESC, "[1B", ESC, "[1D", "X", ESC, "[5D", "XXXX", ESC, "[4D", ESC, "[1A", "X"
1020-
// Not effective for Caché term:
1021-
// <ESC>[s (save cursor)
1022-
// <ESC>[u (restore cursor)
1023-
// <ESC>[7 (save cursor with attributes)
1024-
// <ESC>[8 (restore cursor with attributes)
1025-
1026-
w !!, "this text", !!!, "will (except this line) be", !!!,
1027-
"e ", $c(10), "r ", $c(10), "a ", $c(10), "z ", $c(10), "e ",
1028-
$c(10), "d"
1029-
d Read
1030-
1031-
w ESC, "[1A", ESC, "[K" // erase "d" letter (till end of a line)
1032-
w ESC, "[2A", ESC, "[40C", "X", ESC, "[1K" // erase "z" letter (till start of a line)
1033-
w ESC, "[1B", ESC, "[2K" // erase "e" letter (whole line)
1034-
w ESC, "[5A", ESC, "[J" // erase "a", "r", "e" (to bottom)
1035-
w ESC, "[5A", ESC, "[1J" // erase screen to home except one line
1036-
w ESC, "[1;1H", "Erasing whole screen and finishing program."
1037-
d Read
1038-
1039-
w ESC, "[2J", !, "Done."
1040-
1041-
// check printing support (when printer is connected)
1042-
// define key support?
1043-
1044-
q
1045-
1046-
Read()
1047-
w !, "Press ENTER to continue..."
1048-
r null
1049-
q
1050-
1051930
]]></Routine>
1052931

1053932

0 commit comments

Comments
 (0)