# # $Id: str_util.icn,v 1.1 2004/02/12 17:07:57 rparlett Exp $ # # This file is in the public domain. # # Author: Robert Parlett (parlett@dial.pipex.com) # package util # # strings.iol # - string utilities # # # Utility to get next integer # procedure get_int() suspend tab(upto(&digits)) & integer(tab(many(&digits))) end