//-----------------------------------------------------------------------------
// Copyright (C) 2009 Michael Gernoth <michael at gernoth.net>
// Copyright (C) 2010 iZsh <izsh at fail0verflow.com>
//
// This code is licensed to you under the terms of the GNU GPL, version 2 or,
// at your option, any later version. See the LICENSE.txt file for the text of
// the license.
//-----------------------------------------------------------------------------
// Main binary
//-----------------------------------------------------------------------------
#include "proxmark3.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <pthread.h>
#include <unistd.h>
#include <readline/readline.h>
#include <readline/history.h>

#include "util_posix.h"
#include "proxgui.h"
#include "cmdmain.h"
#include "ui.h"
#include "util.h"
#include "cmdparser.h"
#include "cmdhw.h"
#include "whereami.h"
#include "comms.h"

#if defined(__linux__) || (__APPLE__)
static void showBanner(void) {
    printf("\n\n");
    printf("\e[34m██████╗ ███╗   ███╗ ████╗\e[0m     ...iceman fork\n");
    printf("\e[34m██╔══██╗████╗ ████║   ══█║\e[0m      ...dedicated to \e[34mRDV40\e[0m\n");
    printf("\e[34m██████╔╝██╔████╔██║ ████╔╝\e[0m\n");
    printf("\e[34m██╔═══╝ ██║╚██╔╝██║   ══█║\e[0m    iceman@icesql.net\n");
    printf("\e[34m██║     ██║ ╚═╝ ██║ ████╔╝\e[0m  https://github.com/iceman1001/proxmark3\n");
    printf("\e[34m╚═╝     ╚═╝     ╚═╝ ╚═══╝\e[0m pre v4.0\n");
    printf("\nKeep iceman fork alive with a donation!           https://paypal.me/iceman1001/");
    printf("\nMONERO: 43mNJLpgBVaTvyZmX9ajcohpvVkaRy1kbZPm8tqAb7itZgfuYecgkRF36rXrKFUkwEGeZedPsASRxgv4HPBHvJwyJdyvQuP");
    printf("\n\n\n");
    fflush(stdout);
}
#endif

void
#ifdef __has_attribute
#if __has_attribute(force_align_arg_pointer)
__attribute__((force_align_arg_pointer))
#endif
#endif
main_loop(char *script_cmds_file, char *script_cmd, bool usb_present) {

    char *cmd = NULL;
    bool execCommand = (script_cmd != NULL);
    bool stdinOnPipe = !isatty(STDIN_FILENO);
    FILE *sf = NULL;
    char script_cmd_buf[256] = {0x00};  // iceman, needs lua script the same file_path_buffer as the rest

    PrintAndLogEx(DEBUG, "ISATTY/STDIN_FILENO == %s\n", (stdinOnPipe) ? "true" : "false");

    if (usb_present) {
        SetOffline(false);
        // cache Version information now:
        if (execCommand || script_cmds_file || stdinOnPipe)
            CmdVersion("s");
        else
            CmdVersion("");
    } else {
        SetOffline(true);
    }

    if (script_cmds_file) {

        sf = fopen(script_cmds_file, "r");
        if (sf)
            PrintAndLogEx(SUCCESS, "executing commands from file: %s\n", script_cmds_file);
    }

    read_history(".history");

    // loops every time enter is pressed...
    while (1) {

        // this should hook up the PM3 again.
        /*
        if ( IsOffline() ) {

            // sets the global variable, SP and offline)
            usb_present = hookUpPM3();

            // usb and the reader_thread is NULL,  create a new reader thread.
            if (usb_present && !IsOffline() ) {
                rarg.run = 1;
                pthread_create(&reader_thread, NULL, &uart_receiver, &rarg);
                // cache Version information now:
                if ( execCommand || script_cmds_file || stdinOnPipe)
                    CmdVersion("s");
                else
                    CmdVersion("");
            }
        }
        */

        // If there is a script file
        if (sf) {

            // clear array
            memset(script_cmd_buf, 0, sizeof(script_cmd_buf));

            // read script file
            if (!fgets(script_cmd_buf, sizeof(script_cmd_buf), sf)) {
                fclose(sf);
                sf = NULL;
            } else {

                // remove linebreaks
                strcleanrn(script_cmd_buf, sizeof(script_cmd_buf));

                if ((cmd = strmcopy(script_cmd_buf)) != NULL)
                    PrintAndLogEx(NORMAL, PROXPROMPT"%s\n", cmd);
            }
        } else {
            // If there is a script command
            if (execCommand) {

                if ((cmd = strmcopy(script_cmd)) != NULL)
                    PrintAndLogEx(NORMAL, PROXPROMPT"%s", cmd);

                execCommand = false;
            } else {
                // exit after exec command
                if (script_cmd)
                    break;

                // if there is a pipe from stdin
                if (stdinOnPipe) {

                    // clear array
                    memset(script_cmd_buf, 0, sizeof(script_cmd_buf));
                    // get
                    if (!fgets(script_cmd_buf, sizeof(script_cmd_buf), stdin)) {
                        PrintAndLogEx(ERR, "STDIN unexpected end, exit...");
                        break;
                    }
                    // remove linebreaks
                    strcleanrn(script_cmd_buf, sizeof(script_cmd_buf));

                    if ((cmd = strmcopy(script_cmd_buf)) != NULL)
                        PrintAndLogEx(NORMAL, PROXPROMPT"%s", cmd);

                } else {
                    cmd = readline(PROXPROMPT);
                    fflush(NULL);
                }
            }
        }

        // execute command
        if (cmd) {

            // rtrim
            size_t l = strlen(cmd);
            if (l > 0 && isspace(cmd[l - 1]))
                cmd[l - 1] = 0x00;

            if (cmd[0] != 0x00) {
                int ret = CommandReceived(cmd);
                HIST_ENTRY *entry = history_get(history_length);
                if ((!entry) || (strcmp(entry->line, cmd) != 0))
                    add_history(cmd);

                // exit or quit
                if (ret == 99)
                    break;
            }
            free(cmd);
            cmd = NULL;
        } else {
            PrintAndLogEx(NORMAL, "\n");
            break;
        }
    } // end while

    if (sf)
        fclose(sf);

    write_history(".history");

    if (cmd) {
        free(cmd);
        cmd = NULL;
    }
}

static void dumpAllHelp(int markdown) {
    PrintAndLogEx(NORMAL, "\n%sProxmark3 command dump%s\n\n", markdown ? "# " : "", markdown ? "" : "\n======================");
    PrintAndLogEx(NORMAL, "Some commands are available only if a Proxmark is actually connected.%s\n", markdown ? "  " : "");
    PrintAndLogEx(NORMAL, "Check column \"offline\" for their availability.\n");
    PrintAndLogEx(NORMAL, "\n");
    command_t *cmds = getTopLevelCommandTable();
    dumpCommandsRecursive(cmds, markdown);
}

static char *my_executable_path = NULL;
static char *my_executable_directory = NULL;

const char *get_my_executable_path(void) {
    return my_executable_path;
}

const char *get_my_executable_directory(void) {
    return my_executable_directory;
}

static void set_my_executable_path(void) {
    int path_length = wai_getExecutablePath(NULL, 0, NULL);
    if (path_length != -1) {
        my_executable_path = (char *)calloc(path_length + 1, sizeof(uint8_t));
        int dirname_length = 0;
        if (wai_getExecutablePath(my_executable_path, path_length, &dirname_length) != -1) {
            my_executable_path[path_length] = '\0';
            my_executable_directory = (char *)calloc(dirname_length + 2, sizeof(uint8_t));
            strncpy(my_executable_directory, my_executable_path, dirname_length + 1);
            my_executable_directory[dirname_length + 1] = '\0';
        }
    }
}

static void show_help(bool showFullHelp, char *command_line) {
    PrintAndLogEx(NORMAL, "syntax: %s <port> [-h | -help | -m | -f | -flush | -w | -wait | -c | -command | -l | -lua] [cmd_script_file_name] [command][lua_script_name]\n", command_line);
    PrintAndLogEx(NORMAL, "\texample:'%s "SERIAL_PORT_H"'\n\n", command_line);

    if (showFullHelp) {
        PrintAndLogEx(NORMAL, "help: <-h|-help> Dump all interactive command's help at once.\n");
        PrintAndLogEx(NORMAL, "\t%s  -h\n\n", command_line);
        PrintAndLogEx(NORMAL, "markdown: <-m> Dump all interactive help at once in markdown syntax\n");
        PrintAndLogEx(NORMAL, "\t%s -m\n\n", command_line);
        PrintAndLogEx(NORMAL, "flush: <-f|-flush> Output will be flushed after every print.\n");
        PrintAndLogEx(NORMAL, "\t%s -f\n\n", command_line);
        PrintAndLogEx(NORMAL, "wait: <-w|-wait> 20sec waiting the serial port to appear in the OS\n");
        PrintAndLogEx(NORMAL, "\t%s "SERIAL_PORT_H" -w\n\n", command_line);
        PrintAndLogEx(NORMAL, "script: A script file with one proxmark3 command per line.\n\n");
        PrintAndLogEx(NORMAL, "command: <-c|-command> Execute one proxmark3 command.\n");
        PrintAndLogEx(NORMAL, "\t%s "SERIAL_PORT_H" -c \"hf mf chk 1* ?\"\n", command_line);
        PrintAndLogEx(NORMAL, "\t%s "SERIAL_PORT_H" -command \"hf mf nested 1 *\"\n\n", command_line);
        PrintAndLogEx(NORMAL, "lua: <-l|-lua> Execute lua script.\n");
        PrintAndLogEx(NORMAL, "\t%s "SERIAL_PORT_H" -l hf_read\n\n", command_line);
    }
}

int main(int argc, char *argv[]) {
    srand(time(0));

    bool usb_present = false;
    bool waitCOMPort = false;
    bool executeCommand = false;
    bool addLuaExec = false;
    char *script_cmds_file = NULL;
    char *script_cmd = NULL;
    char *lastarg = NULL;
    char *port = NULL;
    uint32_t speed = 0;

    /* initialize history */
    using_history();

#ifdef RL_STATE_READCMD
    rl_extend_line_buffer(1024);
#endif

    if (argc < 2) {
        show_help(true, argv[0]);
        return 1;
    }

    uint32_t i = 1;
    port = argv[i++];
    for (i; i < argc; i++) {

        // helptext
        if (strcmp(argv[i], "-h") == 0 || strcmp(argv[i], "-help") == 0) {
            show_help(false, argv[0]);
            dumpAllHelp(0);
            return 0;
        }

        // dump markup
        if (strcmp(argv[i], "-m") == 0) {
            dumpAllHelp(1);
            return 0;
        }

        // flush output
        if (strcmp(argv[i], "-f") == 0 || strcmp(argv[i], "-flush") == 0) {
            SetFlushAfterWrite(true);
            PrintAndLogEx(INFO, "Output will be flushed after every print.\n");
            continue;
        }

        // set baudrate
        if (strcmp(argv[i], "-b") == 0 || strcmp(argv[i], "-baud") == 0) {
            uint32_t tmpspeed = strtoul(argv[i + 1], NULL, 10);
            if ((tmpspeed == ULONG_MAX) || (tmpspeed == 0)) {
                PrintAndLogEx(WARNING, "ERROR: invalid baudrate: %s %s\n", argv[i], argv[i + 1]);
                return 1;
            }
            speed = tmpspeed;
            i++;
            continue;
        }

        // wait for comport
        if (strcmp(argv[i], "-w") == 0 || strcmp(argv[i], "-wait") == 0) {
            waitCOMPort = true;
            continue;
        }

        // execute pm3 command
        if (strcmp(argv[i], "-c") == 0 || strcmp(argv[i], "-command") == 0) {
            executeCommand = true;
            continue;
        }

        // execute lua script
        if (strcmp(argv[i], "-l") == 0 || strcmp(argv[i], "-lua") == 0) {
            executeCommand = true;
            addLuaExec = true;
            continue;
        }

        if (i < argc - 1) {
            // We got an unknown parameter
            PrintAndLogEx(WARNING, "WARNING: ignoring invalid parameter: %s\n", argv[i]);
        }

        if (i == argc - 1) {
            // We got presumably a command or a filename
            lastarg = argv[argc - 1];
        }
    }

    if (speed == 0)
        speed = 460800;

    // If the user passed the filename of the 'script' to execute, get it from last parameter
    if (lastarg) {
        if (executeCommand) {
            script_cmd = lastarg;

            while (script_cmd[strlen(script_cmd) - 1] == ' ')
                script_cmd[strlen(script_cmd) - 1] = 0x00;

            if (strlen(script_cmd) == 0) {
                script_cmd = NULL;
            } else {
                if (addLuaExec) {
                    // add "script run " to command
                    int len = strlen(script_cmd) + 11 + 1;
                    char *ctmp = (char *) calloc(len, sizeof(uint8_t));
                    if (ctmp != NULL) {
                        memset(ctmp, 0, len);
                        strcpy(ctmp, "script run ");
                        strcpy(&ctmp[11], script_cmd);
                        script_cmd = ctmp;
                    }
                }

                PrintAndLogEx(SUCCESS, "execute command from commandline: %s\n", script_cmd);
            }
        } else {
            script_cmds_file = lastarg;
        }
    }

    // check command
    if (executeCommand && (!script_cmd || strlen(script_cmd) == 0)) {
        PrintAndLogEx(WARNING, "ERROR: execute command: command not found.\n");
        return 2;
    }

#if defined(__linux__) || (__APPLE__)
// ascii art doesn't work well on mingw :(

    bool stdinOnPipe = !isatty(STDIN_FILENO);
    if (!executeCommand && !script_cmds_file && !stdinOnPipe)
        showBanner();
#endif

    // set global variables
    set_my_executable_path();

    // try to open USB connection to Proxmark
    usb_present = OpenProxmark(port, waitCOMPort, 20, false, speed);

#ifdef HAVE_GUI

#  ifdef _WIN32
    InitGraphics(argc, argv, script_cmds_file, script_cmd, usb_present);
    MainGraphics();
#  else
    // for *nix distro's,  check enviroment variable to verify a display
    char *display = getenv("DISPLAY");
    if (display && strlen(display) > 1) {
        InitGraphics(argc, argv, script_cmds_file, script_cmd, usb_present);
        MainGraphics();
    } else {
        main_loop(script_cmds_file, script_cmd, usb_present);
    }
#  endif

#else
    main_loop(script_cmds_file, script_cmd, usb_present);
#endif

    // Clean up the port
    if (usb_present) {
        CloseProxmark();
    }

    exit(0);
}