Support for working copy features

[anonymous]

Hi, I don't know your email address so I'm communicating via bugs.

I've recently used your library to interface with propget. Here's the code, hopefully you can extend yours to support it and other wc features.

#lang scheme
(require scheme/foreign

(planet murphy/svn)
(planet murphy/svn/apr)
(planet murphy/svn/subr))

(unsafe!)
(unsafe-subr!)

(define libapr (ffi-lib "libapr-1"))
(define libsvn_client (ffi-lib "libsvn_client-1"))
(define libsvn_wc (ffi-lib "libsvn_wc-1"))

(define-syntax-rule (define-ffi lib sym typ)

(define sym (get-ffi-obj 'sym lib typ)))

(define-cpointer-type _svn_client_ctx _pooled-pointer)

(define-ffi libsvn_client svn_client_create_context

(_fun (ctx : (_ptr o _svn_client_ctx))

(pool : _pool)
-> [err : _error/null]
-> (begin (check-error 'svn_client_create_context err)

ctx)))

(define _svn_opt_revision_kind

(_enum '(svn_opt_revision_unspecified

svn_opt_revision_number
svn_opt_revision_date
svn_opt_revision_committed
svn_opt_revision_previous
svn_opt_revision_base
svn_opt_revision_working
svn_opt_revision_head)))

(define _svn_opt_revision_value _int) ; XXX actually a union of other stuff, but I don't use them in this library

(define-cstruct

_svn_opt_revision
([kind _svn_opt_revision_kind]

[extra _svn_opt_revision_value]))

(define svn_depth_empty 0) ; 323 of svn_types

#|
svn_error_t* svn_client_propget2 (

apr_hash_t ** props,
const char * propname,
const char * target,
const svn_opt_revision_t * peg_revision,
const svn_opt_revision_t * revision,
svn_boolean_t recurse,
svn_client_ctx_t * ctx,
apr_pool_t * pool

) |#
(define _svn_boolean _bool)
(define-ffi libsvn_client svn_client_propget2

(_fun [props : (_ptr o _apr-hash)]

[prop-name : _string]
[target : _path]
[peg-rev : _svn_opt_revision-pointer]
[rev : _svn_opt_revision-pointer]
[recurse : _svn_boolean]
[ctx : _svn_client_ctx]
[pool : _pool]
-> [err : _error/null]
-> (begin (check-error 'svn_client_propget3 err)

props)))

(define-ffi libapr apr_hash_get

(_fun _apr-hash

[s : _string]
[len : _int = (string-length s)]
-> _svn-string-pointer/null))

(define (svn-property-value wc-path prop-name)

(define the-pool (make-pool))
(define ctx (svn_client_create_context the-pool))
(define rev (make-svn_opt_revision 'svn_opt_revision_working 0))
(define props

(svn_client_propget2 prop-name

wc-path
rev rev
#f
ctx
the-pool))

(define res

(svn-string->bytes (apr_hash_get props wc-path)))

(and res

(bytes->string/utf-8 res)))

(provide/contract

[svn-property-value (string? string? . -> . (or/c false/c string?))])

[murphy]

Replying to anonymous:

[...]
I've recently used your library to interface with propget. Here's the code, hopefully you can extend yours to support it and other wc features.
[...]

Sounds like a good idea. As I'm rather busy with other projects at the moment it may take two or three weeks though before I'll add the new feature to the package.

[murphy]

A set of working copy features is now available through (planet murphy/svn:1:1)