{
\File{dbtex.awk},{17:51},{Apr 08 1991}
\L{\LB{\C{}\# dbTeX.awk \- a simple preprocessor for generating TeX output from}}
\CE{}\L{\LB{\C{}\# }\Tab{8}{database files}}
\CE{}\L{\LB{\C{}\# Version 1.1.beta (1991\-02\-12) dr. w. kraml, KPMG Alpen\-Treuhand Wien}}
\CE{}\L{\LB{\C{}\# see dbTeX.tex for documentation!}}
\CE{}\L{\LB{}}
\L{\LB{}}
\L{\LB{\K{BEGIN} \{ console\_msg(\S{}\"This is dbTeX Version 1.1.beta (1991\-02\-12)\"\SE{})}}
\L{\LB{        \K{printf}(\S{}\"\%\% dbTeX (1.1.beta) Output generated \"\SE{} ctime() \S{}\"\!n\"\SE{})}}
\L{\LB{}\Tab{52}{\C{}\# \^ PolyAwk specific!}}
\CE{}\L{\LB{        \K{printf}(\S{}\"\%\% dbTeX       Input file: \%s\!n\"\SE{}, \K{ARGV}[1])}}
\L{\LB{\C{}\# a number of initialisations and defs follow here:}}
\CE{}\L{\LB{        FieldS = \K{FS}}}
\L{\LB{        RecordS = \K{RS}}}
\L{\LB{        NRincluded = 0}}
\L{\LB{        example\_flag = 0                           }}
\L{\LB{        buffer = \S{}\"\"\SE{}}}
\L{\LB{        STANDARD = 0}}
\L{\LB{        STRING = 1}}
\L{\LB{        TEMPLATE = 2}}
\L{\LB{        ID = 3        }}
\L{\LB{        USER = 1        }}
\L{\LB{      \}}}
\L{\LB{}}
\L{\LB{      }}
\L{\LB{\C{}\# main loop \- do this for each line in script}}
\CE{}\L{\LB{}}
\L{\LB{\{       \K{if} (\$0 \~ \/\^\%!\/) \{}\Tab{44}{\C{}\# embedded dbTeX\-command}}
\CE{}\L{\LB{            in\_template = 0}}
\L{\LB{            buffer = \K{substr}(\$0,3)}}
\L{\LB{            \K{print} \$0}\Tab{44}{\C{}\# output for reference}}
\CE{}\L{\LB{            dbTeX\_command()}}
\L{\LB{        \}}}
\L{\LB{        \K{else} \K{if} (\$0 \~ \/\^\%\_\/) \{}\Tab{44}{\C{}\# template contin. line}}
\CE{}\L{\LB{            \K{print} \$0}}
\L{\LB{            \K{if} (in\_template) \{}\Tab{44}{\C{}\# start cont. with newlines}}
\CE{}\L{\LB{                nl = \K{length}(template[t\_name]) ? \S{}\"\!n\"\SE{} : \S{}\"\"\SE{}}}
\L{\LB{                template[t\_name] = template[t\_name] nl \K{substr}(\$0,3)}}
\L{\LB{            \}}}
\L{\LB{            \K{else} error\_msg(\S{}\"INVALID CONTINUATION\"\SE{})}}
\L{\LB{        \}}}
\L{\LB{        \K{else} \K{if} (example\_flag) \{}\Tab{44}{\C{}\# embedded examples}}
\CE{}\L{\LB{            in\_template = 0}}
\L{\LB{            \K{print} \S{}\"\%\"\SE{} \$0}}
\L{\LB{        \}}}
\L{\LB{        \K{else} \{}}
\L{\LB{            in\_template = 0}}
\L{\LB{            \K{print} \$0  }\Tab{44}{\C{}\# original TeX line}}
\CE{}\L{\LB{        \}}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{\K{END} \{   s = \K{NR} \S{}\" line(s) input, \"\SE{} NRincluded \S{}\" record(s) included, \"\SE{}}}
\L{\LB{        s = s (errors+0) \S{}\" error(s)\"\SE{} }}
\L{\LB{        info\_msg(s)}}
\L{\LB{    \}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\C{}\# functions performing helpful tasks with various messages}}
\CE{}\L{\LB{}}
\L{\LB{\Proc{console\_msg}\K{function} console\_msg(s) \{ }\Tab{44}{\C{}\# output to console}}
\CE{}\L{\LB{    \K{print} s \> \S{}\"\/dev\/tty\"\SE{}}}
\L{\LB{    \}}}
\L{\LB{    }}
\L{\LB{\Proc{error\_msg}\K{function} error\_msg(msg,     s) \{}\Tab{44}{\C{}\# print error on console}}
\CE{}\L{\LB{    s = \S{}\"\% (dbTeX) Error: \"\SE{} msg \S{}\"!\"\SE{}}\Tab{44}{\C{}\# and in output file}}
\CE{}\L{\LB{    ++errors}}
\L{\LB{    \K{print} s            }}
\L{\LB{    console\_msg(s \S{}\" \-\> line \"\SE{} \K{NR} \S{}\":\"\SE{})}}
\L{\LB{    console\_msg(\$0)}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{\Proc{info\_msg}\K{function} info\_msg(msg,     s) \{}\Tab{44}{\C{}\# print info on console}}
\CE{}\L{\LB{    s = \S{}\"\% (dbTeX) Info: \"\SE{} msg \S{}\".\"\SE{}}\Tab{44}{\C{}\# and in output file}}
\CE{}\L{\LB{    \K{print} s            }}
\L{\LB{    console\_msg(s)}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\C{}\# dbTeX functions}}
\CE{}\L{\LB{}}
\L{\LB{\Proc{dbTeX\_command}\K{function} dbTeX\_command() \{}\Tab{44}{\C{}\# the dbTeX main function}}
\CE{}\L{\LB{    advance(ID)}}
\L{\LB{    example\_flag = 0}}
\L{\LB{    \K{if} (tok == \S{}\"examples\"\SE{}) example\_flag = 1}\Tab{44}{\C{}\# \%! examples}}
\CE{}\L{\LB{    \K{else} \K{if} (tok == \S{}\"record\"\SE{}) \{ }\Tab{44}{\C{}\# \%! record \<id\> \<FS\> [\<RS\>]}}
\CE{}\L{\LB{        \K{if} (advance(ID)) \{}}
\L{\LB{            \K{if} (tok \~ \/\^\%[0\-9]+\%\$\/) \{}\Tab{44}{\C{}\# data\-named template}}
\CE{}\L{\LB{                templ\_typ = 1}}
\L{\LB{                templ\_field = \K{substr}(tok,2,\K{length}(tok)\-2)}}
\L{\LB{            \}}}
\L{\LB{            \K{else} \{  }\Tab{44}{\C{}\# script\-named template}}
\CE{}\L{\LB{                templ\_typ = 0}}
\L{\LB{                templ\_name = tok}}
\L{\LB{            \}}}
\L{\LB{        \}}}
\L{\LB{        FieldS  = advance(STRING) ? tok : \K{FS}}}
\L{\LB{        RecordS = advance(STRING) ? tok : \K{RS}}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (tok==\S{}\"template\"\SE{}) \{   }\Tab{44}{\C{}\# \%! template \<id\> \<template\>}}
\CE{}\L{\LB{        in\_template = 1}}
\L{\LB{        \K{if} (advance(ID))    }\Tab{44}{\C{}\# get name}}
\CE{}\L{\LB{            t\_name = tok}}
\L{\LB{        \K{if} (advance(TEMPLATE)) }}
\L{\LB{            template[t\_name] = tok}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (tok==\S{}\"break\"\SE{}) \{ }\Tab{44}{\C{}\# \%! break \%f\% \<id\>}}
\CE{}\L{\LB{        \K{if} (advance(ID)) \{}}
\L{\LB{            \K{if} (tok \~ \/\^\%[0\-9]+\%\$\/)}}
\L{\LB{                breakfield = \K{substr}(tok,2,\K{length}(tok)\-2)}}
\L{\LB{            \K{else}}}
\L{\LB{                breakfield = tok}}
\L{\LB{        \}}}
\L{\LB{        \K{if} (advance(ID))}}
\L{\LB{            breaktemplate[breakfield] = tok}}
\L{\LB{        \K{if} (advance(ID))}}
\L{\LB{            breakmode[breakfield] = 1}}
\L{\LB{        \K{else} breakmode[breakfield] = 0}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (tok==\S{}\"clearbreaks\"\SE{}) \{ }\Tab{44}{\C{}\# \%! clearbreaks}}
\CE{}\L{\LB{          \K{for} (i \K{in} oldvalue)}}
\L{\LB{            \K{delete} oldvalue[i]  }}
\L{\LB{          \K{for} (i \K{in} breaktemplate)}}
\L{\LB{            \K{delete} breaktemplate[i]}}
\L{\LB{          \K{for} (i \K{in} breakmode)}}
\L{\LB{            \K{delete} breakmode[i]}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (tok==\S{}\"translate\"\SE{}) \{ }\Tab{44}{\C{}\# \%! translate \<id\>}}
\CE{}\L{\LB{        \K{if} (advance(ID))}}
\L{\LB{            set\_translation(tok)}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (tok==\S{}\"change\"\SE{}) \{ }\Tab{44}{\C{}\# \%! change \<s1\> \<s2\>}}
\CE{}\L{\LB{        add\_trtbl(USER)}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (tok==\S{}\"include\"\SE{}) \{ }\Tab{44}{\C{}\# \%! include \<filename\>}}
\CE{}\L{\LB{        \K{if} (advance(ID))}}
\L{\LB{            do\_include(tok)}}
\L{\LB{    \}}}
\L{\LB{    \K{else} error\_msg(\S{}\"UNKNOWN COMMAND\"\SE{})}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\Proc{advance}\K{function} advance(type,    sep,pos) \{ }\Tab{44}{\C{}\# get next token of type}}
\CE{}\L{\LB{    \K{sub}(\/\^[ \!t]+\/, \S{}\"\"\SE{}, buffer)  }\Tab{44}{\C{}\# remove white space}}
\CE{}\L{\LB{    \K{if} (type == ID) \{}}
\L{\LB{        \K{match}(buffer, \/\^[\^ \!t]+\/) }\Tab{44}{\C{}\# all up to white space}}
\CE{}\L{\LB{        tok = tolower(\K{substr}(buffer, 1, \K{RLENGTH})) \C{}\# tolower(): PolyAwk \& GNU only!}}
\CE{}\L{\LB{        buffer = \K{substr}(buffer, \K{RLENGTH}+1)}}
\L{\LB{        \K{return} \K{RLENGTH}}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (type == TEMPLATE) \{ }\Tab{44}{\C{}\# rest of line}}
\CE{}\L{\LB{        tok = buffer}}
\L{\LB{        buffer = \S{}\"\"\SE{}}}
\L{\LB{        \K{return} \K{length}(tok)}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{if} (type == STRING) \{ }\Tab{44}{\C{}\# string delimited by}}
\CE{}\L{\LB{        sep = \K{substr}(buffer,1,1) }\Tab{44}{\C{}\# unique character}}
\CE{}\L{\LB{        buffer = \K{substr}(buffer,2)}}
\L{\LB{        pos = \K{index}(buffer, sep)}}
\L{\LB{        \K{if} (pos)  \{}}
\L{\LB{            tok = \K{substr}(buffer,1,pos\-1)}}
\L{\LB{            buffer = \K{substr}(buffer, pos+1)}}
\L{\LB{            \K{return} pos}}
\L{\LB{        \}}}
\L{\LB{        \K{else} \{}}
\L{\LB{            tok = \S{}\"\"\SE{}}}
\L{\LB{            \K{return} 0}}
\L{\LB{        \}}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \K{return} 0}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\Proc{add\_trtbl}\K{function} add\_trtbl(tbl) \{ }\Tab{44}{\C{}\# add an entry to tr table}}
\CE{}\L{\LB{    \K{if} (advance(STRING)) \{}}
\L{\LB{        tmp = tok}}
\L{\LB{        \K{if} (advance(STRING))}}
\L{\LB{          tbl==USER ? (usr\_tbl[tmp] = tok) : (std\_tbl[tmp] = tok)}}
\L{\LB{        \K{else} }}
\L{\LB{          tbl==USER ? (usr\_tbl[tmp] = \S{}\"\"\SE{}) : (std\_tbl[tmp] = \S{}\"\"\SE{})}}
\L{\LB{    \}}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\Proc{set\_translation}\K{function} set\_translation(id) \{}\Tab{44}{\C{}\# install translation table}}
\CE{}\L{\LB{    \K{if} (toupper(id) == \S{}\"OFF\"\SE{}) \{}}
\L{\LB{        \K{for} (i \K{in} std\_tbl)}}
\L{\LB{            \K{delete} std\_tbl[i]}}
\L{\LB{        \K{for} (i \K{in} usr\_tbl)}}
\L{\LB{            \K{delete} usr\_tbl[i]}}
\L{\LB{    \}}}
\L{\LB{    \K{else} \{}\Tab{44}{\C{}\# read translation table}}
\CE{}\L{\LB{        \K{while} ((status = \K{getline} line \< id) \> 0) \{}}
\L{\LB{            buffer = line}}
\L{\LB{            \K{if} (buffer !\~ \/\^\C{}\#\/)}}
\CE{}\L{\LB{                add\_trtbl(STANDARD)}}
\L{\LB{        \}        }}
\L{\LB{        \K{if} (status == \-1) }}
\L{\LB{            error\_msg(\S{}\"TRANSLATION TABLE \"\SE{} id \S{}\" NOT FOUND\"\SE{})}}
\L{\LB{    \}}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\Proc{do\_include}\K{function} do\_include(file) \{}\Tab{44}{\C{}\# include records of \<file\>}}
\CE{}\L{\LB{    old\_FS = \K{FS}; old\_RS = \K{RS}}}
\L{\LB{    \K{FS} = FieldS; \K{RS} = RecordS}}
\L{\LB{    inc = 0}}
\L{\LB{    \K{while} (\K{getline} \< file \> 0) \{}}
\L{\LB{        \K{for} (i \K{in} breaktemplate)}\Tab{44}{\C{}\# check for breaks}}
\CE{}\L{\LB{            \K{if} (oldvalue[i] != \$i) \{       }}
\L{\LB{                oldvalue[i] = \$i}}
\L{\LB{                \K{if} (inc \|\| breakmode[i])}\Tab{44}{\C{}\# no break before 1st rec.,}}
\CE{}\L{\LB{                    incl\_(template[breaktemplate[i]]) }}
\L{\LB{            \} }\Tab{44}{\C{}\# if not explicitly wanted!}}
\CE{}\L{\LB{}}
\L{\LB{        \K{if} (templ\_typ) }}
\L{\LB{            incl\_(template[\$templ\_field])}}
\L{\LB{        \K{else} incl\_(template[templ\_name])}}
\L{\LB{        ++NRincluded; ++inc}}
\L{\LB{    \}}}
\L{\LB{    \K{FS} = old\_FS; \K{RS} = old\_RS}}
\L{\LB{    \K{close}(file)}}
\L{\LB{    \K{if} (!inc) error\_msg(\S{}\"FILE \"\SE{} file \S{}\" NOT FOUND OR NOT ACCESSIBLE!\"\SE{})}}
\L{\LB{    info\_msg(inc \S{}\" record(s) included from \"\SE{} file)}}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\Proc{incl\_}\K{function} incl\_(t) \{}\Tab{44}{\C{}\# include record with template t}}
\CE{}\L{\LB{    s = \S{}\"\"\SE{}}}
\L{\LB{    \K{while} (\K{match}(t, \/\%[0\-9]+\%\/)) \{}}
\L{\LB{        l = \K{RSTART}\-1}}
\L{\LB{        s = s \K{substr}(t,1,l)  txlate(\$(\K{substr}(t,\K{RSTART}+1,\K{RLENGTH}\-2)))}}
\L{\LB{}\Tab{44}{\C{}\# translated data field}}
\CE{}\L{\LB{        t = \K{substr}(t,l+\K{RLENGTH}+1)}}
\L{\LB{    \}}}
\L{\LB{    \K{print} s t                           }}
\L{\LB{\}}}
\L{\LB{}}
\L{\LB{}}
\L{\LB{\Proc{txlate}\K{function} txlate(s) \{}\Tab{44}{\C{}\# perform translations on string s}}
\CE{}\L{\LB{    \K{for} (target \K{in} std\_tbl) }}
\L{\LB{        \K{gsub}(target, std\_tbl[target], s)}}
\L{\LB{    \K{for} (target \K{in} usr\_tbl) }}
\L{\LB{        \K{gsub}(target, usr\_tbl[target], s)}}
\L{\LB{    \K{return} s}}
\L{\LB{\}}}
\L{\LB{    }}
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.