Initial import into SourceForge CVS

git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14685 87f5fb63-7c3d-0410-a384-fd976d0f7a62

test_programs/clib-bug.c

@@ -0,0 +1,74 @@
+#include <stdio.h>
+#include <string.h>
+
+#define LINEBUFLENGTH 180
+
+#define STRIP_LF(str) (str[strlen(str)-1]=0)
+void invert_str(char * in)
+{
+char t;
+while(t=*in)
+	{
+	*in++=~t;
+	}
+}
+
+int main(int i, char *c[])
+{
+char dest_fname[80], in_linebuffer[LINEBUFLENGTH];
+FILE * fileout, * filein;
+
+if(i>1)
+	{
+	sprintf(dest_fname, "%s.c", c[1]);
+
+	fileout=fopen(dest_fname, "w");
+	filein =fopen(c[1], "r");
+
+	if(fileout && filein)
+		{
+		fgets(in_linebuffer, LINEBUFLENGTH, filein);
+		STRIP_LF(in_linebuffer);
+		invert_str(in_linebuffer);
+		fputs("char *s_leading=\"", fileout);
+		fputs(in_linebuffer, fileout);
+		fputs("\";\n", fileout);
+
+		fputs("char *s_messages[]={\n", fileout);
+
+		while(fgets(in_linebuffer, LINEBUFLENGTH, filein))
+			{
+			STRIP_LF(in_linebuffer);
+			invert_str(in_linebuffer);
+
+			fputs("\"", fileout);
+			fputs(in_linebuffer, fileout);
+			fputs("\",\n", fileout);
+			}
+		fputs("};\n", fileout);
+		fputs("unsigned s_mess_num = sizeof(s_messages)/sizeof(char *);\n", fileout);
+		fclose(filein);
+		fclose(fileout);
+		}
+	}
+return 0;
+}
+
+/*
+What's this stuff for ? I use it in SP_Engine to hide the usual bunch of "secret
+messages". As you can see, the strings are simply not'ed .
+This source shows both flaws: fgets() and the missing buffer flush. You can
+change the while() statement with
+
+while(!feof(filein))
+	{
+	fgets(in_linebuffer, LINEBUFLENGTH, filein);
+....
+
+This way you'll workaround the first problem.
+The second issue manifests itself this way: the last two fputs() followed by the
+fclose() don't do anything: no "};\n" and no "unsigned....." lines are output to
+'fileout'. With SAS, it works perfectly. Converting the source to dos.library
+calls also works perfectly. I wonder if there's some kind of strange interaction
+with the dos/shell updates. 
+*/