Return to display CVS log

Up to [local] / OpenXM_contrib / pari / config

Annotation of OpenXM_contrib/pari/config/display, Revision 1.1.1.1

1.1       maekawa     1: if test -n "$perl"; then
                      2:   echo $rep | $perl -e "
                      3:      @input=split(/\s/,<>); \$len = \$#input + 3;
                      4:      \$len = ( \$len - \$len % 3) / 3;
                      5:      for(\$i=0;\$i<\$len;\$i++) {
                      6:        printf qq(      %-18s%-18s%-18s\n),
                      7:          \$input[\$i], \$input[\$i+\$len], \$input[\$i+2*\$len];
                      8:      }"
                      9: else
                     10:   echo $rep
                     11: fi