WebSVN – wimsdev – Diff – /trunk/wims/bin/oefdoc.pl

 out( "$DOSSIER_edit_area/wimsoef.js",  $EDIT_AERA_OEF) ;
 out( "$DOSSIER_edit_area/wims.js",  $EDIT_AERA) ;
 out( "$DOSSIER_edit_area/wimsdoc.js",  $EDIT_AERA_DOC) ;
 sub anstype { my ($lang)=@_ ;
- my %HASH ;
+  my %HASH ;
- my %HELP ;
+  my %HELP ;
- open (IN, "$helpdir/$lang/reply.phtml") ;
+  open (IN, "$helpdir/$lang/reply.phtml") ;
-   while (<IN>) {my $line = $_; my @t=();
+  while (<IN>) {my $line = $_; my @t=();
     next if ($line =~ /^\!set/) ;
     next if !($line) ;
     if ($line =~ /\\\n/) {
       my @L= split( ',', $line) ;
       my $t1 = $L[0] ; $t1=~ s/\|/,/ ;
       my @ta=split(',',$t1) ;
       if ($ta[1]) {@t=split(' ',$ta[1]) ; } else {@t=($L[0])};
       for my $tag (@t) { $HASH{$tag} = cleanup3($L[1] . ' ' . (($L[2]) ? $L[2]: '')); $HELP{$tag}=$ta[0] ;}
-     }
+    }
-   }
+  }
- close IN ;
+  close IN ;
- my $text ='';
+  my $text ='';
- my $Text = "var anstypename='$name{'anstype'}{$lang}';\n" ;
+  my $Text = "var anstypename='$name{'anstype'}{$lang}';\n" ;
-   my $var=join ("$End{'anstype'}\',\'$Begin{'anstype'}", sort keys(%HASH)) ;
+  my $var=join ("$End{'anstype'}\',\'$Begin{'anstype'}", sort keys(%HASH)) ;
-   $Text .="var anstype = [ '$Begin{'anstype'}$var$End{'anstype'}' ];\n" ;
+  $Text .="var anstype = [ '$Begin{'anstype'}$var$End{'anstype'}' ];\n" ;
-   for my $tag (keys(%HASH)){
+  for my $tag (keys(%HASH)){
-     $text .= begin_js("$Begin{'anstype'}$tag$End{'anstype'}")
+    $text .= begin_js("$Begin{'anstype'}$tag$End{'anstype'}")
-           . title_js($tag,'title')
+          . title_js($tag,'title')
-           . middle_js($HASH{$tag},'out', $lang)
+          . middle_js($HASH{$tag},'out', $lang)
-           . end_js("<a target=\"wims_help\" href=\"wims.cgi?lang=$lang&module=adm%2Fcreatexo&modtoolhelp=yes&+special_parm=reply,$HELP{$tag}\">++>></a>") ;
+          . end_js("<a target=\"wims_help\" href=\"wims.cgi?lang=$lang&module=adm%2Fcreatexo&modtoolhelp=yes&+special_parm=reply,$HELP{$tag}\">++>></a>") ;
-   }
+  }
-   $Text .= function_js($text,'anstype') ;
+  $Text .= function_js($text,'anstype') ;
-   $EDIT_AERA_OEF .= "\n, \'anstype\' : \n[ \' type=" . join ("\', 'type=", sort keys(%HASH)) . "\']"  if $lang=~/en/ ;
+  $EDIT_AERA_OEF .= "\n, \'anstype\' : \n[ \' type=" . join ("\', 'type=", sort keys(%HASH)) . "\']"  if $lang=~/en/ ;
-   out ("$DOSSIER/$lang/anstype" . "_bd\.js", $Text) ;
+  out ("$DOSSIER/$lang/anstype" . "_bd\.js", $Text) ;
 }
 sub slib {my ($lang)= @_ ;
- my $Text = "var slibname='$name{'slib'}{$lang}';\n" ;
+  my $Text = "var slibname='$name{'slib'}{$lang}';\n" ;
- my @list_keyword=();
+  my @list_keyword=();
- my %HASH ;
+  my %HASH ;
- my $slibdirhelp="$helpdir/$lang/slib";
+  my $slibdirhelp="$helpdir/$lang/slib";
-for my $file (glob("$slibdir/*/*")) {
+  for my $file (glob("$slibdir/*/*")) {
-#for example file=$slibdir/function/integrate
+  #for example file=$slibdir/function/integrate
- $file =~s/$slibdir\///;
+  $file =~s/$slibdir\///;
- my $text=''; my $tag='';
+  my $text=''; my $tag='';
- my $filehelp="$slibdirhelp/$file" ;
+  my $filehelp="$slibdirhelp/$file" ;
- if (!open(IN, "$filehelp")) { $filehelp="$slibdirhelp/en/$file"; }
+  if (!open(IN, "$filehelp")) { $filehelp="$slibdirhelp/en/$file"; }
- if (!open(IN, "$filehelp")) { $filehelp="$slibdir/$file"; }
+  if (!open(IN, "$filehelp")) { $filehelp="$slibdir/$file"; }
- for my $fff ("$slibdir/$file",$filehelp) {
+  for my $fff ("$slibdir/$file",$filehelp) {
-   open (IN, ("$fff"));
+    open (IN, ("$fff"));
-   while (<IN>) {my $line=$_;
+    while (<IN>) {my $line=$_;
-    if  ($line=~/^ *!exit/) { last ;}
+      if  ($line=~/^ *!exit/) { last ;}
-    if ($line=~ s/^ *slib_(\w+) *=//){
+      if ($line=~ s/^ *slib_(\w+) *=//){
-     $tag=$1;
+        $tag=$1;
-     $line=cleanup($line) ;
+        $line=cleanup($line) ;
-     if ($tag=~/parms/) {
+        if ($tag=~/parms/) {
-       $line=~s/\\//;
+          $line=~s/\\//;
-       $HASH{nbparm}{$file}=$line;
+          $HASH{nbparm}{$file}=$line;
-     } else
+        } else
-     {
+        {
-       $HASH{$tag}{$file}=$line ;
+          $HASH{$tag}{$file}=$line ;
-     }
+        }
-     } else {
+      } else {
-       next if !($tag) ;
+        next if !($tag) ;
-       if ($tag=~/parms/) {
+        if ($tag=~/parms/) {
-        chomp $line ;
+          chomp $line ;
-        next if ($line) ;
+          next if ($line) ;
-        my @parm=split(",", $line) ;
+          my @parm=split(",", $line) ;
-        if (($parm[1]) && ($parm[1] =~ s/\\//)) {
+          if (($parm[1]) && ($parm[1] =~ s/\\//)) {
-          $HASH{$tag}{$file}.= cleanup3($parm[1]) . ",";
+            $HASH{$tag}{$file}.= cleanup3($parm[1]) . ",";
-         }
+          }
-         else
+          else {
-         {  $HASH{$tag}{$file}= (($HASH{$tag}{$file})? $HASH{$tag}{$file}:' ') . (($parm[1]) ? cleanup3($parm[1]):'') ;
+            $HASH{$tag}{$file}= (($HASH{$tag}{$file})? $HASH{$tag}{$file}:' ') . (($parm[1]) ? cleanup3($parm[1]):'') ;
-         }
+          }
-       # $HASH{$tag}{$file} .= "\[$parm[0]\]" if ($parm[0]);
+          # $HASH{$tag}{$file} .= "\[$parm[0]\]" if ($parm[0]);
-       }
+        }
-       else {
+        else {
-         $HASH{$tag}{$file} .= cleanup($line);
+          $HASH{$tag}{$file} .= cleanup($line);
-         $tag='' if !($line=~/\\$/) ;
+          $tag='' if !($line=~/\\$/) ;
-       }
+        }
-     }
+      }
-   }
+    }
- close IN;
+  close IN;
- }
+  }
   push @list_keyword, $file if ($HASH{'title'}{$file});
- $tag='';
+  $tag='';
- }
+}
  my $var=join ("$End{'slib'}\',\'$Begin{'slib'}", @list_keyword) ;
  $Text .="var slib = [ '$Begin{'slib'}$var$End{'slib'}' ];\n" ;
  my $text='' ;
  for my $file (@list_keyword) {
   next if !($HASH{'title'}{$file}) ;
  my $tag='';
  my $Text="var specialname= '$name{'special'}{$lang}';\n";
  for my $meth (@file) {
   #print $meth . "\n";
     open (IN, "$dir/$meth.phtml");
     while (<IN>) {my $line=$_;
     next if !($line) ;
     if ($line =~ /^:/) {
     chomp $line;
        $tag=$line; $tag=~ s/://;
     }
     else
     {
      $HASH{$tag}{$meth} .= cleanup($line) . "\\n" ;
+    }
+  }
+}
  my $var=join (" }\', \'\\\\special{", @phtml) ;
  ### cas particulier
   out ("$DOSSIER/$lang/$f" . "_bd\.js",$Text) ;
+}
 ##file : nom du fichier, n nombre de lignes dans chaque record
 sub tableau { my ($file, $lang) = @_ ;
-### mettre $file à la place ensuite
+  ### mettre $file à la place ensuite
   my $file1="$helpdir/$lang/$file";
   my $cities=$file ;
   if ($file =~ /if/){ $cities .= 'f' } ;
   my @list_keyword;
   my @List_keyword;
   my $text='';
-##bug s'il n'y a pas de documentation
+  ##bug s'il n'y a pas de documentation
   open (IN, $file1);
   my $cnt=0 ;my $nl;
   my $Text = '' ;
   while (<IN>) { my $line=$_;
-   chomp $line ;
+    chomp $line ;
-   next if !($line) ;
+    next if !($line) ;
-   next if ($line=~ /^(!!)/);
+    next if ($line=~ /^(!!)/);
-   if ($line =~ /!changeto/){ die "$file1 should be translated"};
+    if ($line =~ /!changeto/){ die "$file1 should be translated"};
-   if ($line =~ s /^://) {
+    if ($line =~ s /^://) {
-     $cnt ++ ;
+      $cnt ++ ;
-     if ($cnt == 1 ) { $Text = "var $cities" . "name= '" . cleanup3($line) . "';\n ";  }
+      if ($cnt == 1 ) { $Text = "var $cities" . "name= '" . cleanup3($line) . "';\n ";  }
-     next if $cnt < 3 ;
+      next if $cnt < 3 ;
-     $line =~ s/:// ;
+      $line =~ s/:// ;
-     if($text) { $text .= end_js("") ;}
+      if($text) { $text .= end_js("") ;}
-       if ($text) {$text .= begin_js($Begin{$file} . $line . $End{$file}) ;}
+      if ($text) {$text .= begin_js($Begin{$file} . $line . $End{$file}) ;}
-        else
+      else
-       { $text = begin_js($Begin{$file} . $line . $End{$file}) ; };
+      { $text = begin_js($Begin{$file} . $line . $End{$file}) ; };
-     push @list_keyword, $line;
+      push @list_keyword, $line;
-     $line =~ s/(\(|\)|\.|,|\[|\]| )//g ;
+      $line =~ s/(\(|\)|\.|,|\[|\]| )//g ;
-     push @List_keyword, $line;
+      push @List_keyword, $line;
-     $nl=0;
+      $nl=0;
-     }
+    }
-     else  {
+    else {
-       next if $cnt<3 ; if ($line =~ /^(\d)/) { my $arg=$1 ; next }
+      next if $cnt<3 ; if ($line =~ /^(\d)/) { my $arg=$1 ; next }
-       $nl ++ ;
+      $nl ++ ;
-       $line = cleanup($line); if ($line =~ /help=/) { $line = '' ;}
+      $line = cleanup($line); if ($line =~ /help=/) { $line = '' ;}
-       if ($nl==1 && !($file=~/oefcommand/)){
+      if ($nl==1 && !($file=~/oefcommand/)){
-         if ($line) { $text .= syntax_js($line,$lang) ; }
+        if ($line) { $text .= syntax_js($line,$lang) ; }
-        }
+      }
-        else {
+      else {
-         if ($line) { $text .= middle_js($line,1,$lang) ;  }
+        if ($line) { $text .= middle_js($line,1,$lang) ;  }
-           }
+            }
-         }
+          }
-   }
+  }
   close IN ;
-         $text .= end_js("") ;
+  $text .= end_js("") ;
   my $var=join ("$End{$file}\', \'$Begin{$file}", @list_keyword) ;
   $Text .="var $cities= [ \'$Begin{$file}$var$End{$file}\' ];\n"
-  . function_js($text,$cities) ;
+    . function_js($text,$cities) ;
   out ("$DOSSIER/$lang/$cities" . "_bd\.js",$Text) ;
-   if ($lang=~/en/){
+  if ($lang=~/en/){
-     if ($debut_oef==1) { $EDIT_AERA_OEF .= "\n" ; $debut_oef=0 } else {$EDIT_AERA_OEF .= "\n," };
+    if ($debut_oef==1) { $EDIT_AERA_OEF .= "\n" ; $debut_oef=0 } else {$EDIT_AERA_OEF .= "\n," };
-     $EDIT_AERA_OEF .= " \'$cities\' : \n[ \'" . join ("\', '", @List_keyword) . "\']" ;
+    $EDIT_AERA_OEF .= " \'$cities\' : \n[ \'" . join ("\', '", @List_keyword) . "\']" ;
-     if ($cities=~ /(iff|oefparm4)/) {
+    if ($cities=~ /(iff|oefparm4)/) {
-       if ($debut_wims==1) {$EDIT_AERA .= "\n" ; $debut_wims=0 } else {$EDIT_AERA .= "\n," };
+      if ($debut_wims==1) {$EDIT_AERA .= "\n" ; $debut_wims=0 } else {$EDIT_AERA .= "\n," };
-       push @List_keyword, ('or', 'and') ;
+      push @List_keyword, ('or', 'and') ;
-       $EDIT_AERA .= " \'compare\' : \n[ \'" . join ("\', '", @List_keyword) . "\']"  ;
+      $EDIT_AERA .= " \'compare\' : \n[ \'" . join ("\', '", @List_keyword) . "\']"  ;
-     }
+    }
+  }
+}
 sub wimscommand { my ($d) = @_;
   my @wimslist = () ;
   push @wimslist, ("endif","next","else") ;
   @wimslist ;
+}
 ### subroutine for "editor"
 sub begin_js {my ($t)= @_ ;
-"case \'$t\' \:\nchaine_aide="
+  "case \'$t\' \:\nchaine_aide="
+}
 sub syntax_js {my ($line,$lang)=@_ ;
- "\'<div class=\"syntax\"><div class=\"title\">$name{'syntax'}{$lang}</div><code>$line</code></div>\'+\n"
+  "\'<div class=\"syntax\"><div class=\"title\">$name{'syntax'}{$lang}</div><code>$line</code></div>\'+\n"
+}
-sub middle_js {my ($line,$tag,$lang)=@_ ; if(!$line) {$line='' ;}
+sub middle_js {my ($line,$tag,$lang)=@_ ;
+  if(!$line) {$line='' ;}
- if ($tag) { $line="<div class=\"title\">$name{'explanation'}{$lang}</div>$line" }
+  if ($tag) { $line="<div class=\"title\">$name{'explanation'}{$lang}</div>$line" }
- "\'<div class=\"explication\">$line</div>\'+\n";
+  "\'<div class=\"explication\">$line</div>\'+\n";
+}
 sub middle1_js {my ($line,$tag,$lang)=@_ ;
- if ($tag) { $line="<div class=\"title\">$name{'example'}{$lang}</div>$line" }
+  if ($tag) { $line="<div class=\"title\">$name{'example'}{$lang}</div>$line" }
- "\'<div class=\"exemple\">$line</div>\'+\n";
+  "\'<div class=\"exemple\">$line</div>\'+\n";
+}
 sub title_js {my ($line,$tag)=@_ ;
- "\'<div class=\"title\">$line</div>\'+\n";
+  "\'<div class=\"title\">$line</div>\'+\n";
+}
 sub end_js {my ($text)=@_ ;
   "\'$text\' ; return chaine_aide;
            break;
         ////********************\n
+        "
+}
 sub function_js {my ($text,$tag)=@_ ;
- "function $tag" . "fun(instruction){
+  "function $tag" . "fun(instruction){
     switch(instruction)
-        {
+          {
-        $text
+          $text
-        }
+          }
-}"
+  }"
+}
 sub cleanup { my ($txt)=@_ ;
   return $txt if !($txt) ;
   $txt=~ s/\\\b/&#92;/g ;

Subversion Repositories wimsdev

(root)/trunk/wims/bin/oefdoc.pl – Rev 13623 → 13905