Subversion Repositories wimsdev

Rev

Rev 6940 | Rev 7232 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6940 Rev 7228
Line 902... Line 902...
902 
  my $origin = $ref_env->{origin}{$cmd};
 902 
  my $origin = $ref_env->{origin}{$cmd};
903 
  return '' if ($origin && $origin eq 'environmentwims' && $def ne 'environmentwims');
 903 
  return '' if ($origin && $origin eq 'environmentwims' && $def ne 'environmentwims');
904 
  $ref_env->{deb}{$cmd} = $deb;
 904 
  $ref_env->{deb}{$cmd} = $deb;
905 
  $ref_env->{fin}{$cmd} = $fin;
 905 
  $ref_env->{fin}{$cmd} = $fin;
906 
  $ref_env->{cnt_arg}{$cmd} = $narg;
 906 
  $ref_env->{cnt_arg}{$cmd} = $narg;
- 
 
 907 
## one can have macro in definition of an environment - not general but useful for language
- 
 
 908 
  if ($titre=~/\\(\w+)/) {
- 
 
 909 
    $titre=$hash_command{definition}{$1} if $hash_command{definition}{$1}
- 
 
 910 
  }
907 
  $ref_env->{titre}{$cmd} = $titre;
 911 
  $ref_env->{titre}{$cmd} = $titre;
908 
  $ref_env->{origin}{$cmd} = $def;
 912 
  $ref_env->{origin}{$cmd} = $def;
909 
  my $style = $ref_env->{style}{$cmd} ;
 913 
  my $style = $ref_env->{style}{$cmd} ;
910 
  $style = ($style)? $style : $cmd ;
 914 
  $style = ($style)? $style : $cmd ;
911 
  #if (!$ref_env->{deb}{$cmd}) { $ref_env->{deb}{$cmd} = "<div class=\"$style\"> "; }
 915 
  #if (!$ref_env->{deb}{$cmd}) { $ref_env->{deb}{$cmd} = "<div class=\"$style\"> "; }
Line 1278... Line 1282...
1278 
 }
 1282 
 }
1279 
 
 1283 
 
1280 
sub traite_preambule { my ($TEXT, $ref_env, $ref_command, $ref) = @_;
 1284 
sub traite_preambule { my ($TEXT, $ref_env, $ref_command, $ref) = @_;
1281 
  if ($TEXT=~ s/\\usepackage\[([^]]+)\]\{algorithmic\}//) {
 1285 
  if ($TEXT=~ s/\\usepackage\[([^]]+)\]\{algorithmic\}//) {
1282 
       $algo_noend = 1  if ($1 =~ /noend/);
 1286 
       $algo_noend = 1  if ($1 =~ /noend/);
1283 
  } ;
 1287 
  };
1284 
  $TEXT = recup_environ($TEXT, $ref_env);
 - 
 
1285 
  $TEXT = recup_command($TEXT, $ref_command);
 1288 
  $TEXT = recup_command($TEXT, $ref_command);
- 
 
 1289 
  $TEXT = traite_command($TEXT, $ref_command);
- 
 
 1290 
  $TEXT = recup_environ($TEXT, $ref_env);
- 
 
 1291 
 
- 
 
 1292 
 
1286 
  $TEXT = recup_embed($TEXT, $ref) ;
 1293 
  $TEXT = recup_embed($TEXT, $ref) ;
1287 
  for my $cmd ('ref','index') {
 1294 
  for my $cmd ('ref','index') {
1288 
     $ref->{titb}{$cmd} = $ref_command->{definition}{$cmd . "name"}
 1295 
     $ref->{titb}{$cmd} = $ref_command->{definition}{$cmd . "name"}
1289 
  }
 1296 
  }
1290 
  $TEXT;
 1297 
  $TEXT;