; $Id: read_ppm_next_token.pro,v 1.3 2004/01/21 15:55:00 scottm Exp $ ; ; Copyright (c) 1994-2004. Research Systems, Inc. All rights reserved. ; Unauthorized reproduction prohibited. ; Function READ_PPM_NEXT_TOKEN, unit, buffer COMPILE_OPT hidden if strlen(buffer) le 0 then buffer = READ_PPM_NEXT_LINE(unit) white = strpos(buffer, ' ') if white eq -1 then begin ;No blanks? result = buffer buffer = '' endif else begin ;Strip leading token. result = strmid(buffer, 0, white) buffer = strmid(buffer, white+1, 1000) endelse return, result end