Rev 13905 | Rev 15046 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 13905 | Rev 14239 | ||
|---|---|---|---|
| Line 499... | Line 499... | ||
| 499 | push @wimslist, ("endif","next","else") ; |
499 | push @wimslist, ("endif","next","else") ; |
| 500 | @wimslist ; |
500 | @wimslist ; |
| 501 | } |
501 | } |
| 502 | ### subroutine for "editor" |
502 | ### subroutine for "editor" |
| 503 | sub begin_js {my ($t)= @_ ; |
503 | sub begin_js {my ($t)= @_ ; |
| 504 | "case |
504 | "\n case \'$t\' \:\n chaine_aide=" |
| 505 | } |
505 | } |
| 506 | sub syntax_js {my ($line,$lang)=@_ ; |
506 | sub syntax_js {my ($line,$lang)=@_ ; |
| 507 | "\'<div class=\"syntax\"><div class=\"title\">$name{'syntax'}{$lang}</div><code>$line</code></div>\'+\n" |
507 | "\'<div class=\"syntax\"><div class=\"title\">$name{'syntax'}{$lang}</div><code>$line</code></div>\'+\n" |
| 508 | } |
508 | } |
| 509 | sub middle_js {my ($line,$tag,$lang)=@_ ; |
509 | sub middle_js {my ($line,$tag,$lang)=@_ ; |
| Line 522... | Line 522... | ||
| 522 | } |
522 | } |
| 523 | 523 | ||
| 524 | sub end_js {my ($text)=@_ ; |
524 | sub end_js {my ($text)=@_ ; |
| 525 | "\'$text\' ; return chaine_aide; |
525 | "\'$text\' ; return chaine_aide; |
| 526 | break; |
526 | break; |
| 527 | |
527 | ////********************" |
| 528 | " |
- | |
| 529 | } |
528 | } |
| 530 | sub function_js {my ($text,$tag)=@_ ; |
529 | sub function_js {my ($text,$tag)=@_ ; |
| 531 | |
530 | "function $tag" . "fun(instruction){ |
| 532 | |
531 | switch(instruction){$text\n }\n}" |
| 533 | { |
- | |
| 534 | $text |
- | |
| 535 | } |
- | |
| 536 | }" |
- | |
| 537 | } |
532 | } |
| 538 | 533 | ||
| 539 | sub cleanup { my ($txt)=@_ ; |
534 | sub cleanup { my ($txt)=@_ ; |
| 540 | return $txt if !($txt) ; |
535 | return $txt if !($txt) ; |
| 541 | $txt=~ s/\\\b/\/g ; |
536 | $txt=~ s/\\\b/\/g ; |
| Line 618... | Line 613... | ||
| 618 | $TEXT ; |
613 | $TEXT ; |
| 619 | } |
614 | } |
| 620 | 615 | ||
| 621 | sub out { my ($bloc, $text) = @_ ; |
616 | sub out { my ($bloc, $text) = @_ ; |
| 622 | open (OUT, ">$bloc") || die "peut pas créer $bloc"; |
617 | open (OUT, ">$bloc") || die "peut pas créer $bloc"; |
| 623 | print OUT " |
618 | print OUT "/* Automatically generated by bin/oefdoc.pl */\n" . $text ; close OUT ; |
| 624 | } |
619 | } |
| 625 | 620 | ||
| 626 | sub sortuniq { |
621 | sub sortuniq { |
| 627 | my $prev = "not $_[0]"; |
622 | my $prev = "not $_[0]"; |
| 628 | grep { $_ ne $prev && ($prev = $_, 1) } sort @_; |
623 | grep { $_ ne $prev && ($prev = $_, 1) } sort @_; |