jscoverage/trunk/instrument.c

/*
    instrument.c - file and directory instrumentation routines
    Copyright (C) 2007, 2008 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='%sjscoverage-sh_nedit.css'>\n", relative_path_to_ancestor);
  fprintf(output, "<script src=\"%sjscoverage.js\"></script>\n", relative_path_to_ancestor);
  fprintf(output, "<script src=\"%sjscoverage-sh_main.js\"></script>\n", relative_path_to_ancestor);
  fprintf(output, "<script src=\"%sjscoverage-sh_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:
      {
        FILE * input = xfopen(source_file, "r");
        FILE * output = xfopen(destination_file, "w");
        const char * suffix = ".jscoverage.js";
        char temporary_file_name[strlen(destination_file) + strlen(suffix) + 1];
        strcpy(temporary_file_name, destination_file);
        strcat(temporary_file_name, suffix);
        jscoverage_instrument_js(id, input, output, temporary_file_name);
        fclose(input);
        fclose(output);
      }
      highlight_file(source_file, destination_file, id);
      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);
  }

  /* copy the resources */
  jscoverage_copy_resources(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("jscoverage-sh_main.js", destination_directory);
  copy_resource("jscoverage-sh_javascript.js", destination_directory);
  copy_resource("jscoverage-sh_nedit.css", destination_directory);
}
1	siliconforks	2	/*
2			instrument.c - file and directory instrumentation routines
3	siliconforks	87	Copyright (C) 2007, 2008 siliconforks.com
4	siliconforks	2
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	siliconforks	67	fprintf(output, "<link rel=\"stylesheet\" type='text/css' href='%sjscoverage-sh_nedit.css'>\n", relative_path_to_ancestor);
85	siliconforks	2	fprintf(output, "<script src=\"%sjscoverage.js\"></script>\n", relative_path_to_ancestor);
86	siliconforks	67	fprintf(output, "<script src=\"%sjscoverage-sh_main.js\"></script>\n", relative_path_to_ancestor);
87			fprintf(output, "<script src=\"%sjscoverage-sh_javascript.js\"></script>\n", relative_path_to_ancestor);
88	siliconforks	2	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			{
166			FILE * input = xfopen(source_file, "r");
167			FILE * output = xfopen(destination_file, "w");
168	siliconforks	70	const char * suffix = ".jscoverage.js";
169			char temporary_file_name[strlen(destination_file) + strlen(suffix) + 1];
170			strcpy(temporary_file_name, destination_file);
171			strcat(temporary_file_name, suffix);
172			jscoverage_instrument_js(id, input, output, temporary_file_name);
173	siliconforks	2	fclose(input);
174			fclose(output);
175			}
176	siliconforks	70	highlight_file(source_file, destination_file, id);
177	siliconforks	2	break;
178			}
179			}
180			else {
181			copy_file(source_file, destination_file);
182			}
183			}
184
185			void jscoverage_instrument(const char * source,
186			const char * destination,
187			int verbose,
188			char ** exclude,
189			int num_exclude,
190			char ** no_instrument,
191			int num_no_instrument)
192			{
193			assert(source != NULL);
194			assert(destination != NULL);
195
196			g_verbose = verbose;
197
198			/* check if they are the same */
199			check_same_file(source, destination);
200
201			/* check if source directory is an ancestor of destination directory */
202			check_contains_file(source, destination);
203
204			/* check that the source exists and is a directory */
205			struct stat buf;
206			xstat(source, &buf);
207			if (! S_ISDIR(buf.st_mode)) {
208			fatal("not a directory: %s", source);
209			}
210
211			/* if the destination directory exists, check that it is a jscoverage directory */
212			if (stat(destination, &buf) == 0) {
213			/* it exists */
214			if (! S_ISDIR(buf.st_mode)) {
215			fatal("not a directory: %s", destination);
216			}
217			if (! directory_is_empty(destination)) {
218			char * jscoverage_html = make_path(destination, "jscoverage.html");
219			if (stat(jscoverage_html, &buf) == -1) {
220			fatal("refusing to overwrite directory: %s", destination);
221			}
222			free(jscoverage_html);
223			}
224			}
225			else if (errno == ENOENT) {
226			xmkdir(destination);
227			}
228			else {
229			fatal("cannot stat directory: %s", destination);
230			}
231
232	siliconforks	69	/* copy the resources */
233			jscoverage_copy_resources(destination);
234
235	siliconforks	2	/* finally: copy the directory */
236			struct DirListEntry * list = make_recursive_dir_list(source);
237			for (struct DirListEntry * p = list; p != NULL; p = p->next) {
238			char * s = make_path(source, p->name);
239			char * d = make_path(destination, p->name);
240
241			/* check if it's on the exclude list */
242			for (int i = 0; i < num_exclude; i++) {
243			char * x = make_path(source, exclude[i]);
244			if (is_same_file(x, s) \|\| contains_file(x, s)) {
245			free(x);
246			goto cleanup;
247			}
248			free(x);
249			}
250
251			char * dd = make_dirname(d);
252			mkdirs(dd);
253			free(dd);
254
255			int instrument_this = 1;
256
257			/* check if it's on the no-instrument list */
258			for (int i = 0; i < num_no_instrument; i++) {
259			char * ni = make_path(source, no_instrument[i]);
260			if (is_same_file(ni, s) \|\| contains_file(ni, s)) {
261			instrument_this = 0;
262			}
263			free(ni);
264			}
265
266			instrument_file(s, d, p->name, instrument_this);
267
268			cleanup:
269			free(s);
270			free(d);
271			}
272			free_dir_list(list);
273			}
274
275			void jscoverage_copy_resources(const char * destination_directory) {
276			copy_resource("jscoverage.html", destination_directory);
277			copy_resource("jscoverage.css", destination_directory);
278			copy_resource("jscoverage.js", destination_directory);
279			copy_resource("jscoverage-throbber.gif", destination_directory);
280	siliconforks	67	copy_resource("jscoverage-sh_main.js", destination_directory);
281			copy_resource("jscoverage-sh_javascript.js", destination_directory);
282			copy_resource("jscoverage-sh_nedit.css", destination_directory);
283	siliconforks	2	}