optional arguments in cgen's define-cptr are not effective

[pclouds]

I have a declaration like this

(define-cptr <git-repository> "git_repository*" "Git_RepositoryClass"
  "GIT_REPOP" "GIT_REPO" "GIT_REPO_VALUE"
  :print repo-print
  :cleanup repo-cleanup)

but the generated code is

Git_RepositoryClass = Scm_MakeForeignPointerClass(Scm_CurrentModule(),"<git-repository>", NULL, NULL, 0);

cleanup-proc and print-proc are not passed to that call. Adding #?= at line 1665 in cgen/stub.scm i got

#?="/home/pclouds/opt/gauche/share/gauche-0.9/0.9.5_pre1/lib/gauche/cgen/stub.scm":1665:(assq-ref clauses 'print)
#?-    #f

[shirok]

Try

(define-cptr <git-repository> "git_repository*" "Git_RepositoryClass"
  "GIT_REPOP" "GIT_REPO" "GIT_REPO_VALUE"
  (print repo-print)
  (cleanup repo-cleanup))

From: Nguyễn Thái Ngọc Duy notifications@github.com
Subject: [Gauche] optional arguments in cgen's define-cptr are not effective (#59)
Date: Thu, 30 Apr 2015 07:50:31 -0700

I have a declaration like this

(define-cptr <git-repository> "git_repository*" "Git_RepositoryClass"
  "GIT_REPOP" "GIT_REPO" "GIT_REPO_VALUE"
  :print repo-print
  :cleanup repo-cleanup)

but the generated code is

Git_RepositoryClass = Scm_MakeForeignPointerClass(Scm_CurrentModule(),"<git-repository>", NULL, NULL, 0);

cleanup-proc and print-proc are not passed to that call. Adding #?= at line 1665 in cgen/stub.scm i got

#?="/home/pclouds/opt/gauche/share/gauche-0.9/0.9.5_pre1/lib/gauche/cgen/stub.scm":1665:(assq-ref clauses 'print)
#?-    #f

---

Reply to this email directly or view it on GitHub:
#59

[pclouds]

That seems to work. Thank you. I mistook it for keyword syntax. define-cptr should probably error out on unrecognized arguments though.

[shirok]

That's reasonable.

From: Nguyễn Thái Ngọc Duy notifications@github.com
Subject: Re: [Gauche] optional arguments in cgen's define-cptr are not effective (#59)
Date: Thu, 30 Apr 2015 16:39:59 -0700

That seems to work. Thank you. I mistook it for keyword syntax. define-cptr should probably error out on unrecognized arguments though.

---

Reply to this email directly or view it on GitHub:
#59 (comment)