updating to 0.12.1

Makefile

@@ -13,7 +13,6 @@ update:
 	git show master:tests/fs_.js > tests/fs_.js
 	git show master:tests/mocha.css > tests/mocha.css
 	git show master:tests/mocha.js > tests/mocha.js
-	git show master:tests/xhr-hack.js > tests/xhr-hack.js
 	git show master:tests/write.js > tests/write.js
 	git show master:tests/write.html > tests/write.html
 	git show master:demos/datagrid/index.html > datagrid.html

shim.js

@@ -368,3 +368,18 @@ var IE_SaveFile = (function() { try {
 	}
 	return function(data, filename) { return IE_SaveFile_Impl(IE_GetPath(filename), fix_data(data)); };
 } catch(e) { return void 0; }})();
+var IE_LoadFile = (function() { try {
+	if(typeof IE_LoadFile_Impl == "undefined") document.write([
+'<script type="text/vbscript" language="vbscript">',
+'Function IE_LoadFile_Impl(FileName): Dim out(), plen, i, cc: Set fso = CreateObject("Scripting.FileSystemObject"): Set f = fso.GetFile(FileName): Set stream = f.OpenAsTextStream(1, 0): plen = f.Size: ReDim out(plen): For i = 1 To plen Step 1: cc = Hex(Asc(stream.read(1))): If Len(cc) < 2 Then: cc = "0" & cc: End If: out(i) = cc: Next: IE_LoadFile_Impl = Join(out,""): End Function',
+'|/script>'.replace("|","<")
+	].join("\r\n"));
+	if(typeof IE_LoadFile_Impl == "undefined") return void 0;
+	function fix_data(data) {
+		var out = [];
+		for(var i = 0; i < data.length; i+=2) out.push(String.fromCharCode(parseInt(data.slice(i, i+2), 16)));
+		var o = out.join("");
+		return o;
+	}
+	return function(filename) { return fix_data(IE_LoadFile_Impl(filename)); };
+} catch(e) { return void 0; }})();

tests/index.html

@@ -39,9 +39,6 @@
     <script src="fs_.js"></script>
     <script src="fixtures.js"></script>
     <script src="xlsx.full.min.js"></script>
-    <!--[if IE]>
-      <script type="text/javascript" src="xhr-hack.js"></script>
-    <![endif]-->
     <div id="mocha"></div>
     <script src="mocha.js"></script>
     <script>

tests/xhr-hack.js

@@ -1,17 +0,0 @@
-var IEBinaryToArray_ByteStr_Script =
-   "<!-- IEBinaryToArray_ByteStr -->\r\n"+
-   "<script type='text/vbscript'>\r\n"+
-   "Function IEBinaryToArray_ByteStr(Binary) : IEBinaryToArray_ByteStr = CStr(Binary) : End Function\r\n"+
-   "Function IEBinaryToArray_ByteStr_Last(Binary)\r\n"+
-   "   Dim lastIndex\r\n"+
-   "   lastIndex = LenB(Binary)\r\n"+
-   "   if lastIndex mod 2 Then\r\n"+
-   "       IEBinaryToArray_ByteStr_Last = Chr( AscB( MidB( Binary, lastIndex, 1 ) ) )\r\n"+
-   "   Else\r\n"+
-   "       IEBinaryToArray_ByteStr_Last = "+'""'+"\r\n"+
-   "   End If\r\n"+
-   "End Function\r\n"+
-   "</script>\r\n";
-
-document.write(IEBinaryToArray_ByteStr_Script);
-