Ticket #1068: dports.3.patch

./base/src/port1.0/portinstall.tcl

@@ -111 +111 @@
     cd $pwd
 }
 
+proc run_inst_helper_script {script} {
+    global portpath workdir prefix
+
+    set script_src [file join [option filespath] [option $script]]
+    set script_exe [file join $portpath $workdir [option $script]]
+
+    if {[file exists $script_src]} {
+        system "cp $script_src $script_exe"
+        reinplace "s|@PREFIX@|$prefix|g" $script_exe
+        system "chmod a+rx ${script_exe}"
+        system $script_exe
+    }
+}
+
+
 proc install_main {args} {
     global portname portversion portpath categories description long_description homepage depends_run installPlist package-install uninstall workdir worksrcdir prefix UI_PREFIX destroot
 
+    # Run preinstall script if it exists
+    run_inst_helper_script [option preinstall]
+
     # Install ${destroot} contents into /
     directory_dig ${destroot} ${destroot}
+
+    # Run postinstall script if it exists
+    run_inst_helper_script [option postinstall]
 
     # Package installed successfully, so now we must register it
     set rhandle [registry_new $portname $portversion]

./base/src/port1.0/portmain.tcl

@@ -68 +68 @@
 default filesdir {files}
 default filespath {[file join $portpath $filesdir]}
 default worksrcpath {[file join $workpath $worksrcdir]}
+default preinstall {preinstall}
+default postinstall {postinstall}
+default postremove {postremove}
 
 # Compatibility namespace
 default portname {$name}

./base/src/port1.0/portpackage.tcl

@@ -77 +77 @@
             set pkg_$variable [set $variable]
         }
     }
+    # Add pre/post install scripts if they exist
+
+    foreach script {preinstall postinstall postremove} {
+        set script_src [file join [option filespath] [option $script]]
+        set script_dst "${pkgpath}/Contents/Resources/$script"
+
+        if {[file exists $script_src]} {
+            system "cp ${script_src} ${script_dst}"
+            reinplace "s|@PREFIX@|$prefix|g" $script_dst
+            system "chmod a+rx ${script_dst}"
+        }
+    }
+
     write_welcome_html ${pkgpath}/Contents/Resources/Welcome.html $portname $portversion $pkg_long_description $pkg_description $pkg_homepage
     file copy -force -- ${portresourcepath}/package/background.tiff ${pkgpath}/Contents/Resources/background.tiff
     system "mkbom ${destpath} ${pkgpath}/Contents/Archive.bom"