Артем (Все сообщения пользователя)

ru_RU.lang
open_connection="Установить соединение"
settings_menu="Настройки"
...

void buildCandles ( Candles &source, Candles &output, int interval ) {
+ if ( !validInterval ( interval ) ) return;
  for ( int i = 0; i < source.len; i++ ) {   

for k = 1, i = 1; i <= source.len; i++:
  if source[i].time > candle[k].time + interval: 
    k++
    candle[k].time = source[i].time - source[i].time % interval
    candle[k].open = source[i].value
  candle[k].low = min ( candle[k].low, source[i].value )
  candle[k].high = max ( candle[k].high, source[i].value )
  candle[k].close = source[i].value
  candle[k].volume += source[i].volume 

function string.upper ( str ) return str:gsub ( "([a-zа-яё])", function ( c ) return string.char ( string.byte ( c ) - ( c == 'ё' and 16 or 32 ) ) end ) end
function string.lower ( str ) return str:gsub ( "([A-ZА-ЯЁ])", function ( c ) return string.char ( string.byte ( c ) + ( c == 'ё' and 16 or 32 ) ) end ) end

function string.upper ( str ) return str:gsub ( "([a-zа-я])", function ( c ) return string.char ( string.byte ( c ) - 32 ) end ) end
function string.lower ( str ) return str:gsub ( "([A-ZА-Я])", function ( c ) return string.char ( string.byte ( c ) + 32 ) end ) end

os.setlocale ( 'Russian_Russia.1251' ) -- 'ru_RU.CP1251', 'rus_RUS.CP1251', 'Russian_Russia.1251'

void QLuaManager::queueCallback ( Callback &callback ) {
  for ( auto &script : this.scripts )
    script.queueCallback ( callback );
}
void Script::queueCallback ( Callback &callback ) {
  this.queue.push ( callback );
  if ( this.queuePaused == false )
    this.executeQueue ( script );
}
void Script::pauseCallbacks ( ) {
  this.queuePaused = true;
}
void Script::resumeCallbacks ( ) {
  this.queuePaused = false;
  this.executeQueue ( script );
}

local function savetable ( tbl, fname, separator )
    local file, errmsg = io.open ( fname, "w" )
    if not file then error ( errmsg ) end

    local nr, nc = GetTableSize ( tbl )
    if not nr or not nc then error ( "Invalid table handler: " .. tostring ( tbl ) ) end

    if not separator then separator = "," end
    local replace = "\\" .. separator

    local data = { }
    for r = 1, nr do
        for c = 1, nc do
            local v = GetCell ( tbl, r, c )
            data[ #data + 1 ] = tostring ( v.value == 0 and v.image or tostring ( v.value ) ):gsub ( separator, replace )
            data[ #data + 1 ] = separator
        end
        data[ #data ] = "\n"
    end
    file:write ( table.concat ( data ) )
    file:close ( )
end

local function loadtable ( tbl, fname, separator )
    local file, errmsg = io.open ( fname, "r" )
    if not file then error ( errmsg ) end

    local nr, nc = GetTableSize ( tbl )
    if not nr or not nc then error ( "Invalid table handler: " .. tostring ( tbl ) ) end

    if not separator then separator = "," end
    local replace = "\\" .. separator
    local pattern =  "[^" .. separator .. "]*"

    local r, c= 0, 0
    for line in file:lines ( ) do
        c = 0
        r = r + 1
        for tok in line:gmatch ( pattern ) do
            col = col + 1
            tok = tok:gsub ( replace, separator )
            local num = tonumber ( tok )
            if num then
                SetCell ( tbl, r, c, tok, num )
            else
                SetCell ( tbl, r, c, tok )
            end
        end
    end
end