~plane1/maus/devel_624

<xsl:template match="a|address|blockquote|br|center|cite|code|dd|div|dl|dt|em|hr|i|img|li|ol|p|pre|span|table|td|th|tr|ul|var|A|ADDRESS|BLOCKQUOTE|BR|CENTER|CITE|CODE|DD|DIV|DL|DT|EM|HR|I|LI|OL|P|PRE|SPAN|TABLE|TD|TH|TR|UL|VAR">

392

<xsl:element name="{local-name()}">

393

<xsl:copy-of select="@*"/>

394

<xsl:apply-templates/>

395

</xsl:element>

396

</xsl:template>

397

398

399

<xsl:template name="TOC">

400

<xsl:param name="root"/>

401

402

<DIV class="toc_title">Table of Contents</DIV>

403

<TABLE>

404

<xsl:for-each select="$root/CATEGORY">

405

406

<xsl:attribute name="class"><xsl:value-of select="@class"/></xsl:attribute>

407

<TD>

408

409

<A>

410

<xsl:attribute name="href">

411

<xsl:text>#</xsl:text>

412

<xsl:call-template name="anchorname">

413

<xsl:with-param name="sectionname" select="@title"/>

414

</xsl:call-template>

415

</xsl:attribute>

416

<xsl:value-of select="@title"/>

417

</A>

418

</DIV>

419

</TD><TD>

420

421

<xsl:for-each select="./STYLEPOINT">

422

423

<xsl:attribute name="class"><xsl:value-of select="@class"/></xsl:attribute>

424

<A>

425

<xsl:attribute name="href">

426

<xsl:text>#</xsl:text>

427

<xsl:call-template name="anchorname">

428

<xsl:with-param name="sectionname" select="@title"/>

429

</xsl:call-template>

430

</xsl:attribute>

431

<xsl:value-of select="@title"/>

432

</A>

433

</SPAN>

434

<xsl:text> </xsl:text>

435

</xsl:for-each>

436

</DIV>

437

</TD>

438

</TR>

439

</xsl:for-each>

440

</TABLE>

441

</DIV>

442

</xsl:template>

443

444

<xsl:template name="TOC_one_stylepoint">

445

<xsl:param name="stylepoint"/>

446

</xsl:template>

447

448

<!-- Creates a standard anchor given any text.

449

Substitutes underscore for characters unsuitable for URLs -->

450

<xsl:template name="anchorname">

451

<xsl:param name="sectionname"/>

452

<xsl:value-of select="translate($sectionname,' ()#','____')"/>

453

</xsl:template>

454

455

456

457

<xsl:template name="num_leading_spaces_one_line">

458

<xsl:param name="text"/>

459

<xsl:param name="current_count"/>

460

<xsl:choose>

461

<xsl:when test="starts-with($text, ' ')">

462

<xsl:call-template name="num_leading_spaces_one_line">

463

<xsl:with-param name="text" select="substring($text, 2)"/>

464

<xsl:with-param name="current_count" select="$current_count + 1"/>

465

</xsl:call-template>

466

</xsl:when>

467

<xsl:otherwise>

468

<xsl:value-of select="$current_count"/>

469

</xsl:otherwise>

470

</xsl:choose>

471

</xsl:template>

472

473

<!-- Given a block of text, each line terminated by \n, evaluates to

474

the indentation-level of that text; that is, the largest number

475

n such that every non-blank line starts with at least n spaces. -->

476

<xsl:template name="num_leading_spaces">

477

<xsl:param name="text"/>

478

<xsl:param name="max_so_far"/>

479

480

<xsl:variable name="line" select="substring-before($text, '
')"/>

481

<xsl:variable name="rest" select="substring-after($text, '
')"/>

482

<xsl:variable name="num_spaces_this_line">

483

<xsl:choose>

484

<xsl:when test="$line=''">

485

<xsl:value-of select="$max_so_far"/>

486

</xsl:when>

487

<xsl:otherwise>

488

<xsl:call-template name="num_leading_spaces_one_line">

489

<xsl:with-param name="text" select="$line"/>

490

<xsl:with-param name="current_count" select="0"/>

491

</xsl:call-template>

492

</xsl:otherwise>

493

</xsl:choose>

494

</xsl:variable>

495

<xsl:variable name="new_max_so_far">

496

<xsl:choose>

497

<xsl:when test="$num_spaces_this_line < $max_so_far">

498

<xsl:value-of select="$num_spaces_this_line"/>

499

</xsl:when>

500

<xsl:otherwise>

501

<xsl:value-of select="$max_so_far"/>

502

</xsl:otherwise>

503

</xsl:choose>

504

</xsl:variable>

505

506

<xsl:if test="$rest=''">

507

<xsl:value-of select="$new_max_so_far"/>

508

</xsl:if>

509

<xsl:if test="not($rest='')">

510

<xsl:call-template name="num_leading_spaces">

511

<xsl:with-param name="text" select="$rest"/>

512

<xsl:with-param name="max_so_far" select="$new_max_so_far"/>

513

</xsl:call-template>

514

</xsl:if>

515

</xsl:template>

516

517

<!-- Given text, determine the starting position of code.

518

This similar to num_leading_spaces_one_line but treats "Yes:" and "No:"

519

as spaces. Also, if there is no code on the first line, it searches

520

subsequent lines until a non-empty line is found.

521

Used to find the start of code in snippets like:

522

Yes: if(foo):

523

No : if(foo):

524

As well as:

525

Yes:

526

if (foo):

527

-->

528

<xsl:template name="code_start_index">

529

<xsl:param name="text"/>

530

<xsl:param name="current_count"/>

531

<xsl:choose>

532

<xsl:when test="starts-with($text, ' ')">

533

<xsl:call-template name="code_start_index">

534

<xsl:with-param name="text" select="substring($text, 2)"/>

535

<xsl:with-param name="current_count" select="$current_count + 1"/>

536

</xsl:call-template>

537

</xsl:when>

538

<xsl:when test="starts-with($text, 'Yes:')">

539

<xsl:call-template name="code_start_index">

540

<xsl:with-param name="text" select="substring($text, 5)"/>

541

<xsl:with-param name="current_count" select="$current_count + 4"/>

542

</xsl:call-template>

543

</xsl:when>

544

<xsl:when test="starts-with($text, 'No:')">

545

<xsl:call-template name="code_start_index">

546

<xsl:with-param name="text" select="substring($text, 4)"/>

547

<xsl:with-param name="current_count" select="$current_count + 3"/>

548

</xsl:call-template>

549

</xsl:when>

550

<!-- This is only reached if the first line is entirely whitespace or

551

contains nothing but "Yes:" or "No:"-->

552

<xsl:when test="starts-with($text, '
')">

553

<xsl:call-template name="code_start_index">

554

<xsl:with-param name="text" select="substring($text, 2)"/>

555

<xsl:with-param name="current_count" select="0"/>

556

</xsl:call-template>

557

</xsl:when>

558

<xsl:otherwise>

559

<xsl:value-of select="$current_count"/>

560

</xsl:otherwise>

561

</xsl:choose>

562

</xsl:template>

563

564

<!-- Helper for ends_with_colon. Determine whether the given line is nothing

565

but spaces and python-style comments. -->

566

<xsl:template name="is_blank_or_comment">

567

<xsl:param name="line"/>

568

<xsl:choose>

569

<xsl:when test="$line = ''">

570

<xsl:value-of select="1"/>

571

</xsl:when>

572

<xsl:when test="starts-with($line, '
')">

573

<xsl:value-of select="1"/>

574

</xsl:when>

575

<xsl:when test="starts-with($line, '#')">

576

<xsl:value-of select="1"/>

577

</xsl:when>

578

<xsl:when test="starts-with($line, ' ')">

579

<xsl:call-template name="is_blank_or_comment">

580

<xsl:with-param name="line" select="substring($line, 2)"/>

581

</xsl:call-template>

582

</xsl:when>

583

<xsl:otherwise>

584

<xsl:value-of select="0"/>

585

</xsl:otherwise>

586

</xsl:choose>

587

</xsl:template>

588

589

<!-- Determine whether the given line ends with a colon. Note that Python

590

style comments are ignored so the following lines return True:

591

- def foo():

592

- def foo(): # Bar

593

- if(foo):

594

595

But some code may confuse this function. For example the following are

596

also consider to "end_with_colon" even though they don't for Python

597

- foo(": #")

598

- foo() # No need for :

599

-->

600

<xsl:template name="ends_with_colon">

601

<xsl:param name="line"/>

602

<xsl:param name="found_colon"/>

603

<xsl:choose>

604

<xsl:when test="$line = ''">

605

<xsl:value-of select="$found_colon"/>

606

</xsl:when>

607

<xsl:when test="starts-with($line, '
')">

608

<xsl:value-of select="$found_colon"/>

609

</xsl:when>

610

<xsl:when test="starts-with($line, ' ')">

611

<xsl:call-template name="ends_with_colon">

612

<xsl:with-param name="line" select="substring($line, 2)"/>

613

<xsl:with-param name="found_colon" select="$found_colon"/>

614

</xsl:call-template>

615

</xsl:when>

616

<xsl:when test="starts-with($line, ':')">

617

<xsl:variable name="rest_is_comment">

618

<xsl:call-template name="is_blank_or_comment">

619

<xsl:with-param name="line" select="substring($line, 2)"/>

620

</xsl:call-template>

621

</xsl:variable>

622

<xsl:choose>

623

<xsl:when test="$rest_is_comment = '1'">

624

<xsl:value-of select="1"/>

625

</xsl:when>

626

<xsl:otherwise>

627

<xsl:call-template name="ends_with_colon">

628

<xsl:with-param name="line" select="substring($line, 2)"/>

629

<xsl:with-param name="found_colon" select="0"/>

630

</xsl:call-template>

631

</xsl:otherwise>

632

</xsl:choose>

633

</xsl:when>

634

<xsl:otherwise>

635

<xsl:call-template name="ends_with_colon">

636

<xsl:with-param name="line" select="substring($line, 2)"/>

637

<xsl:with-param name="found_colon" select="0"/>

638

</xsl:call-template>

639

</xsl:otherwise>

640

</xsl:choose>

641

</xsl:template>

642

643

<!-- Prints one line of python code with proper indent and calls itself

644

recursively for the rest of the text.

645

This template uses "a", "b", "c" and "d" to refer to four key column

646

numbers. They are:

647

- a: the indentation common to all lines in a code snippet. This is

648

stripped out to allow for cleaner code in the xml.

649

- b: the indentation of the most out-dented line of code. This is

650

different from "a" when code is labelled with "Yes:" or "No:"

651

- c: the indentation of the current python block, in other words, the

652

indentation of the first line of this block, which is the

653

indentation of the last line we saw that ended with a colon.

654

- d: the "total" indentation of the line, ignorng possible "Yes:" or

655

"No:" text on the line.

656

657

For example, for the last line of the following code snippet, the

658

positions of a, b, c and d are indicated below:

659

Yes: def Foo():

660

if bar():

661

a += 1

662

baz()

663

a b c d

664

665

The algorithm is:

666

1) Split the text into first line and the rest. Note that the

667

substring-before function is supposed to handle the case where the

668

character is not present in the string but does not so we

669

automatically ignore the last line of the snippet which is always

670

empty (the closing snippet tag). This is consistent with the

671

behavior or print_without_leading_chars.

672

2) If the current is empty (only whitespace), print newline and call

673

itself recursively on the rest of the text with the rest of the

674

parameters unchanged.

675

3) Otherwise, measure "d"

676

4) Measure "c" by taking:

677

- the value of "d" if the previous line ended with a colon or the

678

current line is outdented compare to the previous line

679

- the indent of the previous line otherwise

680

5) Print line[a:c] (Note that we ignore line[0:a])

681

6) Print line[b:c] in an external span (in order to double the block

682

indent in external code).

683

7) Print line[c:<end>] with function names processed to produce both

684

internal and external names.

685

8) If there are more lines, recurse.

686

-->

687

<xsl:template name="print_python_line_recursively">

688

<xsl:param name="text"/>

689

<xsl:param name="a"/>

690

<xsl:param name="b"/>

691

<xsl:param name="previous_indent"/>

692

<xsl:param name="previous_ends_with_colon"/>

693

<xsl:param name="is_first_line"/>

694

<xsl:variable name="line" select="substring-before($text, '
')"/>

695

<xsl:variable name="rest" select="substring-after($text, '
')"/>

696

<xsl:choose>

697

<xsl:when test="substring($line, $b) = '' and not($rest = '')">

698

<xsl:if test="not($is_first_line = '1')">

699

<xsl:text>
</xsl:text>

700

</xsl:if>

701

<xsl:call-template name="print_python_line_recursively">

702

<xsl:with-param name="text" select="$rest"/>

703

<xsl:with-param name="a" select="$a"/>

704

<xsl:with-param name="b" select="$b"/>

705

<xsl:with-param name="previous_indent" select="$previous_indent"/>

706

<xsl:with-param name="previous_ends_with_colon"

707

select="$previous_ends_with_colon"/>

708

<xsl:with-param name="is_first_line" select="0"/>

709

</xsl:call-template>

710

</xsl:when>

711

<xsl:otherwise>

712

<xsl:variable name="indent_after_b">

713

<xsl:call-template name="num_leading_spaces_one_line">

714

<xsl:with-param name="text" select="substring($line, $b + 1)"/>

715

<xsl:with-param name="current_count" select="0"/>

716

</xsl:call-template>

717

</xsl:variable>

718

<xsl:variable name="d" select="$b + $indent_after_b"/>

719

<xsl:variable name="c">

720

<xsl:choose>

721

<xsl:when test="$previous_ends_with_colon = '1' or

722

$previous_indent > $d">

723

<xsl:value-of select="$d"/>

724

</xsl:when>

725

<xsl:otherwise>

726

<xsl:value-of select="$previous_indent"/>

727

</xsl:otherwise>

728

</xsl:choose>

729

</xsl:variable>

730

731

<xsl:value-of select="substring($line, $a + 1, $c - $a)"/>

732

733

<xsl:value-of select="substring($line, $b + 1, $c - $b)"/>

734

</span>

735

<xsl:call-template name="munge_function_names_in_text">

736

<xsl:with-param name="stripped_line"

737

select="substring($line, $c + 1)"/>

738

</xsl:call-template>

739

<xsl:if test="not(substring($rest, $a) = '')">

740

<xsl:text>
</xsl:text>

741

<xsl:call-template name="print_python_line_recursively">

742

<xsl:with-param name="text" select="$rest"/>

743

<xsl:with-param name="a" select="$a"/>

744

<xsl:with-param name="b" select="$b"/>

745

<xsl:with-param name="previous_indent" select="$c"/>

746

<xsl:with-param name="previous_ends_with_colon">

747

<xsl:call-template name="ends_with_colon">

748

<xsl:with-param name="line" select="$line"/>

749

<xsl:with-param name="found_colon" select="0"/>

750

</xsl:call-template>

751

</xsl:with-param>

752

<xsl:with-param name="is_first_line" select="0"/>

753

</xsl:call-template>

754

</xsl:if>

755

</xsl:otherwise>

756

</xsl:choose>

757

</xsl:template>

758

759

<!-- Print python code with internal and external styles.

760

In order to conform with PEP-8 externally, we identify 2-space indents

761

and an external-only 4-space indent.

762

Function names that are marked with $$FunctionName/$$ have an external

763

lower_with_underscore version added. -->

764

<xsl:template name="print_python_code">

765

<xsl:param name="text"/>

766

767

<xsl:variable name="a">

768

<xsl:call-template name="num_leading_spaces">

769

<xsl:with-param name="text" select="."/>

770

<xsl:with-param name="max_so_far" select="1000"/>

771

</xsl:call-template>

772

</xsl:variable>

773

774

<xsl:variable name="b">

775

<xsl:call-template name="code_start_index">

776

<xsl:with-param name="text" select="$text"/>

777

<xsl:with-param name="current_count" select="0"/>

778

</xsl:call-template>

779

</xsl:variable>

780

781

<xsl:call-template name="print_python_line_recursively">

782

<xsl:with-param name="text" select="$text"/>

783

<xsl:with-param name="a" select="$a"/>

784

<xsl:with-param name="b" select="$b"/>

785

<xsl:with-param name="previous_indent" select="$b"/>

786

<xsl:with-param name="previous_ends_with_colon" select="0"/>

787

<xsl:with-param name="is_first_line" select="1"/>

788

</xsl:call-template>

789

</xsl:template>

790

791

<!-- Given a block of text, each line terminated by \n, and a number n,

792

emits the text with the first n characters of each line

793

deleted. If strip==1, then we omit blank lines at the beginning

794

and end of the text (but not the middle!) -->

795

796

<xsl:template name="print_without_leading_chars">

797

<xsl:param name="text"/>

798

<xsl:param name="trim_count"/>

799

<xsl:param name="strip"/>

800

<xsl:param name="is_firstline"/>

801

802

<xsl:variable name="line" select="substring-before($text, '
')"/>

803

<xsl:variable name="rest" select="substring-after($text, '
')"/>

804

<xsl:variable name="stripped_line" select="substring($line, $trim_count+1)"/>

805

<xsl:choose>

806

807

<xsl:when test="($strip = '1') and ($is_firstline = '1') and

808

(string-length($line) <= $trim_count)">

809

</xsl:when>

810

<xsl:when test="($strip = '1') and

811

(string-length($rest) <= $trim_count)">

812

<xsl:value-of select="$stripped_line"/>

813

</xsl:when>

814

<xsl:otherwise>

815

<xsl:value-of select="$stripped_line"/>

816

<xsl:text>
</xsl:text>

817

</xsl:otherwise>

818

</xsl:choose>

819

<xsl:if test="not($rest='')">

820

<xsl:call-template name="print_without_leading_chars">

821

<xsl:with-param name="text" select="$rest"/>

822

<xsl:with-param name="trim_count" select="$trim_count"/>

823

<xsl:with-param name="strip" select="$strip"/>

824

<xsl:with-param name="is_firstline" select="0"/>

825

</xsl:call-template>

826

</xsl:if>

827

</xsl:template>

828

829

<!-- Given a line of code, find function names that are marked with $$ /$$ and

830

print out the line with the internal and external versions of the

831

function names.-->

832

<xsl:template name="munge_function_names_in_text">

833

<xsl:param name="stripped_line"/>

834

<xsl:choose>

835

<xsl:when test="contains($stripped_line, '$$')">

836

<xsl:value-of select="substring-before($stripped_line, '$$')"/>

837

<xsl:call-template name="print_function_name">

838

<xsl:with-param name="text" select="substring-after(substring-before($stripped_line, '/$$'), '$$')"/>

839

</xsl:call-template>

840

<xsl:call-template name="munge_function_names_in_text">

841

<xsl:with-param name="stripped_line" select="substring-after($stripped_line, '/$$')"/>

842

</xsl:call-template>

843

</xsl:when>

844

<xsl:otherwise>

845

<xsl:value-of select="$stripped_line"/>

846

</xsl:otherwise>

847

</xsl:choose>

848

</xsl:template>

849

850

<!-- Given a function name, print out both the internal and external version

851

of the function name in their respective spans.-->

852

<xsl:template name="print_function_name">

853

<xsl:param name="text"/>

854

<xsl:call-template name="convert_camel_case_to_lowercase_with_under">

855

<xsl:with-param name="text" select="$text"/>

856

</xsl:call-template>

857

</xsl:template>

858

859

<!-- Given a single word of text convert it from CamelCase to

860

lower_with_under.

861

This means replacing each uppercase character with _ followed by the

862

lowercase version except for the first character which is replaced

863

without adding the _.-->

864

<xsl:template name="convert_camel_case_to_lowercase_with_under">

865

<xsl:param name="text"/>

866

<xsl:param name="is_recursive_call"/>

867

<xsl:variable name="first_char" select="substring($text, 1, 1)"/>

868

<xsl:variable name="rest" select="substring($text, 2)"/>

869

<xsl:choose>

870

<xsl:when test="contains('ABCDEFGHIJKLMNOPQRSTUVWXYZ', $first_char)">

871

<xsl:if test="$is_recursive_call='1'">

872

<xsl:text>_</xsl:text>

873

</xsl:if>

874

<xsl:value-of select="translate($first_char, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/>

875

</xsl:when>

876

<xsl:otherwise>

877

<xsl:value-of select="$first_char" />

878

</xsl:otherwise>

879

</xsl:choose>

880

<xsl:if test="not($rest='')">

881

<xsl:call-template name="convert_camel_case_to_lowercase_with_under">

882

<xsl:with-param name="text" select="$rest"/>

883

<xsl:with-param name="is_recursive_call" select="1"/>

884

</xsl:call-template>

885

</xsl:if>

886

</xsl:template>

887

</xsl:stylesheet>

888

Older »