Index: openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 13 Mar 2007 10:27:31 -0000 1.1
@@ -0,0 +1,232 @@
+ad_library {
+ XoWiki - adp generator procs: remove redundancy in adp files by generating it
+
+ @creation-date 2007-03-13
+ @author Gustaf Neumann
+ @cvs-id $Id: adp-generator-procs.tcl,v 1.1 2007/03/13 10:27:31 gustafn Exp $
+}
+
+
+namespace eval ::xowiki {
+
+ Class ADP_Generator -parameter {
+ {master 1}
+ {wikicmds 1}
+ {footer 1}
+ {recreate 0}
+ {extra_header_stuff ""}
+ }
+
+ ADP_Generator instproc ajax_tag_definition {} {
+ # if we have no footer, we have no tag form
+ if {![my footer]} {return ""}
+
+ return {}
+ }
+
+ ADP_Generator instproc master_part {} {
+ return [subst -novariables -nobackslashes \
+{ #general-comments.Comments#
+
+
+
+
+@gc_comments;noquote@
@gc_link;noquote@
+#general-comments.Comments#
#general-comments.Comments# +
@gc_link;noquote@
+