home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 April / VPR0004A.BIN / OLS / CSSH102 / CSSH102.LZH / csshtml / spanoptimizer_menu.mac < prev    next >
Text File  |  1999-12-20  |  3KB  |  81 lines
  1. ////////////////////////////////////////////////////////////
  2. // spanoptimizer_menu.mac
  3. // Toshiyuki Akutsu <locrian@mbd.sphere.ne.jp>
  4. // Mon, 20 Dec 1999 21:30:54
  5. ////////////////////////////////////////////////////////////
  6.     openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
  7.     if( ! result ) endmacro;
  8.     $__macroPath = getregstr( "MacroPath" );
  9.     closereg;
  10.     if( $__macroPath == "" ) $__macroPath = hidemarudir;
  11.     if( rightstr( $__macroPath, 1 ) != "\\" ) $__macroPath = $__macroPath + "\\";
  12.     $__INI = $__macroPath + "csshtml\\csshtml.ini";
  13. ////////////////////////////////////////////////////////////
  14.  
  15.     writeininum $__INI, "SUBMACRO", "EXECUTE", 0;
  16.     $__OPT[0] = " > そのまま";
  17.     $__OPT[1] = " > 空白とタブを無視";
  18.     $__OPT[2] = " > 改行を無視";
  19.     $__OPT[3] = " > 空白とタブと改行を無視";
  20.  
  21.     $__ACC = "&1 &2 &3 &4 &5 &6 &7 &8 &9 &A &B &C &D &E &R &M &Q ";
  22.     #__SIZE = getininum($__INI,"OPTIMIZE_SPAN","SIZE");
  23.     ##i = 0;
  24.     while( ##i < #__SIZE )
  25.     {
  26.         $$num = str(##i);
  27.         #__DO[##i] = getininum($__INI,"OPTIMIZE_SPAN",$$num);
  28.         $__CLASS[##i] = getinistr($__INI,"OPTIMIZABLE_SPAN_CLASS",$$num);
  29.         $__NAME[##i] = getinistr($__INI,"OPTIMIZABLE_SPAN_NAME",$$num);
  30.         $$tmp = midstr($__ACC, 3 * ##i, 3);
  31.         $$tmp = $$tmp + $__CLASS[##i] + " " + $__NAME[##i];
  32.         ##tmp = #__DO[##i];
  33.         $__mi[##i] = $$tmp + $__OPT[##tmp];
  34.         ##i = ##i + 1;
  35.     }
  36.     ##reset = #__SIZE;
  37.     ##execute = #__SIZE + 1;
  38.     ##exit = #__SIZE + 2;
  39.     $__mi[##reset] = midstr($__ACC,3 * ##reset,3) + "リセット";
  40.     $__mi[##execute] = midstr($__ACC,3 * ##execute,3) + "SPAN最適化 実行";
  41.     $__mi[##exit] = midstr($__ACC,3 * ##exit,3) + "設定だけで戻る ( ESC )";
  42.     RE_MENU:
  43.     menuarray $__mi, ##exit + 1;
  44.     ##item = result - 1;
  45.     if( ##item < 0 || ##item == ##exit ){
  46.         endmacro;
  47.     }else if( ##item == ##reset ){
  48.         call resetOptimize;
  49.         goto RE_MENU;
  50.     }else if( ##item == ##execute ){
  51.         writeininum $__INI,"SUBMACRO","EXECUTE", 1;
  52.         endmacro;
  53.     }
  54.  
  55.     ##i = ##item;
  56.  
  57.     #__DO[##i] = #__DO[##i] + 1;
  58.     #__DO[##i] = #__DO[##i] % 4;
  59.     $$tmp = midstr($__ACC, 3 * ##i, 3);
  60.     $$tmp = $$tmp + $__CLASS[##i] + " " + $__NAME[##i];
  61.     ##tmp = #__DO[##i];
  62.     $__mi[##i] = $$tmp + $__OPT[##tmp];
  63.     $$num = str(##i);
  64.     writeininum $__INI,"OPTIMIZE_SPAN",$$num, #__DO[##i];
  65.  
  66. goto RE_MENU;
  67. ////////////////////////////////////////////////////////////
  68. resetOptimize:
  69.     question "現在の設定をリセットします。\nよろしいですか？";
  70.     if( ! result ) return;
  71.     ##i = 0;
  72.     while( ##i < #__SIZE ){
  73.         writeininum $__INI,"OPTIMIZE_SPAN",str(##i),0;
  74.         #__DO[##i] = 0;
  75. $__mi[##i] = midstr($__ACC,3 * ##i,3)+ $__CLASS[##i]+" "+$__NAME[##i]+" > そのまま";
  76.         ##i = ##i + 1;
  77.     }
  78. return;
  79. // end resetOptimize
  80. ////////////////////////////////////////////////////////////
  81.