home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / PROCS.ZIP / SCANSET.ICN < prev    next >
Encoding:
Text File  |  1992-11-20  |  1.9 KB  |  61 lines
  1. ############################################################################
  2. #
  3. #    File:     scanset.icn
  4. #
  5. #    Subject:  Procedures to set up string scanning procedures
  6. #
  7. #    Author:   Robert J. Alexander
  8. #
  9. #    Date:     November 11, 1991
  10. #
  11. ###########################################################################
  12. #
  13. #  Procedure to set up for user-written string-scanning procedures that
  14. #  are in the spirit of Icon's built-ins.
  15. #
  16. #  The values passed are the s, i1, i2 parameters which are the last
  17. #  three arguments to all Icon scanning functions (such as
  18. #  upto(c,s,i1,i2)).  scan_setup() supplies any appropriate defaults and
  19. #  returns needed values.
  20. # 
  21. #  The value returned is a list consisting of two values:
  22. #
  23. #    1.  The substring of s to be scanned (ss).
  24. #    2.  The size of the substring of s that precedes the
  25. #        substring to be scanned (len).
  26. #
  27. #  scan_setup() fails if i1 or i2 is out of range with respect to s.
  28. #
  29. #  The user-written procedure can then match in the string ss to compute
  30. #  the position within ss appropriate to the scan (p).  The value
  31. #  returned (or suspended) to the caller is p + len (the position within
  32. #  the original string, s).
  33. #
  34. #  For example, the following function finds two words separated by
  35. #  spaces:
  36. #
  37. #    procedure two_words(s,i1,i2)
  38. #       local x,p
  39. #       x := scan_setup(s,i1,i2) | fail    # fail if out of range
  40. #       x[1] ? suspend {
  41. #          tab(upto(&letters)) &
  42. #          pos(1) | (move(-1) & tab(any(~&letters))) &
  43. #          p := &pos &        # remember starting position
  44. #          tab(many(&letters)) &
  45. #          tab(many(' ')) &
  46. #          tab(many(&letters)) &
  47. #          p + x[2]            # return position in original s
  48. #          }
  49. #    end
  50. #
  51. ############################################################################
  52.  
  53. procedure scan_setup(s,i1,i2)
  54.    if /s := &subject then
  55.       /i1 := &pos
  56.    else
  57.       /i1 := 1
  58.    /i2 := 0
  59.    return [s[i1:i2],match("",s,i1,i2) - 1]
  60. end
  61.