From be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Fri, 19 Apr 2024 04:57:58 +0200 Subject: Adding upstream version 1.44.3. Signed-off-by: Daniel Baumann --- web/server/h2o/libh2o/misc/picotemplate-conf.pl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 web/server/h2o/libh2o/misc/picotemplate-conf.pl (limited to 'web/server/h2o/libh2o/misc/picotemplate-conf.pl') diff --git a/web/server/h2o/libh2o/misc/picotemplate-conf.pl b/web/server/h2o/libh2o/misc/picotemplate-conf.pl new file mode 100644 index 00000000..95eaa7a8 --- /dev/null +++ b/web/server/h2o/libh2o/misc/picotemplate-conf.pl @@ -0,0 +1,21 @@ +use strict; +use warnings; + +$main::push_expr = sub { + my $src = shift; + return qq{{ h2o_iovec_t _s = ($src); if (_s.len != 0 && _s.base[_s.len - 1] == '\\n') --_s.len; h2o_buffer_reserve(&_, _s.len); memcpy(_->bytes + _->size, _s.base, _s.len); _->size += _s.len; }}; +}; + +$main::push_void_expr = sub { + my $src = shift; + return qq{{ size_t _l = _->size; { $src }; if (_->size != 0 && _l != _->size && _->bytes[_->size - 1] == '\\n') --_->size; }}; +}; + +$main::push_str = sub { + my $str = shift; + $str =~ s/([\\'"])/\\$1/gs; + $str =~ s/\n/\\n/gs; + return $main::push_expr->(qq{h2o_iovec_init(H2O_STRLIT("$str"))}); +}; + +1; -- cgit v1.2.3