From: x99bachelart <x99bachelart>
Date: Sun, 28 Sep 2003 21:51:29 +0000 (+0000)
Subject: perl wrapper
X-Git-Tag: 1.8~391
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=539c8d5b846ee1759f086cc0e52908e9af5b2929;p=banana.git

perl wrapper
---

diff --git a/include/wrapper.inc.php b/include/wrapper.inc.php
index 029c21d..c914413 100644
--- a/include/wrapper.inc.php
+++ b/include/wrapper.inc.php
@@ -141,14 +141,23 @@ function dowrap($_mixed,$_maxls=72,$_maxld=72,$_prefix="") {
  */
 
 function wrap($_text,$_prefix="",$_length=72) {
-  $lines = split("\n",$_text);
-  $max = max(array_map("strlen",$lines));
-  $delig = deligne($_text);
-  $result = "";
+#  $lines = split("\n",$_text);
+#  $max = max(array_map("strlen",$lines));
+#  $delig = deligne($_text);
+#  $result = "";
 
-  foreach ($delig as $d) {
-    $result .= dowrap($d,$max,$_length,$_prefix);
+#  foreach ($delig as $d) {
+#    $result .= dowrap($d,$max,$_length,$_prefix);
+#  }
+  
+  $text = $_text;
+  if ($_prefix != "") {
+	$lines = split("\n",$_text);
+	$text = $_prefix.join($lines,"\n$_prefix");
   }
+  exec("echo ".escapeshellarg($text)." | perl -MText::Autoformat -e "
+   ."'{autoformat{ignore=>qr/^([a-zA-Z]+:|--)/};}'", $result);
+  $result=preg_replace("/\n--\n/","\n-- \n",join($result,"\n"));
 
   return $result;
 }