Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 6a2afa29e9
Fetching contributors…

Cannot retrieve contributors at this time

38 lines (31 sloc) 0.997 kB
#!/usr/bin/env wish8.5
#
# ps3mfw -- PS3 MFW creator
#
# Copyright (C) Anonymous Developers (Code Monkeys)
#
# This software is distributed under the terms of the GNU General Public
# License ("GPL") version 3, as published by the Free Software Foundation.
#
# MacOS X / Windows wrapper
#
# Mac OSX: Remove Cocoa argument from arglist
if {[string first "-psn" [lindex $argv 0]] == 0} { set argv [lrange $argv 1 end]}
#Source the main file
if { $::tcl_platform(platform) == "windows"} {
source [file join [pwd] ps3mfw]
} else {
#Set variable program_dir
set program_dir [file dirname [info script]]
set program [file tail [info script]]
while {[catch {file readlink [file join $program_dir $program]} program]== 0} {
if {[file pathtype $program] == "absolute"} {
set program_dir [file dirname $program]
} else {
set program_dir [file join $program_dir [file dirname $program]]
}
set program [file tail $program]
}
unset program
source [file join $program_dir ps3mfw]
}
Jump to Line
Something went wrong with that request. Please try again.