2024-10-10

core/sim/sim_3_01/stream.c

@@ -0,0 +1,91 @@
+/*	This file is part of the software similarity tester SIM.
+	Written by Dick Grune, Vrije Universiteit, Amsterdam.
+	$Id: stream.c,v 2.14 2016-05-13 19:00:54 dick Exp $
+*/
+
+#include	<stdio.h>
+#include	<sys/types.h>
+#include	<sys/stat.h>
+
+#include	"system.par"
+#include	"sim.h"
+#include	"options.h"
+#include	"token.h"
+#include	"lang.h"
+#include	"stream.h"
+
+static FILE *fopen_regular_file(const char *fname);
+
+int
+Open_Stream(const char *fname) {
+	int ok;
+
+	lex_nl_cnt = 1;
+	lex_tk_cnt = 0;
+	lex_non_ascii_cnt = 0;
+
+	/* start the lex machine */
+	yyin = fopen_regular_file(fname);
+	ok = (yyin != 0);
+	if (!ok) {
+		/* fake a stream, to simplify the rest of the program */
+		yyin = fopen(NULLFILE, "r");
+	}
+	yystart();
+	return ok;
+}
+
+static FILE *
+fopen_regular_file(const char *fname) {
+	struct stat buf;
+
+	if (stat(fname, &buf) != 0) return 0;
+	if ((buf.st_mode & S_IFMT) != S_IFREG) return 0;
+	return fopen(fname, "r");
+}
+
+int
+Next_Stream_Token_Obtained(void) {
+	return yylex();
+}
+
+void
+Close_Stream(void) {
+	if (yyin) {
+		fclose(yyin);
+		yyin = 0;
+	}
+}
+
+void
+Print_Stream(const char *fname) {
+	fprintf(Output_File, "File %s:", fname);
+	if (!Open_Stream(fname)) {
+		fprintf(Output_File, " cannot open\n");
+		return;
+	}
+
+	fprintf(Output_File, " showing the %s stream\n", Token_Name);
+
+	lex_token = End_Of_Line;
+	do {
+		if (Token_EQ(lex_token, End_Of_Line)) {
+			fprintf(Output_File,
+				"line # = %s, %s # = %s:\n",
+				size_t2string(lex_nl_cnt),
+				Token_Name,
+				size_t2string(lex_tk_cnt)
+			);
+		}
+		else {
+			extern char *yytext;
+			fprintf(Output_File, " %s -> ", yytext);
+			fprint_token(Output_File, lex_token);
+			fprintf(Output_File, "\n");
+		}
+	} while (Next_Stream_Token_Obtained());
+
+	fprintf(Output_File, "\n");
+
+	Close_Stream();
+}