modified: mydef.def

modified: mydef_page.def
hzhou · Feb 25, 2018 · 141e3cc · 141e3cc
1 parent 2b12941
commit 141e3cc
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 30 deletions.
diff --git a/mydef.def b/mydef.def
@@ -5,10 +5,6 @@ page: MyDef
     output_dir: lib
     package: MyDef
 
-    subcode: main
-        $call mydef_main
-
-subcode: mydef_main
     $global $def, $page, $var={}
     $use MyDef::utils
     $use MyDef::parseutil

diff --git a/mydef_page.def b/mydef_page.def
@@ -1,36 +1,36 @@
 page: mydef_page
     output_dir: script
     type:
-    subcode: main
-        #Usage: perl createpages.pl def_file
-        use MyDef;
-        my $def_file
-        my %config;
-        my $default_module=$MyDef::var->{module}
-        $call parse_arg
 
-        $if $def_file eq "-pipe"
-            #-- reads from STDIN
-            #-- dump to STDOUT
-            MyDef::pipe_page($config{module})
-        $else
-            $config{def_file}=$def_file
+    #Usage: perl createpages.pl def_file
+    use MyDef;
+    my $def_file
+    my %config;
+    my $default_module=$MyDef::var->{module}
+    $call parse_arg
+
+    $if $def_file eq "-pipe"
+        #-- reads from STDIN
+        #-- dump to STDOUT
+        MyDef::pipe_page($config{module})
+    $else
+        $config{def_file}=$def_file
 
-            MyDef::init(%config);
-            my $module=$MyDef::var->{module}
+        MyDef::init(%config);
+        my $module=$MyDef::var->{module}
 
-            $if $config{"debug-import"}
-                $MyDef::parseutil::debug={import=>1}
-            MyDef::import_data($def_file)
+        $if $config{"debug-import"}
+            $MyDef::parseutil::debug={import=>1}
+        MyDef::import_data($def_file)
 
-            $if $config{find}
-                $call find_subcode
-            $elif $config{dump}
-                $call dump_source
-            $elif $config{"debug-import"}
-                # done
-            $else
-                $call compile_pages
+        $if $config{find}
+            $call find_subcode
+        $elif $config{dump}
+            $call dump_source
+        $elif $config{"debug-import"}
+            # done
+        $else
+            $call compile_pages
 
     # ---------------------------------------- 
     subcode: parse_arg