home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / armbob / !ArmBob / progs / h / string / mid < prev    next >
Text File  |  1994-06-06  |  285b  |  15 lines
  1. /* GCW 02/03/94 */
  2. /* get substring of s at f-th character of length l */
  3. mid(s,f,l)  
  4. {
  5.     local len,r,i;
  6.     len = sizeof(s) - f;
  7.     if (l > len)
  8.         l = len;
  9.     if (l <= 0) return "";
  10.     r = newstring(l);
  11.     for (i = 0; --l >= 0; )
  12.         r[i++] = s[f++];
  13.     return r;
  14. }
  15.