Mercurial > mercurial > hgweb_golang.cgi
diff src/kaigo/qtuti/mkgo.pl @ 61:49656dc40069
add qtuti.
author | pyon@macmini |
---|---|
date | Fri, 11 Sep 2020 20:06:27 +0900 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/kaigo/qtuti/mkgo.pl Fri Sep 11 20:06:27 2020 +0900 @@ -0,0 +1,13 @@ +use utf8; + +open my $f, '<', $ARGV[1]; +my $cpp = do{local $/; <$f>}; +close $f; + +open $f, '<', $ARGV[0]; +while (<$f>) { + s/##### C_SOURCE #####/$cpp/; + print; +} +close $f; +