about summary refs log tree commit diff stats
path: root/atom/grammars/subx.json
blob: 8ba8c0770f32f7661acd3fe558d4c9adeb26d824 (plain) (blame)
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
{
    "scopeName": "source.subx",
    "name": "SubX",
    "fileTypes": ["subx"],
    "patterns": [
        {
            "name": "header-comment.subx",
            "match": "# - .*"
        },
        {
            "name": "comment-sub-2.subx",
            "match": "# \\. \\. .*"
        },
        {
            "name": "comment-sub-1.subx",
            "match": "# \\. .*"
        },
        {
            "name": "comment.subx",
            "match": "#.*"
        },
        {
            "name": "strings.subx",
            "match": "\"[^\"]*\""
        },
        {
            "name": "test.subx",
            "match": "^test-[^ ]*:"
        },
        {
            "name": "global.subx",
            "match": "^[A-Z][^ ]*:"
        },
        {
            "name": "function.subx",
            "match": "^[^_$ #][^ ]*:"
        },
        {
            "name": "label.subx",
            "match": "^[_$][^ ]*:"
        }
    ]
}
linked combinations including the two. * * You must obey the GNU General Public License in all respects for all of the * code used other than OpenSSL. If you modify file(s) with this exception, you * may extend this exception to your version of the file(s), but you are not * obligated to do so. If you do not wish to do so, delete this exception * statement from your version. If you delete this exception statement from all * source files in the program, then also delete it here. * */ #include <stdlib.h> #include <errno.h> #include <string.h> #include <sys/stat.h> #include <glib.h> #include <glib/gstdio.h> #include "common.h" #include "log.h" #include "window_list.h" #include "command/command.h" #include "ui/ui.h" void scripts_init(void) { gchar *data_home = xdg_get_data_home(); GString *scriptsdir = g_string_new(data_home); free(data_home); g_string_append(scriptsdir, "/profanity/scripts"); // mkdir if doesn't exist errno = 0; int res = g_mkdir_with_parents(scriptsdir->str, S_IRWXU); if (res == -1) { char *errmsg = strerror(errno); if (errmsg) { log_error("Error creating directory: %s, %s", scriptsdir->str, errmsg); } else { log_error("Error creating directory: %s", scriptsdir->str); } } g_string_free(scriptsdir, TRUE); } GSList* scripts_list(void) { gchar *data_home = xdg_get_data_home(); GString *scriptsdir = g_string_new(data_home); free(data_home); g_string_append(scriptsdir, "/profanity/scripts"); GSList *result = NULL; GDir *scripts = g_dir_open(scriptsdir->str, 0, NULL); g_string_free(scriptsdir, TRUE); if (scripts) { const gchar *script = g_dir_read_name(scripts); while (script) { result = g_slist_append(result, strdup(script)); script = g_dir_read_name(scripts); } g_dir_close(scripts); } return result; } GSList* scripts_read(const char *const script) { gchar *data_home = xdg_get_data_home(); GString *scriptpath = g_string_new(data_home); free(data_home); g_string_append(scriptpath, "/profanity/scripts/"); g_string_append(scriptpath, script); FILE *scriptfile = g_fopen(scriptpath->str, "r"); if (!scriptfile) { log_info("Script not found: %s", scriptpath->str); g_string_free(scriptpath, TRUE); return NULL; } g_string_free(scriptpath, TRUE); char *line = NULL; size_t len = 0; ssize_t read; GSList *result = NULL; while ((read = getline(&line, &len, scriptfile)) != -1) { if (g_str_has_suffix(line, "\n")) { result = g_slist_append(result, g_strndup(line, strlen(line) -1)); } else { result = g_slist_append(result, strdup(line)); } } fclose(scriptfile); if (line) free(line); return result; } gboolean scripts_exec(const char *const script) { gchar *data_home = xdg_get_data_home(); GString *scriptpath = g_string_new(data_home); free(data_home); g_string_append(scriptpath, "/profanity/scripts/"); g_string_append(scriptpath, script); FILE *scriptfile = g_fopen(scriptpath->str, "r"); if (!scriptfile) { log_info("Script not found: %s", scriptpath->str); g_string_free(scriptpath, TRUE); return FALSE; } g_string_free(scriptpath, TRUE); char *line = NULL; size_t len = 0; ssize_t read; while ((read = getline(&line, &len, scriptfile)) != -1) { ProfWin *win = wins_get_current(); cmd_process_input(win, line); jabber_process_events(10); ui_update(); } fclose(scriptfile); if (line) free(line); return TRUE; }