posix

git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@632 b9cfdab3-6d41-4d17-bbe4-086880011989

m4/util/afterdot.m4

@@ -0,0 +1,11 @@
+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