[Po4a-commits] po4a/lib/Locale/Po4a LaTeX.pm,1.2,1.3

[Nicolas FRAN??OIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv23437/lib/Locale/Po4a

Modified Files:
	LaTeX.pm 
Log Message:
Update and clean command definitions.


Index: LaTeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/LaTeX.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- LaTeX.pm	26 Feb 2005 01:11:10 -0000	1.2
+++ LaTeX.pm	27 Feb 2005 14:17:11 -0000	1.3
@@ -84,6 +84,7 @@
 # Only read the documentclass in order to find some po4a directives.
 # FIXME: The documentclass could contain translatable strings.
 # Maybe it should be implemented as \include{}.
+$separated_commands .= " documentclass";
 $commands{'documentclass'} = sub {
     my $self = shift;
     my ($command,$variant,$opts,$args,$env) = (shift,shift,shift,shift,shift);
@@ -133,7 +134,7 @@
 register_generic("include,0,1,,");            # file
 #register_generic("includeonly,0,1,,");       # should not be supported for now
 register_generic("input,0,1,,");              # file
-register_generic("*item,1,0,,");
+register_generic("*item,1,0,1,");
 register_generic("*label,0,1,,");
 register_generic("lefteqn,0,1,,1");
 register_generic("line,0,0,,");               # The first argument is (x,y)
@@ -150,7 +151,7 @@
 register_generic("multicolumn,0,3,,3");
 register_generic("multiput,0,0,,");           # The first arguments are (x,y)(dx,dy)
 register_generic("name,0,1,,1");
-register_generic("*newcommand,0,-1,,");       # The second argument is [args]
+register_generic("*newcommand,0,-1,,2");      # The second argument is [args]
 register_generic("*newcounter,0,1,,");        # The second argument is [counter]
 register_generic("*newenvironment,-1,-1,,");  # The second argument is [args]
 register_generic("*newfont,0,2,,");
@@ -235,8 +236,14 @@
 register_generic("mathnormal,0,1,,1");
 register_generic("mathversion,0,1,,");
 
+register_generic("*contentspage,0,0,,");
+register_generic("*tablelistpage,0,0,,");
+register_generic("*figurepage,0,0,,");
+
 register_generic("*PassOptionsToPackage,0,2,,");
 
+register_generic("*ifthenelse,0,3,,2 3");
+
 # graphics
 register_generic("*includegraphics,1,1,,");
 register_generic("*graphicspath,0,1,,");
@@ -271,28 +278,38 @@
 register_generic("*pagecolor,0,1,,1");
 register_generic("*color,0,1,,1");
 
-$command_categories{'untranslated'} .= "addtolength";
+# equations/theorems
+register_generic("*qedhere,0,0,,");
+register_generic("*qedsymbol,0,0,,");
+register_generic("*theoremstyle,0,1,,");
+register_generic("*proclaim,0,1,,1");
+register_generic("*endproclaim,0,0,,");
+register_generic("*shoveleft,0,1,,1");
+register_generic("*shoveright,0,1,,1");
 
 # commands without arguments. This is better than untranslated or
 # translate_joined because the number of arguments will be checked.
-foreach (qw(a appendix backslash baselineskip baselinestretch bf *bigskip
-            boldmath cal
+foreach (qw(a *appendix *backmatter backslash *baselineskip *baselinestretch bf
+            *bigskip boldmath cal cdots *centering *cleardoublepage *clearpage
+            ddots dotfill em flushbottom *footnotesize frenchspacing
+            *frontmatter *glossary *hfill *hline hrulefill huge Huge indent it
+            kill large Large LARGE ldots left linewidth listoffigures
+            listoftables *mainmatter *makeatletter *makeglossary *makeindex
+            *maketitle *medskip *newline *newpage noindent nonumber *normalsize
+            not *null *onecolumn *par parindent *parskip *printindex protect ps
+            pushtabs *qquad *quad raggedbottom raggedleft raggedright right rm
+            sc scriptsize sf sl small *smallskip *startbreaks *stopbreaks
+            *tableofcontents textwidth textheight tiny today tt unitlength
+            vdots verb *vfill *vline fussy sloppy
+
             aleph hbar imath jmath ell wp Re Im prime nabla surd angle forall
             exists partial infty triangle Box Diamond flat natural sharp
             clubsuit diamondsuit heartsuit spadesuit dag ddag S P copyright
             pounds Delta ASCII
-            cdots *centering *cleardoublepage *clearpage ddots dotfill em
-            flushbottom *footnotesize frenchspacing *glossary *hfill *hline hrulefill
-            huge Huge indent it kill large Large LARGE ldots left linewidth
-            listoffigures listoftables *makeatletter *makeglossary *makeindex *maketitle
-            *medskip *newline *newpage noindent nonumber *normalsize not *null
-            *onecolumn *par parindent *parskip *printindex protect ps pushtabs
-            raggedbottom raggedleft raggedright right rm sc scriptsize sf sl
-            small *smallskip *startbreaks *stopbreaks *tableofcontents
-            textwidth textheight tiny today tt unitlength vdots verb *vfill
-            *vline fussy sloppy
-            rmfamily itshape mdseries bfseries upshape slshape sffamily scshape ttfamily *normalfont 
-            width height depth totalheight
+
+            rmfamily itshape mdseries bfseries upshape slshape sffamily scshape
+            ttfamily *normalfont width height depth totalheight
+
             *fboxsep *fboxrule
             *itemi *itemii *itemiii *itemiv
             *theitemi *theitemii *theitemiii *theitemiv)) {
@@ -300,18 +317,8 @@
 }
 
 
-$separated_commands .= " documentclass begin end hbox vbox vcenter".
-    " startdqi qandaquestion qandaanswer";
-
-foreach (qw(*makeindex *myeqnspacing *setprotcode font *frontmatter
-            quad *mainmatter *backmatter chaptermark printindex qquad junit
-            sunit pdfprotrudechars contentspage nunit perp)) {
-    register_generic("$_,0,0,,");
-}
-
-register_generic("*ifthenelse,0,3,,2 3");
-$command_categories{'translate_joined'} .= " hbox vbox vcenter".
-    " shoveright zu text";
+$separated_commands .= " begin end hbox vbox vcenter";
+$command_categories{'translate_joined'} .= " hbox vbox vcenter";
 
 # standard environments.
 foreach (qw(abstract align array cases center description displaymath enumerate