From d75b00bb1d2cfdb8f142cf811e39e30fb621fde4 Mon Sep 17 00:00:00 2001 From: schodet Date: Sun, 27 Jun 2004 11:39:13 +0000 Subject: Initial revision --- d/dev/sys/lampion/scripts/extractdoc | 49 ++++++++++++++++++++++++++++++++++++ d/dev/sys/lampion/scripts/update-doc | 41 ++++++++++++++++++++++++++++++ 2 files changed, 90 insertions(+) create mode 100755 d/dev/sys/lampion/scripts/extractdoc create mode 100755 d/dev/sys/lampion/scripts/update-doc diff --git a/d/dev/sys/lampion/scripts/extractdoc b/d/dev/sys/lampion/scripts/extractdoc new file mode 100755 index 0000000..5d1c8ff --- /dev/null +++ b/d/dev/sys/lampion/scripts/extractdoc @@ -0,0 +1,49 @@ +#!/usr/bin/perl -w +use strict; + +while (<>) +{ + if (/^\/\*\*/) + { + my @doc; + my @def; + my $stop; + # Capture comments. + INNER: { + do { + chomp; + $stop = 1 if (/\*\//); + s/^\/? *\*+ ?//; + s/^ +/\t/; + s/^\t- *([^:-]+) *:/\t[$1]/; + s/ *\*\///; + push @doc, $_; + last INNER if defined $stop; + } while (<>); + } + # Capture definition. + $_ = <>; + if (/^# *define /) + { + INNER: { + do { + chomp; + push @def, $_; + last unless /\\$/; + } while (<>); + } + } + else + { + INNER: { + do { + chomp; + s/\).*/);/; + push @def, $_; + last if /\)/; + } while (<>); + } + } + print join "\n", @doc, '', '^<<', @def, '^>>', '', ''; + } +} diff --git a/d/dev/sys/lampion/scripts/update-doc b/d/dev/sys/lampion/scripts/update-doc new file mode 100755 index 0000000..bbebccf --- /dev/null +++ b/d/dev/sys/lampion/scripts/update-doc @@ -0,0 +1,41 @@ +#!/bin/bash + +docdir=/var/data/doc +readme=README.html + +cd $docdir || exit 1 + +exec &> /tmp/update-doc-output + +# Update CVS. + +for i in * +do + if [[ -d "$i/CVS" ]] + then + cvs up "$i" || echo "Error in cvs up $i" + find "$i" -type d -exec test -r '{}/Makefile' ';' '(' -exec make -C '{}' doc ';' , -prune ')' + fi +done + +exec 1> $readme + +cat <Codes : +------- + +a : électronique analogique. +b : bureau. +d : divers (en rapport avec le robot, pas avec le bureau). +i : informatique. +n : électronique numérique. +m : mécanique. + +Fichiers récents : +------------------ + +EOF +find . -name CVS -prune -false -o -mtime -10 -not -type d | \ +sed -ne 's|^\./\(.*\)/\([^/]*\.html\)$|\1/\2|p' \ + -e 's|^\./\(.*\)/\([^/]*\)$|\1/\2|p' +echo '' -- cgit v1.2.3