Changeset 12509 in project


Ignore:
Timestamp:
11/15/08 14:48:44 (11 years ago)
Author:
azul
Message:

Adding implementation for svn-propset.

File:
1 edited

Legend:

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

    r3518 r12509  
    451451  (cons (list key value) (gc-root-ref result)))
    452452
     453(define svn-propset
     454  (foreign-safe-lambda* scheme-object ((c-string propname)
     455                                       (c-string propval)
     456                                       (c-string target)
     457                                       (bool recurse)
     458                                       (bool skip_checks))
     459#<<EOF
     460  svn_error_t *err;
     461  apr_pool_t *pool;
     462
     463  pool = svn_pool_create(NULL);
     464  err = svn_client_propset2(propname, svn_string_create(propval, pool), target, recurse, skip_checks, svn_ctx, pool);
     465  apr_pool_destroy(pool);
     466  if (err)
     467    {
     468      svn_handle_error(err, stderr, FALSE);
     469      svn_error_clear(err);
     470      return(C_SCHEME_FALSE);
     471    }
     472  return(C_SCHEME_TRUE);
     473EOF
     474))
     475
    453476(define svn-add
    454477  (foreign-safe-lambda* scheme-object ((c-string path))
Note: See TracChangeset for help on using the changeset viewer.