argument parser for simple STAP arguments

src/base/base_strings.c

@@ -616,6 +616,22 @@ str8_is_integer(String8 string, U32 radix)
   return result;
 }
 
+internal B32
+str8_is_integer_signed(String8 string, U32 radix)
+{
+  B32 result = 0;
+  String8 sign = str8_prefix(string, 1);
+  if(str8_match(sign, str8_lit("-"), 0))
+  {
+    result = str8_is_integer(str8_skip(string, 1), radix);
+  }
+  else
+  {
+    result = str8_is_integer(string, radix);
+  }
+  return result;
+}
+
 internal U64
 u64_from_str8(String8 string, U32 radix)
 {

src/base/base_strings.h

@@ -233,6 +233,7 @@ internal String8 push_cstr(Arena *arena, String8 str); // TODO(rjf): this is unn
 //- rjf: string -> integer
 internal S64 sign_from_str8(String8 string, String8 *string_tail);
 internal B32 str8_is_integer(String8 string, U32 radix);
+internal B32 str8_is_integer_signed(String8 string, U32 radix);
 internal U64 u64_from_str8(String8 string, U32 radix);
 internal S64 s64_from_str8(String8 string, U32 radix);
 internal U32 u32_from_str8(String8 string, U32 radix);