[GNUnet-SVN] r3263 - GNUnet/contrib

[grothoff]

Author: grothoff
Date: 2006-08-19 20:51:03 -0700 (Sat, 19 Aug 2006)
New Revision: 3263

Modified:
   GNUnet/contrib/config-daemon.scm
Log:
first round of conversion

Modified: GNUnet/contrib/config-daemon.scm
===================================================================
--- GNUnet/contrib/config-daemon.scm    2006-08-20 03:14:53 UTC (rev 3262)
+++ GNUnet/contrib/config-daemon.scm    2006-08-20 03:51:03 UTC (rev 3263)
@@ -24,10 +24,121 @@
 ;; configuration options are changed; the script can then
 ;; change the visibility of other options.
 ;;
+;;
+;; TODO:
+;; - support for changes to one option forcing
+;;   changes to other, seemingly unrelated options
+;;   (should only require another callback into C)
+;; - actually convert *.in to *.scm
+;; - test!
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; for GNU gettext
+(define (_ msg) (gettext msg "GNUnet"))
+
+;; common string
+(define (nohelp) 
+  (_ "No help available.") )
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; menu definitions
+
+
+;; meta-menu
+
+(define (meta-exp builder) 
+ (builder
+   (_ "Meta")
+   (_ "EXPERIMENTAL")
+   (_ "Prompt for development and/or incomplete code")
+   (_
+"If EXPERIMENTAL is set to NO, options for experimental code are not
+shown.  If in doubt, use NO.
+
+Some options apply to experimental code that maybe in a state of
+development where the functionality, stability, or the level of
+testing is not yet high enough for general use.  These features are
+said to be of \"alpha\" quality.  If a feature is currently in alpha,
+uninformed use is discouraged (since the developers then do not fancy
+\"Why doesn\'t this work?\" type messages).
+
+However, active testing and qualified feedback of these features is
+always welcome.  Users should just be aware that alpha features may
+not meet the normal level of reliability or it may fail to work in
+some special cases.  Bug reports are usually welcomed by the
+developers, but please read the documents <file://README> and
+<http://gnunet.org/faq.php3> and use <https://gnunet.org/mantis/> for
+how to report problems.\" )
+   ()
+   #t
+   #f
+   #f
+   'always) )
+
+
+(define (meta-adv builder) 
+ (builder
+   (_ "Meta")
+   (_ "EXPERIMENTAL")
+   (_ "Prompt for development and/or incomplete code")
+   (_
+"These are options that maybe difficult to understand for the beginner.
+These options typically refer to features that allow tweaking of the
+installation.  If in a hurry, say NO." )
+   ()
+   #t
+   #t
+   #f
+   'always) )
+
+
+
+(define (meta builder)
+ (builder
+   (_ "Meta") 
+   "" 
+   (_ "Meta-configuration") 
+   (_ "Which level of configuration should be available")
+   (nohelp)
+   (list (meta-exp builder) (meta-adv builder) )
+   #t
+   #f
+   #f
+   'always) )
+
+
+;; main-menu
+
+(define (main builder)
+ (builder 
+  (_ "Root")
+  ""
+  (_ "Root node")
+  (nohelp)
+  (list (meta builder) )
+  #t 
+  #f 
+  #f 
+  'always) )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; first main method: build tree using build-tree-node
+;; The lambda expression is used to throw away the last argument,
+;; which we use internally and which is not used by build-tree-node!
+(define (setup) 
+ (main 
+  (lambda (a b c d e f g h i) build-tree-node a b c d e f g h)))
+
+
+
+;; "change" is not yet implemented.  However, the idea is to again use
+;; the tree builder but this time scan use the "i" tags to determine
+;; how the visibility needs to change
+
 (define (change ctx root changed)
- ( 0 ) )
+ (0))
 
-(define (setup)
- (build-tree-node "" "" "" "" () #t #f #f) )
-