pyrite-dev/milsko
pyrite-dev/milsko
12
1
Fork 3
Code Issues 4 Pull requests Projects Releases 10 Packages Wiki Activity Actions

revive

Browse source 
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@633 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
Nishi 2025-11-07 21:47:12 +00:00
commit 4417c26678
6 changed files with 18 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

11
m4/util/afterdot.m4
View file

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

6
m4/util/comma.m4
View file

@ -1,5 +1,3 @@
dnl $Id$
define([space_to_comma],[pushdef([rindex])dnl
define([rindex],index([$*],[ ]))dnl
ifelse(rindex,[-1],[$*],[substr([$*],0,rindex)[,]space_to_comma(substr([$*],eval(rindex + 1)))])[]dnl
popdef([rindex])])dnl
define([space_to_comma],[_space_to_comma(patsubst([$*],[ ],[,]))])dnl
define([_space_to_comma],[ifelse([$#],[0],[],[$#],[1],[$1],[$1[,]_space_to_comma(shift($@))])])dnl