Skip to content
This repository
Browse code

v5.16.2.02

  • Loading branch information...
commit 6aaafee29951f718d7360c3d1825553f856eef97 1 parent 547c1dd
joaquinferrero authored

Showing 2 changed files with 16 additions and 1,654 deletions. Show diff stats Hide diff stats

  1. +0 1,647 pod/translated/perlre.pod
  2. +16 7 tools/compare_pods.sh
1,647 pod/translated/perlre.pod
Source Rendered
0 additions, 1,647 deletions not shown
23 tools/compare_pods.sh
@@ -20,13 +20,22 @@ DIR=/home/explorer/perlspanish
20 20 ### Arguments
21 21 POD=$1
22 22
  23 +if [ -f $POD ]
  24 +then
  25 + POD_SOURCE=$POD
  26 + POD_TARGET=$2
  27 +else
  28 + POD_SOURCE="source/$POD"
  29 + POD_TARGET="target/$POD"
  30 +fi
  31 +
23 32 ### Constants
24 33 COLS=$(tput cols)
25 34
26 35 ### Checks
27 36 test -n "$POD" || exit 1
28 37 cd $DIR || exit 2
29   -test -f source/$POD && test -f target/$POD || exit 3
  38 +test -f $POD_SOURCE && test -f $POD_TARGET || exit 3
30 39
31 40 ## Middle-point of screen
32 41 MEDIO=$[$COLS/2]
@@ -34,19 +43,19 @@ MEDIO=$[$COLS/2]
34 43 W_EN=$[$MEDIO*95/100]
35 44 W_ES=$[$MEDIO*100/100]
36 45
37   -echo "Columnas: $COLS"
38   -echo "Medio: $MEDIO"
39   -echo "EN: $W_EN"
40   -echo "ES: $W_ES"
  46 +#echo "Columnas: $COLS"
  47 +#echo "Medio: $MEDIO"
  48 +#echo "EN: $W_EN"
  49 +#echo "ES: $W_ES"
41 50 #exit
42 51
43 52 ### Format pod with MANWIDTH width
44   -MANWIDTH=$W_EN PERLDOC_POD2="" perldoc -d $POD.en source/$POD
  53 +MANWIDTH=$W_EN PERLDOC_POD2="" perldoc -d $POD.en $POD_SOURCE
45 54
46 55 ### This encoding line is required because target/ pods
47 56 # don't go through the postprocess program, yet
48 57 echo -e "=encoding utf-8\n\n" > $POD.es.org
49   -cat target/$POD >> $POD.es.org
  58 +cat $POD_TARGET >> $POD.es.org
50 59 MANWIDTH=$W_ES PERLDOC_POD2="" perldoc -d $POD.es $POD.es.org
51 60
52 61 ### Show side-by-side

0 comments on commit 6aaafee

Please sign in to comment.
Something went wrong with that request. Please try again.