<p>laforge <strong>submitted</strong> this change.</p><p><a href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/17232">View Change</a></p><div style="white-space:pre-wrap">Approvals:
  Jenkins Builder: Verified
  laforge: Looks good to me, approved

</div><pre style="font-family: monospace,monospace; white-space: pre-wrap;">Native_Functions: Add f_str_to{lower,upper}()<br><br>TTCN-3 interestingly doens't seem to have any case-insensitive string<br>matching or functions to convert to uppwer/lowercase.<br><br>Change-Id: I2e6e0fd2da001a3cc6d9c31c9e766ae54bf17b2f<br>---<br>M library/Native_FunctionDefs.cc<br>M library/Native_Functions.ttcn<br>2 files changed, 36 insertions(+), 0 deletions(-)<br><br></pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;"><span>diff --git a/library/Native_FunctionDefs.cc b/library/Native_FunctionDefs.cc</span><br><span>index f6d5d1d..78ca4d1 100644</span><br><span>--- a/library/Native_FunctionDefs.cc</span><br><span>+++ b/library/Native_FunctionDefs.cc</span><br><span>@@ -16,6 +16,7 @@</span><br><span> #include <stdio.h></span><br><span> #include <string.h></span><br><span> #include <errno.h></span><br><span style="color: hsl(120, 100%, 40%);">+#include <ctype.h></span><br><span> </span><br><span> #include <Charstring.hh></span><br><span> #include <Octetstring.hh></span><br><span>@@ -75,5 +76,34 @@</span><br><span>  return CHARSTRING(str);</span><br><span> }</span><br><span> </span><br><span style="color: hsl(120, 100%, 40%);">+CHARSTRING f__str__tolower(const CHARSTRING& in)</span><br><span style="color: hsl(120, 100%, 40%);">+{</span><br><span style="color: hsl(120, 100%, 40%);">+     TTCN_Buffer ttcn_buffer(in);</span><br><span style="color: hsl(120, 100%, 40%);">+  TTCN_Buffer buf_out;</span><br><span style="color: hsl(120, 100%, 40%);">+  CHARSTRING out;</span><br><span style="color: hsl(120, 100%, 40%);">+       unsigned int i;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+     const char *in_str = (const char *)ttcn_buffer.get_data();</span><br><span style="color: hsl(120, 100%, 40%);">+    for (i = 0; i < strlen(in_str); i++)</span><br><span style="color: hsl(120, 100%, 40%);">+               buf_out.put_c((unsigned char) tolower(in_str[i]));</span><br><span style="color: hsl(120, 100%, 40%);">+    buf_out.get_string(out);</span><br><span style="color: hsl(120, 100%, 40%);">+      return out;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+CHARSTRING f__str__toupper(const CHARSTRING& in)</span><br><span style="color: hsl(120, 100%, 40%);">+{</span><br><span style="color: hsl(120, 100%, 40%);">+     TTCN_Buffer ttcn_buffer(in);</span><br><span style="color: hsl(120, 100%, 40%);">+  TTCN_Buffer buf_out;</span><br><span style="color: hsl(120, 100%, 40%);">+  CHARSTRING out;</span><br><span style="color: hsl(120, 100%, 40%);">+       unsigned int i;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+     const char *in_str = (const char *)ttcn_buffer.get_data();</span><br><span style="color: hsl(120, 100%, 40%);">+    for (i = 0; i < strlen(in_str); i++)</span><br><span style="color: hsl(120, 100%, 40%);">+               buf_out.put_c((unsigned char) toupper(in_str[i]));</span><br><span style="color: hsl(120, 100%, 40%);">+    buf_out.get_string(out);</span><br><span style="color: hsl(120, 100%, 40%);">+      return out;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span> </span><br><span> } // namespace</span><br><span>diff --git a/library/Native_Functions.ttcn b/library/Native_Functions.ttcn</span><br><span>index d59670a..c43004a 100644</span><br><span>--- a/library/Native_Functions.ttcn</span><br><span>+++ b/library/Native_Functions.ttcn</span><br><span>@@ -11,4 +11,10 @@</span><br><span>       external function f_inet_ntoa(in octetstring oct) return charstring;</span><br><span>         /* like inet_ntoa() but input is host byte order */</span><br><span>  external function f_inet_hntoa(in octetstring oct) return charstring;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+       /* convert content of charstring to lower-case using tolower(3) */</span><br><span style="color: hsl(120, 100%, 40%);">+    external function f_str_tolower(in charstring input) return charstring;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+     /* convert content of charstring to upper-case using toupper(3) */</span><br><span style="color: hsl(120, 100%, 40%);">+    external function f_str_toupper(in charstring input) return charstring;</span><br><span> }</span><br><span></span><br></pre><p>To view, visit <a href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/17232">change 17232</a>. To unsubscribe, or for help writing mail filters, visit <a href="https://gerrit.osmocom.org/settings">settings</a>.</p><div itemscope itemtype="http://schema.org/EmailMessage"><div itemscope itemprop="action" itemtype="http://schema.org/ViewAction"><link itemprop="url" href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/17232"/><meta itemprop="name" content="View Change"/></div></div>

<div style="display:none"> Gerrit-Project: osmo-ttcn3-hacks </div>
<div style="display:none"> Gerrit-Branch: master </div>
<div style="display:none"> Gerrit-Change-Id: I2e6e0fd2da001a3cc6d9c31c9e766ae54bf17b2f </div>
<div style="display:none"> Gerrit-Change-Number: 17232 </div>
<div style="display:none"> Gerrit-PatchSet: 1 </div>
<div style="display:none"> Gerrit-Owner: laforge <laforge@osmocom.org> </div>
<div style="display:none"> Gerrit-Reviewer: Jenkins Builder </div>
<div style="display:none"> Gerrit-Reviewer: laforge <laforge@osmocom.org> </div>
<div style="display:none"> Gerrit-MessageType: merged </div>