init_globals   xtlang


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

Implementation

(bind-func init_globals
  (lambda ()
    (let ((info1:nucleotide_info* (halloc 15))
          (info2:nucleotide_info* (halloc 4)))
      (set! homo_Sapiens_Alu "GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGGGAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGACCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAAAATACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCAGCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAACCCGGGAGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCCAGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA")
      (set! iub_Nucleotides_Information info1)
      (set! homo_Sapien_Nucleotides_Information info2)
      (tfill! (pref-ptr iub_Nucleotides_Information 0) #o141 0.27)
      (tfill! (pref-ptr iub_Nucleotides_Information 1) #o143 0.12)
      (tfill! (pref-ptr iub_Nucleotides_Information 2) #o147 0.12)
      (tfill! (pref-ptr iub_Nucleotides_Information 3) #o164 0.27)
      (tfill! (pref-ptr iub_Nucleotides_Information 4) #o102 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 5) #o104 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 6) #o110 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 7) #o112 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 8) #o115 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 9) #o116 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 10) #o122 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 11) #o123 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 12) #o126 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 13) #o127 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 14) #o131 0.02)


Back to Index

Similar Entries

  • apr_init    xtlang
  • cef_init_app    xtlang
  • cef_init_base    xtlang
  • cef_init_browser    xtlang
  • cef_init_client    xtlang
  • cl:reduce-init    scheme
  • glew_init    xtlang
  • glfw_init    xtlang
  • glfw_init_and_create_compatibility_window    xtlang
  • glfw_init_and_create_fullscreen_compatibility_window    xtlang
  • glfw_init_and_create_fullscreen_interaction_compatibility_window    xtlang
  • glfw_init_and_create_fullscreen_interaction_window    xtlang
  • glfw_init_and_create_fullscreen_interaction_window    xtlang
  • glfw_init_and_create_fullscreen_window    xtlang
  • glfw_init_and_create_fullscreen_window    xtlang
  • glfw_init_and_create_interaction_compatibility_window    xtlang
  • glfw_init_and_create_interaction_window    xtlang
  • glfw_init_and_create_window    xtlang
  • gui_init    xtlang
  • h3d_init    xtlang
  • h3d_init    xtlang
  • impc:compiler:print-no-redefinitions-error    scheme
  • impc:ti:initialize-closure-with-new-zone    scheme
  • init-gst    xtlang
  • init-osc-vars    xtlang
  • init-psys    xtlang
  • init-slides    scheme
  • init_bodies    xtlang
  • init_burners    xtlang
  • init_draw_quad    xtlang
  • init_env_map    xtlang
  • init_gl    xtlang
  • init_lv2_amp    xtlang
  • init_sample_data    xtlang
  • init_sample_data    xtlang
  • init_sky    xtlang
  • init_vao    xtlang
  • init_vg    xtlang
  • initalize    xtlang
  • initialize_walkers    xtlang
  • lilv_init_world    xtlang
  • node_reply_socket_init    xtlang
  • nvg_init    xtlang
  • pa_initialize    xtlang
  • pm_initialize    xtlang
  • pm_initialize    unknown
  • scheduler_init    xtlang
  • some_gl_init    xtlang
  • sys:compile-init-ll    scheme
  • sys:compile-init-ll-from-str    scheme
  • world_init    xtlang
  • xtm_envmap_init    xtlang
  • xtm_render_init    xtlang
  • xtm_render_init_dof_shader    xtlang
  • xtm_render_init_light_shader    xtlang
  • xtm_render_init_quad_shader    xtlang
  • xtm_render_init_simple_bone_shader    xtlang
  • xtm_render_init_simple_shader    xtlang
  • xtm_render_init_skybox_shader    xtlang
  • xtm_skybox_init    xtlang