ArDoc • SRC

Analisi

REQ cat • nome

Disegno Logico
DSG cat • nome
MAN cat • nome

Disegno Tecnico
DST cat • nome
SYS cat • nome

DAF nome
DAT nome
KON nome

CLA nome
FUN nome

SRC cat • nome

Disegno Utente
DSU cat • nome

JOB nome
UUI nome
RPT nome

Varie
AMM cat • nome
QCL cat • nome
RIS cat • nome

e-mail

Src	BuildTexScript.pl

BuildTexScript.pl • Costruzione dello script perl di traduzione in TeX

Esamina il file SGML da tradurre in Tex. Questo file deve avere DTD=MAN. Crea uno script perl sulla base del contenuto di questo file. Questo script � congeniato in modo da emettere il manuale richiesto.

Riceve i parameteri:

In mome del file SGML da trattare.
In mome del file in cui scrivere lo script perl.

L'esempio che segue mostra una un file generato da un documento con DTD=MAN che prevede la preparazione di un manuale composto da 11 documenti.

use Tex::TexEmitter;
use Tex::TexDocHandler;

Dar::Init();
my $tex = new Tex::TexEmitter("n:\\ardoc\\dar\\out\\tex\\auto\\arp.tex");

$tex->setTitle("Documentazione delle procedure AR");
$tex->setLang("italian");
$tex->setStyle("arbook");
$tex->setAuthors("John P Arnold");

$tex->open_params(1,0,0);
$tex->h1("", "", "Riepilogo delle riunioni");
$tex->document(0, "h1NT", "AMM.DOC.AR.3WDJQWE");
$tex->h1("", "", "Riunione 4-10-2000");
$tex->document(0, "h1NT", "AMM.DOC.AR.3WDJQWF");
$tex->document(0, "h2", "AMM.DOC.AR.3WDJQX5");
$tex->document(0, "h3", "AMM.DOC.AR.3WDK0UB");
$tex->document(0, "h3", "AMM.DOC.AR.3WDN04P");
$tex->document(0, "h3", "AMM.DOC.AR.3WDKJG0");
$tex->document(0, "h3", "AMM.DOC.AR.3WDLJYO");
$tex->document(0, "h3", "DSG.3WDLOEE");
$tex->document(0, "h2", "AMM.DOC.AR.3WDN22F");
$tex->document(0, "h2", "AMM.DOC.AR.3WDN38U");
$tex->document(0, "h2", "AMM.DOC.AR.3WDOBSG");
$tex->documentList();
$tex->close();

Dar::Term();

Modifiche
27-05-2004	1.2 • 17:57:38 • jparn@ar-ent.net ...
13-07-2002	1.1 • 11:09:41 • jparn@ar-ent.net Initial

Links da

Disegno Tecnico
: 3T61KDP • Lettura del documento MAN principale
Sorgenti
: BuildTexScript.cmd • Crea lo Script Perl che preparer� il TeX