From 7e91a00648521cc11182c317e4c4d9d81c59b680 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 16 Apr 2013 12:26:26 -0600
Subject: [PATCH] remove accidentally added files

---
 collects/pkg/db.rkt                | 301 -----------------------------
 collects/pkg/scribblings/pnr.scrbl |  44 -----
 2 files changed, 345 deletions(-)
 delete mode 100644 collects/pkg/db.rkt
 delete mode 100644 collects/pkg/scribblings/pnr.scrbl

diff --git a/collects/pkg/db.rkt b/collects/pkg/db.rkt
deleted file mode 100644
index a511d555b0..0000000000
--- a/collects/pkg/db.rkt
+++ /dev/null
@@ -1,301 +0,0 @@
-#lang racket/base
-(require racket/contract/base
-         racket/format
-         racket/set
-         db)
-
-(provide 
- (struct-out pkg)
- (contract-out
-  [current-pkg-index-file
-   (parameter/c path-string?)]
-
-  [get-pnr-urls (-> (listof string?))]
-  [set-pnr-urls! ((listof string?) . -> . void?)]
-
-  [set-pnr-pkgs! (string? (listof string?) . -> . void?)]
-
-  [get-pkgs (()
-             (#:pnr-url (or/c #f string?)
-                        #:name (or/c #f string?))
-             . ->* .
-             (listof pkg?))]
-  [set-pkg! (string? string? string? string? string? string?
-                     . -> .
-                     void?)]
-
-  [get-pkg-modules (string? string? string?
-                            . -> . (listof module-path?))]
-  [set-pkg-modules! (string? string? string?
-                             (listof module-path?)
-                             . -> . void?)]))
-
-(struct pkg (name pnr-url author checksum desc tags)
-  #:transparent)
-
-(define current-pkg-index-file
-  (make-parameter (build-path
-                   (find-system-path 'addon-dir)
-                   "pnr.sqlite")))
-
-(define (call-with-pnr-db proc)
-  (define db #f)
-  (dynamic-wind
-      (lambda ()
-        (set! db (sqlite3-connect #:database (current-pkg-index-file)
-                                  #:mode 'create
-                                  #:busy-retry-limit +inf.0)))
-      (lambda () (proc db))
-      (lambda () 
-        (disconnect db))))
-
-(define (get-pkgs #:pnr-url [pnr-url #f])
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (prepare-pkg-table db)
-     (for/list ([row (in-list
-                      (apply
-                       query-rows
-                       db
-                       (~a "SELECT K.name, N.url, K.author, K.checksum, K.desc, k.tags"
-                           " FROM pkg K, pnr N"
-                           " WHERE N.id = K.pnr"
-                           (if pnr-url
-                               " AND  N.url = $1"
-                               ""))
-                       (if pnr-url
-                           (list pnr-url)
-                           null)))])
-       (pkg (vector-ref row 0)
-            (vector-ref row 1)
-            (vector-ref row 2)
-            (vector-ref row 3)
-            (vector-ref row 4)
-            (vector-ref row 5))))))
-
-(define (set-pkg! name pnr-url author checksum desc tags)
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (prepare-pkg-table db)
-     (call-with-transaction
-      db
-      (lambda ()
-        (define pnr (url->pnr db pnr-url))
-        (query db
-               (~a "UPDATE pkg"
-                   " SET author=$1, checksum=$2, desc=$3, tags=$4"
-                   " WHERE name=$5"
-                   " AND   pnr=$6")
-               author checksum desc tags
-               name pnr)
-        (void))))))
-
-(define (get-pkg-modules name pnr-url checksum)
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (prepare-pkg-table db)
-     (prepare-modules-table db)
-     (define pnr (url->pnr db pnr-url))
-     (map
-      string->mod
-      (query-list db
-                  "SELECT name FROM modules WHERE pnr=$1, pkg=$2, checksum=$3"
-                  pnr
-                  name
-                  checksum)))))
-
-(define (set-pkg-modules! name pnr-url checksum modules)
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (prepare-pkg-table db)
-     (prepare-modules-table db)
-     (call-with-transaction
-      db
-      (lambda ()
-        (define pnr (url->pnr db pnr-url))
-        (query-exec db
-                    "DELETE FROM modules WHERE pnr=$1, pkg=$2, checksum=$3"
-                    pnr
-                    name
-                    checksum)
-        (for ([mod (in-list modules)])
-         (query db
-                (~a "INSERT INTO modules"
-                    " VALUES ($1, $2, $3, $4)")
-                (mod->string mod) name pnr checksum)))))))
-
-(define (string->mod mp) (~s mp))
-(define (mod->string str) (read (open-input-string str)))
-
-(define (get-pnr-urls)
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (query-list db (~a "SELECT url FROM pnr")))))
-
-(define (set-pnr-urls! urls)
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (prepare-pkg-table db)
-     (prepare-modules-table db)
-     (call-with-transaction
-      db
-      (lambda ()
-        (define current-url+ids
-          (query-rows db "SELECT url, id FROM pnr"))
-        (define old-urls (for/list ([old (in-list current-url+ids)])
-                           (vector-ref old 0)))
-        (for ([old (in-list current-url+ids)])
-          (define old-url (vector-ref old 0))
-          (define old-id (vector-ref old 1))
-          (unless (member old-url urls)
-            (query-exec db
-                        "DELETE FROM pnr WHERE id=$1"
-                        old-id)
-            (query-exec db
-                        "DELETE FROM pkg WHERE pnr=$1"
-                        old-id)
-            (query-exec db
-                        "DELETE FROM modules WHERE pnr=$1"
-                        old-id)))
-        (for ([new-url (in-list urls)])
-          (unless (member new-url old-urls)
-            (let loop ([id 0])
-              (if (query-maybe-row db
-                                   "SELECT url FROM pnr WHERE id=$1"
-                                   id)
-                  (loop (add1 id))
-                  (query-exec db "INSERT INTO pnr VALUES ($1, $2)"
-                              id
-                              new-url))))))))))
-
-(define (url->pnr db url)
-  (query-value db
-               "SELECT id FROM pnr WHERE url=$1"
-               url))
-
-(define (set-pnr-pkgs! url pkgs)
-  (call-with-pnr-db
-   (lambda (db)
-     (prepare-pnr-table db)
-     (prepare-pkg-table db)
-     (prepare-modules-table db)
-     (call-with-transaction
-      db
-      (lambda ()
-        (define pnr (url->pnr db url))
-        (define current-pkgs
-          (query-list db "SELECT name FROM pkg WHERE pnr=$1"
-                      pnr))
-        (define new-pkgs (list->set pkgs))
-        (define old-pkgs (list->set current-pkgs))
-        (for ([old (in-list current-pkgs)])
-          (unless (set-member? new-pkgs old)
-            (query-exec db
-                        "DELETE FROM pkg WHERE pnr=$1, name=$2"
-                        pnr
-                        old)
-            (query-exec db
-                        "DELETE FROM modules WHERE pnr=$1, pkg=$2"
-                        pnr
-                        old)))
-        (for ([new (in-list pkgs)])
-          (unless (set-member? old-pkgs new)
-            (query-exec db
-                        "INSERT INTO pkg VALUES ($1, $2, $3, $4, $5, $6)"
-                        new
-                        pnr
-                        ""
-                        ""
-                        ""
-                        ""))))))))
-
-(define (prepare-pnr-table db)
-  (prepare-table db
-                 "pnr"
-                 (~a "(id SMALLINT,"
-                     " url VARCHAR(1024))")))
-
-(define (prepare-pkg-table db)
-  (prepare-table db
-                 "pkg"
-                 (~a "(name VARCHAR(1024),"
-                     " pnr SMALLINT,"
-                     " author VARCHAR(256),"
-                     " checksum VARCHAR(256),"
-                     " desc VARCHAR(4096),"
-                     " tags VARCHAR(1024))")))
-
-(define (prepare-modules-table db)
-  (prepare-table db
-                 "modules"
-                 (~a "(name VARCHAR(1024),"
-                     " pkg VARCHAR(1024),"
-                     " pnr SMALLINT,"
-                     " checksum VARCHAR(256))")))
-
-(define (prepare-table db which desc)
-  (when (null? 
-         (query-rows db (~a "SELECT name FROM sqlite_master"
-                            " WHERE type='table' AND name='" which "'")))
-    (query-exec db (~a "CREATE TABLE " which " "
-                       desc))))
-
-;; ----------------------------------------
-
-(module+ main
-  (require rackunit
-           racket/file)
-
-  (define (pkg<? a b)
-    (if (string=? (pkg-name a) (pkg-name b))
-        (string<? (pkg-pnr-url a) (pkg-pnr-url b))
-        (string<? (pkg-name a) (pkg-name b))))
-
-  (parameterize ([current-pkg-index-file (make-temporary-file
-                                          "~a.sqlite")])
-    (check-equal? (get-pnr-urls) '())
-
-    (set-pnr-urls! '("http://a" "http://b"))
-    (check-equal? (sort (get-pnr-urls) string<?) 
-                  '("http://a" "http://b"))
-    
-    (check-equal? (get-pkgs) '())
-
-    
-    (set-pnr-pkgs! "http://a" '("p1"))
-    (check-equal? (get-pkgs) 
-                  (list
-                   (pkg "p1" "http://a" "" "" "" "")))
-    
-    (set-pnr-pkgs! "http://b" '("p2"))
-    (check-equal? (sort (get-pkgs) pkg<?)
-                  (list
-                   (pkg "p1" "http://a" "" "" "" "")
-                   (pkg "p2" "http://b" "" "" "" "")))
-    (check-equal? (get-pkgs #:pnr-url "http://a") 
-                  (list
-                   (pkg "p1" "http://a" "" "" "" "")))
-    
-    (set-pkg! "p1" "http://a" "adam" "123" "the first package" "good")
-    (check-equal? (sort (get-pkgs) pkg<?)
-                  (list
-                   (pkg "p1" "http://a" "adam" "123" "the first package" "good")
-                   (pkg "p2" "http://b" "" "" "" "")))
-
-    (set-pnr-urls! '("http://a" "http://c"))
-    (check-equal? (sort (get-pnr-urls) string<?) 
-                  '("http://a" "http://c"))
-
-    (check-equal? (get-pkgs) 
-                  (list
-                   (pkg "p1" "http://a" "adam" "123" "the first package" "good")))
-
-    (delete-file (current-pkg-index-file))
-
-    (void)))
diff --git a/collects/pkg/scribblings/pnr.scrbl b/collects/pkg/scribblings/pnr.scrbl
deleted file mode 100644
index 87606cdb2d..0000000000
--- a/collects/pkg/scribblings/pnr.scrbl
+++ /dev/null
@@ -1,44 +0,0 @@
-#lang scribble/manual
-@(require (for-label racket/base
-                     pkg/pnr
-                     pkg/lib
-                     net/url
-                     syntax/modcollapse))
-
-@title[#:tag "pnr"]{Package Information Download}
-
-@defmodule[pkg/pnr]{The @racketmodname[pkg/pnr]
-library provides tools for consulting a @tech{package name resolver}
-and package servers to obtain information about a package.}
-
-In particular, @racketmodname[pkg/pnr] uses some of the functions from
-@racketmodname[pkg/lib] to obtain information is that useful to
-populate a database that is managed by @racketmodname[pkg/db].
-
-See also @racket[pkg-indexes] from @racketmodname[pkg/lib].
-
-
-@defproc[(get-pkg-names-from-pnr [pnr url?]) (listof string?)]{
-
-Obtains a list of unique package names from the specified
-@tech{package name resolver}.}
-
-@defproc[(get-pkg-details-from-pnr [pnr url?]
-                                   [name string?])
-         hash?]{
-
-Returns a hash table representing information about @racket[name] as
-reported by @racket[pnr].}
-
-
-@defproc[(get-pkg-modules [pnr url?]
-                          [name string?])
-         (values (or/c #f string?) (listof module-path?))]{
-
-Gets a list of module paths that are provided by @racket[name] as
-resolved by @racket[pnr] and as provided by the package's server. The
-result reports both the checksum of the package (as reported by
-@racket[pnr]) and list of module paths.
-
-The module paths are normalized in the sense of
-@racket[collapse-module-path].}