jscoverage/trunk/instrument.c

/*
    instrument.c - file and directory instrumentation routines
    Copyright (C) 2007 siliconforks.com

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License along
    with this program; if not, write to the Free Software Foundation, Inc.,
    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/

#include "instrument.h"

#include <assert.h>
#include <errno.h>
#include <string.h>

#include <dirent.h>
#include <sys/stat.h>
#include <sys/types.h>

#include "instrument-js.h"
#include "resource-manager.h"
#include "util.h"

static int g_verbose = 0;

static int string_ends_with(const char * s, const char * suffix) {
  size_t length = strlen(s);
  size_t suffix_length = strlen(suffix);
  if (length < suffix_length) {
    return 0;
  }
  return strcasecmp(s + (length - suffix_length), suffix) == 0;
}

static enum FileType get_file_type(const char * file) {
  if (string_ends_with(file, ".js")) {
    return FILE_TYPE_JS;
  }
  else if (string_ends_with(file, ".html") || string_ends_with(file, ".htm")) {
    return FILE_TYPE_HTML;
  }
  else {
    return FILE_TYPE_UNKNOWN;
  }
}

static void highlight_file(const char * source_file, const char * destination_file, const char * relative_path) {
  int depth = 0;
  for (const char * p = relative_path; *p != '\0'; p++) {
    if (*p == '/' || *p == '\\') {
      depth++;
    }
  }

  enum FileType file_type = get_file_type(relative_path);
  const char * suffix = ".jscoverage.html";
  char * highlighted_file = xmalloc(strlen(destination_file) + strlen(suffix) + 1);
  strcpy(highlighted_file, destination_file);
  strcat(highlighted_file, suffix);

  FILE * input = xfopen(source_file, "r");
  FILE * output = xfopen(highlighted_file, "w");

  free(highlighted_file);

  char * relative_path_to_ancestor = xmalloc(depth * 3 + 1);
  for (int i = 0; i < depth; i++) {
    strcpy(relative_path_to_ancestor + i * 3, "../");
  }
  relative_path_to_ancestor[depth * 3] = '\0';

  fprintf(output, "<html><head><title>%s</title>\n", relative_path);
  fprintf(output, "<link rel=\"stylesheet\" type='text/css' href='%sjscoverage.css'>\n", relative_path_to_ancestor);
  fprintf(output, "<link rel=\"stylesheet\" type='text/css' href='%ssh_nedit.css'>\n", relative_path_to_ancestor);
  fprintf(output, "<script src=\"%sjscoverage.js\"></script>\n", relative_path_to_ancestor);
  fprintf(output, "<script src=\"%ssh_main.js\"></script>\n", relative_path_to_ancestor);
  fprintf(output, "<script src=\"%ssh_javascript.js\"></script>\n", relative_path_to_ancestor);
  fprintf(output, "<script>\n");
  fprintf(output, "var gCurrentFile = \"%s\";\n", relative_path);
  fprintf(output, "</script>\n");
  fprintf(output, "</head><body onload=\"source_load();\">\n");
  fprintf(output, "<h1>%s</h1>\n", relative_path);
  fprintf(output, "<pre id=\"sourceDiv\" class='sh_%s'>", file_type == FILE_TYPE_JS? "javascript": "html");
  free(relative_path_to_ancestor);

  int c;
  int atLineStart = 1;
  int line = 1;
  while ((c = fgetc(input)) != EOF) {
    if (atLineStart) {
      atLineStart = 0;
    }

    if (c == '<') {
      fprintf(output, "&lt;");
    }
    else if (c == '>') {
      fprintf(output, "&gt;");
    }
    else if (c == '&') {
      fprintf(output, "&amp;");
    }
    else {
      if (c == '\n') {
        line++;
        atLineStart = 1;
      }
      fputc(c, output);
    }
  }
  fprintf(output, "</pre></body></html>\n");

  fclose(output);
  fclose(input);

  suffix = ".jscoverage.js";
  char original_file[strlen(destination_file) + strlen(suffix) + 1];
  strcpy(original_file, destination_file);
  strcat(original_file, suffix);
  copy_file(source_file, original_file);
}

static void check_same_file(const char * file1, const char * file2) {
  if (is_same_file(file1, file2)) {
    fatal("source and destination are the same");
  }
}

static void check_contains_file(const char * file1, const char * file2) {
  if (contains_file(file1, file2)) {
    fatal("%s contains %s", file1, file2);
  }
}

static void instrument_file(const char * source_file, const char * destination_file, const char * id, int instrumenting) {
  if (g_verbose) {
    printf("Instrumenting file %s\n", id);
  }

  /* check if they are the same */
  char * canonical_source_file = make_canonical_path(source_file);
  char * canonical_destination_file = make_canonical_path(destination_file);
  check_same_file(canonical_source_file, canonical_destination_file);
  free(canonical_source_file);
  free(canonical_destination_file);

  if (instrumenting) {
    enum FileType file_type = get_file_type(source_file);
    switch (file_type) {
    case FILE_TYPE_UNKNOWN:
    case FILE_TYPE_HTML:
      copy_file(source_file, destination_file);
      break;
    case FILE_TYPE_JS:
      highlight_file(source_file, destination_file, id);
      {
        FILE * input = xfopen(source_file, "r");
        FILE * output = xfopen(destination_file, "w");
        jscoverage_instrument_js(id, input, output);
        fclose(input);
        fclose(output);
      }
      break;
    }
  }
  else {
    copy_file(source_file, destination_file);
  }
}

void jscoverage_instrument(const char * source,
                           const char * destination,
                           int verbose,
                           char ** exclude,
                           int num_exclude,
                           char ** no_instrument,
                           int num_no_instrument)
{
  assert(source != NULL);
  assert(destination != NULL);

  g_verbose = verbose;

  /* check if they are the same */
  check_same_file(source, destination);

  /* check if source directory is an ancestor of destination directory */
  check_contains_file(source, destination);

  /* check that the source exists and is a directory */
  struct stat buf;
  xstat(source, &buf);
  if (! S_ISDIR(buf.st_mode)) {
    fatal("not a directory: %s", source);
  }

  /* if the destination directory exists, check that it is a jscoverage directory */
  if (stat(destination, &buf) == 0) {
    /* it exists */
    if (! S_ISDIR(buf.st_mode)) {
      fatal("not a directory: %s", destination);
    }
    if (! directory_is_empty(destination)) {
      char * jscoverage_html = make_path(destination, "jscoverage.html");
      if (stat(jscoverage_html, &buf) == -1) {
        fatal("refusing to overwrite directory: %s", destination);
      }
      free(jscoverage_html);
    }
  }
  else if (errno == ENOENT) {
    xmkdir(destination);
  }
  else {
    fatal("cannot stat directory: %s", destination);
  }

  /* finally: copy the directory */
  struct DirListEntry * list = make_recursive_dir_list(source);
  for (struct DirListEntry * p = list; p != NULL; p = p->next) {
    char * s = make_path(source, p->name);
    char * d = make_path(destination, p->name);

    /* check if it's on the exclude list */
    for (int i = 0; i < num_exclude; i++) {
      char * x = make_path(source, exclude[i]);
      if (is_same_file(x, s) || contains_file(x, s)) {
        free(x);
        goto cleanup;
      }
      free(x);
    }

    char * dd = make_dirname(d);
    mkdirs(dd);
    free(dd);

    int instrument_this = 1;

    /* check if it's on the no-instrument list */
    for (int i = 0; i < num_no_instrument; i++) {
      char * ni = make_path(source, no_instrument[i]);
      if (is_same_file(ni, s) || contains_file(ni, s)) {
        instrument_this = 0;
      }
      free(ni);
    }

    instrument_file(s, d, p->name, instrument_this);

  cleanup:
    free(s);
    free(d);
  }
  free_dir_list(list);
}

void jscoverage_copy_resources(const char * destination_directory) {
  copy_resource("jscoverage.html", destination_directory);
  copy_resource("jscoverage.css", destination_directory);
  copy_resource("jscoverage.js", destination_directory);
  copy_resource("jscoverage-throbber.gif", destination_directory);
  copy_resource("sh_main.js", destination_directory);
  copy_resource("sh_javascript.js", destination_directory);
  copy_resource("sh_nedit.css", destination_directory);
}
1	/*
2	instrument.c - file and directory instrumentation routines
3	Copyright (C) 2007 siliconforks.com
4
5	This program is free software; you can redistribute it and/or modify
6	it under the terms of the GNU General Public License as published by
7	the Free Software Foundation; either version 2 of the License, or
8	(at your option) any later version.
9
10	This program is distributed in the hope that it will be useful,
11	but WITHOUT ANY WARRANTY; without even the implied warranty of
12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	GNU General Public License for more details.
14
15	You should have received a copy of the GNU General Public License along
16	with this program; if not, write to the Free Software Foundation, Inc.,
17	51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18	*/
19
20	#include "instrument.h"
21
22	#include <assert.h>
23	#include <errno.h>
24	#include <string.h>
25
26	#include <dirent.h>
27	#include <sys/stat.h>
28	#include <sys/types.h>
29
30	#include "instrument-js.h"
31	#include "resource-manager.h"
32	#include "util.h"
33
34	static int g_verbose = 0;
35
36	static int string_ends_with(const char * s, const char * suffix) {
37	size_t length = strlen(s);
38	size_t suffix_length = strlen(suffix);
39	if (length < suffix_length) {
40	return 0;
41	}
42	return strcasecmp(s + (length - suffix_length), suffix) == 0;
43	}
44
45	static enum FileType get_file_type(const char * file) {
46	if (string_ends_with(file, ".js")) {
47	return FILE_TYPE_JS;
48	}
49	else if (string_ends_with(file, ".html") \|\| string_ends_with(file, ".htm")) {
50	return FILE_TYPE_HTML;
51	}
52	else {
53	return FILE_TYPE_UNKNOWN;
54	}
55	}
56
57	static void highlight_file(const char * source_file, const char * destination_file, const char * relative_path) {
58	int depth = 0;
59	for (const char * p = relative_path; *p != '\0'; p++) {
60	if (p == '/' \|\| p == '\\') {
61	depth++;
62	}
63	}
64
65	enum FileType file_type = get_file_type(relative_path);
66	const char * suffix = ".jscoverage.html";
67	char * highlighted_file = xmalloc(strlen(destination_file) + strlen(suffix) + 1);
68	strcpy(highlighted_file, destination_file);
69	strcat(highlighted_file, suffix);
70
71	FILE * input = xfopen(source_file, "r");
72	FILE * output = xfopen(highlighted_file, "w");
73
74	free(highlighted_file);
75
76	char * relative_path_to_ancestor = xmalloc(depth * 3 + 1);
77	for (int i = 0; i < depth; i++) {
78	strcpy(relative_path_to_ancestor + i * 3, "../");
79	}
80	relative_path_to_ancestor[depth * 3] = '\0';
81
82	fprintf(output, "<html><head><title>%s</title>\n", relative_path);
83	fprintf(output, "<link rel=\"stylesheet\" type='text/css' href='%sjscoverage.css'>\n", relative_path_to_ancestor);
84	fprintf(output, "<link rel=\"stylesheet\" type='text/css' href='%ssh_nedit.css'>\n", relative_path_to_ancestor);
85	fprintf(output, "<script src=\"%sjscoverage.js\"></script>\n", relative_path_to_ancestor);
86	fprintf(output, "<script src=\"%ssh_main.js\"></script>\n", relative_path_to_ancestor);
87	fprintf(output, "<script src=\"%ssh_javascript.js\"></script>\n", relative_path_to_ancestor);
88	fprintf(output, "<script>\n");
89	fprintf(output, "var gCurrentFile = \"%s\";\n", relative_path);
90	fprintf(output, "</script>\n");
91	fprintf(output, "</head><body onload=\"source_load();\">\n");
92	fprintf(output, "<h1>%s</h1>\n", relative_path);
93	fprintf(output, "<pre id=\"sourceDiv\" class='sh_%s'>", file_type == FILE_TYPE_JS? "javascript": "html");
94	free(relative_path_to_ancestor);
95
96	int c;
97	int atLineStart = 1;
98	int line = 1;
99	while ((c = fgetc(input)) != EOF) {
100	if (atLineStart) {
101	atLineStart = 0;
102	}
103
104	if (c == '<') {
105	fprintf(output, "<");
106	}
107	else if (c == '>') {
108	fprintf(output, ">");
109	}
110	else if (c == '&') {
111	fprintf(output, "&");
112	}
113	else {
114	if (c == '\n') {
115	line++;
116	atLineStart = 1;
117	}
118	fputc(c, output);
119	}
120	}
121	fprintf(output, "</pre></body></html>\n");
122
123	fclose(output);
124	fclose(input);
125
126	suffix = ".jscoverage.js";
127	char original_file[strlen(destination_file) + strlen(suffix) + 1];
128	strcpy(original_file, destination_file);
129	strcat(original_file, suffix);
130	copy_file(source_file, original_file);
131	}
132
133	static void check_same_file(const char * file1, const char * file2) {
134	if (is_same_file(file1, file2)) {
135	fatal("source and destination are the same");
136	}
137	}
138
139	static void check_contains_file(const char * file1, const char * file2) {
140	if (contains_file(file1, file2)) {
141	fatal("%s contains %s", file1, file2);
142	}
143	}
144
145	static void instrument_file(const char * source_file, const char * destination_file, const char * id, int instrumenting) {
146	if (g_verbose) {
147	printf("Instrumenting file %s\n", id);
148	}
149
150	/* check if they are the same */
151	char * canonical_source_file = make_canonical_path(source_file);
152	char * canonical_destination_file = make_canonical_path(destination_file);
153	check_same_file(canonical_source_file, canonical_destination_file);
154	free(canonical_source_file);
155	free(canonical_destination_file);
156
157	if (instrumenting) {
158	enum FileType file_type = get_file_type(source_file);
159	switch (file_type) {
160	case FILE_TYPE_UNKNOWN:
161	case FILE_TYPE_HTML:
162	copy_file(source_file, destination_file);
163	break;
164	case FILE_TYPE_JS:
165	highlight_file(source_file, destination_file, id);
166	{
167	FILE * input = xfopen(source_file, "r");
168	FILE * output = xfopen(destination_file, "w");
169	jscoverage_instrument_js(id, input, output);
170	fclose(input);
171	fclose(output);
172	}
173	break;
174	}
175	}
176	else {
177	copy_file(source_file, destination_file);
178	}
179	}
180
181	void jscoverage_instrument(const char * source,
182	const char * destination,
183	int verbose,
184	char ** exclude,
185	int num_exclude,
186	char ** no_instrument,
187	int num_no_instrument)
188	{
189	assert(source != NULL);
190	assert(destination != NULL);
191
192	g_verbose = verbose;
193
194	/* check if they are the same */
195	check_same_file(source, destination);
196
197	/* check if source directory is an ancestor of destination directory */
198	check_contains_file(source, destination);
199
200	/* check that the source exists and is a directory */
201	struct stat buf;
202	xstat(source, &buf);
203	if (! S_ISDIR(buf.st_mode)) {
204	fatal("not a directory: %s", source);
205	}
206
207	/* if the destination directory exists, check that it is a jscoverage directory */
208	if (stat(destination, &buf) == 0) {
209	/* it exists */
210	if (! S_ISDIR(buf.st_mode)) {
211	fatal("not a directory: %s", destination);
212	}
213	if (! directory_is_empty(destination)) {
214	char * jscoverage_html = make_path(destination, "jscoverage.html");
215	if (stat(jscoverage_html, &buf) == -1) {
216	fatal("refusing to overwrite directory: %s", destination);
217	}
218	free(jscoverage_html);
219	}
220	}
221	else if (errno == ENOENT) {
222	xmkdir(destination);
223	}
224	else {
225	fatal("cannot stat directory: %s", destination);
226	}
227
228	/* finally: copy the directory */
229	struct DirListEntry * list = make_recursive_dir_list(source);
230	for (struct DirListEntry * p = list; p != NULL; p = p->next) {
231	char * s = make_path(source, p->name);
232	char * d = make_path(destination, p->name);
233
234	/* check if it's on the exclude list */
235	for (int i = 0; i < num_exclude; i++) {
236	char * x = make_path(source, exclude[i]);
237	if (is_same_file(x, s) \|\| contains_file(x, s)) {
238	free(x);
239	goto cleanup;
240	}
241	free(x);
242	}
243
244	char * dd = make_dirname(d);
245	mkdirs(dd);
246	free(dd);
247
248	int instrument_this = 1;
249
250	/* check if it's on the no-instrument list */
251	for (int i = 0; i < num_no_instrument; i++) {
252	char * ni = make_path(source, no_instrument[i]);
253	if (is_same_file(ni, s) \|\| contains_file(ni, s)) {
254	instrument_this = 0;
255	}
256	free(ni);
257	}
258
259	instrument_file(s, d, p->name, instrument_this);
260
261	cleanup:
262	free(s);
263	free(d);
264	}
265	free_dir_list(list);
266	}
267
268	void jscoverage_copy_resources(const char * destination_directory) {
269	copy_resource("jscoverage.html", destination_directory);
270	copy_resource("jscoverage.css", destination_directory);
271	copy_resource("jscoverage.js", destination_directory);
272	copy_resource("jscoverage-throbber.gif", destination_directory);
273	copy_resource("sh_main.js", destination_directory);
274	copy_resource("sh_javascript.js", destination_directory);
275	copy_resource("sh_nedit.css", destination_directory);
276	}