1 /* 2 * $Id: trace.c,v 1.14 2011/06/21 21:12:56 tom Exp $ 3 * 4 * trace.c -- implements screen-dump and keystroke-logging 5 * 6 * Copyright 2007-2010,2011 Thomas E. Dickey 7 * 8 * This program is free software; you can redistribute it and/or modify 9 * it under the terms of the GNU Lesser General Public License, version 2.1 10 * 11 * This program is distributed in the hope that it will be useful, but 12 * WITHOUT ANY WARRANTY; without even the implied warranty of 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 14 * Lesser General Public License for more details. 15 * 16 * You should have received a copy of the GNU Lesser General Public 17 * License along with this program; if not, write to 18 * Free Software Foundation, Inc. 19 * 51 Franklin St., Fifth Floor 20 * Boston, MA 02110, USA. 21 */ 22 23 #include <dialog.h> 24 25 #ifdef HAVE_DLG_TRACE 26 27 #include <dlg_keys.h> 28 #include <time.h> 29 30 #define myFP dialog_state.trace_output 31 32 static void 33 dlg_trace_time(const char *tag) 34 { 35 time_t now = time((time_t *) 0); 36 fprintf(myFP, "%s %s", tag, ctime(&now)); 37 } 38 39 void 40 dlg_trace_msg(const char *fmt,...) 41 { 42 if (myFP != 0) { 43 va_list ap; 44 va_start(ap, fmt); 45 vfprintf(myFP, fmt, ap); 46 va_end(ap); 47 fflush(myFP); 48 } 49 } 50 51 void 52 dlg_trace_win(WINDOW *win) 53 { 54 if (myFP != 0) { 55 int y, x; 56 int j, k; 57 int rc = getmaxy(win); 58 int cc = getmaxx(win); 59 chtype ch, c2; 60 61 fprintf(myFP, "window %dx%d at %d,%d\n", 62 rc, cc, getbegy(win), getbegx(win)); 63 64 getyx(win, y, x); 65 for (j = 0; j < rc; ++j) { 66 fprintf(myFP, "%3d:", j); 67 for (k = 0; k < cc; ++k) { 68 ch = mvwinch(win, j, k) & (A_CHARTEXT | A_ALTCHARSET); 69 c2 = dlg_asciibox(ch); 70 if (c2 != 0) { 71 ch = c2; 72 } else if (unctrl(ch) == 0 || strlen(unctrl(ch)) > 1) { 73 ch = '.'; 74 } 75 fputc((int) (ch & 0xff), myFP); 76 } 77 fputc('\n', myFP); 78 } 79 wmove(win, y, x); 80 fflush(myFP); 81 } 82 } 83 84 void 85 dlg_trace_chr(int ch, int fkey) 86 { 87 if (myFP != 0) { 88 const char *fkey_name = "?"; 89 if (fkey) { 90 if (fkey > KEY_MAX || (fkey_name = keyname(fkey)) == 0) { 91 #define CASE(name) case name: fkey_name = #name; break 92 switch ((DLG_KEYS_ENUM) fkey) { 93 CASE(DLGK_MIN); 94 CASE(DLGK_OK); 95 CASE(DLGK_CANCEL); 96 CASE(DLGK_EXTRA); 97 CASE(DLGK_HELP); 98 CASE(DLGK_ESC); 99 CASE(DLGK_PAGE_FIRST); 100 CASE(DLGK_PAGE_LAST); 101 CASE(DLGK_PAGE_NEXT); 102 CASE(DLGK_PAGE_PREV); 103 CASE(DLGK_ITEM_FIRST); 104 CASE(DLGK_ITEM_LAST); 105 CASE(DLGK_ITEM_NEXT); 106 CASE(DLGK_ITEM_PREV); 107 CASE(DLGK_FIELD_FIRST); 108 CASE(DLGK_FIELD_LAST); 109 CASE(DLGK_FIELD_NEXT); 110 CASE(DLGK_FIELD_PREV); 111 CASE(DLGK_GRID_UP); 112 CASE(DLGK_GRID_DOWN); 113 CASE(DLGK_GRID_LEFT); 114 CASE(DLGK_GRID_RIGHT); 115 CASE(DLGK_DELETE_LEFT); 116 CASE(DLGK_DELETE_RIGHT); 117 CASE(DLGK_DELETE_ALL); 118 CASE(DLGK_ENTER); 119 CASE(DLGK_BEGIN); 120 CASE(DLGK_FINAL); 121 CASE(DLGK_SELECT); 122 CASE(DLGK_HELPFILE); 123 CASE(DLGK_TRACE); 124 } 125 } 126 } else if (ch == ERR) { 127 fkey_name = "ERR"; 128 } else { 129 fkey_name = unctrl((chtype) ch); 130 if (fkey_name == 0) 131 fkey_name = "UNKNOWN"; 132 } 133 fprintf(myFP, "chr %s (ch=%#x, fkey=%d)\n", 134 fkey_name, 135 ch, fkey); 136 fflush(myFP); 137 } 138 } 139 140 void 141 dlg_trace(const char *fname) 142 { 143 if (fname != 0) { 144 if (myFP == 0) { 145 myFP = fopen(fname, "a"); 146 if (myFP != 0) { 147 dlg_trace_time("** opened at"); 148 dlg_trace_msg("** dialog %s\n", dialog_version()); 149 } 150 } 151 } else if (myFP != 0) { 152 dlg_trace_time("** closed at"); 153 fclose(myFP); 154 myFP = 0; 155 } 156 } 157 #else 158 #undef dlg_trace 159 extern void dlg_trace(const char *); 160 void 161 dlg_trace(const char *fname) 162 { 163 (void) fname; 164 } 165 #endif 166