queue_test   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/core/extempore_lang.xtm

Implementation

(bind-func queue_test
  (lambda ()
    (let ((myqueue:|2,list_t*|* (salloc))
          (stuff:|8,i64|* (salloc))
          (i 0))
      ;; first we must set queue front and back to null
      (afill! myqueue null null)
      ;; initialize stuff array
      (dotimes (i 8) (aset! stuff i i))
      ;; what happens if we dequeue an empty queue (-1)
      (printf "dequeue 1: %lld\n" (dequeue myqueue))
      ;; add something to the queue
      (enqueue myqueue (aref stuff 1))
      ;; dequeue something
      (printf "dequeue 2: %lld\n" (dequeue myqueue))
      ;; back to nothing?
      (printf "dequeue 4: %lld\n" (dequeue myqueue))
      ;; etc..
      (enqueue myqueue (aref stuff 2))
      (printf "dequeue 5: %lld\n" (dequeue myqueue))
      (enqueue myqueue (aref stuff 3))
      (enqueue myqueue (aref stuff 4))
      (printf "dequeue 6: %lld\n" (dequeue myqueue))
      (printf "dequeue 7: %lld\n" (dequeue myqueue))
      (printf "dequeue 8: %lld\n" (dequeue myqueue))
      1)))


Back to Index

Similar Entries

  • MyLittleCleanupTest    xtlang
  • Rational_greatest_common_divisor    xtlang
  • array-test2    xtlang
  • array-test3    xtlang
  • beat_test    xtlang
  • callback-test2-helper    xtlang
  • clock_test_a    xtlang
  • clock_test_b    xtlang
  • dequeue    xtlang
  • dequeue_midi_event    xtlang
  • div_test    xtlang
  • div_test    xtlang
  • div_test    xtlang
  • div_test    xtlang
  • div_test    xtlang
  • div_test    xtlang
  • enqueue    xtlang
  • enqueue_midi_event    xtlang
  • eq_test2    xtlang
  • global_var_test1    xtlang
  • global_var_test1b    xtlang
  • gmp_test    xtlang
  • hl_test1a    xtlang
  • hl_test1b    xtlang
  • impc:compiler:flush-jit-compilation-queue    scheme
  • impc:compiler:queue-ir-for-compilation    scheme
  • impc:compiler:reset-jit-compilation-queue    scheme
  • impc:ti:nativef-generics-final-tests    scheme
  • map_test    xtlang
  • map_test2    xtlang
  • my-inc-test    xtlang
  • my-test-1    xtlang
  • my-test-1    xtlang
  • my-test-10    xtlang
  • my-test-11    xtlang
  • my-test-12    xtlang
  • my-test-13    xtlang
  • my-test-1f    xtlang
  • my-test-2    xtlang
  • my-test-3    xtlang
  • my-test-4    xtlang
  • my-test-6    xtlang
  • my-test-7    xtlang
  • my-test-8    xtlang
  • my-test-9    xtlang
  • my-test14    xtlang
  • my-test15    xtlang
  • my-test16    xtlang
  • my-test17    xtlang
  • my-test18    xtlang
  • my-test19    xtlang
  • my-test20    xtlang
  • my-test25    xtlang
  • my-test26    xtlang
  • my-test27    xtlang
  • my-test28    xtlang
  • my-test29    xtlang
  • opengl-test    scheme
  • opengl-test    scheme
  • opengl-test    scheme
  • opengl-test    xtlang
  • pairs_test    xtlang
  • pmap_test    xtlang
  • pmap_test2    xtlang
  • sys_g_file_test    xtlang
  • test    scheme
  • test    scheme
  • test    xtlang
  • test    scheme
  • test    scheme
  • test    xtlang
  • test    scheme
  • test1    xtlang
  • test2    xtlang
  • test3    xtlang
  • test34    xtlang
  • test34    xtlang
  • test35    xtlang
  • test36    xtlang
  • test37    xtlang
  • test38    xtlang
  • test39    xtlang
  • test44    xtlang
  • test45    xtlang
  • test46    xtlang
  • test808    scheme
  • test_1    xtlang
  • test_1    xtlang
  • test_1    xtlang
  • test_add_blinker    xtlang
  • test_assoc_1    xtlang
  • test_blink_blinker    xtlang
  • test_div    xtlang
  • test_double_blink_blinker    xtlang
  • test_g_array11    xtlang
  • test_g_array2    xtlang
  • test_g_array3    xtlang
  • test_g_cstring    xtlang
  • test_g_cstring1    xtlang
  • test_g_ptr0    xtlang
  • test_g_ptr1    xtlang
  • test_g_tuple    xtlang
  • test_stream_2    xtlang
  • test_stream_3    xtlang
  • test_stream_4    xtlang
  • test_world_copy    xtlang
  • test_world_foo    xtlang
  • test_world_indexing    xtlang
  • test_world_periodic_bc    xtlang
  • testeither    xtlang
  • testinc    xtlang
  • testitall    xtlang
  • testprint    xtlang
  • testprint    xtlang
  • testprint    xtlang
  • teststart    scheme
  • testvsinecos    xtlang
  • type_class_test    xtlang
  • vector-test2    xtlang
  • vector_test    xtlang
  • vector_test_a    xtlang
  • vtest    xtlang
  • vtest_a    xtlang
  • vtest_b    xtlang
  • vtest_c    xtlang
  • xtmtest    macro
  • xtmtest    macro
  • xtmtest-compile    macro
  • xtmtest-compile    macro
  • xtmtest-print-results    scheme
  • xtmtest-print-results    scheme
  • xtmtest-reset-results    scheme
  • xtmtest-reset-results    scheme
  • xtmtest-result    macro
  • xtmtest-result    macro
  • xtmtest-result-body    scheme
  • xtmtest-result-body    scheme
  • xtmtest-run-tests    scheme
  • xtmtest-run-tests    scheme
  • xtmtest-update-test-result    scheme
  • xtmtest-update-test-result    scheme
  • xtmtest-with-fixture    macro
  • xtmtest-with-fixture-body    scheme
  • xtmtest-with-fixture-body    scheme
  • zip_array_test    xtlang
  • zip_array_test    xtlang