Added a seq function that defers to the seq command if present

https://github.com/fish-shell/fish-shell/issues/137

common.cpp

@@ -293,6 +293,11 @@ char *wcs2str(const wchar_t *in)
     return wcs2str_internal(in, out);
 }
 
+char *wcs2str(const wcstring &in)
+{
+    return wcs2str(in.c_str());
+}
+
 /* This function is distinguished from wcs2str_internal in that it allows embedded null bytes */
 std::string wcs2string(const wcstring &input)
 {

common.h

@@ -226,6 +226,7 @@ wcstring str2wcstring(const std::string &in);
    way using the private use area.
 */
 char *wcs2str(const wchar_t *in);
+char *wcs2str(const wcstring &in);
 std::string wcs2string(const wcstring &input);
 
 /** Test if a string prefixes another. Returns true if a is a prefix of b */

seq.in

@@ -1,25 +1,18 @@
-#!/usr/bin/env fish
+# If seq is not installed, then define a function that invokes __fish_fallback_seq
-#
+if begin ; test -x /usr/bin/seq ; or type --no-functions seq > /dev/null; end
-# Fallback implementation of the seq command
+	function seq --description "Print sequences of numbers"
-#
+		__fish_fallback_seq $argv
-# @configure_input@
-
-set -l from 1
-set -l step 1
-set -l to 1
-
-function _ -d "Alias for the gettext command"
-	printf "%s" $argv
-end
-if test 1 = "@HAVE_GETTEXT@"
-	if which gettext ^/dev/null >/dev/null
-		function _ -d "Alias for the gettext command"
-			gettext fish $argv
-		end
 	end
 end 
 
-switch (count $argv)
+
+function __fish_fallback_seq --description "Fallback implementation of the seq command"
+
+	set -l from 1
+	set -l step 1
+	set -l to 1
+	
+	switch (count $argv)
 		case 1
 			set to $argv[1]
 	
@@ -36,17 +29,19 @@ switch (count $argv)
 			printf (_ "%s: Expected 1, 2 or 3 arguments, got %d\n") seq (count $argv)
 			exit 1
 	
-end
+	end
 	
-for i in $from $step $to
+	for i in $from $step $to
 		if not echo $i | grep -E '^-?[0-9]*([0-9]*|\.[0-9]+)$' >/dev/null
 			printf (_ "%s: '%s' is not a number\n") seq $i
 			exit 1
 		end
+	end
+	
+	if [ $step -ge 0 ]
+		echo "for( i=$from; i<=$to ; i+=$step ) i;" | bc
+	else
+		echo "for( i=$from; i>=$to ; i+=$step ) i;" | bc
+	end
 end
 
-if [ $step -ge 0 ]
-	echo "for( i=$from; i<=$to ; i+=$step ) i;" | bc
-else
-	echo "for( i=$from; i>=$to ; i+=$step ) i;" | bc
-end

share/functions/type.fish

@@ -6,21 +6,40 @@ function type --description "Print the type of a command"
 	set -l mode normal
 	set -l selection all
 	
+	set -l new_getopt
+	if not getopt -T > /dev/null
+		set new_getopt 1
+	else
+		set new_getopt ''
+	end
+	
 	#
 	# Get options
 	#
-	set -l shortopt -o tpPafh
+	set -l options
+	set -l shortopt tpPafh
 	set -l longopt
-	if not getopt -T >/dev/null
+	if test $new_getopt
-		set longopt -l type,path,force-path,all,no-functions,help
+		# GNU getopt
-	end
+		set longopt type,path,force-path,all,no-functions,help
-
+		set options -o $shortopt -l $longopt --
-	if not getopt -n type -Q $shortopt $longopt -- $argv >/dev/null
+		# Verify options
+		if not getopt -n type $options $argv >/dev/null
 			return 1
 		end
+	else
+		# Old getopt, used on OS X
+		set options $shortopt
+		# Verify options
+		if not getopt $options $argv >/dev/null
+			return 1
+		end
+	end
 
-	set -l tmp (getopt $shortopt $longopt -- $argv)
+	# Do the real getopt invocation
+	set -l tmp (getopt $options $argv)
 
+	# Break tmp up into an array
 	set -l opt
 	eval set opt $tmp
 	

tests/test7.in

@@ -110,3 +110,15 @@ if not echo skip1 > /dev/null
 else if echo skip2 > /dev/null
 	echo "zeta 6.2"
 end
+
+echo '###'
+
+# Ensure 'type' works
+# https://github.com/fish-shell/fish-shell/issues/513
+function fish_test_type_zzz
+	true
+end
+# Should succeed
+type fish_test_type_zzz >/dev/null ; echo $status
+# Should fail
+type -f fish_test_type_zzz >/dev/null ; echo $status

tests/test7.out

@@ -25,3 +25,6 @@ delta4.1
 delta4.2
 epsilon5.2
 zeta 6.2
+###
+0
+1