DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T U a

⟦def780c01⟧ TextFile

    Length: 1832 (0x728)
    Types: TextFile
    Notes: UNIX file
    Names: »aid.ufillp«

Derivation

└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
    └─⟦this⟧ »ua/new/usr/UAP/cmds/aid.ufillp«

TextFile


: '
aid.ufillp - Backend to help do UFILL template printing operations
*
* Translated/modified:  22.07.88 - Regnecentralen/Arne G. Jensen
*


V..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T......T.............H.
Usage: aid.ufillp mode rep form
   or: aid.ufillp -V

      mode   - is  DF  for data and form
                   D   for data only
                   F   for form only
                   CP  for to CP buffer 0 only
       rep   - is the string "rep" and indicates which UFILL directory to
               pull forms from (ufill/rep). Not used at present

      form   - is the template name
'

MODE="$1"

PASTE9=$Utemp/WPCP9$Utty
PASTE8=$Utemp/WPCP8$Utty
PASTE7=$Utemp/WPCP7$Utty
PASTE0=$Utemp/WPCP0$Utty

case "$MODE" in
  -[Vv]) exec echo "$0: Vs. 6.00"
         ;;
   D|DF|CP) test -f $PASTE9 || exec echo "Ingen data i MF lager 9.
Blanketten er formentligt ikke udfyldt."
         ;;
      F) ;;
      *) exec echo "$0: Unknown mode - \"$MODE\"";;
esac

TEMPLATE=$Uniplex/ufill/rep/$3
test -f $TEMPLATE || exec echo "$0: Ukendt blanket - \"$3\""

case "$MODE" in
     DF) PRINT="udfyldt blanket: $3"
         echo "Genererer udskrift for $PRINT (vha. MF lager 8) ..."
         ureport $TEMPLATE <$PASTE9 >$PASTE8
         ;;
      D) PRINT="kun data for blanket: $3"
         echo "Genererer udskrift $PRINT (vha. MF lager 7 og 8) ..."
         utemplate <$TEMPLATE >$PASTE7
         ureport $PASTE7 <$PASTE9 >$PASTE8
         ;;

      F) PRINT="tom blanket: $3"
         echo "Genererer udskrift for $PRINT (vha. MF lager 8) ..."
         echo '\0240' | ureport $TEMPLATE >$PASTE8
         ;;
     CP) PRINT="udfyldt blanket: $3"
         echo "Gemmer $PRINT i MF lager 0 ..."
         ureport $TEMPLATE <$PASTE9 >$PASTE0
         exit
         ;;
esac
exec ufill sprint $PASTE8 "$PRINT" "" "" $PASTE8