PortAuthority

#
# Tcl package index file
#
package ifneeded aem 1.0 "
    package require Tk 8.5-
    if {\"AppKit\" ni \[winfo server .\]} {error {TkAqua Cocoa required}}
        load [list [file join $dir libaem1.0.dylib]] aem"

The window menu manages the various display windows of PortAuthority. It can minimize the selected window, or bring all application windows to the front.

-------------------
title: Scriptability and Services
alias: Scriptability

PortAuthority offers extensive AppleScript support, including the following commands:

 * search_all_ports(searchterm) -- search all ports for a specific item
 * list_installed_ports -- list all installed ports
 * get_port_info(port) -- get information about a specific port
 * list_all_ports -- list all ports
 * get_search_term -- returns the current search term for a port search
 * get_info_term -- returns the currently selected port for requesting information
 * set_search_term -- sets the term to search for a specific port
 * run_update -- update the MacPorts infrastructure
 * dump_ports -- export a list of all ports to a file



These commands allow the user to automate PortAuthority and the MacPorts installation.
PortAuthority can also be called from the Mac's Services menu. To call PortAuthority from the services menu, highlight a domain name in a Services-aware application (such as Safari, Mail or TextEdit) and select "PortAuthority: Search Ports" from the Services menu. That search term will be passed to PortAuthority and and search output of the ports will be displayed.

PortAuthority also supports the ability to call other Mac applications from the Services menu. To call another application's service--for instance, to display a domain in Safari--simply highlight the text in PortAuthority and then select the appropriate item from the Services menu.

-------------------

The window menu manages the various display windows of PortAuthority. It can minimize the selected window, or bring all application windows to the front.

-------------------
title: Scriptability and Services
alias: Scriptability

PortAuthority offers extensive AppleScript support. The following commands can be called via AppleScript's "do script" command:

 * search_all_ports(searchterm) -- search all ports for a specific item
 * list_installed_ports -- list all installed ports
 * get_port_info(port) -- get information about a specific port
 * list_all_ports -- list all ports
 * get_search_term -- returns the current search term for a port search
 * get_info_term -- returns the currently selected port for requesting information
 * set_search_term -- sets the term to search for a specific port
 * run_update -- update the MacPorts infrastructure
 * dump_ports -- export a list of all ports to a file

As an example: tell app "PortAuthority" to do script "list_all_ports"

These commands allow the user to automate PortAuthority and the MacPorts installation.
PortAuthority can also be called from the Mac's Services menu. To call PortAuthority from the services menu, highlight a domain name in a Services-aware application (such as Safari, Mail or TextEdit) and select "PortAuthority: Search Ports" from the Services menu. That search term will be passed to PortAuthority and and search output of the ports will be displayed.

PortAuthority also supports the ability to call other Mac applications from the Services menu. To call another application's service--for instance, to display a domain in Safari--simply highlight the text in PortAuthority and then select the appropriate item from the Services menu.

-------------------

package require mojavehig
package require appname
package require urltext
 package require tclservices
package require cocoaprint
package require Tclapplescript
package require tclgrowl
package require aem

package require xplat

#handle errors in Tk
proc bgerror {args} {
    exec syslog -s -l Error "PortAuthority: An error occurred: $args"
}

#install AppleScript event handlers
aem::installeventhandler CoKv sPrt searchAllPorts
aem::installeventhandler CoKv iPrt listInstalledPorts
aem::installeventhandler CoKv aPrt listAllPorts
aem::installeventhandler CoKv dPrt getInfoAboutPort
aem::installeventhandler CoKv pTrm getSearchTerm
aem::installeventhandler CoKv iTrm getInfoTerm
aem::installeventhandler CoKv ssTm setSearchTerm
aem::installeventhandler CoKv rUpd runUpdate
aem::installeventhandler CoKv dmPt dumpPorts


proc dumpPorts {outputpath} {

    global status  
    global category 
    global portpath 
    global verboselevel 
    global portlist 
    global packages 
................................................................................

    close $resultfile

}


#set search term from AppleScript
proc setSearchTerm {term} {
    
    global searchterm

    set searchterm $term
    
}


#searches MacPorts for a specific port, returns to AppleScript
proc searchAllPorts {term} {
    
    global category 
    global status 
    global searchterm 
    global portpath 
    global verboselevel 
    global searchlist 
................................................................................
    foreach item $parsesearch {
	set program [lindex $item 1]
	set version [lindex $item 2]
	set mycategory [lindex $item 3]
	lappend searcharray [list $program $version $mycategory]
    }

    set resultfile [open $::env(TMPDIR)/resultfile.txt w]
    
    foreach item $searcharray {
	puts $resultfile $item
    }

    close $resultfile


    set readfile [open $::env(TMPDIR)/resultfile.txt r]
    set resultlist [read $readfile]
    close $readfile

    return $resultlist
}

#run self-update
proc runUpdate {} {

    updateBase

}


#list all MacPorts ports, return to AppleScript
proc listAllPorts {} {
    global status  
    global category 
    global portpath 
    global verboselevel 
    global portlist 
    global packages 
    global log
................................................................................
		set myinstalled ""
	    }
	}
	
	lappend portarray [list $program $version $searchcategory]
    }

    set resultfile [open $::env(TMPDIR)/resultfile.txt w]
    
    foreach item $portarray {
	puts $resultfile $item
    }

    close $resultfile

    set readfile [open $::env(TMPDIR)/resultfile.txt r]
    set resultlist [read $readfile]
    close $readfile

    return $resultlist
}

#list installed ports, return to AppleScript
proc listInstalledPorts {} {

    global status  
    global category 
    global portpath 
    global verboselevel 
    global portlist 
    global packages 
................................................................................
	set program [lindex $item 0]
	set version [string map -nocase {@ {} } [lindex $item 1]]
	set searchcategory [lindex [split [lindex $item 2] /] 0]
	lappend installedarray [list $program $version $searchcategory]
    }


    set resultfile [open $::env(TMPDIR)/resultfile.txt w]
    
    foreach item $installedarray {
	puts $resultfile $item
    }

    close $resultfile

    set readfile [open $::env(TMPDIR)/resultfile.txt r]
    set resultlist [read $readfile]
    close $readfile

    return $resultlist

    
}

#get search term from AppleScript
proc getSearchTerm {} {
    
    global searchterm

    return $searchterm
    
}


proc getInfoTerm {} {

    set item [lindex [.t.right.upper.frame.listbox get [.t.right.upper.frame.listbox curselection]] 1]
    set new [lindex [split $item] 0]
    return $new

}


#get info about port, pass to AppleScript
proc getInfoAboutPort {term} {

    global portpath

    set infoterm $term

    exec $portpath info $infoterm > $::env(TMPDIR)/portinfo.txt  2>$::env(TMPDIR)/infoerrors.txt

    set readfile [open $::env(TMPDIR)/portinfo.txt r]
    set myinfo [read $readfile]
    close $readfile
    return $myinfo

}

#display user help
proc tk::mac::ShowHelp {} {
    machelp::userhelp

package require mojavehig
package require appname
package require urltext
 package require tclservices
package require cocoaprint
package require Tclapplescript
package require tclgrowl
#package require aem

package require xplat

#handle errors in Tk
proc bgerror {args} {
    exec syslog -s -l Error "PortAuthority: An error occurred: $args"
}

#Commands called via AppleScript "do script" command











proc dump_ports {outputpath} {

    global status  
    global category 
    global portpath 
    global verboselevel 
    global portlist 
    global packages 
................................................................................

    close $resultfile

}


#set search term from AppleScript
proc set_search_term {term} {
    
    global searchterm

    set searchterm $term
    
}


#searches MacPorts for a specific port, returns to AppleScript
proc search_all_ports {term} {
    
    global category 
    global status 
    global searchterm 
    global portpath 
    global verboselevel 
    global searchlist 
................................................................................
    foreach item $parsesearch {
	set program [lindex $item 1]
	set version [lindex $item 2]
	set mycategory [lindex $item 3]
	lappend searcharray [list $program $version $mycategory]
    }



    return $searcharray


 








}

#run self-update
proc run_update {} {

    updateBase

}


#list all MacPorts ports, return to AppleScript
proc list_all_ports {} {
    global status  
    global category 
    global portpath 
    global verboselevel 
    global portlist 
    global packages 
    global log
................................................................................
		set myinstalled ""
	    }
	}
	
	lappend portarray [list $program $version $searchcategory]
    }



   return $portarray










}

#list installed ports, return to AppleScript
proc list_installed_ports {} {

    global status  
    global category 
    global portpath 
    global verboselevel 
    global portlist 
    global packages 
................................................................................
	set program [lindex $item 0]
	set version [string map -nocase {@ {} } [lindex $item 1]]
	set searchcategory [lindex [split [lindex $item 2] /] 0]
	lappend installedarray [list $program $version $searchcategory]
    }




   return $installedarray











    
}

#get search term from AppleScript
proc get_search_term {} {
    
    global searchterm

    return $searchterm
    
}


proc get_info_term {} {

    set item [lindex [.t.right.upper.frame.listbox get [.t.right.upper.frame.listbox curselection]] 1]
    set new [lindex [split $item] 0]
    return $new

}


#get info about port, pass to AppleScript
proc get_port_info {term} {

    global portpath

    set infoterm $term

    set myinfo [exec $portpath info $infoterm]  




    return $myinfo

}

#display user help
proc tk::mac::ShowHelp {} {
    machelp::userhelp