signal handlers

diff --git a/signal/prj b/signal/prj
new file mode 100644 (file)
index 0000000..dc0d987
--- /dev/null
+++ b/signal/prj
@@ -0,0 +1,4 @@
+\e[?25l\e[J\e[J\e[J\e[J\e[J\e[J\e[34h\e[?25h\e[?1049h\e[?1h\e=\e[1;54r\e[23m\e[24m\e[0m\e[H\e[J\e[?25l\e[54;1H"Clean System Files" is a directory\e[2;1H\e[1m\e[34m~                                                                                              \e[3;1H~                                                                                              \e[4;1H~                                                                                              \e[5;1H~                                                                                              \e[6;1H~                                                                                              \e[7;1H~                                                                                              \e[8;1H~                                                                                              \e[9;1H~                                                                                              \e[10;1H~                                                                                              \e[11;1H~                                                                                              \e[12;1H~                                                                                              \e[13;1H~                                                                                              \e[14;1H~                                                                                              \e[15;1H~                                                                                              \e[16;1H~                                                                                              \e[17;1H~                                                                                              \e[18;1H~                                                                                              \e[19;1H~                                                                                              \e[20;1H~                                                                                              \e[21;1H~                                                                                              \e[22;1H~                                                                                              \e[23;1H~                                                                                              \e[24;1H~                                                                                              \e[25;1H~                                                                                              \e[26;1H~                                                                                              \e[27;1H~                                                                                              \e[28;1H~                                                                                              \e[29;1H~                                                                                              \e[30;1H~                                                                                              \e[31;1H~                                                                                              \e[32;1H~                                                                                              \e[33;1H~                                                                                              \e[34;1H~                                                                                              \e[35;1H~                                                                                              \e[36;1H~                                                                                              \e[37;1H~                                                                                              \e[38;1H~                                                                                              \e[39;1H~                                                                                              \e[40;1H~                                                                                              \e[41;1H~                                                                                              \e[42;1H~                                                                                              \e[43;1H~                                                                                              \e[44;1H~                                                                                              \e[45;1H~                                                                                              \e[46;1H~                                                                                              \e[47;1H~                                                                                              \e[48;1H~                                                                                              \e[49;1H~                                                                                              \e[50;1H~                                                                                              \e[51;1H~                                                                                              \e[52;1H~                                                                                              \e[53;1H~                                                                                              \e[1;1H\e[34h\e[?25h\a\a\e[?25l\e[0m\e[54;1HType  :qa!  and press <Enter> to abandon all changes and exit Vim\e[1;1H\e[34h\e[?25h\e[?25l\e[34h\e[?25h\e[?25l\a\e[34h\e[?25h\e[54;1H\r
+\e[?1l\e>\e[?1049l\e[34h\e[?25h\e[34h\e[?25h\e[?1049h\e[?1h\e=\e[23m\e[24m\e[0m\e[H\e[J\e[?25l\e[2;1H\e[1m\e[34m~                                                                                              \e[3;1H~                                                                                              \e[4;1H~                                                                                              \e[5;1H~                                                                                              \e[6;1H~                                                                                              \e[7;1H~                                                                                              \e[8;1H~                                                                                              \e[9;1H~                                                                                              \e[10;1H~                                                                                              \e[11;1H~                                                                                              \e[12;1H~                                                                                              \e[13;1H~                                                                                              \e[14;1H~                                                                                              \e[15;1H~                                                                                              \e[16;1H~                                                                                              \e[17;1H~                                                                                              \e[18;1H~                                                                                              \e[19;1H~                                                                                              \e[20;1H~                                                                                              \e[21;1H~                                                                                              \e[22;1H~                                                                                              \e[23;1H~                                                                                              \e[24;1H~                                                                                              \e[25;1H~                                                                                              \e[26;1H~                                                                                              \e[27;1H~                                                                                              \e[28;1H~                                                                                              \e[29;1H~                                                                                              \e[30;1H~                                                                                              \e[31;1H~                                                                                              \e[32;1H~                                                                                              \e[33;1H~                                                                                              \e[34;1H~                                                                                              \e[35;1H~                                                                                              \e[36;1H~                                                                                              \e[37;1H~                                                                                              \e[38;1H~                                                                                              \e[39;1H~                                                                                              \e[40;1H~                                                                                              \e[41;1H~                                                                                              \e[42;1H~                                                                                              \e[43;1H~                                                                                              \e[44;1H~                                                                                              \e[45;1H~                                                                                              \e[46;1H~                                                                                              \e[47;1H~                                                                                              \e[48;1H~                                                                                              \e[49;1H~                                                                                              \e[50;1H~                                                                                              \e[51;1H~                                                                                              \e[52;1H~                                                                                              \e[53;1H~                                                                                              \e[1;1H\e[34h\e[?25h\e[54;1H\e[0m\e[?1l\e>\e[?1049lVim: Caught deadly signal TERM\r
+Vim: Finished.\r
+\e[54;1H
\ No newline at end of file

diff --git a/signal/test.icl b/signal/test.icl
index bc33213..8a27d9a 100644 (file)
--- a/signal/test.icl
+++ b/signal/test.icl
@@ -5,6 +5,8 @@ import Data.Error
 import System.Signal
 import System.OSError
 
+import code from "bork."
+
 Start w
        = case signalInstall 2 w of
                (Error (_, m), w) = "signalInstall: " +++ toString m