| 1 | # git-gui Misc. native Windows 32 support |
| 2 | # Copyright (C) 2007 Shawn Pearce |
| 3 | |
| 4 | proc win32_read_lnk {lnk_path} { |
| 5 | return [safe_exec [list cscript.exe \ |
| 6 | /E:jscript \ |
| 7 | /nologo \ |
| 8 | [file join $::oguilib win32_shortcut.js] \ |
| 9 | $lnk_path]] |
| 10 | } |
| 11 | |
| 12 | proc win32_create_lnk {lnk_path lnk_exec lnk_dir} { |
| 13 | global oguilib |
| 14 | |
| 15 | set lnk_args [lrange $lnk_exec 1 end] |
| 16 | set lnk_exec [lindex $lnk_exec 0] |
| 17 | |
| 18 | set cmd [list wscript.exe \ |
| 19 | /E:jscript \ |
| 20 | /nologo \ |
| 21 | [file nativename [file join $oguilib win32_shortcut.js]] \ |
| 22 | $lnk_path \ |
| 23 | [file nativename [file join $oguilib git-gui.ico]] \ |
| 24 | $lnk_dir \ |
| 25 | $lnk_exec] |
| 26 | safe_exec [concat $cmd $lnk_args] |
| 27 | } |