Home modules.gotpike.org
Username: Password: [Create Account]
[Forgot Password?]

Modules

ADT
Database
GTK2
GUI
IP
PiJAX
Public
Sql
Stdio
Subversion
System
Tools
Xosd
lua
v4l2
wx

Recent Changes

Public.ZeroMQ 1.1
Public.Template.Mustache 1.0
Public.Protocols.XMPP 1.4
Sql.Provider.jdbc 1.0
Public.Storage.Manta 1.0

Popular Downloads

Public.Parser.JSON2 1.0
Public.Parser.JSON 0.2
GTK2 2.23
Public.Web.FCGI 1.8
Public.Parser.XML2 1.48


Module Information
Subversion
Viewing contents of Subversion-0.112/config.c

/* ================================================================
 * Copyright (c) 2000-2004 CollabNet.  All rights reserved.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 * 
 * 1. Redistributions of source code must retain the above copyright
 * notice, this list of conditions and the following disclaimer.
 * 
 * 2. Redistributions in binary form must reproduce the above copyright
 * notice, this list of conditions and the following disclaimer in the
 * documentation and/or other materials provided with the distribution.
 * 
 * 3. The end-user documentation included with the redistribution, if
 * any, must include the following acknowledgment: "This product includes
 * software developed by CollabNet (http://www.Collab.Net/)."
 * Alternately, this acknowledgment may appear in the software itself, if
 * and wherever such third-party acknowledgments normally appear.
 * 
 * 4. The hosted project names must not be used to endorse or promote
 * products derived from this software without prior written
 * permission. For written permission, please contact info@collab.net.
 * 
 * 5. Products derived from this software may not use the "Tigris" name
 * nor may "Tigris" appear in their names without prior written
 * permission of CollabNet.
 * 
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL COLLABNET OR ITS CONTRIBUTORS BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
 * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
 * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * ====================================================================
 * 
 * This software consists of voluntary contributions made by many
 * individuals on behalf of CollabNet.
 */


#include "svnmod.h"

#include 
#include 


/*! @module Subversion */

/*! @class Config
 *!
 *!  Opaque structure describing a set of configuration options.
 */

/* Internal object structure */
struct config_obj {
  svn_config_t *config;
  apr_pool_t *pool;
};
#define THIS ((struct config_obj *)(Pike_fp->current_storage))
static struct program *config_program;

static void init_config_obj (struct object *o)
{
  struct config_obj *co = THIS;

  co->config = NULL;
  co->pool = NULL;
}

static void exit_config_obj (struct object *o)
{
  struct config_obj *co = THIS;

  co->config = NULL;
  if (co->pool) {
    apr_pool_destroy (co->pool);
    co->pool = NULL;
  }
}

/*! @decl void create( string file, int|void must_exist )
 *!
 *!   Read configuration data from @[file] (a file or registry path).
 *!
 *! @param must_exist
 *!   If non-zero, throw an error if the file does not exist.
 *!   Otherwise, an empty @[Config] will be created.
 */
static void f_create (INT32 args)
{
  struct config_obj *co = THIS;
  struct pike_string *file;
  svn_boolean_t must_exist;
  svn_error_t *err;

  get_all_args ("create", args, "%W", &file);
  must_exist = svn_pike_check_force_arg ("create", args, 1);

  file = svn_pike_to_utf8 (file);

  co->pool = svn_pool_create (NULL);

  THREADS_ALLOW ();

  err = svn_config_read (&co->config,
			 svn_path_canonicalize (APR_STR0 (file), co->pool),
			 must_exist, co->pool);
  THREADS_DISALLOW ();

  if (err)
    svn_pike_set_error (err);

  do_free_string (file);

  if (err)
    pike_throw ();
  else
    pop_n_elems (args);
}

/* Stub for the enumerator callback */
static svn_boolean_t enumerator_callback_stub(const char *name,
					      const char *value, void *baton)
{
  JMP_BUF recovery;
  svn_boolean_t ret;

  do {
    struct thread_state *_tmp=thread_state_for_id (th_self ());
    HIDE_GLOBAL_VARIABLES ();
    THREADS_DISALLOW ();

    if (SETJMP (recovery)) {
      call_handle_error ();
      ret = FALSE;
    } else {
      svn_pike_push_utf8 (name);
      svn_pike_push_utf8 (value);
      apply_svalue ((struct svalue *)baton, 2);
      ret = !UNSAFE_IS_ZERO(Pike_sp-1);
      pop_stack ();
    }
    UNSETJMP (recovery);

    THREADS_ALLOW ();
  } while (0);

  return ret;
}


/*! @decl int enumerate( string section,				@
 *!			 function(string,string:int(0..1)) callback )
 *!
 *!  Enumerate the options in @[section], passing the current option's
 *!  name and value to @[callback].  Continue the enumeration if
 *!  @[callback] returns 1.  Return the number of times @[callback]
 *!  was called.
 */
static void f_enumerate (INT32 args)
{
  struct config_obj *co = THIS;
  struct pike_string *section;
  struct svalue *callback;
  int n;

  get_all_args ("enumerate", args, "%W%*", §ion, &callback);


  section = svn_pike_to_utf8 (section);

  THREADS_ALLOW ();

  n = svn_config_enumerate (co->config, APR_STR0 (section),
			    enumerator_callback_stub, callback);

  THREADS_DISALLOW ();

  do_free_string (section);

  pop_n_elems (args);
  push_int (n);
}


apr_hash_t *svn_pike_mapping_to_config_hash (struct mapping *m,
					     apr_pool_t *pool)
{
  apr_hash_t *ret = apr_hash_make (pool);
  INT32 e;
  struct keypair *k;

  if (m == NULL || !m_sizeof(m))
    return ret;

  MAPPING_LOOP (m) {
    struct config_obj *co;
    struct pike_string *key;

    if (k->ind.type != PIKE_T_STRING || k->val.type != PIKE_T_OBJECT)
      Pike_error ("Expected mapping from string to object.\n");

    if (!(co = (struct config_obj *)get_storage (k->val.u.object,
						 config_program)))
      Pike_error ("Expected object to be a Subversion.Config.\n");

    key = svn_pike_to_utf8 (k->ind.u.string);

    apr_hash_set (ret, apr_pstrdup (pool, APR_STR0 (key)), APR_HASH_KEY_STRING,
		  co->config);

    do_free_string (key);
  }

  return ret;
}


/* Initialize Config class */

void svn_pike_init_config (void)
{
  start_new_program ();
  ADD_STORAGE (struct config_obj);
  set_init_callback(init_config_obj);
  set_exit_callback(exit_config_obj);

  ADD_FUNCTION ("create", f_create, tFunc (tStr tOr (tInt, tVoid), tVoid),
		ID_STATIC);
  ADD_FUNCTION ("enumerate", f_enumerate,
		tFunc (tStr tFunc (tStr tStr, tInt01), tInt), 0);

  config_program = end_program ();
  add_program_constant ("Config", config_program, 0);
}

/*! @endclass  */
/*! @endmodule */


gotpike.org | Copyright © 2004 - 2019 | Pike is a trademark of Department of Computer and Information Science, Linköping University