Mercurial > vim
annotate src/nbdebug.c @ 10948:67e37bdb5864 v8.0.0363
patch 8.0.0363: Travis is too slow to keep up with patches
commit https://github.com/vim/vim/commit/3834e3d039777e0144914a86289870bee147c0a2
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Feb 23 20:20:53 2017 +0100
patch 8.0.0363: Travis is too slow to keep up with patches
Problem: Travis is too slow to keep up with patches.
Solution: Increase git depth to 20
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 23 Feb 2017 20:30:06 +0100 |
parents | 7a4fb555c83a |
children | 41fbbcea0f1b |
rev | line source |
---|---|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
1 /* vi:set ts=8 sw=8 noet: |
7 | 2 * |
3 * VIM - Vi IMproved by Bram Moolenaar | |
4 * Visual Workshop integration by Gordon Prieur | |
5 * | |
6 * Do ":help uganda" in Vim to read copying and usage conditions. | |
7 * Do ":help credits" in Vim to see a list of people who contributed. | |
8 * See README.txt for an overview of the Vim source code. | |
9 */ | |
10 | |
11 /* | |
12 * NetBeans Debugging Tools. What are these tools and why are they important? | |
13 * There are two main tools here. The first tool is a tool for delaying or | |
14 * stopping gvim during startup. The second tool is a protocol log tool. | |
15 * | |
16 * The startup delay tool is called nbdebug_wait(). This is very important for | |
17 * debugging startup problems because gvim will be started automatically from | |
18 * netbeans and cannot be run directly from a debugger. The only way to debug | |
19 * a gvim started by netbeans is by attaching a debugger to it. Without this | |
4352 | 20 * tool all startup code will have completed before you can get the pid and |
7 | 21 * attach. |
22 * | |
23 * The second tool is a log tool. | |
24 * | |
25 * This code must have NBDEBUG defined for it to be compiled into vim/gvim. | |
26 */ | |
27 | |
28 #ifdef NBDEBUG | |
29 | |
30 #include "vim.h" | |
31 | |
32 FILE *nb_debug = NULL; | |
33 u_int nb_dlevel = 0; /* nb_debug verbosity level */ | |
34 | |
35 void nbdb(char *, ...); | |
36 | |
37 static int lookup(char *); | |
1621 | 38 #ifdef USE_NB_ERRORHANDLER |
7 | 39 static int errorHandler(Display *, XErrorEvent *); |
40 #endif | |
41 | |
42 /* | |
43 * nbdebug_wait - This function can be used to delay or stop execution of vim. | |
10226
7a4fb555c83a
commit https://github.com/vim/vim/commit/9af418427652562384744648d7d173a4bfebba95
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
44 * It's normally used to delay startup while attaching a |
7 | 45 * debugger to a running process. Since workshop starts gvim |
46 * from a background process this is the only way to debug | |
47 * startup problems. | |
48 */ | |
49 | |
50 void nbdebug_wait( | |
51 u_int wait_flags, /* tells what to do */ | |
52 char *wait_var, /* wait environment variable */ | |
53 u_int wait_secs) /* how many seconds to wait */ | |
54 { | |
55 | |
56 init_homedir(); /* not inited yet */ | |
57 #ifdef USE_WDDUMP | |
58 WDDump(0, 0, 0); | |
59 #endif | |
60 | |
61 /* for debugging purposes only */ | |
62 if (wait_flags & WT_ENV && wait_var && getenv(wait_var) != NULL) { | |
63 sleep(atoi(getenv(wait_var))); | |
64 } else if (wait_flags & WT_WAIT && lookup("~/.gvimwait")) { | |
65 sleep(wait_secs > 0 && wait_secs < 120 ? wait_secs : 20); | |
66 } else if (wait_flags & WT_STOP && lookup("~/.gvimstop")) { | |
67 int w = 1; | |
68 while (w) { | |
69 ; | |
70 } | |
71 } | |
72 } /* end nbdebug_wait */ | |
73 | |
74 | |
75 void | |
76 nbdebug_log_init( | |
77 char *log_var, /* env var with log file */ | |
78 char *level_var) /* env var with nb_debug level */ | |
79 { | |
80 char *file; /* possible nb_debug output file */ | |
81 char *cp; /* nb_dlevel pointer */ | |
82 | |
83 if (log_var && (file = getenv(log_var)) != NULL) { | |
84 time_t now; | |
85 | |
86 nb_debug = fopen(file, "a"); | |
87 time(&now); | |
88 fprintf(nb_debug, "%s", asctime(localtime(&now))); | |
89 if (level_var && (cp = getenv(level_var)) != NULL) { | |
90 nb_dlevel = strtoul(cp, NULL, 0); | |
91 } else { | |
92 nb_dlevel = NB_TRACE; /* default level */ | |
93 } | |
1621 | 94 #ifdef USE_NB_ERRORHANDLER |
95 XSetErrorHandler(errorHandler); | |
96 #endif | |
7 | 97 } |
98 | |
99 } /* end nbdebug_log_init */ | |
100 | |
101 | |
102 void | |
103 nbdbg( | |
104 char *fmt, | |
105 ...) | |
106 { | |
107 va_list ap; | |
108 | |
33 | 109 if (nb_debug != NULL && nb_dlevel & NB_TRACE) { |
7 | 110 va_start(ap, fmt); |
111 vfprintf(nb_debug, fmt, ap); | |
112 va_end(ap); | |
113 fflush(nb_debug); | |
114 } | |
115 | |
116 } /* end nbdbg */ | |
117 | |
118 | |
119 static int | |
120 lookup( | |
121 char *file) | |
122 { | |
123 char buf[BUFSIZ]; | |
124 | |
125 expand_env((char_u *) file, (char_u *) buf, BUFSIZ); | |
126 return | |
127 #ifndef FEAT_GUI_W32 | |
128 (access(buf, F_OK) == 0); | |
129 #else | |
130 (access(buf, 0) == 0); | |
131 #endif | |
132 | |
133 } /* end lookup */ | |
134 | |
1621 | 135 #ifdef USE_NB_ERRORHANDLER |
7 | 136 static int |
137 errorHandler( | |
138 Display *dpy, | |
139 XErrorEvent *err) | |
140 { | |
141 char msg[256]; | |
142 char buf[256]; | |
143 | |
144 XGetErrorText(dpy, err->error_code, msg, sizeof(msg)); | |
145 nbdbg("\n\nNBDEBUG Vim: X Error of failed request: %s\n", msg); | |
146 | |
147 sprintf(buf, "%d", err->request_code); | |
148 XGetErrorDatabaseText(dpy, | |
149 "XRequest", buf, "Unknown", msg, sizeof(msg)); | |
150 nbdbg("\tMajor opcode of failed request: %d (%s)\n", | |
151 err->request_code, msg); | |
152 if (err->request_code > 128) { | |
153 nbdbg("\tMinor opcode of failed request: %d\n", | |
154 err->minor_code); | |
155 } | |
156 | |
157 return 0; | |
158 } | |
159 #endif | |
160 | |
161 | |
162 #endif /* NBDEBUG */ |