0
@@ -17,9 +17,6 @@
0
 #   See the License for the specific language governing permissions and
0
 #   limitations under the License.
0
 
0
-(load "Nu:beautify")
0
-(load "Nu:doc")
0
-
0
 ;; basic declarations that allow nuke to run in mininush
0
 (set exit (NuBridgedFunction functionWithName:"exit" signature:"vi"))
0
 (set NSUTF8StringEncoding 4)
0
@@ -777,10 +774,29 @@
0
                   (eval (parse (NSString stringWithContentsOfFile:filename encoding:NSUTF8StringEncoding error:(set error (NuReference new))))))
0
           self))
0
 
0
-;; Helper functions
0
+;; Helper functions & extensions
0
 (function includedInOutput (task)
0
      (and (!= "default" (task name)) (not (task isFile))))
0
 
0
+(class NSString
0
+     ;; Create a string consisting of the specified number of spaces.
0
+     (cmethod (id) spaces: (id) count is
0
+          (unless $spaces (set $spaces (NSMutableDictionary dictionary)))
0
+          (unless (set spaces ($spaces objectForKey:count))
0
+                  (set spaces "")
0
+                  (set c count)
0
+                  (unless c (set c 0))
0
+                  (while (> c 0)
0
+                         (spaces appendString:" ")
0
+                         (set c (- c 1)))
0
+                  ($spaces setObject:spaces forKey:count))
0
+          (NSMutableString stringWithString:spaces))
0
+     
0
+     ;; Test to see whether a string begins with a specified substring.
0
+     (imethod (id) beginsWithString:(id) string is
0
+          (set range (self rangeOfString:string))
0
+          (and range (eq (range first) 0))))
0
+
0
 ;;;;;;;;;;;;;;;;;;;;;;;;;
0
 ;; main program
0
 ;;;;;;;;;;;;;;;;;;;;;;;;;
0
@@ -809,12 +825,12 @@
0
            ("-v" (set $verbose YES))
0
            ("--version" (system "nush -v") (exit 0))
0
            ("-V" (system "nush -v") (exit 0))
0
-           (else 
0
-               (if ((argi beginsWithString:"-"))
0
-                (puts "nuke: invalid option: #{argi}")
0
-                (exit -1)
0
-            (else
0
-                (set target argi))))))
0
+           (else
0
+                (if ((argi beginsWithString:"-"))
0
+                    (puts "nuke: invalid option: #{argi}")
0
+                    (exit -1)
0
+                    (else
0
+                         (set target argi))))))
0
 
0
 (if $printHelp
0
     (puts "")