Commits

evhan  committed 7b8209f

clean up imports & move exports to dedicated file

This slightly reorganizes the import forms for git & git-lolevel, moves
git's export list into its own file, and adds an explicit export list
for git-lolevel (rather than just exporting everything), also in its own
file.

  • Participants
  • Parent commits 5685f57

Comments (0)

Files changed (4)

File git-exports.scm

+(export
+ blob*
+ blob*-binary?
+ blob*-content
+ blob*-size
+ blob*?
+ branch
+ branch-delete
+ branch-head?
+ branch-name
+ branch-rename
+ branches
+ branches-fold
+ clone
+ commit
+ commit-ancestor
+ commit-author
+ commit-committer
+ commit-id
+ commit-message
+ commit-message-encoding
+ commit-parent
+ commit-parent-id
+ commit-parentcount
+ commit-parents
+ commit-time
+ commit-time-offset
+ commit-tree
+ commit-tree-id
+ commit?
+ commits
+ commits-fold
+ config-get
+ config-open
+ config-path
+ config-set!
+ config-unset!
+ config?
+ create-blob*
+ create-branch
+ create-commit
+ create-reference
+ create-repository
+ create-tag
+ create-tree
+ diff
+ diff-file-flags
+ diff-file-id
+ diff-file-mode
+ diff-file-path
+ diff-file-size
+ diff-file?
+ diff-new-file
+ diff-old-file
+ diff-path
+ diff-similarity
+ diff-status
+ diff?
+ file-ignored?
+ file-status
+ file-statuses
+ file-statuses-fold
+ index-add
+ index-clear
+ index-entry-ctime
+ index-entry-dev
+ index-entry-extended
+ index-entry-flags
+ index-entry-gid
+ index-entry-id
+ index-entry-ino
+ index-entry-mode
+ index-entry-mtime
+ index-entry-path
+ index-entry-size
+ index-entry-stage
+ index-entry-uid
+ index-entry?
+ index-entrycount
+ index-find
+ index-open
+ index-read
+ index-ref
+ index-remove
+ index-write
+ index?
+ make-signature
+ make-tree-builder
+ merge-base
+ object-id
+ object-owner
+ object-sha
+ object-type
+ object=?
+ odb-has-object?
+ odb-hash
+ odb-object-data
+ odb-object-id
+ odb-object-size
+ odb-object-type
+ odb-object?
+ odb-open
+ odb-read
+ odb-write
+ odb?
+ oid->path
+ oid->string
+ oid=?
+ oid?
+ parse-revision-specification
+ reference
+ reference-branch?
+ reference-delete
+ reference-name
+ reference-remote?
+ reference-rename
+ reference-resolve
+ reference-target
+ reference-target-set!
+ reference-type
+ reference?
+ references
+ references-fold
+ refspec-destination
+ refspec-direction
+ refspec-force
+ refspec-source
+ refspec-string
+ refspec?
+ remote
+ remote-connect
+ remote-connected?
+ remote-disconnect
+ remote-download
+ remote-name
+ remote-pushurl
+ remote-pushurl-set!
+ remote-refspecs
+ remote-stats
+ remote-update-fetchhead-set!
+ remote-update-tips
+ remote-url
+ remote-url-set!
+ remote-url-supported?
+ remote-url-valid?
+ remote?
+ remotes
+ repository-bare?
+ repository-empty?
+ repository-head
+ repository-head-detached?
+ repository-head-orphan?
+ repository-open
+ repository-path
+ repository-ref
+ repository-working-directory
+ repository?
+ signature-email
+ signature-name
+ signature-time
+ signature-time-offset
+ signature?
+ string->oid
+ tag
+ tag-delete
+ tag-id
+ tag-message
+ tag-name
+ tag-peel
+ tag-tagger
+ tag-target
+ tag?
+ tags
+ tags-fold
+ transfer-progress-indexed-objects
+ transfer-progress-received-bytes
+ transfer-progress-received-objects
+ transfer-progress-total-objects
+ transfer-progress?
+ tree
+ tree-builder-clear
+ tree-builder-insert
+ tree-builder-ref
+ tree-builder-remove
+ tree-builder-write
+ tree-entries
+ tree-entry->object
+ tree-entry-id
+ tree-entry-name
+ tree-entry-type
+ tree-entry?
+ tree-entrycount
+ tree-fold
+ tree-id
+ tree-ref
+ tree?)

File git-lolevel-exports.scm

+(export
+ blob*-create-frombuffer
+ blob*-create-fromdisk
+ blob*-create-fromworkdir
+ blob*-free
+ blob*-is-binary
+ blob*-lookup
+ blob*-rawcontent
+ blob*-rawsize
+ branch-create
+ branch-delete
+ branch-foreach
+ branch-is-head
+ branch-lookup
+ branch-move
+ branch-name
+ clone
+ commit-author
+ commit-committer
+ commit-create
+ commit-free
+ commit-id
+ commit-lookup
+ commit-message
+ commit-message-encoding
+ commit-nth-gen-ancestor
+ commit-parent
+ commit-parent-id
+ commit-parentcount
+ commit-time
+ commit-time-offset
+ commit-tree
+ commit-tree-id
+ config-delete-entry
+ config-entry-level
+ config-entry-name
+ config-entry-value
+ config-find-global
+ config-find-system
+ config-find-xdg
+ config-free
+ config-get-bool
+ config-get-int64
+ config-get-string
+ config-open-default
+ config-open-ondisk
+ config-set-bool
+ config-set-int64
+ config-set-string
+ diff-delta-new-file
+ diff-delta-old-file
+ diff-delta-similarity
+ diff-delta-status
+ diff-file-flags
+ diff-file-mode
+ diff-file-oid
+ diff-file-path
+ diff-file-size
+ diff-foreach
+ diff-index-to-workdir
+ diff-tree-to-index
+ diff-tree-to-tree
+ diff-tree-to-workdir
+ error
+ index-add
+ index-add-bypath
+ index-clear
+ index-entry-dev
+ index-entry-extended
+ index-entry-flags
+ index-entry-gid
+ index-entry-ino
+ index-entry-mode
+ index-entry-mtime
+ index-entry-oid
+ index-entry-path
+ index-entry-size
+ index-entry-stage
+ index-entry-uid
+ index-entrycount
+ index-find
+ index-free
+ index-get-byindex
+ index-get-bypath
+ index-open
+ index-read
+ index-remove
+ index-time-seconds
+ index-write
+ index-write-tree
+ libgit2-version
+ merge-base
+ object-id
+ object-lookup
+ object-owner
+ object-type
+ odb-exists
+ odb-free
+ odb-hash
+ odb-object-data
+ odb-object-free
+ odb-object-id
+ odb-object-size
+ odb-object-type
+ odb-open
+ odb-read
+ odb-write
+ oid-cpy
+ oid-equal
+ oid-fromstr
+ oid-pathfmt
+ oid-tostr
+ reference-create
+ reference-delete
+ reference-foreach-name
+ reference-free
+ reference-is-branch
+ reference-is-remote
+ reference-lookup
+ reference-name
+ reference-rename
+ reference-resolve
+ reference-set-target
+ reference-symbolic-create
+ reference-target
+ reference-type
+ refspec-direction
+ refspec-dst
+ refspec-force
+ refspec-src
+ refspec-string
+ remote-connect
+ remote-connected
+ remote-disconnect
+ remote-download
+ remote-free
+ remote-get-refspec
+ remote-is-valid-name
+ remote-list
+ remote-load
+ remote-name
+ remote-pushurl
+ remote-rename
+ remote-save
+ remote-set-pushurl
+ remote-set-url
+ remote-stats
+ remote-stop
+ remote-supported-url
+ remote-update-fetchhead
+ remote-update-tips
+ remote-url
+ remote-valid-url
+ repository-config
+ repository-free
+ repository-head
+ repository-head-detached
+ repository-head-orphan
+ repository-index
+ repository-init
+ repository-is-bare
+ repository-is-empty
+ repository-odb
+ repository-open
+ repository-path
+ repository-workdir
+ revparse
+ revparse-single
+ revspec-from
+ revspec-to
+ revwalk-free
+ revwalk-hide
+ revwalk-new
+ revwalk-next
+ revwalk-push
+ revwalk-push-head
+ revwalk-sorting
+ signature-dup
+ signature-email
+ signature-free
+ signature-name
+ signature-new
+ signature-now
+ signature-time
+ status-file
+ status-foreach
+ status-should-ignore
+ tag-create
+ tag-delete
+ tag-foreach
+ tag-free
+ tag-id
+ tag-lookup
+ tag-message
+ tag-name
+ tag-peel
+ tag-tagger
+ tag-target
+ time-offset
+ time-time
+ transfer-progress-indexed-objects
+ transfer-progress-received-bytes
+ transfer-progress-received-objects
+ transfer-progress-total-objects
+ tree-builder-clear
+ tree-builder-create
+ tree-builder-free
+ tree-builder-get
+ tree-builder-insert
+ tree-builder-remove
+ tree-builder-write
+ tree-entry-byindex
+ tree-entry-byname
+ tree-entry-byoid
+ tree-entry-bypath
+ tree-entry-dup
+ tree-entry-free
+ tree-entry-id
+ tree-entry-name
+ tree-entry-to-object
+ tree-entry-type
+ tree-entrycount
+ tree-free
+ tree-id
+ tree-lookup
+ tree-walk)

File git-lolevel.scm

 ;;; See git.scm for a cleaner, high-level API.
 ;;;
 
-(module git-lolevel *
-  (import scheme lolevel foreign foreigners srfi-69
-    (except chicken repository-path)
-    (only srfi-13 string-index))
-  (require-library srfi-13 lolevel)
+(require-library foreigners lolevel srfi-13 srfi-69)
+
+(module git-lolevel ()
+  (import scheme foreigners lolevel srfi-69)
+  (import foreign)
+  (import (only srfi-13 string-index))
+  (import (except chicken repository-path))
+  (include "git-lolevel-exports.scm")
 
 ;; Errors are composite conditions of properties (exn git).
 (define (git-error loc msg . args)
 ;;; Please report bugs (see README).
 ;;;
 
-(module git
-  (object-id object-type object-sha object-owner object=?
-   string->oid oid->string oid->path oid? oid=? merge-base
-   repository? create-repository repository-open repository-path repository-working-directory
-   repository-empty? repository-bare? repository-head-orphan? repository-head-detached?
-   repository-ref repository-head
-   reference? reference references references-fold create-reference reference-resolve
-   reference-name reference-target reference-type reference-branch? reference-remote?
-   reference-target-set! reference-rename reference-delete
-   parse-revision-specification
-   branch branches branches-fold create-branch branch-name
-   branch-rename branch-delete branch-head?
-   commit? commit commits commits-fold create-commit commit-id
-   commit-message commit-message-encoding
-   commit-time commit-time-offset commit-parentcount
-   commit-author commit-committer commit-ancestor
-   commit-parent commit-parents commit-parent-id commit-tree commit-tree-id
-   blob*? blob* create-blob* blob*-content blob*-size blob*-binary?
-   index? index-open index-find index-ref
-   index-clear index-add index-remove index-read index-write index-entrycount
-   index-entry? index-entry-dev index-entry-ino index-entry-mode
-   index-entry-uid index-entry-gid index-entry-size index-entry-stage
-   index-entry-flags index-entry-extended index-entry-path
-   index-entry-id index-entry-ctime index-entry-mtime
-   odb? odb-open odb-has-object? odb-read odb-write odb-hash
-   odb-object? odb-object-id odb-object-data odb-object-size odb-object-type
-   remote remotes remote-name remote-url remote-pushurl
-   remote-connect remote-connected? remote-disconnect remote-download
-   remote-url-set! remote-pushurl-set! remote-update-fetchhead-set!
-   remote-url-valid? remote-url-supported?
-   remote-refspecs
-   refspec? refspec-source refspec-destination refspec-string refspec-force refspec-direction
-   transfer-progress-total-objects transfer-progress-indexed-objects
-   transfer-progress-received-objects transfer-progress-received-bytes
-   clone
-   signature? make-signature signature-name signature-email signature-time signature-time-offset
-   tag? tag tags tags-fold create-tag tag-id tag-name tag-message tag-delete tag-tagger tag-target tag-peel
-   tree? tree tree-id tree-entrycount create-tree tree-ref tree-fold tree-entries
-   tree-entry? tree-entry-id tree-entry-name tree-entry-type tree-entry->object
-   make-tree-builder tree-builder-ref tree-builder-insert tree-builder-remove tree-builder-clear tree-builder-write
-   diff? diff diff-similarity diff-status diff-path diff-old-file diff-new-file
-   diff-file? diff-file-id diff-file-mode diff-file-path diff-file-size diff-file-flags
-   config? config-open config-path config-get config-set! config-unset!
-   file-status file-statuses file-statuses-fold file-ignored?)
-  (import scheme
-    (except chicken repository-path)
-    (only extras format)
-    (only posix current-directory regular-file?)
-    (only files normalize-pathname make-pathname)
-    (only lolevel record-instance-slot number-of-bytes move-memory! tag-pointer)
-    (rename (only data-structures o) (o compose))
-    (prefix (except git-lolevel git-error) git-)
-    (only git-lolevel git-error))
-  (require-library extras posix files lolevel data-structures git-lolevel)
+(require-library extras posix files lolevel data-structures git-lolevel)
+
+(module git ()
+  (import scheme)
+  (import (except chicken repository-path))
+  (import (only extras format)
+          (only posix current-directory regular-file?)
+          (only files normalize-pathname make-pathname)
+          (only lolevel record-instance-slot number-of-bytes move-memory! tag-pointer)
+          (rename (only data-structures o) (o compose))
+          (prefix (except git-lolevel git-error) git-)
+          (only git-lolevel git-error))
+  (include "git-exports.scm")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;