Skip to content
This repository
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 126 lines (105 sloc) 3.91 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126
/*
* Copyright (c) 2014 Francisco Zamora-Martinez (pakozm@gmail.com)
* Copyright (c) 2009 Neil Richardson (nrich@iinet.net.au)
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
* IN THE SOFTWARE.
*/

#include <iostream>
#include <client/dbclient.h>
#include <sys/time.h>
#include "utils.h"
#include "common.h"

extern int mongo_bsontypes_register(lua_State *L);
extern int mongo_connection_register(lua_State *L);
extern int mongo_replicaset_register(lua_State *L);
extern int mongo_cursor_register(lua_State *L);
extern int mongo_query_register(lua_State *L);
extern int mongo_gridfs_register(lua_State *L);
extern int mongo_gridfile_register(lua_State *L);
extern int mongo_gridfschunk_register(lua_State *L);
extern int mongo_gridfilebuilder_register(lua_State *L);

int mongo_sleep(lua_State *L) {
    double sleeptime = luaL_checknumber(L, 1);
    double seconds = floor(sleeptime);
    struct timespec req;
    req.tv_sec = (time_t)seconds;
    req.tv_nsec = (long)((sleeptime-seconds)*1e6);
    nanosleep(&req, 0);
    return 0;
}

int mongo_time(lua_State *L) {
    struct timeval wop;
    gettimeofday(&wop, 0);
    lua_pushnumber(L, static_cast<double>(wop.tv_sec) +
                   static_cast<double>(wop.tv_usec)*1e-6);
    return 1;
}

/*
*
* library entry point
*
*/

extern "C" {

LM_EXPORT int luaopen_mongo(lua_State *L) {
    static const luaL_Reg static_functions[] = {
        {"sleep", mongo_sleep},
        {"time", mongo_time},
        {NULL, NULL}
    };

    // bsontypes is the root table
    mongo_bsontypes_register(L);
    
    // LUAMONGO_CONNECTION
    mongo_connection_register(L);
    lua_setfield(L, -2, LUAMONGO_CONNECTION);
    
    // LUAMONGO_REPLICASET
    mongo_replicaset_register(L);
    lua_setfield(L, -2, LUAMONGO_REPLICASET);
    
    // LUAMONGO_CURSOR
    mongo_cursor_register(L);
    lua_setfield(L, -2, LUAMONGO_CURSOR);
    
    // LUAMONGO_QUERY
    mongo_query_register(L);
    lua_setfield(L, -2, LUAMONGO_QUERY);
    
    // LUAMONGO_GRIDFS
    mongo_gridfs_register(L);
    lua_setfield(L, -2, LUAMONGO_GRIDFS);
    
    // LUAMONGO_GRIDFILE
    mongo_gridfile_register(L);
    lua_setfield(L, -2, LUAMONGO_GRIDFILE);
    
    // LUAMONGO_GRIDFSCHUNK
    mongo_gridfschunk_register(L);
    lua_setfield(L, -2, LUAMONGO_GRIDFSCHUNK);

    // LUAMONGO_GRIDFILEBUILDER
    mongo_gridfilebuilder_register(L);
    lua_setfield(L, -2, LUAMONGO_GRIDFILEBUILDER);

    /*
* push the created table to the top of the stack
* so "mongo = require('mongo')" works
*/
    // lua_getglobal(L, LUAMONGO_ROOT);
    
    // push the version number and module name
    lua_pushstring(L, LUAMONGO_NAME);
    lua_setfield(L, -2, LUAMONGO_NAME_STRING);
    lua_pushstring(L, LUAMONGO_VERSION);
    lua_setfield(L, -2, LUAMONGO_VERSION_STRING);

    // add static functions
    luaL_setfuncs(L, static_functions, 0);

    return 1;
}

}
Something went wrong with that request. Please try again.