sys/fmtio/nscan.x


1
2
3
4
5
6
7
8
9
10
11
12

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# NSCAN -- Return the number of tokens successfully converted in the most
# recent scan.

int procedure nscan()

include	"scan.com"

begin
	return (sc_ntokens)
end