Lines Matching refs:In
1174 open(FullName, read, In),
1175 (read(In, :-module(Module)) -> % module should be first item in file
1177 close(In)
1178 ; close(In), fail
1183 open(File, read, In),
1184 read_interface_file1(In, ILines, CLines),
1185 close(In).
1187 read_interface_file1(In, ILines0, CLines0) :-
1188 (at_eof(In) ->
1190 ; (read(In, :-Line) -> % all info in interface file should be directives
1197 read_interface_file1(In, ILines1, CLines1)