home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JAZLIB.ARC / JZRGTSTR.C < prev    next >
Encoding:
Text File  |  1986-05-06  |  585 b   |  26 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │ jzrgtstr                                     │
  4. │ Return the right n chars from a string                     │
  5. │                                         │
  6. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950              │
  7. └────────────────────────────────────────────────────────────────────────────┘
  8. */
  9.  
  10. char *jzrgtstr(fstr,fnum)
  11. char *fstr;
  12. int fnum;
  13. {
  14.   unsigned int w,wlen;
  15.   char *wptr;
  16.  
  17.   w = (int) fstr;
  18.  
  19.   wlen = strlen(fstr);
  20.  
  21.   wptr = (char *) w + wlen - fnum;
  22.  
  23.   return( (char *) ((int) (wptr) >= (int) (fstr)) ? wptr : fstr);
  24.  
  25. }
  26.