Project/Real_code/gnu/gawk-3.1.3/main.c
static void
cmdline_fs(char *str)
{
	register NODE **tmp;

	tmp = get_lhs(FS_node, (Func_ptr *) 0, FALSE);
	unref(*tmp);
	/*
	 * Only if in full compatibility mode check for the stupid special
	 * case so -F\t works as documented in awk book even though the shell
	 * hands us -Ft.  Bleah!
	 *
	 * Thankfully, Posix didn't propagate this "feature".
	 */
	if (str[0] == 't' && str[1] == '\0') {
		if (do_lint)
			lintwarn(_("-Ft does not set FS to tab in POSIX awk"));
		if (do_traditional && ! do_posix)
			str[0] = '\t';
	}
	*tmp = make_str_node(str, strlen(str), SCAN); /* do process escapes */
	set_FS();
}
/* cmdline_fs --- set FS from the command line */
set FS from the command line
set FS from the command line
static void
cmdline_fs(char *str)
{
	register NODE **tmp;
	tmp = get_lhs(FS_node, (Func_ptr *) 0, FALSE);
	unref(*tmp);
	if (str[0] == 't' && str[1] == '\0') {
		if (do_lint)
			lintwarn(_("-Ft does not set FS to tab in POSIX awk"));
		if (do_traditional && ! do_posix)
			str[0] = '\t';
	}
	*tmp = make_str_node(str, strlen(str), SCAN); 
	set_FS();
}
static void cmdline_fs ( char * str ) { register NODE * * tmp ; tmp = get_lhs ( FS_node , ( Func_ptr * ) 0 , FALSE ) ; unref ( * tmp ) ; if ( str [ 0 ] == ' ' && str [ 1 ] == ' \0 ' ) { if ( do_lint ) lintwarn ( _ ( " " ) ) ; if ( do_traditional && ! do_posix ) str [ 0 ] = ' \t ' ; } * tmp = make_str_node ( str , strlen ( str ) , SCAN ) ; set_FS ( ) ; }
cmdline_fs --- set FS from the command line
cmdline_fs --- set FS from the command line
/*
	 * Only if in full compatibility mode check for the stupid special
	 * case so -F\t works as documented in awk book even though the shell
	 * hands us -Ft.  Bleah!
	 *
	 * Thankfully, Posix didn't propagate this "feature".
	 */ /* do process escapes */