Release 0.0.3

[gob-dx.git] / src / out.c

diff --git a/src/out.c b/src/out.c
new file mode 100644 (file)
index 0000000..df0d7f5
--- /dev/null
+++ b/src/out.c
@@ -0,0 +1,73 @@
+#include <stdio.h>
+#include <stdarg.h>
+#include <glib.h>
+
+#include "out.h"
+
+extern FILE *out;
+extern FILE *outh;
+
+extern char *filename;
+extern char *filebase;
+
+int outline = 1;
+int outhline = 1;
+
+static int
+strchrcnt(char *s, char c)
+{
+       int cnt = 0;
+       for(;*s;s++)
+               if(*s == c)
+                       cnt++;
+       return cnt;
+}
+
+void
+out_printf(FILE *fp,char *format,...)
+{
+       va_list ap;
+       char *s;
+       va_start(ap,format);
+       
+       s = g_strdup_vprintf(format,ap);
+
+       if(fp == out)
+               outline += strchrcnt(s,'\n');
+       else if(fp == outh)
+               outhline += strchrcnt(s,'\n');
+       else
+               g_assert_not_reached();
+
+       fprintf(fp,"%s",s);
+       g_free(s);
+
+       va_end(ap);
+}
+
+void
+out_addline_infile(FILE *fp, int line)
+{
+       if(fp == out)
+               outline++;
+       else if(fp == outh)
+               outhline++;
+       else
+               g_assert_not_reached();
+
+       fprintf(fp,"#line %d \"%s\"\n",line,filename);
+}
+
+void
+out_addline_outfile(FILE *fp)
+{
+       if(fp == out) {
+               outline++;
+               fprintf(fp,"#line %d \"%s.c\"\n",outline,filebase);
+       } else if(fp == outh) {
+               outhline++;
+               fprintf(fp,"#line %d \"%s.h\"\n",outhline,filebase);
+       } else
+               g_assert_not_reached();
+
+}