From dc71274f16f7ff65145e034900f582b62453a033 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 14 Oct 2017 11:43:11 +0900 Subject: rename and update ketpic -> ketcindy --- .../ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci new file mode 100644 index 00000000..b3b9a417 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci @@ -0,0 +1,20 @@ +// 10.01.21 + +function Texnewcmd(varargin) + Nargs=length(varargin); + Str=varargin(1); + S='\newcommand{'+Str+'}'; + if Nargs>1 + Tmp=string(varargin(2)); + S=S+'['+Tmp+']'; + end; + if Nargs>2 + Tmp=varargin(3); + if type(Tmp)==1 + Tmp=string(Tmp); + end; + S=S+'['+Tmp+']'; + end; + S=S+'{'; + Texcom(S); +endfunction \ No newline at end of file -- cgit v1.2.3