#!/bin/bash
#
# Plop - print labels on printer
# $Id:$
# (C) 2002 Henk Kloepping
#
# Create a (series of) sheet(s) with address labels from
# a text file. This script assumes you use Avery A4 
# labelsheets, with 3 columns and 8 rows. However, the 
# techniques used here are suitable for other types of
# sheets too. YMMV. 
#
# Syntax: plop -r <sheetnumber> inputfile 

# ----------------- CONFIGURATION SECTION ----------------- 
#
# Plop accepts a comma delimited input file by default, but
# it can be changed. However, do not use the '+' if you want
# to be able to use special characters
#
SEP=,

# You can twiddle around with the positioning of the texts: 
#
PUSH_DOWN=5     # the amount of points to push texts down
PUSH_RIGHT=5    # the amount of points to push texts right
#
# --------------- CONFIGURATION SECTION ENDS --------------- 

# Generic fail function
#
fail()
{
   echo "Failed: " $* >&2 
   exit 1
}

# This function print the PostScript header and sets the
# standard font. The Time-Roman fond is universally available
# on all Postscript printers.
#
header()
{
cat << EOF1 
%!PS-Adobe-1.0
% Created by `basename $0` on `date`
% A4 594 x 842 high

/Time-Roman findfont
12 scalefont
setfont
EOF1
}

# To be able to create overstrikes I created a special Postscript
# dictionary entry. It expects the two characters to be on the stack. 
# It will determine the width of both characters and calculates the 
# offset needed to print the narrowest character in the exact middle 
# of the widest character. It will then print the narrowest character
# in the middle of the space needed for the widest character, reposition 
# on the start coordinates of the widest character and returns, leaving 
# the widest charachter on stack for future 'show' (printing).
#
# to use it, you can simply issue e.g.
#
# (o) (") mix show
#
# For convenience sake, there are also dictionary entries for 
# cedille, tilde, umlaut, aigu, grave, caret, and ohje, that allow e.g.
#
# (o) cedille show
#
symbolmaker()
{

cat <<EOF3

/mix {

    % mix the characters on stack and print them in the
    % current position. This requires a lot of stack fumbling,
    % probably this code could be optimised further. 
   
    %-- command           %-- leaves stack (top of stack left):  

    dup                   % char1 char1 char2 
    stringwidth           % y1 x1 char1 char2
    pop                   % x1 char1 char2
    3 2 roll              % char2 x1 char1 
    dup                   % char2 char2 x1 char1 
    stringwidth           % y2 x2 char2 x1 char1 
    pop                   % x2 char2 x1 char1 
    3 2 roll              % x1 x2 char2 char1 
    dup                   % x1 x1 x2 char2 char1
    3 2 roll              % x2 x1 x1 char2 char1
    dup                   % x2 x2 x1 x1 char2 char1
    3 2 roll              % x1 x2 x2 x1 char2 char1
    exch                  % x2 x1 x2 x1 char2 char1
    gt                    % x1gtx2 x2 x1 char2 char1
    {
      exch                % x1 x2 2 1
      4 2 roll            % 2 1 x1 x2
      exch                % 1 2 x1 x2
      4 2 roll            % x1 x2 1 2
    } if
    %
    % now on stack: widest_size smallest_size widest smallest 
    %
    currentpoint          % current_y current_x ws ss w s
    4 -2 roll             % ws ss current_y current_x w s
    exch sub              % ws-ss current_y current_x w s 
    2 div                 % delta current_y current_x w s
    3 2 roll              % current_x delta current_y w s 
    dup                   % current_x current_x delta current_y w s
    3 2 roll              % current_x delta current_x current_y w s
    add                   % x4s current_x current_y w s
    3 2 roll              % current_y x4s current_x w s
    dup                   % current_y current_y x4s current_x w s
    4 -3 roll             % current_y x4s current_x current_y w s 
    moveto                % current_x current_y w s
    4 -1 roll             % s current_x current_y w
    show                  % current_x current_y w
    exch moveto           % w
} def

/cedille { (\313) mix } def
/tilde   { (\304) mix } def
/umlaut  { (\310) mix } def 
/aigu    { (\302) mix } def
/grave   { (\301) mix } def
/caret   { (\303) mix } def
/ohje    { (\312) mix } def

EOF3
}

# The raster() function does just that: it creates a raster
# with crosses. Each cross indicate a junction between
# labels. Normally, you do not want the raster to be visible,
# but it sure is handy if you are previewing the file with
# e.g. ghostview or if you want to check if the programme
# is correct in its assumption of the location of these junctions.
# It would have been easy to create a few loops to generate
# the code, but I wanted to be able to move the individual
# junctions around if neccessary, hence I decided to give
# each of them its own entry here.
#
raster()
{
cat <<EOF2

/cross { % draws finelined cross with center in current position
    -6 0 rmoveto   
    12 0 rlineto
    -6 -6 rmoveto
     0 12 rlineto 
   .5 setlinewidth
   stroke
} def

%raster
 00   0 moveto cross
 00 108 moveto cross
 00 210 moveto cross
 00 312 moveto cross
 00 414 moveto cross
 00 516 moveto cross
 00 618 moveto cross
 00 720 moveto cross
 00 822 moveto cross
594   0 moveto cross
594 108 moveto cross
594 210 moveto cross
594 312 moveto cross
594 414 moveto cross
594 516 moveto cross
594 618 moveto cross
594 720 moveto cross
594 822 moveto cross
198   0 moveto cross
396   0 moveto cross
198 108 moveto cross
396 108 moveto cross
198 210 moveto cross
396 210 moveto cross
198 312 moveto cross
396 312 moveto cross
198 414 moveto cross
396 414 moveto cross
198 516 moveto cross
396 516 moveto cross
198 618 moveto cross
396 618 moveto cross
198 720 moveto cross
396 720 moveto cross
198 822 moveto cross
396 822 moveto cross
EOF2
}

# Check command syntax.
#
DO_RASTER=0
if [ "$1" = '-r' ] 
then
   DO_RASTER=1
   shift 
fi
[ $# -eq 2 ] || fail syntax error, use: \"`basename $0` \(-r\) sheet# filename\"
q=`echo $1 |egrep "[^0-9]"`
[ -z "$q" ] || fail sheet number not a number
[ -f $2 ] || fail cannot read/find file \"$2\" 

header  
symbolmaker

[ $DO_RASTER = 1 ] && raster

# Suppres comment lines (they start with a #), empty lines,
# clean up sloppy punctuations. Next, call awk, who does
# the major part of the work.
#
sed \
-e '/^$/d' \
-e '/^#/d' \
-e 's/(/\\(/g' \
-e 's/)/\\)/g' \
-e 's/\(\.\)\([^[:space:]]\)/\. \2/g' \
-e 's/\(\,\)\([[:space:]]*\)\([A-Za-z0-9]\)/\,\3/g' \
$2 |\
gawk -F${SEP} -vsheet="$1" -vpd="$PUSH_DOWN" -vpr="$PUSH_RIGHT" 'BEGIN { 

    # calculate the records that match the sheet number
    # 
    begin=1+((sheet-1)*24); 
    end=begin+23; 
    l=0

    # This is the array that contains the X position and
    # the corresponding Y positions that make up the starting
    # position for the lines to print. There are 24 labels,
    # each label can have 7 lines. 
    #
    info[0]="10,807,794,781,768,755,742,729"
    info[1]="208,807,794,781,768,755,742,729"
    info[2]="406,807,794,781,768,755,742,729"
    info[3]="10,705,692,679,666,653,640,627"
    info[4]="208,705,692,679,666,653,640,627"
    info[5]="406,705,692,679,666,653,640,627"
    info[6]="10,603,590,577,564,551,538,525"
    info[7]="208,603,590,577,564,551,538,525"
    info[8]="406,603,590,577,564,551,538,525"
    info[9]="10,501,488,475,462,449,436,424"
    info[10]="208,501,488,475,462,449,436,424"
    info[11]="406,501,488,475,462,449,436,424"
    info[12]="10,399,386,373,360,347,334,321"
    info[13]="208,399,386,373,360,347,334,321"
    info[14]="406,399,386,373,360,347,334,321"
    info[15]="10,297,284,271,258,245,232,219"
    info[16]="208,297,284,271,258,245,232,219"
    info[17]="406,297,284,271,258,245,232,219"
    info[18]="10,195,182,169,156,143,130,117"
    info[19]="208,195,182,169,156,143,130,117"
    info[20]="406,195,182,169,156,143,130,117"
    info[21]="10,93,80,67,54,41,28,15 "
    info[22]="208,93,80,67,54,41,28,15"
    info[23]="406,93,80,67,54,41,28,15"
} 

# Stash the proper lines into memory
#
NR==begin,NR==end {
    for(n=1;n<=NF;n++) { label[l,n]=$n }
    l++
}

# At the end of the day, print the label. Note, that is is
# possible to specify a sheet number that will result in an
# empty sheet. 
#
END {
    print "%\n% This sheet will contain " l " labels.\n%";
    for (m=0;m<l;m++) {
        split(info[m],pos,",")
        for(lali=1;lali<8;lali++) {
            if (length(label[m,lali]) >0 ) {
                pc=split(label[m,lali],part,"+")
                printf "%d %d moveto ",pos[1]+pr,pos[lali+1]-pd
                if (pc==1) {
                    printf "(%s) show ",part[1]; 
                } else {
                    for(n=1;n<pc;n++) {
                        lp=length(part[n])
                        if (lp>1) { 
                            printf "(%s) show ",substr(part[n],1,lp-1),lp;
                        }
                        clf=substr(part[n],lp,1);
                        crt=substr(part[n+1],1,1);

                        # Do we need ^+n which prints a superscript n? 
                        # How do we overstrike with a plus?

                        if (clf=="\\" && crt=="\\") {         # \+\ plus
                             printf "(+) show "
                        } else if (clf=="s" && crt=="s") {    # s+s ringeless
                             printf "(\\373) show "
                        } else if (clf=="\~" && crt=="\"") {   # ~+" hi-double
                             printf "(\\272) show "
                        } else if (clf=="\_" && crt=="\"") {   # _+" low-double
                             printf "(\\271) show "
                        } else if (crt=="\"") {              # x umlaut   
                             printf "(%s) umlaut show ",clf
                        } else if (crt=="\;") {              # x cedille
                             printf "(%s) cedille show ",clf 
                        } else if (crt=="\~") {              # x tilde
                             printf "(%s) tilde show ",clf
                        } else if (crt=="\/") {              # x aigu
                             printf "(%s) aigu show ",clf
                        } else if (crt=="\\") {              # x grave
                             printf "(%s) grave show ",clf
                        } else if (crt=="\^") {              # x caret
                             printf "(%s) caret show ",clf
                        } else if (crt=="\o") {              # x o
                             printf "(%s) ohje show ",clf
                        } else {                             # overstrike.

                             printf "(%s) (%s) mix show ",clf,crt 
                        }
                        part[n+1]=substr(part[n+1],2);
                    }
                    if (length(part[n])>0) printf "(%s) show ",part[n]; 
                }
                printf "\n";
            }
        }
    }
}'
echo "showpage"