Changeset 2562 in project


Ignore:
Timestamp:
12/04/06 21:15:47 (15 years ago)
Author:
azul
Message:

Implement svn-client-log2.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • svn-client/trunk/svn-client.scm

    r2531 r2562  
    492492))
    493493
     494(define svn-client-log2
     495  (foreign-safe-lambda* bool ((c-string path) (svn-opt-revision-type start) (svn-opt-revision-type end) (int limit) (bool discover_changed_paths) (bool strict_node_history) (c-string user) (c-string pass) (scheme-object func))
     496#<<EOF
     497  apr_array_header_t *targets;
     498  apr_pool_t *pool;
     499  svn_error_t *err;
     500  void *funcroot = CHICKEN_new_gc_root();
     501
     502  CHICKEN_gc_root_set(funcroot, func);
     503
     504  pool = svn_pool_create(NULL);
     505
     506  targets = apr_array_make(pool, 1, sizeof(char *));
     507
     508  *(char **)apr_array_push(targets) = path;
     509
     510  svnwiki_user = user;
     511  svnwiki_pass = pass;
     512
     513  err = svn_client_log2(targets, start, end, limit, discover_changed_paths, strict_node_history, svn_history_add, (void *) funcroot, svn_ctx, pool);
     514
     515  apr_pool_destroy(pool);
     516  CHICKEN_delete_gc_root(funcroot);
     517
     518  if (err)
     519    {
     520      svn_handle_error(err, stderr, FALSE);
     521      return(C_SCHEME_FALSE);
     522    }
     523
     524  return(C_SCHEME_TRUE);
     525EOF
     526))
     527
    494528; Currently returns a list with an entry for each commit between start and end.
    495529; Each entry is itself a list with the commit message, the number of the
Note: See TracChangeset for help on using the changeset viewer.