path: root/mkslice-2

#!/bin/sh

# create slices of text

set -e

# resolve options
eval set -- "$(getopt -s sh -o f -- "$@")"
while true; do case "$1" in -f) force=1; shift;; --) shift; break;; esac; done

. /lib/lsb/init-functions

# actual slicing: first argument is variant, others are csplice patterns
doit() {
    variant=$1; shift
    csplit -s -f $stem -b "-$variant-%03d.mdwn" $stem.mdwn "$@"
}

log_action_begin_msg "Create slices"
for stem in "$@"; do
    log_action_cont_msg $stem
#   doit preamble \
#       '%Proposal for a REGULATION OF THE EUROPEAN PARLIAMENT AND OF THE COUNCIL%' \
#       '/HAVE ADOPTED THIS REGULATION:/' \
#       '%%' '{*}'
    doit rec \
        '/^# \(Title\|Article\)/' '{25}' \
        '%%' '{*}'
done
log_action_end_msg $?