Rewrote the ansi parser to exactly callback on color setting, so now just need to clean this all up and fix a few little bugs.

main
Zed A. Shaw 5 days ago
parent 96ee16e598
commit 89a70f398a
  1. 185
      ansi_parser.cpp
  2. 6
      ansi_parser.hpp
  3. 47
      ansi_parser.rl
  4. 16
      gui.cpp
  5. 3
      main.cpp
  6. 87
      render.cpp
  7. 5
      render.hpp
  8. 5
      status.txt
  9. 6
      tests/ansi_parser.cpp

@ -5,86 +5,98 @@
#include "dbc.hpp" #include "dbc.hpp"
#include <SFML/Graphics.hpp> #include <SFML/Graphics.hpp>
#include "ansi_parser.hpp" #include "ansi_parser.hpp"
#include <iostream>
using namespace fmt; using namespace fmt;
#line 80 "ansi_parser.rl" #line 105 "ansi_parser.rl"
#line 12 "ansi_parser.cpp" #line 13 "ansi_parser.cpp"
static const char _foo_actions[] = { static const char _foo_actions[] = {
0, 1, 0, 1, 3, 1, 4, 1, 0, 1, 0, 1, 3, 1, 4, 1,
5, 1, 6, 1, 7, 1, 11, 1, 5, 1, 6, 1, 7, 1, 8, 1,
12, 2, 1, 8, 2, 1, 9, 2, 9, 1, 10, 1, 14, 1, 15, 2,
12, 5, 3, 1, 10, 2 1, 11, 2, 1, 12, 2, 15, 5,
3, 1, 13, 2
}; };
static const char _foo_key_offsets[] = { static const char _foo_key_offsets[] = {
0, 0, 1, 2, 4, 6, 7, 8, 0, 0, 1, 2, 8, 9, 11, 12,
9, 11, 14, 16, 19, 21, 24, 25, 15, 16, 17, 18, 20, 23, 25, 28,
27, 28, 29, 30, 31 30, 33, 34, 37, 38, 39, 40, 41,
42
}; };
static const int _foo_trans_keys[] = { static const int _foo_trans_keys[] = {
27, 91, 51, 52, 56, 57, 59, 50, 27, 91, 50, 51, 52, 55, 48, 54,
59, 48, 57, 59, 48, 57, 48, 57, 109, 55, 109, 109, 56, 57, 109, 59,
59, 48, 57, 48, 57, 109, 48, 57, 50, 59, 48, 57, 59, 48, 57, 48,
109, 56, 57, 59, 50, 109, 27, 27, 57, 59, 48, 57, 48, 57, 109, 48,
0 57, 109, 56, 57, 109, 59, 50, 109,
109, 27, 27, 0
}; };
static const char _foo_single_lengths[] = { static const char _foo_single_lengths[] = {
0, 1, 1, 2, 2, 1, 1, 1, 0, 1, 1, 4, 1, 2, 1, 3,
0, 1, 0, 1, 0, 1, 1, 2, 1, 1, 1, 0, 1, 0, 1, 0,
1, 1, 1, 1, 1 1, 1, 3, 1, 1, 1, 1, 1,
1
}; };
static const char _foo_range_lengths[] = { static const char _foo_range_lengths[] = {
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1,
0, 0, 0, 0, 0 1, 0, 0, 0, 0, 0, 0, 0,
0
}; };
static const char _foo_index_offsets[] = { static const char _foo_index_offsets[] = {
0, 0, 2, 4, 7, 10, 12, 14, 0, 0, 2, 4, 10, 12, 15, 17,
16, 18, 21, 23, 26, 28, 31, 33, 21, 23, 25, 27, 29, 32, 34, 37,
36, 38, 40, 42, 44 39, 42, 44, 48, 50, 52, 54, 56,
58
}; };
static const char _foo_trans_targs[] = { static const char _foo_trans_targs[] = {
2, 1, 3, 0, 4, 15, 0, 5, 2, 1, 3, 0, 5, 7, 18, 22,
14, 0, 6, 0, 7, 0, 8, 0, 4, 0, 24, 0, 6, 24, 0, 24,
9, 0, 10, 9, 0, 11, 0, 12, 0, 8, 17, 24, 0, 9, 0, 10,
11, 0, 13, 0, 20, 13, 0, 20, 0, 11, 0, 12, 0, 13, 12, 0,
0, 16, 18, 0, 17, 0, 7, 0, 14, 0, 15, 14, 0, 16, 0, 24,
20, 0, 2, 1, 2, 1, 0 16, 0, 24, 0, 19, 21, 24, 0,
20, 0, 10, 0, 24, 0, 24, 0,
2, 1, 2, 1, 0
}; };
static const char _foo_trans_actions[] = { static const char _foo_trans_actions[] = {
0, 7, 0, 0, 13, 13, 0, 0, 0, 7, 0, 0, 19, 19, 19, 19,
0, 0, 0, 0, 3, 0, 0, 0, 19, 0, 0, 0, 0, 17, 0, 15,
1, 0, 17, 0, 0, 1, 0, 20, 0, 0, 0, 0, 0, 0, 0, 3,
0, 0, 1, 0, 26, 0, 0, 9, 0, 0, 0, 1, 0, 23, 0, 0,
0, 0, 0, 0, 0, 0, 5, 0, 1, 0, 26, 0, 0, 1, 0, 32,
11, 0, 0, 7, 15, 23, 0 0, 0, 9, 0, 0, 0, 0, 0,
0, 0, 5, 0, 11, 0, 13, 0,
0, 7, 21, 29, 0
}; };
static const char _foo_eof_actions[] = { static const char _foo_eof_actions[] = {
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 15 0, 0, 0, 0, 0, 0, 0, 0,
21
}; };
static const int foo_start = 19; static const int foo_start = 23;
static const int foo_first_final = 19; static const int foo_first_final = 23;
static const int foo_error = 0; static const int foo_error = 0;
static const int foo_en_main = 19; static const int foo_en_main = 23;
#line 83 "ansi_parser.rl" #line 108 "ansi_parser.rl"
#include <ftxui/screen/terminal.hpp> #include <ftxui/screen/terminal.hpp>
@ -98,7 +110,7 @@ ANSIParser::ANSIParser(sf::Color default_fg, sf::Color default_bg) :
} }
} }
bool ANSIParser::parse(std::wstring_view codes, WriteCB write) { bool ANSIParser::parse(std::wstring_view codes, ColorCB color_cb, WriteCB write_cb) {
const wchar_t *start = NULL; const wchar_t *start = NULL;
int cs = 0; int cs = 0;
unsigned int value = 0; unsigned int value = 0;
@ -110,14 +122,14 @@ bool ANSIParser::parse(std::wstring_view codes, WriteCB write) {
sf::Color &target = color; sf::Color &target = color;
#line 105 "ansi_parser.cpp" #line 117 "ansi_parser.cpp"
{ {
cs = foo_start; cs = foo_start;
} }
#line 108 "ansi_parser.rl" #line 133 "ansi_parser.rl"
#line 108 "ansi_parser.cpp" #line 120 "ansi_parser.cpp"
{ {
int _klen; int _klen;
unsigned int _trans; unsigned int _trans;
@ -191,13 +203,13 @@ _match:
switch ( *_acts++ ) switch ( *_acts++ )
{ {
case 0: case 0:
#line 13 "ansi_parser.rl" #line 14 "ansi_parser.rl"
{ {
start = p; start = p;
} }
break; break;
case 1: case 1:
#line 17 "ansi_parser.rl" #line 18 "ansi_parser.rl"
{ {
value = 0; value = 0;
size_t len = p - start; size_t len = p - start;
@ -221,56 +233,79 @@ _match:
} }
break; break;
case 2: case 2:
#line 39 "ansi_parser.rl" #line 40 "ansi_parser.rl"
{ } {
color_cb(color, bgcolor);
}
break; break;
case 3: case 3:
#line 40 "ansi_parser.rl" #line 43 "ansi_parser.rl"
{ {
target = color; target = color;
} }
break; break;
case 4: case 4:
#line 43 "ansi_parser.rl" #line 46 "ansi_parser.rl"
{ {
target = bgcolor; target = bgcolor;
} }
break; break;
case 5: case 5:
#line 47 "ansi_parser.rl" #line 50 "ansi_parser.rl"
{ {
write(bgcolor, color, (*p)); write_cb((*p));
} }
break; break;
case 6: case 6:
#line 51 "ansi_parser.rl" #line 54 "ansi_parser.rl"
{ color = $default_fg; } { color = $default_fg; }
break; break;
case 7: case 7:
#line 52 "ansi_parser.rl" #line 55 "ansi_parser.rl"
{ bgcolor = $default_bg; } { bgcolor = $default_bg; }
break; break;
case 8: case 8:
#line 54 "ansi_parser.rl" #line 56 "ansi_parser.rl"
{ target.r = value; } {
color = {100,100,100}; // UNDO THIS
bgcolor = $default_bg; // THIS TOO
color_cb(color, bgcolor);
}
break; break;
case 9: case 9:
#line 55 "ansi_parser.rl" #line 61 "ansi_parser.rl"
{ target.g = value; } {
color = $default_fg;
bgcolor = $default_bg;
color_cb(color, bgcolor);
}
break; break;
case 10: case 10:
#line 56 "ansi_parser.rl" #line 66 "ansi_parser.rl"
{ target.b = value; } {
}
break; break;
case 11: case 11:
#line 57 "ansi_parser.rl" #line 69 "ansi_parser.rl"
{ value = 0; } { target.r = value; }
break; break;
case 12: case 12:
#line 58 "ansi_parser.rl" #line 70 "ansi_parser.rl"
{ } { target.g = value; }
break; break;
#line 247 "ansi_parser.cpp" case 13:
#line 71 "ansi_parser.rl"
{ target.b = value; }
break;
case 14:
#line 72 "ansi_parser.rl"
{ value = 0; }
break;
case 15:
#line 73 "ansi_parser.rl"
{}
break;
#line 279 "ansi_parser.cpp"
} }
} }
@ -286,11 +321,11 @@ _again:
unsigned int __nacts = (unsigned int) *__acts++; unsigned int __nacts = (unsigned int) *__acts++;
while ( __nacts-- > 0 ) { while ( __nacts-- > 0 ) {
switch ( *__acts++ ) { switch ( *__acts++ ) {
case 12: case 15:
#line 58 "ansi_parser.rl" #line 73 "ansi_parser.rl"
{ } {}
break; break;
#line 265 "ansi_parser.cpp" #line 297 "ansi_parser.cpp"
} }
} }
} }
@ -298,7 +333,17 @@ _again:
_out: {} _out: {}
} }
#line 109 "ansi_parser.rl" #line 134 "ansi_parser.rl"
bool good = p - pe == 0;
if(!good) {
println("FAIL AT {}", p - pe);
// dear cthuhlu, save me from the pain that is wstring
for(int i = 0; i < 100; i++) {
print("{}", char(p[i]));
}
}
return p - pe == 0; return good;
} }

@ -3,7 +3,9 @@
#include <SFML/Graphics.hpp> #include <SFML/Graphics.hpp>
#include <codecvt> #include <codecvt>
typedef std::function<void(sf::Color bgcolor, sf::Color color, wchar_t ch)> WriteCB; typedef std::function<void(sf::Color bgcolor, sf::Color color)> ColorCB;
typedef std::function<void(wchar_t ch)> WriteCB;
class ANSIParser { class ANSIParser {
sf::Color $default_fg; sf::Color $default_fg;
@ -16,5 +18,5 @@ public:
// disable copying // disable copying
ANSIParser(ANSIParser& ap) = delete; ANSIParser(ANSIParser& ap) = delete;
bool parse(std::wstring_view codes, WriteCB write); bool parse(std::wstring_view codes, ColorCB color_cb, WriteCB write_cb);
}; };

@ -3,6 +3,7 @@
#include "dbc.hpp" #include "dbc.hpp"
#include <SFML/Graphics.hpp> #include <SFML/Graphics.hpp>
#include "ansi_parser.hpp" #include "ansi_parser.hpp"
#include <iostream>
using namespace fmt; using namespace fmt;
@ -36,7 +37,9 @@ using namespace fmt;
} }
} }
action color24b { } action color_out {
color_cb(color, bgcolor);
}
action is_fg { action is_fg {
target = color; target = color;
} }
@ -45,17 +48,30 @@ using namespace fmt;
} }
action out { action out {
write(bgcolor, color, fc); write_cb(fc);
} }
action reset_fg { color = $default_fg; } action reset_fg { color = $default_fg; }
action reset_bg { bgcolor = $default_bg; } action reset_bg { bgcolor = $default_bg; }
action invert {
color = {100,100,100}; // UNDO THIS
bgcolor = $default_bg; // THIS TOO
color_cb(color, bgcolor);
}
action reset_invert {
color = $default_fg;
bgcolor = $default_bg;
color_cb(color, bgcolor);
}
action half_bright {
}
action red { target.r = value; } action red { target.r = value; }
action blue { target.g = value; } action blue { target.g = value; }
action green { target.b = value; } action green { target.b = value; }
action start { value = 0; } action start { value = 0; }
action end { } action end {}
action log { println("command {}", (char)fc); }
ESC = 0x1B; ESC = 0x1B;
start = ESC "["; start = ESC "[";
@ -70,7 +86,16 @@ using namespace fmt;
start %start start %start
( (
reset | reset |
(fg|bg) color24b num %red ";" num %blue ";" num %green %color24b "0" |
"1" |
"2" %half_bright |
"3" |
"4" |
"5" |
"6" |
"7" %invert |
"27" %reset_invert |
(fg|bg) (color24b num %red ";" num %blue ";" num %green ) %color_out
) "m" %end ) "m" %end
); );
@ -93,7 +118,7 @@ ANSIParser::ANSIParser(sf::Color default_fg, sf::Color default_bg) :
} }
} }
bool ANSIParser::parse(std::wstring_view codes, WriteCB write) { bool ANSIParser::parse(std::wstring_view codes, ColorCB color_cb, WriteCB write_cb) {
const wchar_t *start = NULL; const wchar_t *start = NULL;
int cs = 0; int cs = 0;
unsigned int value = 0; unsigned int value = 0;
@ -107,5 +132,15 @@ bool ANSIParser::parse(std::wstring_view codes, WriteCB write) {
%% write init; %% write init;
%% write exec; %% write exec;
return p - pe == 0; bool good = p - pe == 0;
if(!good) {
println("FAIL AT {}", p - pe);
// dear cthuhlu, save me from the pain that is wstring
for(int i = 0; i < 100; i++) {
print("{}", char(p[i]));
}
}
return good;
} }

@ -202,7 +202,7 @@ void GUI::shake() {
int x = Random::uniform<int>(-20,20); int x = Random::uniform<int>(-20,20);
int y = Random::uniform<int>(-20,20); int y = Random::uniform<int>(-20,20);
// add x/y back to draw screen // add x/y back to draw screen
$renderer.draw_screen($map_view, x, y); $renderer.draw_grid($map_view, x, y);
$renderer.display(); $renderer.display();
std::this_thread::sleep_for(1ms); std::this_thread::sleep_for(1ms);
} }
@ -211,18 +211,8 @@ void GUI::shake() {
void GUI::render_scene() { void GUI::render_scene() {
$renderer.clear(); $renderer.clear();
$renderer.draw_text_ui($status_ui, true); $renderer.draw_text($status_ui);
$renderer.draw_screen($map_view); $renderer.draw_grid($map_view);
/*
Panel prompt(30, 10, GAME_MAP_POS + 30, 200);
prompt.set_renderer([&] {
return hbox({
hflow(vbox(text("GOLD!")))
});
});
$renderer.draw_text_ui(prompt, true);
*/
$renderer.display(); $renderer.display();
} }

@ -9,6 +9,8 @@
#include "save.hpp" #include "save.hpp"
#include "ftxui/screen/terminal.hpp" // for SetColorSupport, Color, TrueColor #include "ftxui/screen/terminal.hpp" // for SetColorSupport, Color, TrueColor
#include <filesystem> #include <filesystem>
#include <fcntl.h>
#include <io.h>
using namespace ftxui; using namespace ftxui;
namespace fs = std::filesystem; namespace fs = std::filesystem;
@ -49,6 +51,7 @@ void configure_world(DinkyECS::World &world, Map &game_map) {
int main(int argc, char *argv[]) { int main(int argc, char *argv[]) {
_setmode(_fileno(stdout), _O_U16TEXT);
DinkyECS::World world; DinkyECS::World world;
Map game_map(GAME_MAP_X, GAME_MAP_Y); Map game_map(GAME_MAP_X, GAME_MAP_Y);

@ -4,6 +4,7 @@
#include <fmt/core.h> #include <fmt/core.h>
#include <array> #include <array>
#include "map.hpp" #include "map.hpp"
#include <iostream>
using namespace fmt; using namespace fmt;
@ -104,16 +105,22 @@ inline void configure_tile(const sf::Sprite &sprite, sf::FloatRect &sp_bounds,
height_delta = bg_bounds.height > sp_bounds.width ? (bg_bounds.height - sp_bounds.height) / 2 : 0; height_delta = bg_bounds.height > sp_bounds.width ? (bg_bounds.height - sp_bounds.height) / 2 : 0;
} }
void SFMLRender::render_text(const std::wstring &text, float x, float y) { void SFMLRender::render_grid(const std::wstring &text, float x, float y) {
wchar_t last_tile = '#'; wchar_t last_tile = '#';
sf::FloatRect sp_bounds; sf::FloatRect sp_bounds;
float width_delta = 0; float width_delta = 0;
float height_delta = 0; float height_delta = 0;
sf::Sprite &sprite = get_text_sprite(last_tile); sf::Sprite &sprite = get_text_sprite(last_tile);
const float start_x = x; const float start_x = x;
sf::Color cur_fg = $default_fg;
// make a copy so we don't modify the cached one // make a copy so we don't modify the cached one
$ansi.parse(text, [&](sf::Color bg, sf::Color fg, wchar_t tile) { $ansi.parse(text, [&](sf::Color fg, sf::Color bg) {
cur_fg = fg;
$bg_sprite.setColor(bg);
},
[&](wchar_t tile) {
if(tile == '\n') { if(tile == '\n') {
// don't bother processing newlines, just skip // don't bother processing newlines, just skip
y += $line_spacing; y += $line_spacing;
@ -122,7 +129,6 @@ void SFMLRender::render_text(const std::wstring &text, float x, float y) {
return; // skip these, just windows junk return; // skip these, just windows junk
} else { } else {
$bg_sprite.setPosition({x, y}); $bg_sprite.setPosition({x, y});
$bg_sprite.setColor(bg);
// only get a new sprite if the tile changed // only get a new sprite if the tile changed
if(last_tile != tile) { if(last_tile != tile) {
@ -132,7 +138,7 @@ void SFMLRender::render_text(const std::wstring &text, float x, float y) {
} }
sprite.setPosition({x+width_delta, y+height_delta}); sprite.setPosition({x+width_delta, y+height_delta});
sprite.setColor(fg); sprite.setColor(cur_fg);
$window.draw($bg_sprite); $window.draw($bg_sprite);
$window.draw(sprite); $window.draw(sprite);
@ -142,7 +148,70 @@ void SFMLRender::render_text(const std::wstring &text, float x, float y) {
}); });
} }
void SFMLRender::draw_text_ui(Panel &panel, bool with_border) { inline sf::FloatRect draw_chunk(sf::RenderWindow& window, sf::Text& text, float x, float y, std::wstring &out) {
text.setString(out);
text.setPosition(x, y);
sf::FloatRect bounds = text.getLocalBounds();
// need left,top,width,height for box to be accurate
window.draw(text);
out.clear();
return bounds;
}
void SFMLRender::render_text(const std::wstring &text, float start_x, float start_y) {
std::wstring out;
float x = start_x;
float y = start_y;
enum State { START=1, BUILDING=2 };
enum Event { NL=1, CHAR=3, SKIP=5 };
State state = START;
Event event = CHAR;
// start with the default_fg until it's changed
$ui_text.setFillColor($default_fg);
$ansi.parse(text,
[&](sf::Color fg, sf::Color bg){
if(out.size() > 0 ) {
auto bounds = draw_chunk($window, $ui_text, x, y, out);
x += bounds.width;
}
$ui_text.setFillColor(fg);
},
[&](wchar_t tile) {
if(tile == '\r') event = SKIP;
else if(tile == '\n') event = NL;
else event = CHAR;
switch(event) {
case SKIP: break; // ignore it
case NL: {
if(state == START) {
state = BUILDING;
} else if(state == BUILDING) {
sf::FloatRect bounds;
if(out.size() > 0) {
bounds = draw_chunk($window, $ui_text, x, y, out);
} else {
bounds = $ui_text.getLocalBounds();
}
y += bounds.height;
x = start_x; // reset to the original position
}
}
break;
case CHAR:
state = BUILDING;
out += tile;
break;
}
}
);
}
void SFMLRender::draw_text(Panel &panel, bool with_border) {
sf::RectangleShape backing( sf::RectangleShape backing(
sf::Vector2f($ui_bounds.width * panel.width, sf::Vector2f($ui_bounds.width * panel.width,
$ui_bounds.height * panel.height)); $ui_bounds.height * panel.height));
@ -159,13 +228,11 @@ void SFMLRender::draw_text_ui(Panel &panel, bool with_border) {
panel.render(); panel.render();
const std::wstring &panelout = panel.to_string(); const std::wstring &panelout = panel.to_string();
$ui_text.setPosition(panel.x, panel.y); render_text(panelout, panel.x, panel.y);
$ui_text.setString(panelout);
$window.draw($ui_text);
} }
void SFMLRender::draw_screen(Panel &panel, float x, float y) { void SFMLRender::draw_grid(Panel &panel, float x, float y) {
panel.render(); panel.render();
const std::wstring &panelout = panel.to_string(); const std::wstring &panelout = panel.to_string();
render_text(panelout, panel.x + x, panel.y + y); render_grid(panelout, panel.x + x, panel.y + y);
} }

@ -55,9 +55,10 @@ struct SFMLRender {
sf::Color color(Value val); sf::Color color(Value val);
sf::Sprite &get_text_sprite(wchar_t tile); sf::Sprite &get_text_sprite(wchar_t tile);
bool resize_map(int new_size, Point &view_port); bool resize_map(int new_size, Point &view_port);
void render_grid(const std::wstring &text, float x, float y);
void render_text(const std::wstring &text, float x, float y); void render_text(const std::wstring &text, float x, float y);
void draw_text_ui(Panel &panel, bool with_border=false); void draw_text(Panel &panel, bool with_border=false);
void draw_screen(Panel &panel, float map_off_x=0.0f, float map_off_y=0.0f); void draw_grid(Panel &panel, float map_off_x=0.0f, float map_off_y=0.0f);
bool poll_event(sf::Event &event) { bool poll_event(sf::Event &event) {
return $window.pollEvent(event); return $window.pollEvent(event);

@ -1,4 +1,6 @@
NOTES: TODAY'S GOAL:
* Run the ansi_parser on the whole UI so I can use colors and other glyphs.
TODO: TODO:
@ -6,7 +8,6 @@ TODO:
* Can std::any be defaulted to a noop in the events? * Can std::any be defaulted to a noop in the events?
* Save file isn't saving gold. * Save file isn't saving gold.
* Inventory needs to be better, but need some kinds of "weapons" or other loot to get and not just gold. * Inventory needs to be better, but need some kinds of "weapons" or other loot to get and not just gold.
* Run the ansi_parser on the whole UI so I can use colors and other glyphs.
* Create a few more enemy types to fight. * Create a few more enemy types to fight.
* Devise a more complete map/world generator that can use the loot and enemies better. * Devise a more complete map/world generator that can use the loot and enemies better.
* Maybe an LOS system, but the hearing version works pretty well so far. * Maybe an LOS system, but the hearing version works pretty well so far.

@ -63,7 +63,11 @@ TEST_CASE("test out ragel parser", "[gui]") {
std::cout << colors; std::cout << colors;
bool good = ansi.parse(colors_utf, [&](sf::Color bgcolor, sf::Color color, wchar_t ch) { bool good = ansi.parse(colors_utf,
[&](sf::Color color, sf::Color bgcolor){
// ignore color
},
[&](wchar_t ch) {
bool correct_char = ch == '#' || ch == ' ' || ch == '\n' || ch == '\r'; bool correct_char = ch == '#' || ch == ' ' || ch == '\n' || ch == '\r';
REQUIRE(correct_char); REQUIRE(correct_char);
}); });

Loading…
Cancel
Save