moved shit to trunk

1 files changed, 64 insertions, 0 deletions

diff --git a/root/base/component b/root/base/component
new file mode 100644
index 0000000..4f455ce
--- /dev/null
+++ b/root/base/component
@@ -0,0 +1,64 @@
+[%-
+
+GLOBAL_DEBUG = ctx.debug;
+
+MACRO loc(text, args) BLOCK;
+
+  ctx.localize(text, args);
+
+END;
+
+MACRO include(name, args) BLOCK;
+
+  filename = ${name};
+
+  IF filename;
+    IF GLOBAL_DEBUG;
+      '<!-- Start block '; name | html; ' calling '; filename | html; " -->\n";
+    END;
+    INCLUDE $filename args;
+    IF GLOBAL_DEBUG;
+      '<!-- End block '; name | html; " -->\n";
+    END;
+  ELSE;
+    error = 'Chosen INCLUDE ' _ name _ ' is empty';
+    THROW file error;
+  END;
+
+END;
+
+MACRO connect_form(vp, event) BLOCK;
+
+  '';
+
+END;
+
+MACRO connect_control(vp, event, value) BLOCK;
+
+  'name="'; vp.event_id_for(event); '"';
+
+END;
+
+MACRO connect_href(vp, events) BLOCK;
+
+  FOREACH event = events.keys;
+    evt_args.${vp.event_id_for(event)} = events.$event;
+  END;
+  'href="'; ctx.req.uri_with(evt_args); '"';
+
+END;
+
+UNLESS type;
+  errmsg = "type is empty rendering " _ self;
+  THROW file errmsg;
+END;
+
+PROCESS $type;
+
+IF GLOBAL_DEBUG; '<!-- Rendering component '; type | html; " -->\n"; END;
+
+include( 'main_block' );
+
+IF GLOBAL_DEBUG; '<!-- End component '; type | html; " -->\n"; END;
+
+-%]