#!/bin/sh
 
 # l_prog
 # ======
 
 # This file is part of Gerolf Markup Shredder,
 # written by G. D. Brettschneider (1999-2006).
 
 GMSdateL_PROG=20060927
 
 # Prologue: ==================================================================
 
 # Not running:
 
 if [ "$GMS_SHELL" = "" ]; then
   echo "This is Gerolf Markup Shredder (l_prog)."
   exit
 fi 
 
 # Debug: ---------------------------------------------------------------------
   
 if [ "$GMS_DEBUG" = "X" -o "$GMS_DEBUG" = "Y" ]; then
   source "$GMS_SHELL/l_banner" -debug l_prog $1 $2 $3 $4
 elif  [ "$GMS_DEBUG" = "Z" ]; then
   echo " l_prog ($1) ($2) ($3) ($4) ($5) ($6) ($7) ($8) ($9)" >> "$Z"
 fi 
 
 # Chapters: ==================================================================
 
 # Not defined:
 
 if [ "$1" = "" ]; then source "$GMS_SHELL/l_banner" -no_action l_prog
 
 # Update: --------------------------------------------------------------------
 
 elif [ $1 = -update ]; then 
 # Cold state:
   if [ "$3" = "" ]; then 
     source "$GMS_SHELL/l_banner" -no_cold l_prog called_by l_prog -update
   elif [ $3 = - ]; then 
     "$GMS_REPLY" -item 6 " " " "
   elif [ $3 = V ]; then 
     "$GMS_REPLY" -item 7 "Viewer: any text" V 1
     "$GMS_REPLY" -item 8 "$GMS_VIEWER"
   elif [ $3 = E ]; then
     "$GMS_REPLY" -item 9 "Editor: any text" E 2
     "$GMS_REPLY" -item 10 "$GMS_EDITOR"
   elif [ $3 = B ]; then
     "$GMS_REPLY" -item 11 "Browser:    HTML" B 3
     "$GMS_REPLY" -item 12 "$GMS_BROWSER"
   elif [ $3 = A ]; then
     "$GMS_REPLY" -item 13 "Analyst:    HTML" A 4
     "$GMS_REPLY" -item 14 "$GMS_ANALYST"
   elif [ $3 = T ]; then
     "$GMS_REPLY" -item 15 "Typesetter: HTML" T 5
     "$GMS_REPLY" -item 16 "$GMS_TSETTER"
   elif [ $3 = R ]; then
     "$GMS_REPLY" -item 17 "Reader:      PDF" R 6
     "$GMS_REPLY" -item 18 "$GMS_READER"
   elif [ $3 = Q ]; then
     "$GMS_REPLY" -item 5 "Quit dialog    >" Q 7
   else
     source "$GMS_SHELL/l_banner" -no_cold l_prog $3 called_by l_prog -update
   fi
 # Hot state:
   if [ "$2" = "" ]; then
     source "$GMS_SHELL/l_banner" -no_hot l_prog called_by l_prog -update
   elif [ $2 = - ]; then
     "$GMS_REPLY" -item 6 " " " "
   elif [ $2 = V ]; then
     "$GMS_REPLY" -item 7 "Viewer: any text" VV 1
     "$GMS_REPLY" -item 8 "$GMS_VIEWER"
   elif [ $2 = E ]; then
     "$GMS_REPLY" -item 9 "Editor: any text" EE 2
     "$GMS_REPLY" -item 10 "$GMS_EDITOR"
   elif [ $2 = B ]; then
     "$GMS_REPLY" -item 11 "Browser:    HTML" BB 3
     "$GMS_REPLY" -item 12 "$GMS_BROWSER"
   elif [ $2 = A ]; then
     "$GMS_REPLY" -item 13 "Analyst:    HTML" AA 4
     "$GMS_REPLY" -item 14 "$GMS_ANALYST"
   elif [ $2 = T ]; then
     "$GMS_REPLY" -item 15 "Typesetter: HTML" TT 5
     "$GMS_REPLY" -item 16 "$GMS_TSETTER"
   elif [ $2 = R ]; then
     "$GMS_REPLY" -item 17 "Reader:      PDF" RR 6
     "$GMS_REPLY" -item 18 "$GMS_READER"
   elif [ $2 = Q ]; then
     "$GMS_REPLY" -item 5 "Quit dialog    >" QQ 7
   else
     source "$GMS_SHELL/l_banner" -no_hot l_prog $2 called_by l_prog -update
   fi
 
 # Build: ---------------------------------------------------------------------
 
 elif [ $1 = -build ]; then 
   "$GMS_REPLY" -top 3 "Select programs" 
   "$GMS_REPLY" -item 4 " " " "
   "$GMS_REPLY" -item 5 "Quit dialog    >" Q 7
   "$GMS_REPLY" -item 6 " " " "
   "$GMS_REPLY" -item 7 "Viewer: any text" V 1 
   "$GMS_REPLY" -item 8 "$GMS_VIEWER"
   "$GMS_REPLY" -item 9 "Editor: any text" E 2 
   "$GMS_REPLY" -item 10 "$GMS_EDITOR"
   "$GMS_REPLY" -item 11 "Browser:    HTML" B 3
   "$GMS_REPLY" -item 12 "$GMS_BROWSER"
   "$GMS_REPLY" -item 13 "Analyst:    HTML" A 4 
   "$GMS_REPLY" -item 14 "$GMS_ANALYST"
   "$GMS_REPLY" -item 15 "Typesetter: HTML" T 5 
   "$GMS_REPLY" -item 16 "$GMS_TSETTER"
   "$GMS_REPLY" -item 17 "Reader:      PDF" R 6 
   "$GMS_REPLY" -item 18 "$GMS_READER"
   "$GMS_REPLY" -bottom 19
   "$GMS_REPLY" -shadow 20
   
 # Not found: -----------------------------------------------------------------
 
 else
   source "$GMS_SHELL/l_banner" -no_action l_prog $1   
 fi
