Changeset 181

Timestamp:

09/04/08 17:58:25 (16 years ago)

Author:

nanardon

Message:

• add bestever.pl as external source

Location:

trunk/perl

Files:

• Makefile (modified) (3 diffs)
• bestever.pl (added)
• introduction.tex (modified) (1 diff)

trunk/perl/Makefile

@@ -3 +3 @@
 .SUFFIXES: .dvi .pdf .eps .fig .png .jpg
 
-SOURCES= \
+# perl
+
+perl_TEX = \
     perl.tex
 
-perl_INCLUDE = \
+perl_INCLUDES = \
         introduction.tex \
     variables.tex \
@@ -14 +16 @@
         conclusion.tex \
 
-FIGURES= \
+perl_EXAMPLES = \
+        bestever.pl
 
-IMAGES= $(IMAGESJPG) $(IMAGESPNG)
 
-IMAGESJPG= \
+perl_IMAGESJPG= \
         Angel_fish.jpg \
         tableau.jpg \
         hache.jpg
 
-IMAGESPNG= \
+perl_IMAGESPNG= \
         mongueurs.png \
 
-EXAMPLES = 
+perl_FIGURES= \
 
-DVI=$(SOURCES:.tex=.dvi)
-PDF=$(SOURCES:.tex=.pdf)
-EPS= $(FIGEPS) $(PNGEPS) $(JPGEPS)
+perl_IMAGES= $(perl_IMAGESJPG) $(perl_IMAGESPNG)
 
-FIGEPS = $(FIGURES:.fig=.eps) 
+perl_DEPS = Makefile \
+        $(perl_INCLUDES) \
+        $(perl_EXAMPLES) \
+        $(perl_FIGURES) \
+        $(perl_IMAGES) \
 
-PNGEPS = $(IMAGESPNG:.png=.eps)
+perl_DVI = $(perl_TEX:.tex=.dvi)
+perl_PDF = $(perl_TEX:.tex=.pdf)
+perl_EPS = $(perl_FIGEPS) $(perl_PNGEPS) $(perl_JPGEPS)
+perl_FIGEPS = $(perl_FIGURES:.fig=.eps) 
+perl_PNGEPS = $(perl_IMAGESPNG:.png=.eps)
+perl_JPGEPS = $(perl_IMAGESJPG:.jpg=.eps)
 
-JPGEPS = $(IMAGESJPG:.jpg=.eps)
+# Everything
+ALL_PDF = $(perl_PDF)
+ALL_DVI = $(perl_DVI)
 
 all: pdf
 
-pdf: $(EPS) $(PDF)
+pdf: $(ALL_PDF)
 
-dvi: $(EPS) $(DVI)
+dvi: $(ALL_DVI)
 
-perl.pdf: perl.tex $(perl_INCLUDE) Makefile
-        pdflatex -halt-on-error $< && pdflatex -halt-on-error $<
+perl.pdf: $(perl_TEX) $(perl_DEPS)
+        pdflatex -halt-on-error $< && pdflatex -halt-on-error $< 
 
-perl.dvi: perl.tex $(perl_INCLUDE) Makefile
-        latex -halt-on-error $< && latex -halt-on-error $<
+perl.dvi: $(perl_TEX) $(perl_DEPS)
+        latex -halt-on-error $< && latex -halt-on-error $< 
 
 %.eps: %.fig
@@ -64 +75 @@
         rm -f $(PDF)
 
-.PHONY: clean
+.PHONY: pdf dvi clean all

trunk/perl/introduction.tex

@@ -87 +87 @@
 \begin{exampleblock}{bestever.pl de Philippe Bruhat (Book)}
 \begin{tiny}
-\begin{verbatim}
-/;{}def/#{def}def/$_={/Times-Bold exch selectfont}#/_{rmoveto}#/"{dup}#/*/!/$
-;/q{exch}#/x ; {/J q #}#/.{/T q #}#{stringwidth}#{}#{}# 14 string dup dup dup
-260 40 moveto 90 rotate ; %/}};$0='"\e[7m \e[0m"';@ARGV=split//,reverse
-q(ThePerl). q(Journal) x 220 ; q ; 0 T putinterval exch 7 J putinterval ;
- ; $_= q /m$ pop T($*!$"=!$ " )pop " * true% ? $ " $!" "  !!  !! % !" !"    !
-! charpath {!"""}pop $ pop{""!}pop ! neg{!#}pop 220 ! neg _{!!}pop J false %T
-charpath  clip " pop 0 " moveto 6{!!}pop $_= 105{!!}pop {$ ! $ " !  #! ##}
-pop{dup dup $ ! " pop pop q{"}pop 22{dup show}repeat {"}pop q 22 mul{$ "} pop
-neg{!#! $ "}pop ! 8 .65 mul{$ # # $}pop ! neg{"}pop  _ pop{"}pop } repeat pop
-" {  $ " ! ! ! $ " ! !" "#"  #"!"""""! #" " # "m/;@ARGV=(@ARGV[-14..-1])x50;q}
- 0 "%};s/m[ou]|[-\dA-ln-z.\n_{}]|\$_=//gx;s/(.)(?{$*=''})/('$*.='.(++$#
-%2?'':"$0;").'pop;')x(ord($1)-31).'$*'/gee;s/((.(\e\[.m)*|.){77})/$1\n/g;print
-; sub showpage {}
-\end{verbatim}
+\verbatiminput{bestever.pl}
 \end{tiny}
 \end{exampleblock}