mieki256's diary

For native kits, remember the tclkit that runs sdx cannot be the same tclkit that is used for -runtime .. so make a copy:

sdx: howto より

 $ ./tclkit sdx.kit qwrap hello.tcl -runtime tclkit.exe
 $ mv hello hello.exe

• sdx-20110317.kit と tclkit-8.6.3-win32-x86_64.exe を入手。
• sdx-20110317.kit を sdx.kit にリネーム。
• tclkit-8.6.3-win32-x86_64.exe を tclkit.exe にリネームしつつコピー。中身/バイナリとしては同じでもファイル名が異なる tclkit が2つある状態にしておく。

tclkit.exe sdx.kit qwrap test001.tcl -runtime tclkit-8.6.3-win32-x86_64.exe

ren test001 test001.exe

file in use, cannot be prefix: D:/home/prg/tcl/tcl2exe/exetest02_863/tclkit.exe

SDX cannot continue (could not read link
"D:/home/prg/tcl/tcl2exe/exetest02_863/sdx.kit": not a directory
while executing
"file readlink $mkflle")

$ sudo apt install luarocks
...
以下の追加パッケージがインストールされます:
  liblua5.1-0-dev lua-any lua-sec lua-socket lua5.1
以下のパッケージが新たにインストールされます:
  liblua5.1-0-dev lua-any lua-sec lua-socket lua5.1 luarocks
アップグレード: 0 個、新規インストール: 6 個、削除: 0 個、保留: 0 個。
421 kB のアーカイブを取得する必要があります。
この操作後に追加で 2,739 kB のディスク容量が消費されます。
続行しますか? [Y/n] 

$ which lua
/usr/bin/lua

$ lua -v
Lua 5.1.5  Copyright (C) 1994-2012 Lua.org, PUC-Rio

$ which luarocks
/usr/bin/luarocks

$ luarocks --version
/usr/bin/luarocks 2.4.2
LuaRocks main command-line interface

$ luarocks install json4lua --local

Installing https://luarocks.org/json4lua-0.9.30-1.src.rock
Do not use 'module' as a build type. Use 'builtin' instead.
No existing manifest. Attempting to rebuild...
json4lua 0.9.30-1 is now installed in /home/mieki256/.luarocks (license: GPL)

$ lua -i
Lua 5.1.5  Copyright (C) 1994-2012 Lua.org, PUC-Rio
> json = require('json')
stdin:1: module 'json' not found:
    no field package.preload['json']
    no file './json.lua'
    no file '/usr/local/share/lua/5.1/json.lua'
    no file '/usr/local/share/lua/5.1/json/init.lua'
    no file '/usr/local/lib/lua/5.1/json.lua'
    no file '/usr/local/lib/lua/5.1/json/init.lua'
    no file '/usr/share/lua/5.1/json.lua'
    no file '/usr/share/lua/5.1/json/init.lua'
    no file './json.so'
    no file '/usr/local/lib/lua/5.1/json.so'
    no file '/usr/lib/x86_64-linux-gnu/lua/5.1/json.so'
    no file '/usr/lib/lua/5.1/json.so'
    no file '/usr/local/lib/lua/5.1/loadall.so'
stack traceback:
    [C]: in function 'require'
    stdin:1: in main chunk
    [C]: ?

$ sudo luarocks install json4lua
Installing https://luarocks.org/json4lua-0.9.30-1.src.rock
Do not use 'module' as a build type. Use 'builtin' instead.
json4lua 0.9.30-1 is now installed in /usr/local (license: GPL)

$ lua -i
Lua 5.1.5  Copyright (C) 1994-2012 Lua.org, PUC-Rio
> json = require('json')

sudo luarocks remove json4lua

Bindings:

scalex = Path 0.transform.scale.x;
value = $value;

Calculate( scalex, value ):

return value / scalex;

• 「Path 0」は対象のパス名(レイヤー名？)。
• $value は、この場合 thickness に元々指定されていた値を参照するための変数。

• 1パレットにつき、512色の中から16色を設定できる。
• 4パレット持ってる。

• 各パレットの0番目の色は透明色として扱われるので、1パレットにつき画面に表示できる色は15色。
• 画面全体の背景色を1色、指定できる。

• 「持続時間(フレーム)」を0にすれば、ずっと存在し続ける。
• 「ソースの幅」「ソースの高さ」「ソースの奥行き」を設定すれば、発生する範囲を指定できる。
• 「速度」「加速」等を0にすれば、その場に留まり続ける。

ipy.exe IronPythonインストール場所\Tools\Scripts\pyc.py /target:exe /main:hoge.py hoge.py

• コンソールアプリにしたい場合は、/target:exe を指定。
• GUIアプリにしたい場合は、/target:winexe を指定。

> C:\Python\IronPython2.7\ipy.exe C:\Python\IronPython2.7\Tools\Scripts\pyc.py /target:winexe /main:PythonApplicationTest01.py PythonApplicationTest01.py

Input Files:
        PythonApplicationTest01.py
Output:
        PythonApplicationTest01
Target:
        WindowApplication
Platform:
        ILOnly
Machine:
        I386
Threading:
        STA

Compiling...
Saved to PythonApplicationTest01

PythonApplicationTest01.dll
PythonApplicationTest01.exe

# 文字は、0,1,2,3番目、と数える。

# under=0 が指定されてるから、「Save」の、0番目の文字の「S」が使われる。
menu_file.add_command(label="Save", under=0, command = self.save_project, accelerator="Ctrl+S")

# under=5 が指定されてるから、「Save as...」の、5番目の文字の「a」が使われる。
menu_file.add_command(label="Save as...", under=5, command = self.save_as_project, accelerator="Shift+Ctrl+S")

# under=1 が指定されてるから、「Exit」の、1番目の文字の「x」が使われる。
menu_file.add_command(label="Exit", under=1, command = self.quit, accelerator="Ctrl+Q")

self.bind_all("<Shift-Control-S>", self.save_as_project)

self.bind_all("<Control-q>", self.quit)

次の例は Contorol キー、Shift キー、ALT キーを扱う例です。

1 : bind . <Control-ButtonPress-1> {puts "Control and mouse button 1 is pressed."}
2 : bind . <Shift-KeyPress-A> {puts "Shift-A is pressed."}
3 : bind . <Alt-KeyPress-b> {puts "Alt-B is pressed."}
4 : bind . <Shift-Control-KeyPress-C> {puts "Shift-Control-C is pressed."}

Alt キーのときは「b」としているのに、 Shift キーが関わっているときには「A」のように大文字にしています。 これは Shift キーと同時にアルファベットキーを押すと大文字になるからですね。 したがって、キーボードの Caps Lock をオンにすると、 上記のキーに関するイベントは反応しなくなります （大文字と小文字が逆になるからです）。

イベント処理 より

• Shift + CapsLock(Ctrl化) + 英数字キーは無反応。
• Shift + Ctrl(本物のCtrl) + 英数字キーなら反応する。

└─tkdnd2.8
        libtkdnd2.8.dll
        pkgIndex.tcl
        tkdnd.tcl
        tkdnd_compat.tcl
        tkdnd_generic.tcl
        tkdnd_macosx.tcl
        tkdnd_unix.tcl
        tkdnd_windows.tcl

D:.
│  test.py
│  TkinterDnD.html
│
└─TkinterDnD2
        TkinterDnD.py
        __init__.py

os.environ['TKDND_LIBRARY'] = DIRECTORYTOTHETKDNDBINARY
↓
os.environ['TKDND_LIBRARY'] = ".\\tkdnd"

' クリップボード内の文字列を文字変換してクリップボードへ送り直す
' Last updated: <2005/06/19 02:32:26 +0900>

Option Explicit

WScript.Sleep(500)

with CreateObject("InternetExplorer.Application")

  .Navigate("about:blank")

  Do until .Busy = False Or .ReadyState = 4
    WScript.Sleep 50
  Loop

  With .Document.ParentWindow.ClipboardData
    Dim stext

    stext = .getData("text")
    
    If IsNull(stext) = False Then
      stext = GetOperatedText(stext)
      .SetData "text",stext
    Else
      stext = "クリップボード内のデータが不正です。"
    End If

    WScript.Sleep(150)
    WScript.Echo stext

  End With

  .Quit
End With


' 文字変換 subroutine
Function UserTextConvert(utext,dicsrc,dicdist)
    Dim c, moji, i, index
    c = ""
    For i = 1 To Len(utext)
        moji = Mid(utext,i,1)
        index = inStr(dicsrc, moji)
        If index > 0 Then moji = Mid(dicdist,index,1)
        c = c & moji
    Next
    UserTextConvert = c
End Function

' 改行等削除、半角／全角変換
Function GetOperatedText(t)
    Dim bobj
    Dim t0,t1,t2,t3,t4,t5,t6,t7,t8
    Dim d1a, d1b, src, temp, temp2, newsrc,result

    Set bobj = CreateObject("basp21")
'   t1 = bobj.Kconv(t,1)
    t1 = t
    
    t0 = Replace(t1,vbCrLf, " ")
    t1 = Replace(t0,vbCr, " ")
    t0 = Replace(t1,vbLf, " ")
    t1 = Replace(t0,"　", " ")
    t0 = Replace(t1,"  ", " ")
    t1 = Replace(t0,"−", "-")
    t0 = Trim(t1)
    
    src = bobj.HAN2ZEN(t0)
    bobj.Translate "tr/０-９Ａ-Ｚａ-ｚ（）/0-9A-Za-z()/k",src,newsrc

    Set bobj = Nothing

    d1a = "!""#$%&',.+?/:;"
    d1b = "！”＃＄％＆’，．＋？／：；"
    result = UserTextConvert(newsrc,d1a,d1b)

    GetOperatedText = result
End Function

// selection copy -> zenkaku hankaku convert -> copy
// zenkaku hankaku convert ... convhzclip.vbs used.

jsa_conv_selection_copy();

function jsa_conv_selection_copy() {
    var wscriptpath = "C:\\WINDOWS\\system32\\wscript.exe";
    var convpath = "C:\\home\\bin\\convhzclip.vbs";

    if ( _jsaCScript.context.isTextSelected ) {
        var str = window.getSelection().toString();

        // _jsaCScript.dump("Org text : " + str );
        _jsaCScript.setClipBoardString( str );

        convpath = _jsaCScript.convertCharCodeTo( convpath, "shift_jis" );
        _jsaCScript.exec(wscriptpath, convpath);

//         var cstr = "";
//         for ( var i = 0; i<5000; i++ ) {
//             cstr = _jsaCScript.getClipBoardString;
//             if ( str == cstr ) break;
//         }
// 
//         if ( str == cstr ) {
//             _jsaCScript.popAutoHideAlert( "Clipboard : " + cstr );
//             convpath = _jsaCScript.convertCharCodeTo( convpath, "shift_jis" );
//             _jsaCScript.exec(wscriptpath, convpath);
//         } else {
//             _jsaCScript.popAutoHideAlert( "Error : Can't set clipboard." );
//         }

    }
}

// selection copy -> zenkaku hankaku convert -> copy

jsa_hzconv_selection_copy();

function jsa_hzconv_selection_copy() {
    if ( _jsaCScript.context.isTextSelected ) {
        var str = window.getSelection().toString();
        var rstr = get_operated_text(str);
        _jsaCScript.setClipBoardString(rstr);
        _jsaCScript.popAutoHideAlert(rstr);
    }
}

function get_operated_text(s) {
    var ss;
    ss = del_spc(s);
    s = ss.replace(/^\s+|\s+$/g,"");
    ss = kana_h2z(s);
    s = conv_z2h(ss);
    return s;
}

function conv_z2h(s) {
    var src = "０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ−　";
    var dst = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- ";
    return convstr_str(s,src,dst);
}

function del_spc(s) {
    s = s.replace(/[\t\r\n]+/g," ");
    s = s.replace(/  /g," ");
    return s;
}

function convstr(ostr,src,dst) {
    var str = ostr;
    if ( src.length != dst.length ) {
        _jsaCScript.dump('Error: src.length != dst.length');
        str = 'error';
    } else {
        for(var i = 0; i < src.length; i++){
            var srcc = src[i].toString();
            var dstc = dst[i].toString();
            var srccm = '/'+srcc+'/g';
//            _jsaCScript.dump('['+srcc+'] -> ['+dstc+']['+srccm+']')
            str = str.replace(srccm, dstc);
        }
    }
    _jsaCScript.dump('['+ostr+']['+str+']');
    return str;
}

function convstr_str(ostr,src,dst) {
    var str = ostr;
    var mode = 0;
    var sn = src.length;
    var dn = dst.length;
    _jsaCScript.dump('sn='+sn+' dn='+dn);
    
    if ( sn == dn ) {
        mode = 0;
    } else {
        if ( sn == (dn * 2) ) {
            mode = 1;           // z2h
        } else {
            if ( (sn * 2) == dn ) {
                mode = 2;       // h2z
            } else {
                _jsaCScript.dump('Error: src.length != dst.length');
                return ostr;
            }
        }
    }
    _jsaCScript.dump('mode='+mode);

    switch(mode) {
    case 1:
        // z2h
        for ( var i = 0; i < dn; i++ ) {
            var srcc = src.substr(i*2,2);
            var dstc = dst.substr(i,1);
            _jsaCScript.dump("["+srcc+"] -> ["+dstc+"]");
            str = str.replace(srcc, dstc);
        }
        break;
    case 2:
        // h2z
        for ( var i = 0; i < sn; i++ ) {
            var srcc = src.substr(i,1);
            var dstc = dst.substr(i*2,2);
            _jsaCScript.dump("["+srcc+"] -> ["+dstc+"]");
            str = str.replace(srcc, dstc);
        }
        break;
    default:
        for ( var i = 0; i < sn; i++ ) {
            var srcc = src.substr(i,1);
            var dstc = dst.substr(i,1);
            _jsaCScript.dump("["+srcc+"] -> ["+dstc+"]");
            str = str.replace(srcc, dstc);
        }
        break;
    }
    
    _jsaCScript.dump('['+ostr+']['+str+']');
    return str;
}


function matchNum(text, sText) {
    var n = 0;
    for (i=0; i<text.length;i++ ) {
        i = text.indexOf(sText, i);
        if (i == -1) {
            break;
        } else {
            n++;
        }
    }
    _jsaCScript.dump('['+text+']'+'['+sText+']'+'match='+n);
    return n;
}

// hankaku kana -> zenkaku kana
// http://www5e.biglobe.ne.jp/~access_r/hp/javascript/js_111.html

function kana_h2z(str){
    var kana1 = new Array(
        'ｶﾞ','ｷﾞ','ｸﾞ','ｹﾞ','ｺﾞ','ｻﾞ','ｼﾞ','ｽﾞ','ｾﾞ','ｿﾞ',
        'ﾀﾞ','ﾁﾞ','ﾂﾞ','ﾃﾞ','ﾄﾞ','ﾊﾞ','ﾋﾞ','ﾌﾞ','ﾍﾞ','ﾎﾞ',
        'ﾊﾟ','ﾋﾟ','ﾌﾟ','ﾍﾟ','ﾎﾟ',
        'ｦ',
        'ｧ','ｨ','ｩ','ｪ','ｫ',
        'ｬ','ｭ','ｮ',
        'ｯ','ｰ',
        'ｱ','ｲ','ｳ','ｴ','ｵ','ｶ','ｷ','ｸ','ｹ','ｺ',
        'ｻ','ｼ','ｽ','ｾ',
        'ｿ',
        'ﾀ','ﾁ','ﾂ','ﾃ','ﾄ','ﾅ','ﾆ','ﾇ','ﾈ','ﾉ',
        'ﾊ','ﾋ','ﾌ','ﾍ','ﾎ','ﾏ','ﾐ','ﾑ','ﾒ','ﾓ',
        'ﾔ','ﾕ','ﾖ',
        'ﾗ','ﾘ','ﾙ','ﾚ','ﾛ',
        'ﾜ','ﾝ');
    var kana2 = new Array(
        'ガ','ギ','グ','ゲ','ゴ','ザ','ジ','ズ','ゼ','ゾ',
        'ダ','ヂ','ヅ','デ','ド','バ','ビ','ブ','ベ','ボ',
        'パ','ピ','プ','ペ','ポ',
        'ヲ',
        'ァ','ィ','ゥ','ェ','ォ',
        'ャ','ュ','ョ',
        'ッ','ー',
        'ア','イ','ウ','エ','オ','カ','キ','ク','ケ','コ',
        'サ','シ','ス','セ',
        'ソ\',
        'タ','チ','ツ','テ','ト','ナ','ニ','ヌ','ネ','ノ',
        'ハ','ヒ','フ','ヘ','ホ','マ','ミ','ム','メ','モ',
        'ヤ','ユ','ヨ',
        'ラ','リ','ル','レ','ロ',
        'ワ','ン');
    
    return convstr(str,kana1,kana2);
}

use gzip/gunzip instead,

$ cd /bin

$ ln gzip.exe compress.exe

$ ln gunzip.exe uncompress.exe