exmpp_known_elems.erl.js

var fso, fd, line, re_start, re, dict;

if (WScript.Arguments.length != 1) {
	WScript.Echo("Syntax: cscript " +
	    "exmpp_known_elems.erl.js <exmpp_known_elems.in>");
} else {
	/* Open the input file for reading (1). */
	fso = new ActiveXObject("Scripting.FileSystemObject");
	fd = fso.OpenTextFile(WScript.Arguments.Item(0), 1, false);

	/* This regexp filters out comments. */
	re_start = /^# Generated by/;
	re = /^[^#]/;

	/* We need a dictionnary to filter out duplicates. */
	dict = new ActiveXObject("Scripting.Dictionary");

	while (!fd.AtEndOfStream) {
		line = fd.ReadLine();
		if (line.match(re_start)) {
			WScript.Echo("% " + line + "\n");
			WScript.Echo("-module(exmpp_known_elems).\n");
			WScript.Echo("-export([elem_as_list/1]).\n");
		}
		if (!dict.Exists(line) && line.match(re)) {
			WScript.Echo(
			    "elem_as_list('" + line +
			    "') ->\n    \"" + line + "\";");
			dict.Add(line, 1);
		}
	}
	WScript.Echo(
	    "\nelem_as_list(Elem) when is_atom(Elem) ->\n" +
            "    atom_to_list(Elem);");
	WScript.Echo("elem_as_list(Elem) when is_list(Elem) ->\n    Elem.");

	/* Done! */
	fd.close();
}