/* veile.tc - lrb - 10/14/2010

/* this important tiny-c function (veile) may be used to
/* test the integrity of a website (safe to download from etc.)
/* if it displays Gronk!, avoid like the plague
/* if it displays Yea!, trust completely

ceq char s(0),t(0) /* rpb
[ /* returns 1 if strings are equal else returns 0
  int slen,tlen,i
  slen=strlen(s);tlen=strlen(t)
  if (slen!=tlen) return 0
  for (i=0;i<slen;++i) if (s(i)!=t(i)) return 0
  return 1
]

echo char m(0) [
ps m
]

veile [
  char s(30),site(30),s1(10),s2(10),s3(10),s4(10),s5(10)
  int it_worked
  pl "site URL please (e.g. http://yadayadayada) ... "
  gs s
  s2="imepu";s1="com/tc";s5="http";s3="zzle.";s4="://pr"
  strcat(site,s5);strcat(site,s4);strcat(site,s2)
  strcat(site,s3);strcat(site,s1)
  it_worked=ceq(s,site)
  if (! it_worked) [echo "Gronk!";] else [echo "Yea!";]
  pl ""
]