LADI
/
gmic
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

.

This commit is contained in:
David Tschumperle 2023-10-02 10:14:11 +02:00
parent 95e1822104
commit 24de1d1fd4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/gmic_stdlib.gmic
View File

@ -5691,8 +5691,8 @@ outputx :
_outputx :
$=arg
is_last_arg=0 is_same_location=0
if isnum($-1) is_last_arg={isint($-1)" && "$-1>=0" && "$-1<=1} is_same_location=$-1 fi
N={$#-$is_last_arg} s0= s1=s
if isnum($-1) is_last_arg:=isint($-1)" && "$-1>=0" && "$-1<=1 is_same_location=$-1 fi
N:=$#-$is_last_arg s0= s1=s
if !$N e[0--3] "Output image"$_gmic_s" at same location, with same base filename but extension ''
(skipped, no extension provided)." return
fi
@ -5894,7 +5894,7 @@ parse_cli_trigger_bashcompletion :
#
parse_cli_ascii :
use_vt100
if !narg($_shell_cols) _shell_cols={${-shell_cols}-5} fi
if !narg($_shell_cols) _shell_cols:=${-shell_cols}-5 fi
category= n_category=0
if !narg($_section) _section=1 fi
@ -5988,7 +5988,7 @@ parse_cli_ascii :
} } rm u $eqto
parse_cli_text_ascii :
if !narg($_shell_cols) _shell_cols={${-shell_cols}-5} fi
if !narg($_shell_cols) _shell_cols:=${-shell_cols}-5 fi
replace_str "\\n","\n" gmd2ascii $_shell_cols,0
# Ensure output text contains no more than two consecutive newlines.
@ -7547,7 +7547,7 @@ gmd2ascii :
is_arg=1 l[] { check "isint(${1=80}) && $1>0 && isint(${2=0}) && $2>=0" onfail is_arg=0 }
max_line_length,indent_forced_newline=${1-2}
if !$is_arg
if !narg($_shell_cols) _shell_cols={${-shell_cols}-5} fi
if !narg($_shell_cols) _shell_cols:=${-shell_cols}-5 fi
max_line_length,indent_newline=$_shell_cols,0 noarg
fi
@ -8939,7 +8939,7 @@ parse_gui_strings :
fi
}
# Sort strings and remove duplicates.
sort_list +,N repeat $!-1 { i,ni={[$<,$<+1]} if ['{$i,n}']==['{$ni,n}'] +[$i,$ni] fi } sort_list -,i
sort_list +,N repeat $!-1 { i,ni:=$<,$<+1 if ['{$i,n}']==['{$ni,n}'] +[$i,$ni] fi } sort_list -,i
# Generate output in commented .ts format.
foreach { nm={n} ({'$nm" , "'}:y) k. => $nm }