Skip to content
Permalink
Browse files

Changes to support long_description (long-description unfortunately t…

…urned

out to be a bad name choice) and an attempt to sprinkle it through enough
ports to at least give people the idea in hopes they'll start adding it to
their ports.  Also add to the registry entry and clean up some package
installation hook stuff while I'm in there.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@1006 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Oct 9, 2002
1 parent 36e9dc4 commit 5b6e28b64ab5960c3d0b9b8d877dd2d4dad02b58
Showing with 13 additions and 9 deletions.
  1. +1 −1 src/port1.0/portinstall.tcl
  2. +12 −8 src/port1.0/portregistry.tcl
@@ -45,7 +45,7 @@ default build.target.install install
set UI_PREFIX "---> "

proc install_main {args} {
global portname portversion portpath categories description depends_run contents pkg_install pkg_deinstall workdir worksrcdir prefix build.type build.cmd build.target.install UI_PREFIX build.target.current
global portname portversion portpath categories description depends_run contents workdir worksrcdir prefix build.type build.cmd build.target.install UI_PREFIX build.target.current

if ![file exists $prefix] {
ui_msg "Warning: The directory $prefix does not exist, creating it."
@@ -38,10 +38,10 @@ register com.apple.registry requires main fetch extract checksum patch configure
register com.apple.registry deplist depends_run depends_lib

# define options
options contents long-description description registry.nochecksum registry.path registry.nobzip registry.contents_recurse
options contents long_description description registry.nochecksum registry.path registry.nobzip registry.contents_recurse

# Export options via PortInfo
options_export description long-description
options_export description long_description

default registry.path {[file join ${portdbpath} receipts]}

@@ -200,19 +200,26 @@ proc proc_disasm {pname} {
}

proc registry_main {args} {
global portname portversion portpath categories description depends_run contents pkg_install pkg_deinstall workdir worksrcdir prefix UI_PREFIX
global portname portversion portpath categories description long_description depends_run contents package-install uninstall workdir worksrcdir prefix UI_PREFIX

# Package installed successfully, so now we must register it
set rhandle [registry_new $portname $portversion]
ui_msg "$UI_PREFIX Adding $portname to registry, this may take a moment..."

registry_store $rhandle [list prefix $prefix]
registry_store $rhandle [list categories $categories]
if [info exists description] {
registry_store $rhandle [concat description $description]
}
if [info exists long_description] {
registry_store $rhandle [concat long_description ${long_description}]
}
if [info exists depends_run] {
registry_store $rhandle [list run_depends $depends_run]
}
if [info exists package-install] {
registry_store $rhandle [concat package-install ${package-install}]
}
if [info exists contents] {
# If it's a list, try and split it up.
if {[llength $contents] == 1} {
@@ -222,11 +229,8 @@ proc registry_main {args} {
}
registry_store $rhandle $x
}
if {[info proc pkg_install] == "pkg_install"} {
registry_store $rhandle [list pkg_install [proc_disasm pkg_install]]
}
if {[info proc pkg_uninstall] == "pkg_uninstall"} {
registry_store $rhandle [list pkg_uninstall [proc_disasm pkg_uninstall]]
if {[info proc uninstall] == "uninstall"} {
registry_store $rhandle [list uninstall [proc_disasm uninstall]]
}
registry_close $rhandle
return 0

0 comments on commit 5b6e28b

Please sign in to comment.
You can’t perform that action at this time.