lib/etorrent-1.0/src/etorrent_mnesia_init.erl

   1 -module(etorrent_mnesia_init).
   2
   3 -include_lib("stdlib/include/qlc.hrl").
   4 -include("etorrent_mnesia_table.hrl").
   5
   6 -export([init/0, wait/0]).
   7
   8 init() ->
   9     mnesia:create_table(tracking_map,
  10                         [{attributes, record_info(fields, tracking_map)}]),
  11
  12     mnesia:create_table(path_map,
  13                         [{attributes, record_info(fields, path_map)},
  14                          {index, [path]}]),
  15
  16     mnesia:create_table(torrent,
  17                         [{attributes, record_info(fields, torrent)}]),
  18     mnesia:create_table(torrent_c_pieces,
  19                         [{attributes, record_info(fields, torrent_c_pieces)}]),
  20
  21     mnesia:create_table(peer,
  22                         [{attributes, record_info(fields, peer)},
  23                          {index, [torrent_id]}]),
  24
  25     mnesia:create_table(piece_diskstate,
  26                         [{attributes, record_info(fields, piece_diskstate)},
  27                          {disc_copies, [node()]}]),
  28     wait().
  29
  30 wait() ->
  31     BaseTables = [tracking_map, path_map, torrent,
  32                   torrent_c_pieces, peer, piece_diskstate],
  33     mnesia:wait_for_tables(BaseTables, 5000).
  34
  35
  36
  37
  38