falsework 0.2.8 → 1.3.0

data/lib/falsework/templates/c-glib/#config.yaml

@@ -0,0 +1,18 @@
+---
+:exe:
+- :src: 'src/#exe.h'
+  :dest: 'src/%s.h'
+  :mode_int: null
+- :src: 'src/#exe.c'
+  :dest: 'src/%s.c'
+  :mode_int: null
+
+:doc:
+- :src: 'doc/#doc.ascii'
+  :dest: 'doc/%s.1.asciidoc'
+  :mode_int: null
+
+:test:
+- :src: 'test/#test.c'
+  :dest: 'test/test_%s.c'
+  :mode_int: null

data/lib/falsework/templates/c-glib/README

@@ -0,0 +1,24 @@
+-*-text-*-
+
+<%= @classy %> is a [TODO: write a description]
+
+
+Requirements
+
+Runtime:
+
+* FreeBSD/Linux
+* glib 2.x
+* libiconv
+
+Build:
+
+* gcc 4.x
+* GNU make
+* asciidoc
+
+
+Examples
+
+% <%= @project %> -h
+% <%= @project %> 

data/lib/falsework/templates/c-glib/doc/#doc.ascii

@@ -0,0 +1,46 @@
+// -*-doc-*-
+<%= target.upcase %>(1)
+<% target.size.times {|i| %>=<% } %>===
+:doctype: manpage
+
+NAME
+----
+
+<%= target %> - [TODO: write a description]
+
+SYNOPSIS
+--------
+
+*<%= target %>* [-q]
+
+DESCRIPTION
+-----------
+
+<%= target %> is a [TODO: write a description]
+
+OPTIONS
+-------
+
+*-q*::
+		Don't show warnings.
+
+
+EXIT STATUS
+-----------
+
+Program exits 0 on success or >= 1 if en error occurs.
+
+BUGS
+----
+
+Probably.
+
+SEE ALSO
+--------
+
+man(1), hier(7)
+
+AUTHORS
+-------
+
+<%= @gecos %> <<%= @email %>>.

data/lib/falsework/templates/c-glib/doc/%%@project%%.1.asciidoc

@@ -0,0 +1,46 @@
+// -*-doc-*-
+<%= @project.upcase %>(1)
+<% @project.size.times {|i| %>=<% } %>===
+:doctype: manpage
+
+NAME
+----
+
+<%= @project %> - [TODO: write a description]
+
+SYNOPSIS
+--------
+
+*<%= @project %>* [-q]
+
+DESCRIPTION
+-----------
+
+<%= @project %> is a [TODO: write a description]
+
+OPTIONS
+-------
+
+*-q*::
+		Don't show warnings.
+
+
+EXIT STATUS
+-----------
+
+Program exits 0 on success or >= 1 if en error occurs.
+
+BUGS
+----
+
+Probably.
+
+SEE ALSO
+--------
+
+man(1), hier(7)
+
+AUTHORS
+-------
+
+<%= @gecos %> <<%= @email %>>.

data/lib/falsework/templates/{naive/doc/LICENSE.erb → c-glib/doc/LICENSE}

@@ -1,6 +1,6 @@
 (The MIT License)
 
-Copyright (c) 2010 <%= @gecos %>.
+Copyright (c) <%= DateTime.now.year %> <%= @gecos %>.
 
 Permission is hereby granted, free of charge, to any person obtaining
 a copy of this software and associated documentation files (the

data/lib/falsework/templates/c-glib/doc/Makefile

@@ -0,0 +1,17 @@
+.PHONY : clean
+
+MAN_ASCIIDOC := $(wildcard *.1.asciidoc)
+MAN := $(patsubst %.1.asciidoc,%.1,$(wildcard *.1.asciidoc))
+
+all: $(MAN)
+
+%.1: %.1.asciidoc
+	a2x -f manpage $<
+
+clean:
+	rm -f $(MAN)
+
+# Debug. Use 'gmake p-obj' to print $(obj) variable.
+p-%:
+	@echo $* = $($*)
+	@echo $*\'s origin is $(origin $*)

data/lib/falsework/templates/c-glib/src/#exe.c

@@ -0,0 +1,23 @@
+#include "<%= target %>.h"
+
+int main(int argc, char **argv)
+{
+	g_set_prgname(basename(argv[0]));
+	
+	int exit_code = 0, ch;
+
+	while ((ch = getopt(argc, argv, "qh")) != -1) {
+		switch (ch) {
+		case 'q':
+			mylog_to(MYLOG_BITBUCKET);
+			break;
+		default:
+			printf("Usage: %s [-q]\n", argv[0]);
+			exit(1);
+		}
+	}
+	argc -= optind;
+	argv += optind;
+	
+	return exit_code;
+}

data/lib/falsework/templates/c-glib/src/#exe.h

@@ -0,0 +1,8 @@
+#ifndef <%= uuid + '_' + target.upcase %>_H
+#define <%= uuid + '_' + target.upcase %>_H
+
+#include "<%= @project %>.h"
+
+
+
+#endif // <%= uuid + '_' + target.upcase %>_H

data/lib/falsework/templates/c-glib/src/%%@project%%.c

@@ -0,0 +1,23 @@
+#include "<%= @project %>.h"
+
+int main(int argc, char **argv)
+{
+	g_set_prgname(basename(argv[0]));
+	
+	int exit_code = 0, ch;
+
+	while ((ch = getopt(argc, argv, "qh")) != -1) {
+		switch (ch) {
+		case 'q':
+			mylog_to(MYLOG_BITBUCKET);
+			break;
+		default:
+			printf("Usage: %s [-q]\n", argv[0]);
+			exit(1);
+		}
+	}
+	argc -= optind;
+	argv += optind;
+	
+	return exit_code;
+}

data/lib/falsework/templates/c-glib/src/%%@project%%.h

@@ -0,0 +1,26 @@
+#ifndef <%= uuid + '_' + @project.upcase %>_H
+#define <%= uuid + '_' + @project.upcase %>_H
+
+#define PROG_NAME "<%= @project %>"
+#define PROG_VER "0.0.1"
+
+#include <errno.h>
+#include <fcntl.h>
+#include <libgen.h>
+#include <pthread.h>
+#include <signal.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/uio.h>
+#include <sys/wait.h>
+#include <sys/param.h>
+#include <unistd.h>
+
+#include <glib.h>
+
+#include "utils.h" // some goodies
+
+#endif // <%= uuid + '_' + @project.upcase %>_H

data/lib/falsework/templates/c-glib/src/Makefile

@@ -0,0 +1,28 @@
+gnome := glib-2.0
+
+CFLAGS := -Wall -Wno-pointer-sign \
+	-I/usr/local/include \
+        $(shell pkg-config --cflags $(gnome) )
+
+LDFLAGS := $(shell pkg-config --libs $(gnome) )
+
+exe := <%= @project %>
+obj := $(patsubst %.c,%.o,$(wildcard *.c))
+
+.SECONDEXPANSION:
+
+all: $(obj) $(exe)
+
+$(obj): <%= @project %>.h
+
+<%= @project %>.o: <%= @project %>.h
+
+<%= @project %>: utils.o $$@.o
+	$(CC) $^ -o $@ $(CFLAGS) $(LDFLAGS)
+
+clean:
+	rm -rf $(exe) $(obj) *.core
+
+print-%:
+	@echo $* = $($*)
+	@echo $*\'s origin is $(origin $*)

data/lib/falsework/templates/c-glib/src/untest.c

@@ -0,0 +1,9 @@
+#include "untest.h"
+
+/* A callback handler for g_test_log_set_fatal_handler(). */
+gboolean
+mylog_fatal_handler(const gchar *log_domain, GLogLevelFlags log_level,
+					const gchar *message, gpointer user_data)
+{
+	return FALSE;
+}

data/lib/falsework/templates/c-glib/src/untest.h

@@ -0,0 +1,14 @@
+#ifndef UNTEST_H
+#define UNTEST_H
+
+/*
+  Routines useful only for unit tests and glib's test framework.
+ */
+
+#include "<%= @project %>.h"
+
+gboolean
+mylog_fatal_handler(const gchar *log_domain, GLogLevelFlags log_level,
+					const gchar *message, gpointer user_data);
+
+#endif // UNTEST_H

data/lib/falsework/templates/c-glib/src/utils.c

@@ -0,0 +1,232 @@
+#include <iconv.h>
+
+#include "utils.h"
+
+/* The result should be freed with g_free(). */
+gchar *
+text2utf8(const gchar *buf, const gchar *from) {
+	gsize br, bw;
+	if (!buf) return NULL;
+	if (!from) return (gchar*)buf;
+
+	if (g_regex_match_simple("utf.?8", from, G_REGEX_CASELESS, 0))
+		return g_strdup(buf); // prevent converting from utf8 to utf8
+	else 
+		return g_convert_with_fallback(buf, -1, "UTF-8", from,
+									   NULL, &br, &bw, NULL);
+}
+
+/*
+  Take a variable number of arguments and return the pointer to the
+  first non-NULL one. The argument list must end with &sentinel.
+ */
+char
+*first(char *first, ...)
+{
+	va_list ap;
+    char *r = first;
+
+    va_start(ap, first);
+    while (!r) {
+        r = va_arg(ap, char*);
+    }
+	va_end(ap);
+
+    return r == &sentinel ? NULL : r;
+}
+
+/*
+  Read @fd till EOF and return the a null-terminated result with the
+  size of the string in @len (pass NULL if you're not interested).
+
+  The result should be freed with g_free().
+ */
+gchar*
+chan_read(int fd, gsize *len)
+{
+	gsize n;
+	gchar buf[BUFSIZ];
+	gsize size = 0;
+	gchar *r = g_malloc((BUFSIZ+1) * sizeof *buf);
+	
+	while ( (n = readn(fd, buf, BUFSIZ)) > 0) {
+		memmove(r+size, buf, n);
+		size += n;
+		
+		gchar *tmp = g_realloc(r, (size+BUFSIZ+1) * sizeof *tmp);
+		if (!tmp) {
+			g_free(r);
+			g_warning("realloc failed");
+			size -= n;
+			break;
+		}
+		r = tmp;
+	}
+	r[size] = '\0';
+	if (len) *len = size;
+	return r;
+}
+
+gboolean
+pr_exit_warn(const char *cmd, int status)
+{
+	gboolean ok = TRUE;
+	
+    if (WIFEXITED(status)) {
+		if (WEXITSTATUS(status) != 0) {
+			g_warning("%s: unexpected termination, exit status %d",
+					  cmd, WEXITSTATUS(status));
+			ok = FALSE;
+		}
+	} else if (WIFSIGNALED(status)) {
+        g_warning("%s: abnormal termination, signal number %d",
+				  cmd, WTERMSIG(status));
+		ok = FALSE;
+	} else if (WIFSTOPPED(status)) {
+        printf("%s: child stopped, signal number %d",
+			   cmd, WSTOPSIG(status));
+		ok = FALSE;
+	}
+
+	return ok;
+}
+
+ssize_t						/* Read "n" bytes from a descriptor. */
+readn(int fd, void *vptr, size_t n)
+{
+	size_t	nleft;
+	ssize_t	nread;
+	char	*ptr;
+
+	ptr = vptr;
+	nleft = n;
+	while (nleft > 0) {
+		if ( (nread = read(fd, ptr, nleft)) < 0) {
+			if (errno == EINTR)
+				nread = 0;		/* and call read() again */
+			else
+				return(-1);
+		} else if (nread == 0)
+			break;				/* EOF */
+
+		nleft -= nread;
+		ptr   += nread;
+	}
+	return(n - nleft);		/* return >= 0 */
+}
+
+ssize_t						/* Write "n" bytes to a descriptor. */
+writen(int fd, const void *vptr, size_t n)
+{
+	size_t		nleft;
+	ssize_t		nwritten;
+	const char	*ptr;
+
+	ptr = vptr;
+	nleft = n;
+	while (nleft > 0) {
+		if ( (nwritten = write(fd, ptr, nleft)) <= 0) {
+			if (nwritten < 0 && errno == EINTR)
+				nwritten = 0;		/* and call write() again */
+			else
+				return(-1);			/* error */
+		}
+
+		nleft -= nwritten;
+		ptr   += nwritten;
+	}
+	return(n);
+}
+
+/*
+  Removes all leading & trailing whitespace + replaces \n, \t, \r to 1
+  space. Modifies @s in place.
+ */
+GString*
+my_strstrip(GString *s)
+{
+	if (!s) return NULL;
+	GRegex *re = g_regex_new("[\n\r\t]+", 0, 0, NULL);
+	char *tmp = g_regex_replace_literal(re, s->str, s->len, 0, " ", 0, NULL);
+	g_regex_unref(re);
+	
+	if (!tmp) return s;
+	g_strstrip(tmp);
+	g_string_assign(s, tmp);
+	g_free(tmp);
+	return s;
+}
+
+/* A callback handler for mylog_to(). */
+void
+mylog_to_devnull(const gchar *log_domain, GLogLevelFlags log_levels,
+				 const gchar *message, gpointer user_data)
+{
+	/* do nothing, eat all messages */
+}
+
+/*
+  Same as g_warning() + exit(1).
+ */
+void myerr(const gchar *format, ...)
+{
+	if (!format) {
+		g_warning("unspecified error");
+		exit(1);
+	}
+
+	va_list args;
+	va_start(args, format);
+	g_logv(G_LOG_DOMAIN, G_LOG_LEVEL_WARNING, format, args);
+	va_end (args);
+
+	exit(1);
+}
+
+/*
+  Switch destination of logs according to @d.
+ */
+void
+mylog_to(MyLogDest d)
+{
+	switch (d) {
+	case MYLOG_BITBUCKET:
+		g_log_set_handler(NULL, G_LOG_LEVEL_WARNING|G_LOG_LEVEL_CRITICAL,
+						  mylog_to_devnull, NULL);
+		break;
+	case MYLOG_FILES:
+		g_error("MYLOG_FILES is unimplemented");
+		break;
+	default:
+		// reset ot glib's default
+		g_log_set_handler(NULL, G_LOG_LEVEL_WARNING|G_LOG_LEVEL_CRITICAL,
+						  g_log_default_handler, NULL);
+		break;
+	}
+}
+
+/*
+  Do case insensitive regexp replace in @s in place.
+
+  Return FALSE on error. Warning: TRUE doens't mean that something was
+  actually replaced.
+ */
+gboolean
+my_regsub(GString* s, const gchar *re, const gchar *sub)
+{
+	if (!s || !re || !sub) return FALSE;
+	gboolean r = FALSE;
+	GError *e = NULL;
+	
+	GRegex *pattern = g_regex_new(re, G_REGEX_CASELESS|G_REGEX_MULTILINE, 0, NULL);
+	char *t = g_regex_replace(pattern, s->str, -1, 0, sub, 0, &e);
+	if (e == NULL && t) {
+		g_string_assign(s, t);
+		r = TRUE;
+	}
+	
+	g_regex_unref(pattern);
+	g_free(t);
+	g_clear_error(&e);
+	return r;
+}