[svn:mod_parrot] r466 - mod_parrot/trunk/lib/ModParrot/HLL

Author: jhorwitz
Date: Sat Oct 18 09:41:50 2008
New Revision: 466

Modified:
   mod_parrot/trunk/lib/ModParrot/HLL/pir.pir

Log:
convert remaining directives to new model


Modified: mod_parrot/trunk/lib/ModParrot/HLL/pir.pir
==============================================================================
--- mod_parrot/trunk/lib/ModParrot/HLL/pir.pir	(original)
+++ mod_parrot/trunk/lib/ModParrot/HLL/pir.pir	Sat Oct 18 09:41:50 2008
@@ -60,7 +60,7 @@
     $P0 = new_cmd('ParrotCleanupHandler', 'TAKE1', 'cmd_parrotcleanuphandler', 'OR_AUTHCFG', 'usage: ParrotCleanupHandler handler-name')
     cmds.push($P0)
 
-    # XXX shouldn't have to hardcode the size of this array
+    # we want *all* the hooks
     hooks = new 'ResizablePMCArray'
     $I0 = 0
   loop_start:
@@ -95,7 +95,7 @@
     $P0 = get_hll_global [ 'ModParrot'; 'HLL'; 'PIR' ], func 
     cmd['func'] = $P0
     $P0 = new 'Integer'
-    $P0 = ap_const['OR_AUTHCFG']
+    $P0 = ap_const[override]
     cmd['req_override'] = $P0
     $P0 = new 'String'
     $P0 = errmsg
@@ -124,12 +124,91 @@
 #.sub dir_merge
 #.end
 
-.sub cmd_parrothandler
+.sub cmd_parrotopenlogshandler
+    .param pmc mconfig
+    .param pmc args
+    .local pmc cfg, get_config
+
+    get_config = get_hll_global ['ModParrot'; 'Apache'; 'Module'], 'get_config'
+    cfg = get_config('modparrot_pir_module')
+    $S0 = args[0]
+    cfg['open_logs_handler'] = $S0
+.end
+
+.sub cmd_parrotpostconfighandler
+    .param pmc mconfig
+    .param pmc args
+    .local pmc cfg, get_config
+
+    get_config = get_hll_global ['ModParrot'; 'Apache'; 'Module'], 'get_config'
+    cfg = get_config('modparrot_pir_module')
+    $S0 = args[0]
+    cfg['post_config_handler'] = $S0
+.end
+
+.sub cmd_parrotchildinithandler
+    .param pmc mconfig
+    .param pmc args
+    .local pmc cfg, get_config
+
+    get_config = get_hll_global ['ModParrot'; 'Apache'; 'Module'], 'get_config'
+    cfg = get_config('modparrot_pir_module')
+    $S0 = args[0]
+    cfg['child_init_handler'] = $S0
+.end
+
+.sub cmd_parrotpreconnectionhandler
+    .param pmc mconfig
+    .param pmc args
+    .local pmc cfg, get_config
+
+    get_config = get_hll_global ['ModParrot'; 'Apache'; 'Module'], 'get_config'
+    cfg = get_config('modparrot_pir_module')
+    $S0 = args[0]
+    cfg['pre_connection_handler'] = $S0
+.end
+
+.sub cmd_parrotprocessconnectionhandler
+    .param pmc mconfig
+    .param pmc args
+    .local pmc cfg, get_config
+
+    get_config = get_hll_global ['ModParrot'; 'Apache'; 'Module'], 'get_config'
+    cfg = get_config('modparrot_pir_module')
+    $S0 = args[0]
+    cfg['process_connection_handler'] = $S0
+.end
+
+.sub cmd_parrotmaptostoragehandler
     .param pmc dircfg
     .param pmc args
 
     $S0 = args[0]
-    dircfg['response_handler'] = $S0
+    dircfg['map_to_storage_handler'] = $S0
+.end
+
+.sub cmd_parrottranshandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['trans_handler'] = $S0
+.end
+
+.sub cmd_parrotpostreadrequesthandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['post_read_request_handler'] = $S0
+.end
+
+.sub cmd_parrotheaderparserhandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['header_parser_handler'] = $S0
 .end
 
 .sub cmd_parrotauthenhandler
@@ -156,6 +235,46 @@
     dircfg['access_handler'] = $S0
 .end
 
+.sub cmd_parrothandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['response_handler'] = $S0
+.end
+
+.sub cmd_parrottypehandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['type_handler'] = $S0
+.end
+
+.sub cmd_parrotfixuphandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['fixup_handler'] = $S0
+.end
+
+.sub cmd_parrotloghandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['log_handler'] = $S0
+.end
+
+.sub cmd_parrotcleanuphandler
+    .param pmc dircfg
+    .param pmc args
+
+    $S0 = args[0]
+    dircfg['cleanup_handler'] = $S0
+.end
+
 .sub load
     .param string path
     load_bytecode path