Changeset 35506 in project


Ignore:
Timestamp:
04/30/18 16:37:17 (4 months ago)
Author:
kooda
Message:

Update CHICKEN 5's queues egg

Location:
release/5/queues
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/queues/tags/1.3/queues.egg

    r34025 r35506  
    11;;; queues.egg
    2 
    3 
    4 ((synopsis "A queue data structure")
     2((version "1.3")
     3 (synopsis "A queue data structure")
    54 (category data)
    65 (license "Public Domain")
    76 (author "Andrew Wilcox, ported to CHICKEN by felix")
    8  (components (extension queues (types-file))))
     7 (components (extension queues (types-file (predefined)))))
  • release/5/queues/tags/1.3/queues.scm

    r31384 r35506  
    2222                queue-push-back-list!)
    2323 
    24   (import scheme chicken)
     24(import scheme (chicken base) (chicken fixnum))
    2525
    2626; Elements in a queue are stored in a list.  The last pair in the list
  • release/5/queues/tags/1.3/queues.types

    r34718 r35506  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/queues/trunk/queues.scm
     1(queues#list->queue (#(procedure #:clean #:enforce) queues#list->queue (list) (struct queue)))
     2(queues#make-queue (#(procedure #:pure) queues#make-queue () (struct queue)))
     3(queues#queue->list (#(procedure #:clean #:enforce) queues#queue->list ((struct queue)) list))
     4(queues#queue-add! (#(procedure #:clean #:enforce) queues#queue-add! ((struct queue) *) undefined))
    25
    3 ; END OF FILE
     6(queues#queue-empty? (#(procedure #:clean #:enforce) queues#queue-empty? ((struct queue)) boolean)
     7              (((struct queue)) (##core#inline "C_i_nullp" (##sys#slot #(1) '1))))
     8
     9(queues#queue-first (#(procedure #:clean #:enforce) queues#queue-first ((struct queue)) *))
     10(queues#queue-last (#(procedure #:clean #:enforce) queues#queue-last ((struct queue)) *))
     11
     12(queues#queue-length (#(procedure #:clean #:enforce) queues#queue-length ((struct queue)) fixnum)
     13              (((struct queue)) (##sys#slot #(1) '3)))
     14
     15(queues#queue-push-back! (#(procedure #:clean #:enforce) queues#queue-push-back! ((struct queue) *) undefined))
     16(queues#queue-push-back-list! (#(procedure #:clean #:enforce) queues#queue-push-back-list! ((struct queue) list) undefined))
     17(queues#queue-remove! (#(procedure #:clean #:enforce) queues#queue-remove! ((struct queue)) *))
     18(queues#queue? (#(procedure #:pure #:predicate (struct queue)) queues#queue? (*) boolean))
  • release/5/queues/tags/1.3/tests/run.scm

    r34718 r35506  
    11(import queues)
     2
     3
    24
    35(define-syntax assert-error
     
    57    ((_ expr)
    68     (assert (handle-exceptions _ #t expr #f)))))
     9
    710
    811;; Queues.
  • release/5/queues/trunk/queues.egg

    r34025 r35506  
    11;;; queues.egg
    2 
    3 
    4 ((synopsis "A queue data structure")
     2((version "1.4")
     3 (synopsis "A queue data structure")
    54 (category data)
    65 (license "Public Domain")
    76 (author "Andrew Wilcox, ported to CHICKEN by felix")
    8  (components (extension queues (types-file))))
     7 (components (extension queues (types-file (predefined)))))
  • release/5/queues/trunk/queues.scm

    r31384 r35506  
    2222                queue-push-back-list!)
    2323 
    24   (import scheme chicken)
     24(import scheme (chicken base) (chicken fixnum))
    2525
    2626; Elements in a queue are stored in a list.  The last pair in the list
  • release/5/queues/trunk/queues.types

    r34718 r35506  
    1 ; GENERATED BY CHICKEN 5.0.0 FROM /home/sjamaan/src/chicken-eggs/release/5/queues/trunk/queues.scm
     1(queues#list->queue (#(procedure #:clean #:enforce) queues#list->queue (list) (struct queue)))
     2(queues#make-queue (#(procedure #:pure) queues#make-queue () (struct queue)))
     3(queues#queue->list (#(procedure #:clean #:enforce) queues#queue->list ((struct queue)) list))
     4(queues#queue-add! (#(procedure #:clean #:enforce) queues#queue-add! ((struct queue) *) undefined))
    25
    3 ; END OF FILE
     6(queues#queue-empty? (#(procedure #:clean #:enforce) queues#queue-empty? ((struct queue)) boolean)
     7              (((struct queue)) (##core#inline "C_i_nullp" (##sys#slot #(1) '1))))
     8
     9(queues#queue-first (#(procedure #:clean #:enforce) queues#queue-first ((struct queue)) *))
     10(queues#queue-last (#(procedure #:clean #:enforce) queues#queue-last ((struct queue)) *))
     11
     12(queues#queue-length (#(procedure #:clean #:enforce) queues#queue-length ((struct queue)) fixnum)
     13              (((struct queue)) (##sys#slot #(1) '3)))
     14
     15(queues#queue-push-back! (#(procedure #:clean #:enforce) queues#queue-push-back! ((struct queue) *) undefined))
     16(queues#queue-push-back-list! (#(procedure #:clean #:enforce) queues#queue-push-back-list! ((struct queue) list) undefined))
     17(queues#queue-remove! (#(procedure #:clean #:enforce) queues#queue-remove! ((struct queue)) *))
     18(queues#queue? (#(procedure #:pure #:predicate (struct queue)) queues#queue? (*) boolean))
  • release/5/queues/trunk/tests/run.scm

    r34718 r35506  
    11(import queues)
     2
     3
    24
    35(define-syntax assert-error
     
    57    ((_ expr)
    68     (assert (handle-exceptions _ #t expr #f)))))
     9
    710
    811;; Queues.
Note: See TracChangeset for help on using the changeset viewer.