[121227] branches/gsoc14-cleanup/src

[ksammons at macports.org]

Revision: 121227
          https://trac.macports.org/changeset/121227
Author:   ksammons at macports.org
Date:     2014-06-20 16:14:10 -0700 (Fri, 20 Jun 2014)
Log Message:
-----------
Added the skeleton code for port doctor

Modified Paths:
--------------
    branches/gsoc14-cleanup/src/macports1.0/macports.tcl
    branches/gsoc14-cleanup/src/macports1.0/pkgIndex.tcl
    branches/gsoc14-cleanup/src/port/port
    branches/gsoc14-cleanup/src/port/port.tcl

Added Paths:
-----------
    branches/gsoc14-cleanup/src/macports1.0/doctor.tcl

Added: branches/gsoc14-cleanup/src/macports1.0/doctor.tcl
===================================================================
--- branches/gsoc14-cleanup/src/macports1.0/doctor.tcl	                        (rev 0)
+++ branches/gsoc14-cleanup/src/macports1.0/doctor.tcl	2014-06-20 23:14:10 UTC (rev 121227)
@@ -0,0 +1,10 @@
+
+package provide doctor 1.0 
+package require macports
+
+namespace eval doctor {
+    
+    proc main {} {
+        puts "Success!"
+    }
+}

Modified: branches/gsoc14-cleanup/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc14-cleanup/src/macports1.0/macports.tcl	2014-06-20 23:14:07 UTC (rev 121226)
+++ branches/gsoc14-cleanup/src/macports1.0/macports.tcl	2014-06-20 23:14:10 UTC (rev 121227)
@@ -37,6 +37,7 @@
 package require macports_dlist 1.0
 package require macports_util 1.0
 package require reclaim 1.0
+package require doctor 1.0
 package require Tclx
 
 namespace eval macports {
@@ -4364,6 +4365,11 @@
     return yes
 }
 
+proc macports::doctor_main {} {
+    doctor::main
+    return 0
+}
+
 proc macports::reclaim_main {} {
     reclaim::main
     return 0

Modified: branches/gsoc14-cleanup/src/macports1.0/pkgIndex.tcl
===================================================================
--- branches/gsoc14-cleanup/src/macports1.0/pkgIndex.tcl	2014-06-20 23:14:07 UTC (rev 121226)
+++ branches/gsoc14-cleanup/src/macports1.0/pkgIndex.tcl	2014-06-20 23:14:10 UTC (rev 121227)
@@ -12,3 +12,4 @@
 package ifneeded macports_dlist 1.0 [list source [file join $dir macports_dlist.tcl]]
 package ifneeded macports_util 1.0 [list source [file join $dir macports_util.tcl]]
 package ifneeded reclaim 1.0 [list source [file join $dir reclaim.tcl]]
+package ifneeded doctor 1.0 [list source [file join $dir doctor.tcl]]

Modified: branches/gsoc14-cleanup/src/port/port
===================================================================
--- branches/gsoc14-cleanup/src/port/port	2014-06-20 23:14:07 UTC (rev 121226)
+++ branches/gsoc14-cleanup/src/port/port	2014-06-20 23:14:10 UTC (rev 121227)
@@ -2731,8 +2731,13 @@
     return $status
 }
 
+proc action_doctor { action portlist opts } {
+    macports::doctor_main
+    return 0
+}
+
 proc action_reclaim { action portlist opts } {
-    macports::reclaim_main 
+    macports::reclaim_main  
     return 0
 }
 
@@ -4182,6 +4187,7 @@
     upgrade     [list action_upgrade        [ACTION_ARGS_PORTS]] \
     rev-upgrade [list action_revupgrade     [ACTION_ARGS_NONE]] \
     reclaim     [list action_reclaim        [ACTION_ARGS_NONE]] \
+    doctor      [list action_doctor         [ACTION_ARGS_NONE]] \
     \
     version     [list action_version        [ACTION_ARGS_NONE]] \
     platform    [list action_platform       [ACTION_ARGS_NONE]] \

Modified: branches/gsoc14-cleanup/src/port/port.tcl
===================================================================
--- branches/gsoc14-cleanup/src/port/port.tcl	2014-06-20 23:14:07 UTC (rev 121226)
+++ branches/gsoc14-cleanup/src/port/port.tcl	2014-06-20 23:14:10 UTC (rev 121227)
@@ -44,7 +44,6 @@
 }
 
 package require macports
-package require reclaim 1.0
 package require Pextlib 1.0
 
 # Standard procedures
@@ -2732,6 +2731,11 @@
     return $status
 }
 
+proc action_doctor { action portlist opts } {
+    macports::doctor_main
+    return 0
+}
+
 proc action_reclaim { action portlist opts } {
     macports::reclaim_main  
     return 0
@@ -4183,6 +4187,7 @@
     upgrade     [list action_upgrade        [ACTION_ARGS_PORTS]] \
     rev-upgrade [list action_revupgrade     [ACTION_ARGS_NONE]] \
     reclaim     [list action_reclaim        [ACTION_ARGS_NONE]] \
+    doctor      [list action_doctor         [ACTION_ARGS_NONE]] \
     \
     version     [list action_version        [ACTION_ARGS_NONE]] \
     platform    [list action_platform       [ACTION_ARGS_NONE]] \
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140620/3d6b3fff/attachment.html>