--- /dev/null
+/* depend: */
+/* cflags: */
+/* linker: debug.o -lcurses */
+/* winlnk: debug.o -lpdcurses */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#include "debug.h"
+
+/* static variables */
+char *progname = NULL;
+char *version = "0.1";
+
+/* help message */
+int usage (int ret)
+{
+ FILE *fd = ret ? stderr : stdout;
+ fprintf (fd, "usage: %s [-h] [-v level]\n", progname);
+ fprintf (fd, " -h: help message\n");
+ fprintf (fd, " -v: verbose level (%d)\n", verbose);
+ fprintf (fd, "%s version %s\n", progname, version);
+
+ return ret;
+}
+
+/* main function */
+int main (int argc, char *argv[])
+{
+
+ /* get basename */
+ char *pt = progname = argv[0];
+ while (*pt) {
+ if ((*pt == '/') || (*pt == '\\')) {
+ progname = pt + 1;
+ }
+ pt++;
+ }
+
+ /* process argument */
+ while (argc-- > 1) {
+ char *arg = *(++argv);
+ if (arg[0] != '-') {
+ VERBOSE (ERROR, fprintf (stderr, "%s: invalid option -- %s\n", progname, arg));
+ return usage (1);
+ }
+ char c = arg[1];
+ switch (c) {
+ case 'v':
+ arg = (arg[2]) ? arg + 2 : (--argc > 0) ? *(++argv) : NULL;
+ if (arg == NULL) {
+ VERBOSE (ERROR, fprintf (stderr, "%s: missing verbose level\n", progname));
+ return usage (1);
+ }
+ verbose = atoi (arg);
+ break;
+ case 'h':
+ default:
+ return usage (c != 'h');
+ }
+ }
+
+ VERBOSE (DEBUG, fprintf (stdout, "debug mode\n"));
+
+ return 0;
+}
+
+/* test: battleships.exe -h | grep usage */
+/* test: battleships.exe -v 2>&1 | grep missing */
+/* test: battleships.exe -v 4 | grep "debug mode" */
+/* test: battleships.exe _ 2>&1 | grep invalid */
+
+/* vim: set ts=4 sw=4 et: */
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+
+# default value
+my $format = "%";
+my $pattern = "";
+
+# help message
+sub usage() {
+
+ print <<EOF;
+usage: getcomments [-f string] [-h] [-p regex] file...
+ -f|--format string: format string for output printing [%]
+ -h|--help: help message
+ -p|--pattern regex: pattern matching on block []
+
+ Extract C/C++ block of comments
+
+Example: getcomments.pl -p='test:\\s' -f='./%' random.c
+EOF
+
+ exit 1;
+}
+
+usage() if ($#ARGV < 0);
+
+# process argument
+foreach my $arg (@ARGV) {
+ use vars qw/$caif $caip $naif $naip/;
+
+ # analyse format argument
+ ($caif, $_) = ($arg =~ /^(-f|--format)=(.*)/);
+ ($caif, $_) = (1, $arg) if ($naif);
+ next if ($naif = ($arg =~ /^(-f|--format)$/));
+ if ($caif) { $format = $_; next }
+
+ # check for help message
+ usage() if ($arg =~ /^(-h|--help)$/);
+
+ # analyse pattern argument
+ ($caip, $_) = ($arg =~ /^(-p|--pattern)=(.*)/);
+ ($caip, $_) = (1, $arg) if ($naip);
+ next if ($naip = ($arg =~ /^(-p|--pattern)$/));
+ if ($caip) { $pattern = $_; next }
+
+ # no more argument, only file
+ my $filename = $arg;
+
+ # open file
+ if (!open (IN, "<", $filename)) {
+ print "Can not open $filename\n";
+ }
+
+ # init table of comments
+ my @comments;
+ $#comments = -1;
+
+ # read all the file
+ while ($_ .= <IN>) {
+ my $cmt;
+
+ # process c++ comments
+ ($cmt, $_) = m{//\s*(.*?)\s*$()} if (m{//} && !m{/\*.*//});
+
+ # process standard c comments
+ ($cmt, $_) = m{^.*?/\*\s*(.*?)\s*\*/(.*)}s if (m{/\*.*\*/}s);
+
+ push(@comments, $cmt) if ($cmt);
+
+ # empty buffer if no comment is present
+ undef($_) if (!m{/[/*]});
+ }
+
+ # close file
+ close (IN);
+
+ # display comment blocks
+ foreach my $block (@comments) {
+ if (($block) = ($block =~ /$pattern(.*)/s)) {
+ ($_ = $format) =~ s/%/$block/gs;
+ print "$_\n";
+ }
+ }
+}
--- /dev/null
+# Default flags
+
+CC = gcc
+
+#INCLUDES = -I../debug -D__MEMORY_ALLOCATION__
+INCLUDES =
+OFLAGS = -O4 -Os
+#OFLAGS = -O4 -ffast-math -finline-functions
+#OFLAGS = -O4 -finline-functions
+#OFLAGS += -mtune=pentium3 -mmmx -msse -msse2 -m3dnow
+#OFLAGS += -minline-all-stringops -fsingle-precision-constant
+#OFLAGS += -malign-double
+CFLAGS += -W -Wall -Wextra -g
+#CFLAGS += -std=c99 -D_XOPEN_SOURCE=500
+CFLAGS += $(OFLAGS) $(INCLUDES) $(OPTIONS)
+LDFLAGS += -g $(OPTIONS)
+
+LDOPT = linker
+ifeq ($(OS),Windows_NT)
+#LDLIBS += -lws2_32
+LDOPT = winlnk
+endif
+
+
+# Targets
+
+ALLEXE =
+ALLEXE += battleships
+
+SHELL = bash
+
+#MAKE = mingw32-make
+MAKEFLAGS += -s
+include $(wildcard .makefile)
+
+# Functions
+
+TITLE = echo -en "\033[0;1m$(strip $(1))\033[0;0m:\t"
+PASS = echo -e "\033[1;32m$(strip $(1))\033[0;0m"
+WARN = echo -e "\033[1;33m$(strip $(1))\033[0;0m"
+FAIL = echo -e "\033[1;31m$(strip $(1))\033[0;0m"
+
+MKDIR = mkdir -p $(1) && chmod a+rx,go-w $(1)
+
+INSTALL = test -d `dirname $(2)` || $(call MKDIR, `dirname $(2)`) && cp -pa $(1) $(2) && chmod a+rX,go-w $(2)
+
+VALID = $(call TITLE, $(1)) && $(2) && $(call PASS, SUCCESS) || { $(call FAIL, FAILED); test; }
+
+## Generic rules
+
+all: depends
+ $(MAKE) $(ALLEXE:%=%.exe)
+
+count:
+ wc $(wildcard *.c *.h) $(MAKEFILE_LIST)
+
+clean:
+ $(call TITLE, "Cleaning")
+ touch clean
+ rm -f clean $(wildcard *.d *.ld *.log *.o *.test *~ .exec_* gmon.out)
+ $(call PASS, SUCCESS)
+
+depends: $(patsubst %.c, %.d, $(wildcard *.c)) $(patsubst %, %.ld, $(ALLEXE))
+
+gcovs:
+ $(MAKE) $(addprefix gcov_,$(ALLEXE))
+
+gprofs:
+ $(MAKE) $(addprefix gprof_,$(ALLEXE))
+
+purge: clean
+ $(call TITLE, "Purging")
+ touch purge
+ rm -f purge $(ALLEXE:%=%.exe)
+ $(call PASS, SUCCESS)
+
+valgrinds: all
+ $(MAKE) $(addprefix valgrind_,$(ALLEXE))
+
+wipe: purge
+ $(call TITLE, "Wiping")
+ touch wipe
+ rm -f wipe $(wildcard *.gcda *.gcno *.gcov *.glog)
+ $(call PASS, SUCCESS)
+
+tests: all
+ $(MAKE) $(addprefix test_,$(ALLEXE))
+
+## Main rules
+
+include $(wildcard *.d)
+include $(wildcard *.ld)
+
+gcov_%:
+ $(MAKE) purge
+ OPTIONS="-coverage -O0" $(MAKE)
+ $(MAKE) test_$(@:gcov_%=%)
+ gcov `sed -e 's/\.exe:/.c/;s/\.o/.c/g' $(@:gcov_%=%.ld)`
+ touch gcov
+ rm -f gcov $(wildcard *.gcda *.gcno)
+ $(MAKE) purge
+ grep '#####' *.c.gcov || true
+
+gprof_%:
+ $(MAKE) purge
+ $(MAKE) depends
+ OPTIONS="-pg" $(MAKE) ${@:gprof_%=%}.exe
+ $(MAKE) ${@:gprof_%=%}.test
+ IFS=$$'\n'; id=1; \
+ for test in `cat ${@:gprof_%=%}.test | sed 's,${@:gprof_%=%}.exe,./${@:gprof_%=%}.exe,g'`; do \
+ log=${@:gprof_%=%}.prof-$$id.glog; \
+ $(call TITLE, test: $$test); \
+ echo $$test > $$log; \
+ eval $$test >> $$log; \
+ [ $$? -eq 0 ] \
+ && echo -e "\033[1;32mSUCCESS\033[0;0m" \
+ || echo -e "\033[1;31mFAILED\033[0;0m"; \
+ [ -f gmon.out ] && { gprof ${@:gprof_%=%}.exe gmon.out >> $$log; rm gmon.out; }; \
+ let id++; \
+ done;
+ $(MAKE) purge
+
+%.test: %.c
+ $(call TITLE, "Building $@")
+# awk '/\/\* *test:.*\*\// { sub(/^.*\/\* *test: */, ""); sub(/ *\*\/.*$$/, ""); print }' $< > $@
+ perl -- getcomments.pl -p='test:\s' -f='%' $< > $@
+ $(call PASS, SUCCESS)
+
+test_%: %.test %.exe
+ IFS=$$'\n'; RC=0; \
+ for test in `cat $< | sed 's,${<:.test=.exe},$(VALGRIND) ./${<:.test=.exe},g'`; do \
+ echo "=== $$test ==="; \
+ eval $$test; \
+ [ $$? -eq 0 ] && echo -e "\033[1;32mSUCCESS\033[0;0m" \
+ || { echo -e "\033[1;31mFAILED\033[0;0m"; RC=1; }; \
+ done; \
+ test "$$RC" -ne 1
+
+valgrind_%: %.exe
+ VALGRIND="valgrind -v --leak-check=full --log-fd=3"; \
+ export VALGRIND; \
+ $(MAKE) $(@:valgrind_%=test_%) 3>$@.log
+
+%.d: %.c
+ $(call TITLE, "Building $@")
+ $(CC) $(INCLUDES) -MM $< -o $@~
+ echo ${<:.c=.o}: $(shell perl -- getcomments.pl -p='depend:\s' -f='%' $<) >> $@~
+ mv $@~ $@
+ $(call PASS, SUCCESS)
+
+%.ld: %.c
+ $(call TITLE, "Building $@")
+ echo ${<:.c=.exe}: $(shell perl -- getcomments.pl -p='$(LDOPT):\s' -f='%' $< | awk '{for (i=1;i<=NF;i++) if ($$(i) ~ /.o$$/) printf " %s", $$(i)}') > $@
+ $(call PASS, SUCCESS)
+
+%.o: %.c
+ $(call TITLE, "Building $@")
+ $(CC) $(CFLAGS) $(INCLUDES) $(shell perl -- getcomments.pl -p='cflags:\s' -f='%' $<) -c $< -o $@
+ $(call PASS, SUCCESS)
+
+
+%.exe: %.o %.d
+ $(call TITLE, "Building $@")
+ $(CC) $(LDFLAGS) $< $(shell perl -- getcomments.pl -p='$(LDOPT):\s' -f='%' ${<:.o=.c}) $(LDLIBS) -o $@
+ $(call PASS, SUCCESS)
+
+## Phony
+
+.PHONY: all clean count depends gcovs purge tests
+
+## Precious
+
+.PRECIOUS: %.d %.o
Soft'N'Design Software / projects / bs.git / commitdiff
