Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

v5.16.2.02

  • Loading branch information...
commit 6aaafee29951f718d7360c3d1825553f856eef97 1 parent 547c1dd
joaquinferrero authored
Showing with 16 additions and 1,654 deletions.
  1. +0 −1,647 pod/translated/perlre.pod
  2. +16 −7 tools/compare_pods.sh
View
1,647 pod/translated/perlre.pod
0 additions, 1,647 deletions not shown
View
23 tools/compare_pods.sh
@@ -20,13 +20,22 @@ DIR=/home/explorer/perlspanish
### Arguments
POD=$1
+if [ -f $POD ]
+then
+ POD_SOURCE=$POD
+ POD_TARGET=$2
+else
+ POD_SOURCE="source/$POD"
+ POD_TARGET="target/$POD"
+fi
+
### Constants
COLS=$(tput cols)
### Checks
test -n "$POD" || exit 1
cd $DIR || exit 2
-test -f source/$POD && test -f target/$POD || exit 3
+test -f $POD_SOURCE && test -f $POD_TARGET || exit 3
## Middle-point of screen
MEDIO=$[$COLS/2]
@@ -34,19 +43,19 @@ MEDIO=$[$COLS/2]
W_EN=$[$MEDIO*95/100]
W_ES=$[$MEDIO*100/100]
-echo "Columnas: $COLS"
-echo "Medio: $MEDIO"
-echo "EN: $W_EN"
-echo "ES: $W_ES"
+#echo "Columnas: $COLS"
+#echo "Medio: $MEDIO"
+#echo "EN: $W_EN"
+#echo "ES: $W_ES"
#exit
### Format pod with MANWIDTH width
-MANWIDTH=$W_EN PERLDOC_POD2="" perldoc -d $POD.en source/$POD
+MANWIDTH=$W_EN PERLDOC_POD2="" perldoc -d $POD.en $POD_SOURCE
### This encoding line is required because target/ pods
# don't go through the postprocess program, yet
echo -e "=encoding utf-8\n\n" > $POD.es.org
-cat target/$POD >> $POD.es.org
+cat $POD_TARGET >> $POD.es.org
MANWIDTH=$W_ES PERLDOC_POD2="" perldoc -d $POD.es $POD.es.org
### Show side-by-side
Please sign in to comment.
Something went wrong with that request. Please try again.