0.6.x/js/01_core/03_XScript.js

   1 var X_Script_VBS_ENABLED = X_UA[ 'Windows' ] && !X_UA[ 'WinCE' ] && !X_UA[ 'WinPhone' ] && X_UA[ 'IE' ] < 11,\r
   2         // 構文のサポート instanceof, in(for-in ではない), try-catch. JS version 1.5以上\r
   3         X_Script_gte15       = !( X_UA[ 'IE' ] < 5.5 ) && ( new Function( 'f,a', 'try{return f.apply({},a)}catch(e){}' ) );\r
   4 \r
   5 /**\r
   6  * js バージョン間の差異を可能な限り吸収する\r
   7  * @namespace X.Script\r
   8  * @alias X.Script\r
   9  * @type {object}\r
  10  */\r
  11 X[ 'Script' ] = {\r
  12 \r
  13         'tryIfSafe' : X_Script_try,\r
  14         \r
  15         /**\r
  16          * Visual Basic Script が使えるか?\r
  17          * @alias X.Script.VBS\r
  18          * @type {boolean}\r
  19          */\r
  20         'VBS'       : X_Script_VBS_ENABLED\r
  21         // git, strict mode, asm.js, \r
  22 };\r
  23 \r
  24 if( X_Script_VBS_ENABLED ){\r
  25         \r
  26         X_Script_gte15 || document.write( '<script type=text/vbscript>' +\r
  27                 [\r
  28                         'Function vbs_testAXO(v)',\r
  29                                 'On Error Resume Next',\r
  30                                 'Set ax = CreateObject(v)',\r
  31                                 'If Err.Number Then',\r
  32                                         'ax = 1',\r
  33                                 'End If',\r
  34                                 'Err.Clear',\r
  35                                 'vbs_testAXO = ax',\r
  36                         'End Function' /*,\r
  37                         \r
  38                         'Function vbs_try(jsFunc,a1,a2,a3,a4)',\r
  39                                 'On Error Resume Next',\r
  40                                 'Set rs = jsFunc(a1,a2,a3,a4)',\r
  41                                 'If Err.Number != 0 Then',\r
  42                                         'rs = 0',\r
  43                                 'End If',\r
  44                                 'Err.Clear',\r
  45                                 'vbs_try = rs',\r
  46                         'End Function'\r
  47                         \r
  48                         // elementID .SRC = v\r
  49                         'Function vbs_setValue(id,k,v)',\r
  50                                 'On Error Resume Next',\r
  51                                 'Set rs = 1',\r
  52                                 'Document.all[id][k]=v',\r
  53                                 'If Err.Number != 0 Then',\r
  54                                         'rs = 0',\r
  55                                 'End If',\r
  56                                 'Err.Clear',\r
  57                                 'vbs_try = rs',\r
  58                         'End Function'\r
  59 \r
  60                         * \r
  61                         * \r
  62                         * */\r
  63                 ].join( '\n' ) + '</script>' );\r
  64 \r
  65         // TODO Object のメンバを辿る vba\r
  66         // byte Array を扱う vba\r
  67 };\r
  68 \r
  69 /**\r
  70  * try-catch 構文が使えて安全に実行できるなら、コードを実行する\r
  71  * @alias X.Script.tryIfSafe\r
  72  * @param {funciton} func\r
  73  * @param {array=} 引数の入った配列\r
  74  */\r
  75 function X_Script_try( func, args ){\r
  76         if( !X_Script_gte15 ){\r
  77                 //return func.apply( {}, args );\r
  78                 return;\r
  79         };\r
  80         return X_Script_gte15( func, args || [] );\r
  81 };\r
  82 \r
  83 function X_Script_createActiveXObjectSafty( name ){\r
  84         if( !X_Script_gte15 ){\r
  85                 if( X_Script_VBS_ENABLED ){\r
  86                         // console.log( window[ 'vbs_testAXO' ]( name ) + ' ' + name );\r
  87                         return !window[ 'vbs_testAXO' ]( name ) && X_Script_createActiveXObject( name );\r
  88                 };\r
  89                 return X_Script_createActiveXObject( name );\r
  90         };\r
  91         \r
  92         return X_Script_try( X_Script_createActiveXObject, [ name ] );\r
  93 };\r
  94 \r
  95 // TODO GeckoActiveX\r
  96 function X_Script_createActiveXObject( name ){\r
  97         return new ActiveXObject( name );\r
  98 };\r
  99 \r
 100 /*\r
 101  * http://archiva.jp/web/html-css/ie6_background_flickr.html\r
 102  * hover時の背景画像ちらつきに対処する\r
 103  * この問題はIE6固有の問題であり、他のモダンブラウザやIE5等では発現しない。\r
 104  */\r
 105 if( X_UA[ 'IE6' ] && // error @ NN7.2\r
 106         !X_Script_try( function(){ document.execCommand( 'BackgroundImageCache', false, true ); return 1; } ) ){\r
 107                 /**\r
 108                  * ie6 のみで実行する document.execCommand( 'BackgroundImageCache', false, true ) の失敗。\r
 109                  * bonus: hotfix for IE6 SP1 (bug KB823727)\r
 110                  * multipleIEs IE6 standalone 版では不可, IE5.5 は可,,,\r
 111                  * @alias X.UA.ieExeComError */\r
 112                 X_UA[ 'ieExeComError' ] = true;\r
 113 };\r
 114 \r
 115 \r