The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#include "byte.h"
#include "str.h"
#include "stralloc.h"

int stralloc_starts(sa,s)
stralloc *sa;
char *s;
{
  int len;
  len = str_len(s);
  return (sa->len >= len) && byte_equal(s,len,sa->s);
}