aboutsummaryrefslogtreecommitdiffstats
path: root/common/str_ring_buffer.cc
blob: 443d8612a54508051c08e107e071232db3fc1d7a (plain)
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
/*
 *  nextpnr -- Next Generation Place and Route
 *
 *  Copyright (C) 2018  Claire Xenia Wolf <claire@yosyshq.com>
 *
 *  Permission to use, copy, modify, and/or distribute this software for any
 *  purpose with or without fee is hereby granted, provided that the above
 *  copyright notice and this permission notice appear in all copies.
 *
 *  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 *  WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 *  MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 *  ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 *  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 *  ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 *  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *
 */

#include "str_ring_buffer.h"

#include "nextpnr_namespaces.h"

NEXTPNR_NAMESPACE_BEGIN

std::string &StrRingBuffer::next()
{
    std::string &s = buffer.at(index++);
    if (index >= N)
        index = 0;
    return s;
}

NEXTPNR_NAMESPACE_END
pan class="c1">-- however invalidate any other reasons why the executable file might be -- covered by the GNU Public License. with Interfaces.C; use Interfaces.C; with System; use System; package body Windows_Default_Path is subtype DWORD is Interfaces.C.Unsigned_Long; subtype HINSTANCE is Address; function GetModuleFileName (Inst : HINSTANCE; Buf : Address; Size : DWORD) return DWORD; pragma Import (Stdcall, GetModuleFileName, "GetModuleFileNameA"); function Get_Windows_Exec_Path return String is File : String (1 .. 256); Size : DWORD; P : Natural; begin -- Get exe file path. Size := GetModuleFileName (Null_Address, File'Address, File'Length); if Size = 0 or Size = File'Length then return "{cannot find install path}\lib"; end if; -- Remove Program file. P := Natural (Size); while P > 0 loop exit when File (P) = '\'; exit when File (P) = ':' and P = 2; P := P - 1; end loop; if File (P) = '\' and P > 1 then -- Remove directory P := P - 1; while P > 0 loop exit when File (P) = '\'; exit when File (P) = ':' and P = 2; P := P - 1; end loop; end if; return File (1 .. P); end Get_Windows_Exec_Path; end Windows_Default_Path;