/extra/ogg/ogg.factor

http://github.com/abeaumont/factor · Factor · 143 lines · 129 code · 11 blank · 3 comment · 1 complexity · 36f7bb84742ce7618e283a756657d750 MD5 · raw file 

    

  1. ! Copyright (C) 2007 Chris Double.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. !
    4. 

  4. USING: 
    5. 

  5.     alien
    6. 

  6.     alien.c-types 
    7. 

  7.     alien.libraries
    8. 

  8.     alien.syntax 
    9. 

  9.     classes.struct
    10. 

  10.     combinators 
    11. 

  11.     kernel 
    12. 

  12.     system
    13. 

  13. ;
    14. 

  14. IN: ogg
    15. 

  15. 

  16. <<
    17. 

  17. "ogg" {
    18. 

  18.     { [ os windows? ]  [ "ogg.dll" ] }
    19. 

  19.     { [ os macosx? ] [ "libogg.0.dylib" ] }
    20. 

  20.     { [ os unix? ]   [ "libogg.so" ] }
    21. 

  21. } cond cdecl add-library
    22. 

  22. 

  23. "ogg" deploy-library
    24. 

  24. >>
    25. 

  25. 

  26. LIBRARY: ogg
    27. 

  27. 

  28. STRUCT: oggpack-buffer
    29. 

  29.     { endbyte long }
    30. 

  30.     { endbit int   }
    31. 

  31.     { buffer uchar* }
    32. 

  32.     { ptr uchar* }
    33. 

  33.     { storage long } ;
    34. 

  34. 

  35. STRUCT: ogg-page
    36. 

  36.     {  header uchar* }
    37. 

  37.     {  header_len long }
    38. 

  38.     {  body uchar* }
    39. 

  39.     {  body_len long } ;
    40. 

  40. 

  41. STRUCT: ogg-stream-state
    42. 

  42.     {  body_data uchar* }
    43. 

  43.     {  body_storage long }
    44. 

  44.     {  body_fill long }
    45. 

  45.     {  body_returned long }
    46. 

  46.     {  lacing_vals int* } 
    47. 

  47.     {  granule_vals longlong* }
    48. 

  48.     {  lacing_storage long }
    49. 

  49.     {  lacing_fill long }
    50. 

  50.     {  lacing_packet long }
    51. 

  51.     {  lacing_returned long }
    52. 

  52.     {  header { uchar 282 } }
    53. 

  53.     {  header_fill int }
    54. 

  54.     {  e_o_s int }
    55. 

  55.     {  b_o_s int }
    56. 

  56.     {  serialno long  }
    57. 

  57.     {  pageno long }
    58. 

  58.     {  packetno longlong }
    59. 

  59.     {  granulepos longlong } ;
    60. 

  60. 

  61. STRUCT: ogg-packet
    62. 

  62.     {  packet uchar* }
    63. 

  63.     {  bytes long }
    64. 

  64.     {  b_o_s long }
    65. 

  65.     {  e_o_s long }
    66. 

  66.     {  granulepos longlong }
    67. 

  67.     {  packetno longlong } ;
    68. 

  68. 

  69. STRUCT: ogg-sync-state
    70. 

  70.     { data uchar* }
    71. 

  71.     { storage int }
    72. 

  72.     { fill int }  
    73. 

  73.     { returned int }
    74. 

  74.     { unsynced int }
    75. 

  75.     { headerbytes int }
    76. 

  76.     { bodybytes int } ;
    77. 

  77. 

  78. FUNCTION: void oggpack_writeinit ( oggpack-buffer* b ) ;
    79. 

  79. FUNCTION: void  oggpack_writetrunc ( oggpack-buffer* b, long bits ) ;
    80. 

  80. FUNCTION: void  oggpack_writealign ( oggpack-buffer* b) ;
    81. 

  81. FUNCTION: void  oggpack_writecopy ( oggpack-buffer* b, void* source, long bits ) ;
    82. 

  82. FUNCTION: void  oggpack_reset ( oggpack-buffer* b ) ;
    83. 

  83. FUNCTION: void  oggpack_writeclear ( oggpack-buffer* b ) ;
    84. 

  84. FUNCTION: void  oggpack_readinit ( oggpack-buffer* b, uchar* buf, int bytes ) ;
    85. 

  85. FUNCTION: void  oggpack_write ( oggpack-buffer* b, ulong value, int bits ) ;
    86. 

  86. FUNCTION: long  oggpack_look ( oggpack-buffer* b, int bits ) ;
    87. 

  87. FUNCTION: long  oggpack_look1 ( oggpack-buffer* b ) ;
    88. 

  88. FUNCTION: void  oggpack_adv ( oggpack-buffer* b, int bits ) ;
    89. 

  89. FUNCTION: void  oggpack_adv1 ( oggpack-buffer* b ) ;
    90. 

  90. FUNCTION: long  oggpack_read ( oggpack-buffer* b, int bits ) ;
    91. 

  91. FUNCTION: long  oggpack_read1 ( oggpack-buffer* b ) ;
    92. 

  92. FUNCTION: long  oggpack_bytes ( oggpack-buffer* b ) ;
    93. 

  93. FUNCTION: long  oggpack_bits ( oggpack-buffer* b ) ;
    94. 

  94. FUNCTION: uchar* oggpack_get_buffer ( oggpack-buffer* b ) ;
    95. 

  95. FUNCTION: void  oggpackB_writeinit ( oggpack-buffer* b ) ;
    96. 

  96. FUNCTION: void  oggpackB_writetrunc ( oggpack-buffer* b, long bits ) ;
    97. 

  97. FUNCTION: void  oggpackB_writealign ( oggpack-buffer* b ) ;
    98. 

  98. FUNCTION: void  oggpackB_writecopy ( oggpack-buffer* b, void* source, long bits ) ;
    99. 

  99. FUNCTION: void  oggpackB_reset ( oggpack-buffer* b ) ;
    100. 

  100. FUNCTION: void  oggpackB_writeclear ( oggpack-buffer* b ) ;
    101. 

  101. FUNCTION: void  oggpackB_readinit ( oggpack-buffer* b, uchar* buf, int bytes ) ;
    102. 

  102. FUNCTION: void  oggpackB_write ( oggpack-buffer* b, ulong value, int bits ) ;
    103. 

  103. FUNCTION: long  oggpackB_look ( oggpack-buffer* b, int bits ) ;
    104. 

  104. FUNCTION: long  oggpackB_look1 ( oggpack-buffer* b ) ;
    105. 

  105. FUNCTION: void  oggpackB_adv ( oggpack-buffer* b, int bits ) ;
    106. 

  106. FUNCTION: void  oggpackB_adv1 ( oggpack-buffer* b ) ;
    107. 

  107. FUNCTION: long  oggpackB_read ( oggpack-buffer* b, int bits ) ;
    108. 

  108. FUNCTION: long  oggpackB_read1 ( oggpack-buffer* b ) ;
    109. 

  109. FUNCTION: long  oggpackB_bytes ( oggpack-buffer* b ) ;
    110. 

  110. FUNCTION: long  oggpackB_bits ( oggpack-buffer* b ) ;
    111. 

  111. FUNCTION: uchar* oggpackB_get_buffer ( oggpack-buffer* b ) ;
    112. 

  112. FUNCTION: int      ogg_stream_packetin ( ogg-stream-state* os, ogg-packet* op ) ;
    113. 

  113. FUNCTION: int      ogg_stream_pageout ( ogg-stream-state* os, ogg-page* og ) ;
    114. 

  114. FUNCTION: int      ogg_stream_flush ( ogg-stream-state* os, ogg-page* og ) ;
    115. 

  115. FUNCTION: int      ogg_sync_init ( ogg-sync-state* oy ) ;
    116. 

  116. FUNCTION: int      ogg_sync_clear ( ogg-sync-state* oy ) ;
    117. 

  117. FUNCTION: int      ogg_sync_reset ( ogg-sync-state* oy ) ;
    118. 

  118. FUNCTION: int   ogg_sync_destroy ( ogg-sync-state* oy ) ;
    119. 

  119. 

  120. FUNCTION: void* ogg_sync_buffer ( ogg-sync-state* oy, long size ) ;
    121. 

  121. FUNCTION: int      ogg_sync_wrote ( ogg-sync-state* oy, long bytes ) ;
    122. 

  122. FUNCTION: long     ogg_sync_pageseek ( ogg-sync-state* oy, ogg-page* og ) ;
    123. 

  123. FUNCTION: int      ogg_sync_pageout ( ogg-sync-state* oy, ogg-page* og ) ;
    124. 

  124. FUNCTION: int      ogg_stream_pagein ( ogg-stream-state* os, ogg-page* og ) ;
    125. 

  125. FUNCTION: int      ogg_stream_packetout ( ogg-stream-state* os, ogg-packet* op ) ;
    126. 

  126. FUNCTION: int      ogg_stream_packetpeek ( ogg-stream-state* os, ogg-packet* op ) ;
    127. 

  127. FUNCTION: int      ogg_stream_init ( ogg-stream-state* os, int serialno ) ;
    128. 

  128. FUNCTION: int      ogg_stream_clear ( ogg-stream-state* os ) ;
    129. 

  129. FUNCTION: int      ogg_stream_reset ( ogg-stream-state* os ) ;
    130. 

  130. FUNCTION: int      ogg_stream_reset_serialno ( ogg-stream-state* os, int serialno ) ;
    131. 

  131. FUNCTION: int      ogg_stream_destroy ( ogg-stream-state* os ) ;
    132. 

  132. FUNCTION: int      ogg_stream_eos ( ogg-stream-state* os ) ;
    133. 

  133. FUNCTION: void     ogg_page_checksum_set ( ogg-page* og ) ;
    134. 

  134. FUNCTION: int      ogg_page_version ( ogg-page* og ) ;
    135. 

  135. FUNCTION: int      ogg_page_continued ( ogg-page* og ) ;
    136. 

  136. FUNCTION: int      ogg_page_bos ( ogg-page* og ) ;
    137. 

  137. FUNCTION: int      ogg_page_eos ( ogg-page* og ) ;
    138. 

  138. FUNCTION: longlong  ogg_page_granulepos ( ogg-page* og ) ;
    139. 

  139. FUNCTION: int      ogg_page_serialno ( ogg-page* og ) ;
    140. 

  140. FUNCTION: long     ogg_page_pageno ( ogg-page* og ) ;
    141. 

  141. FUNCTION: int      ogg_page_packets ( ogg-page* og ) ;
    142. 

  142. FUNCTION: void     ogg_packet_clear ( ogg-packet* op ) ;
    143.