Changeset 8213

Timestamp:

03/21/08 00:46:14 (5 years ago)

Author:

hio

Message:

lang/perl/tiarra: add, =begin tiarra-doc ... =end tiarra-doc style document.

Files:

• lang/perl/tiarra/trunk/makedoc (modified) (3 diffs)

lang/perl/tiarra/trunk/makedoc

@@ -292 +292 @@
     my $groups = DocParser->new('doc-src/module-group.tdoc');
 
-    foreach my $groupname (sort {$a cmp $b} keys %$classified) {
+    foreach my $groupname_key (sort {$a cmp $b} keys %$classified) {
+        my $groupname = $groupname_key ne '' ? $groupname_key : 'UNCLASSIFIED';
         my $description = do {
             # このグループに対して、説明が定義されているか？
@@ -310 +311 @@
         my $unijp = Tiarra::Encoding->new;
 
-        my $group_path =
-            join('',
-                 'module/',
-                 $groupname eq '' ? 'UNCLASSIFIED' : $groupname,
-                 '.html');
+        my $group_path = "module/$groupname.html";
 
         $t->toc_group->expand(
@@ -323 +320 @@
 
         # 各モジュール名とその説明を展開〜
-        foreach my $moddoc (@{$classified->{$groupname}}) {
+        foreach my $moddoc (@{$classified->{$groupname_key}}) {
             print $moddoc->pkg_name." belongs to the group `".$groupname."'\n";
             $t->toc_group->toc_individual->add(