diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci new file mode 100755 index 00000000..2a8b08ca --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci @@ -0,0 +1,15 @@ +// +// 2010.05.15 + +function Out=Texctr(N) + if type(N)==1 + Alpha='abcdefghijklmnopqrstuvwxyz'; + Out='ketpicctr'+part(Alpha,N); + else + if part(N,1)=='\' + Out=part(N,2:length(N)); + else + Out=N; + end; + end; +endfunction |