[Möglichst LaTeX3]Preis ausgeben

[Furantsu Kafuka]

Hallo.

Ich versuche gerade eine Funktion zu schreiben, die Euro-Beträge ausgibt, und prüft, ob Euro/Cent 0 bzw. leer gelassen worden sind und dementsprechend die Ausgabe abändert.

(Wie ich 's in C++ machen würde)

#include 
using namespace std;

void Preis(int Hauptargument, int optionalArgument);
int main()
{
   Preis(0,0);    // ---
   Preis(50,0);   // 50,--- €
   Preis(100,50); // 100,50 €
   Preis(0,99); // 99 Cent
}

void Preis(int Hauptargument, int optionalArgument)
{
   if((Hauptargument)&& (Hauptargument>0))// ist Hauptargument belegt und ist es größer als 0 [Pseude-Abfrage, da der Wert in LaTeX auch 'leer' (ungleich 0) sein kann ]
   {
         if((optionalArgument) && optionalArgument>0) // Cent-Betrag existiert und ist größer als 0
            cout << Hauptargument << "," << optionalArgument << " €" << endl;
         else // Cent-Betrag existiert nicht oder ist kleiner als 1
            cout << Hauptargument << ",--- €" << endl;
   }
   else
   {
      if((optionalArgument) && optionalArgument>0) // Cent-Betrag existiert und ist größer als 0
         cout << optionalArgument << " Cent" << endl;
      else // Weder Euro noch Cent sind gültig
         cout << "---" << endl;
   }
}

Und hier meine LaTeX-Implementation (unkompilierbar, wegen \Preis)

%---------------------------------------------------------------------------
\documentclass%%
%---------------------------------------------------------------------------
  [fontsize=11pt,%%          Schriftgroesse
%---------------------------------------------------------------------------
% Satzspiegel
   paper=a4,
%---------------------------------------------------------------------------
% Formatierung
   draft=off%%                Entwurfsmodus
]{scrlttr2}

\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\DeclareUnicodeCharacter{20AC}{\texteuro}
\usepackage{xparse,l3int}

\newcommand{\Zahl}[1]{\textsc{%\fontfamily{lmssq}\selectfont 
#1}%\fontfamily{iwonalc}\selectfont
}

\DeclareDocumentCommand{\Preis}{m O{\NoValue}} {%
\newcount\ArgA
\newcount\ArgB
\ArgA=#1
\ArgB=#2
% Cent wurden NICHT übergeben
\IfNoValueTF {#2}
{
	% auch keine Euro-Angabe
	\IfNoValueTF {#1}
	{
		---
	}{% vielleicht eine Euro-Angabe
	\ifnum\value{\ArgA}<1 % Null oder kleiner, ergo ungültig!
		---
	\else
		\Zahl{#1},--- € % ja, es gibt eine Euro-Angabe
	\fi
	}
}% Cent wurden übergeben
{
	% Euro-Angabe ist leer
	\IfNoValueTF {#1}%
	{%
	\ifnum\value{\ArgB}<1 % Cent-Betrag beträgt null oder kleiner -- ungültig!
		---
	\else% Immerhin ist der Cent-Betrag gültig
		\Zahl{#2} Cent
	\fi
	}% Euro-Angabe ist nicht leer
	{
		\ifnum\value{\ArgA}<1 % Euro-Betrag ist null oder kleiner, also Cents ausgeben.
		\Zahl{#2} Cent
		\else%
			\Zahl{#1},\Zahl{#2} €
		\fi
	}
}
}

%\DeclareDocumentCommand{\Preis}{m O{\NoValue}} {%
\newenvironment{Kosten}{%
\begin{tabular}{lll}\toprule
\bfseries Artikel &\bfseries Anzahl &\bfseries Kosten pro Stk. \\
\midrule}{\end{tabular}}

\newcommand{\KostenEintrag}[4]{\enquote{#1}&\Zahl{#2}&\Preis{#3}[#4]\\}

\begin{document}
\begin{Kosten}
\KostenEintrag{Die unendliche Geschichte}{1}{20}{50}
\KostenEintrag{Momo}{1}{10}{}
\end{Kosten}
\end{document}

[mechanicus]

Hi,

anbei ein Vorschlag.

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{textcomp}
\DeclareUnicodeCharacter{20AC}{\texteuro}

\usepackage{xparse,expl3}
\ExplSyntaxOn
\NewDocumentCommand \Zahl { m } { \textsc{ #1 } }
\NewDocumentCommand \KeinGeld { } { --- }

\tl_new:N \l_preis_euro_tl
\tl_new:N \l_preis_cent_tl

\DeclareDocumentCommand \Preis { m O{} } 
 {
  \tl_set:Nn \l_preis_euro_tl { #1 }
  \tl_set:Nn \l_preis_cent_tl { #2 }
  \tl_if_empty:NT  \l_preis_euro_tl { \tl_set:Nn \l_preis_euro_tl { 0 } }
  \tl_if_empty:NT  \l_preis_cent_tl { \tl_set:Nn \l_preis_cent_tl { 0 } }
  \int_compare:nTF { \l_preis_euro_tl <= \c_zero }
   {
    \preis_cent_ohne_euro:
   }
   {
    \preis_cent_mit_euro:
   }
}

\cs_new:Npn \preis_cent_ohne_euro:
 {
   \int_compare:nTF { \l_preis_cent_tl <= \c_zero }
     { \KeinGeld }
     { \Zahl{ \l_preis_cent_tl }\,Cent }
 }

\cs_new:Npn \preis_cent_mit_euro:
 {
   \int_compare:nTF { \l_preis_cent_tl <= \c_zero }
     { \Zahl{ \l_preis_euro_tl },---\,€ }
     { \Zahl{ \l_preis_euro_tl },\Zahl{ \l_preis_cent_tl }\,€ }
 }
\ExplSyntaxOff

\begin{document}
\Preis{-2}[25]

\Preis{2}[25]

\Preis{2}

\Preis{}[]
\end{document}

Allerdings würde ich eine Eingabe von 22,15 oder 22 oder 0,25 vermutlich als leichter empfinden. Die Abarbeitung ist nicht schwieriger

PS: LaTeX3 ist die falsche Wortwahl. expl3 ist die Basissprache von LaTeX3 und xparse bildet EINE Nutzerschnittstelle zur Basis.

Marco

[Furantsu Kafuka]

Danke für deine Antwort, aber das Beispiel ist (auch) nicht kompilierbar.

LaTeX Font Info: ... okay on input line 45.
! Undefined control sequence.
\\Preis ... \l_preis_cent_tl {0}}\int_compare:nTF
{\l_preis_euro_tl <=\c_zer...
l.46 \Preis{2}[25]
The control sequence at the end of the top line
of your error message was never \def'ed. If you have
misspelled it (e.g., `\hobx'), type `I' and the correct
spelling (e.g., `I\hbox'). Otherwise just continue,
and I'll forget about whatever was undefined.

[mechanicus]

Hi,

dann hast du noch eine alte Version von expl3.

Marco