Check which MacPorts ports are binary distributable

all_distributable.tcl

#!/usr/bin/env port-tclsh

# For every available port, outputs the port name to distributable.txt
# if binaries are considered distributable, or to not-distributable.txt
# if not (along with an explanation).

# Set this to where distributable_lib.tcl can be found
set distributable_lib_path .

package require macports
mportinit

source ${distributable_lib_path}/distributable_lib.tcl

set yesfile [open ./distributable.txt w]
set nofile [open ./not-distributable.txt w]

foreach {portname infolist} [mportlistall] {
    set distributable_results [check_licenses $portname [list]]
    if {[lindex $distributable_results 0] == 0} {
        puts $yesfile $portname
    } else {
        puts $nofile "$portname [lindex $distributable_results 1]"
    }
}

close $yesfile
close $nofile