Lines Matching refs:self
50 my $self = $aType->SUPER::new;
52 $self->{_doOutputInsertionPointToken} = 1;
54 $self->_resetBatchVariables;
56 $self->{hti__Mode} = MODE_DO_NOTHING;
60 return $self;
69 my ($self) = @_;
71 if (defined($self->{_outputFileHandle})) {
74 select($self->{_oldFileHandle});
76 undef $self->{_outputFileHandle};
86 my ($self) = @_;
91 if (defined($self->{options}{'output'})) {
96 $self->{_output} = $self->{options}{'output'};
98 ${$self->{_output}} = "";
102 if (defined($self->{options}{'outputFile'})) {
107 $self->{_outputFileHandle} =
108 new FileHandle ">" . $self->{options}{'outputFile'};
111 $self->{_oldFileHandle} = select;
113 select($self->{_outputFileHandle});
117 $self->{_doOutputToFile} = $doOutputToFile;
126 my ($self) = @_;
128 $self->{_isTocInsertionPointPassed} = 0;
130 $self->_writeBufferedOutput();
132 if ($self->{hti__Mode} == MODE_DO_PROPAGATE) {
135 $self->_deinitializeGeneratorBatch();
140 $self->_deinitializeBatch();
143 $self->_deinitializeOutput();
145 $self->{hti__Mode} = MODE_DO_NOTHING;
147 $self->_resetBatchVariables();
158 my ($self, $aTocs, $aOptions) = @_;
160 $self->setOptions($aOptions);
162 if (!defined($self->{options}{'doGenerateToc'})) {
165 $self->{options}{'doGenerateToc'} = 1;
168 if ($self->{options}{'doGenerateToc'}) {
171 $self->{hti__Mode} = MODE_DO_PROPAGATE;
174 $self->_initializeGeneratorBatch($aTocs);
179 $self->{hti__Mode} = MODE_DO_INSERT;
181 $self->_initializeBatch($aTocs);
184 $self->_initializeOutput();
186 $self->_parseTocInsertionPoints();
197 my ($self, $aString) = @_;
199 if ($self->{options}{'doGenerateToc'}) {
202 $self->_generate($aString);
207 $self->parse($aString);
209 $self->eof();
224 my ($self, $aFile) = @_;
232 if ($self->{options}{'doGenerateToc'}) {
235 $self->_generateFromFile($file);
240 $self->parse_file($file);
251 my ($self) = @_;
256 $self->{_tokensTip}
259 foreach $toc (@{$self->{_tocs}}) {
300 my ($self, $aTokenType, $aTokenId, $aTokenAttributes, $aOrigText) = @_;
306 $tipTokens = $self->{_tokensTip}[$aTokenType];
326 $self->_processTocInsertionPoint($tipToken);
342 $self->_processTocInsertionPoints($aOrigText);
358 my ($self, $aScenario, $aToc) = @_;
371 my ($self, $aTipToken) = @_;
384 $self->{_isTocInsertionPointPassed} = 1;
386 $self->toc($self->{_scenarioAfterToken}, $tipToc);
387 #push(@{$self->{_scenarioAfterToken}}, $tipTokenToc);
389 $self->{_doOutputInsertionPointToken} = 0;
396 $self->{_isTocInsertionPointPassed} = 1;
398 $self->toc($self->{_scenarioBeforeToken}, $tipToc);
399 #push(@{$self->{_scenarioBeforeToken}}, $tipTokenToc);
406 $self->{_isTocInsertionPointPassed} = 1;
408 $self->toc($self->{_scenarioAfterToken}, $tipToc);
409 #push(@{$self->{_scenarioAfterToken}}, $tipTokenToc);
423 my ($self, $aTokenText) = @_;
427 push(@{$self->{_scenario}}, @{$self->{_scenarioBeforeToken}});
429 if ($outputPrefix = $self->{_outputPrefix}) {
430 push(@{$self->{_scenario}}, \$outputPrefix);
431 $self->{_outputPrefix} = "";
435 if ($self->{_doOutputInsertionPointToken}) {
437 push(@{$self->{_scenario}}, \$aTokenText);
440 if ($outputSuffix = $self->{_outputSuffix}) {
441 push(@{$self->{_scenario}}, \$outputSuffix);
442 $self->{_outputSuffix} = "";
445 push(@{$self->{_scenario}}, @{$self->{_scenarioAfterToken}});
448 push(@{$self->{_scenario}}, \$output);
450 #$self->_writeOrBufferOutput("");
452 $self->{_scenarioBeforeToken} = [];
453 $self->{_scenarioAfterToken} = [];
455 $self->{_doOutputInsertionPointToken} = 1;
464 my ($self) = @_;
466 $self->SUPER::_resetBatchVariables();
470 $self->{_scenario} = [];
472 $self->{_scenarioBeforeToken} = [];
474 $self->{_scenarioAfterToken} = [];
478 $self->{_tokensTip} = [
486 $self->{_isTocInsertionPointPassed} = 0;
488 $self->{outputBuffer} = "";
490 $self->{_outputSuffix} = "";
492 $self->{_outputPrefix} = "";
501 my ($self) = @_;
505 if ($self->{options}{'parseToc'}) {
508 #$self->parse($self->{toc});
510 #$self->_writeOrBufferOutput($self->{outputBuffer});
515 foreach $scene (@{$self->{_scenario}}) {
520 $self->_writeOutput($$scene);
525 $self->_writeOutput($scene->format());
542 my ($self, $aOutput) = @_;
545 $aOutput = $self->{_outputPrefix} . $aOutput . $self->{_outputSuffix};
547 $self->{_outputPrefix} = "";
548 $self->{_outputSuffix} = "";
551 if ($self->{_isTocInsertionPointPassed}) {
554 my $index = scalar(@{$self->{_scenario}}) - 1;
555 ${$self->{_scenario}[$index]} .= $aOutput;
560 $self->_writeOutput($aOutput);
571 my ($self, $aOutput) = @_;
573 ${$self->{_output}} .= $aOutput if (defined($self->{_output}));
575 print $aOutput if ($self->{_doOutputToFile})
585 my ($self, $aAnchorId) = @_;
587 $self->{_doAddAnchorIdToStartTag} = 1;
588 $self->{_anchorId} = $aAnchorId;
599 my ($self, $aAnchorNameBegin, $aToc) = @_;
601 if (defined($self->{_activeAnchorName})) {
605 $self->_showWarning(
607 [$aAnchorNameBegin, $self->{_activeAnchorName}]
611 $self->{_outputPrefix} = $aAnchorNameBegin;
613 $self->{_activeAnchorName} = $aAnchorNameBegin;
615 $self->{_doOutputAnchorNameEnd} = 1;
626 my ($self, $aAnchorNameEnd) = @_;
628 $self->{_outputSuffix} .= $aAnchorNameEnd;
630 $self->{_activeAnchorName} = undef;
640 my ($self, $aComment) = @_;
644 $self->SUPER::comment($aComment);
648 if ($self->{hti__Mode} & MODE_DO_INSERT) {
651 if (! $self->_processTokenAsInsertionPoint(
656 $self->_writeOrBufferOutput($origText);
668 my ($self, $aDeclaration) = @_;
670 $self->SUPER::declaration($aDeclaration);
672 if ($self->{hti__Mode} & MODE_DO_INSERT) {
675 if (! $self->_processTokenAsInsertionPoint(
681 $self->_writeOrBufferOutput("<!$aDeclaration>");
694 my ($self, $aTag, $aOrigText) = @_;
696 $self->SUPER::end($aTag, $aOrigText);
698 if ($self->{hti__Mode} & MODE_DO_INSERT) {
701 if (! $self->_processTokenAsInsertionPoint(
706 $self->_writeOrBufferOutput($aOrigText);
720 my ($self, $aToc, $aString, $aOptions) = @_;
722 $self->_initializeInsertorBatch($aToc, $aOptions);
724 $self->_insert($aString);
726 $self->_deinitializeInsertorBatch();
739 my ($self, $aToc, $aFile, $aOptions) = @_;
741 $self->_initializeInsertorBatch($aToc, $aOptions);
743 $self->_insertIntoFile($aFile);
745 $self->_deinitializeInsertorBatch();
755 my ($self, $aNumber) = @_;
757 $self->{_outputSuffix} .= $aNumber;
770 my ($self, $aToc, $aFile, $aOptions) = @_;
774 $self->_initializeInsertorBatch($aToc, $aOptions);
780 $self->_generateFromFile($file);
783 $self->_deinitializeInsertorBatch();
798 my ($self, $aTag, $aAttr, $aAttrSeq, $aOrigText) = @_;
802 $self->SUPER::start($aTag, $aAttr, $aAttrSeq, $aOrigText);
804 if ($self->{hti__Mode} & MODE_DO_INSERT) {
807 if (! $self->_processTokenAsInsertionPoint(
812 if ($self->{_doAddAnchorIdToStartTag}) {
815 $self->{_doAddAnchorIdToStartTag} = 0;
817 $anchorId = $self->{_anchorId};
835 $self->_writeOrBufferOutput($aOrigText);
847 my ($self, $aText) = @_;
849 $self->SUPER::text($aText);
851 if ($self->{hti__Mode} & MODE_DO_INSERT) {
854 if (! $self->_processTokenAsInsertionPoint(
859 $self->_writeOrBufferOutput($aText);
892 my $self = $aType->SUPER::new;
894 $self->{tokens} = $aTokenArray;
896 $self->{_lastAddedToken} = undef;
897 $self->{_lastAddedTokenType} = undef;
899 return $self;
909 my ($self, $aAttributes) = @_;
914 $self->_parseAttributes(
921 @${$self->{_lastAddedToken}}[
929 @${$self->{_lastAddedToken}}[
943 my ($self, $aTokenType, $aTag) = @_;
947 $index = push(@{$self->{tokens}[$aTokenType]}, []) - 1;
949 $tokenArray = $self->{tokens}[$aTokenType];
951 $self->{_lastAddedTokenType} = $aTokenType;
952 $self->{_lastAddedToken} = \$$tokenArray[$index];
954 $$tokenArray[$index][HTML::TocInsertor::TIP_TOC] = $self->{_toc};
957 $self->{_preposition};
967 my ($self, $aComment) = @_;
969 $self->_processToken(HTML::TocGenerator::TT_TOKENTYPE_COMMENT, $aComment);
980 my ($self, $aDeclaration) = @_;
982 $self->_processToken(
995 my ($self, $aTag, $aOrigText) = @_;
997 $self->_processToken(HTML::TocGenerator::TT_TOKENTYPE_END, $aTag);
1006 my ($self, $aPreposition) = @_;
1008 $self->{_preposition} = $aPreposition;
1017 my ($self, $aToc) = @_;
1019 $self->{_toc} = $aToc;
1034 my ($self, $aTag, $aAttr, $aAttrSeq, $aOrigText) = @_;
1036 $self->_processToken(HTML::TocGenerator::TT_TOKENTYPE_START, $aTag);
1038 $self->_processAttributes($aAttr);
1048 my ($self, $aText) = @_;
1051 defined($self->{_lastAddedToken}) &&
1052 $self->{_lastAddedTokenType} == HTML::TocGenerator::TT_TOKENTYPE_TEXT
1056 @${$self->{_lastAddedToken}}[HTML::TocGenerator::TT_TAG_BEGIN] .= $aText;
1061 $self->_processToken(HTML::TocGenerator::TT_TOKENTYPE_TEXT, $aText);