mirror of
https://gitea.nishi.boats/pyrite-dev/milsko
synced 2026-01-05 09:00:54 +00:00
962cd2e1c1
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@632 b9cfdab3-6d41-4d17-bbe4-086880011989
12 lines
374 B
Plaintext
12 lines
374 B
Plaintext
dnl $Id$
|
|
define([afterdot],[pushdef([rindex])dnl
|
|
define([rindex],index([$1],[.]))dnl
|
|
define([rindex],ifelse(rindex,[-1],len([$1]),rindex))dnl
|
|
substr([$1],[0],rindex)$2[]dnl
|
|
popdef([rindex])])dnl
|
|
dnl
|
|
define([afterdots],[pushdef([first])dnl
|
|
define([first],1)dnl
|
|
foreach([x],space_to_comma($1),[ifelse(first,[1],[define([first],0)],[ ])afterdot(x,$2)])dnl
|
|
popdef([first])])dnl
|