mirror of
https://github.com/weechat/weechat.git
synced 2026-07-06 05:05:42 +02:00
guile: new script plugin for scheme (task #7289)
This commit is contained in:
Sebastien Helleu
@@ -58,3 +58,10 @@ IF(ENABLE_TCL)
|
||||
ADD_SUBDIRECTORY( tcl )
|
||||
ENDIF(TCL_FOUND)
|
||||
ENDIF(ENABLE_TCL)
|
||||
|
||||
IF(ENABLE_GUILE)
|
||||
FIND_PACKAGE(Guile)
|
||||
IF(GUILE_FOUND)
|
||||
ADD_SUBDIRECTORY( guile )
|
||||
ENDIF(GUILE_FOUND)
|
||||
ENDIF(ENABLE_GUILE)
|
||||
|
||||
@@ -48,6 +48,10 @@ if PLUGIN_TCL
|
||||
tcl_dir = tcl
|
||||
endif
|
||||
|
||||
SUBDIRS = . $(perl_dir) $(python_dir) $(ruby_dir) $(lua_dir) $(tcl_dir)
|
||||
if PLUGIN_GUILE
|
||||
guile_dir = guile
|
||||
endif
|
||||
|
||||
SUBDIRS = . $(perl_dir) $(python_dir) $(ruby_dir) $(lua_dir) $(tcl_dir) $(guile_dir)
|
||||
|
||||
EXTRA_DIST = CMakeLists.txt
|
||||
|
||||
@@ -0,0 +1,31 @@
|
||||
#
|
||||
# Copyright (C) 2011 Sebastien Helleu <flashcode@flashtux.org>
|
||||
#
|
||||
# This file is part of WeeChat, the extensible chat client.
|
||||
#
|
||||
# WeeChat is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# WeeChat is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with WeeChat. If not, see <http://www.gnu.org/licenses/>.
|
||||
#
|
||||
|
||||
ADD_LIBRARY(guile MODULE weechat-guile.c weechat-guile.h
|
||||
weechat-guile-api.c weechat-guile-api.h)
|
||||
|
||||
SET_TARGET_PROPERTIES(guile PROPERTIES PREFIX "")
|
||||
|
||||
IF(GUILE_FOUND)
|
||||
INCLUDE_DIRECTORIES(${GUILE_INCLUDE_PATH})
|
||||
SET(CMAKE_MODULE_LINKER_FLAGS "${CMAKE_MODULE_LINKER_FLAGS} ${GUILE_LFLAGS}")
|
||||
TARGET_LINK_LIBRARIES(guile ${GUILE_LIBRARY} weechat_scripts)
|
||||
ENDIF(GUILE_FOUND)
|
||||
|
||||
INSTALL(TARGETS guile LIBRARY DESTINATION ${LIBDIR}/plugins)
|
||||
@@ -0,0 +1,33 @@
|
||||
#
|
||||
# Copyright (C) 2011 Sebastien Helleu <flashcode@flashtux.org>
|
||||
#
|
||||
# This file is part of WeeChat, the extensible chat client.
|
||||
#
|
||||
# WeeChat is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 3 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# WeeChat is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with WeeChat. If not, see <http://www.gnu.org/licenses/>.
|
||||
#
|
||||
|
||||
INCLUDES = -DLOCALEDIR=\"$(datadir)/locale\" $(GUILE_CFLAGS)
|
||||
|
||||
libdir = ${weechat_libdir}/plugins
|
||||
|
||||
lib_LTLIBRARIES = guile.la
|
||||
|
||||
guile_la_SOURCES = weechat-guile.c \
|
||||
weechat-guile.h \
|
||||
weechat-guile-api.c \
|
||||
weechat-guile-api.h
|
||||
guile_la_LDFLAGS = -module
|
||||
guile_la_LIBADD = ../lib_weechat_plugins_scripts.la $(GUILE_LFLAGS)
|
||||
|
||||
EXTRA_DIST = CMakeLists.txt
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,30 @@
|
||||
/*
|
||||
* Copyright (C) 2011 Sebastien Helleu <flashcode@flashtux.org>
|
||||
*
|
||||
* This file is part of WeeChat, the extensible chat client.
|
||||
*
|
||||
* WeeChat is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* WeeChat is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with WeeChat. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#ifndef __WEECHAT_GUILE_API_H
|
||||
#define __WEECHAT_GUILE_API_H 1
|
||||
|
||||
extern int weechat_guile_api_buffer_input_data_cb (void *data,
|
||||
struct t_gui_buffer *buffer,
|
||||
const char *input_data);
|
||||
extern int weechat_guile_api_buffer_close_cb (void *data,
|
||||
struct t_gui_buffer *buffer);
|
||||
extern void weechat_guile_api_module_init (void *data);
|
||||
|
||||
#endif /* __WEECHAT_GUILE_API_H */
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,47 @@
|
||||
/*
|
||||
* Copyright (C) 2011 Sebastien Helleu <flashcode@flashtux.org>
|
||||
*
|
||||
* This file is part of WeeChat, the extensible chat client.
|
||||
*
|
||||
* WeeChat is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 3 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* WeeChat is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with WeeChat. If not, see <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#ifndef __WEECHAT_GUILE_H
|
||||
#define __WEECHAT_GUILE_H 1
|
||||
|
||||
#define weechat_plugin weechat_guile_plugin
|
||||
#define GUILE_PLUGIN_NAME "guile"
|
||||
|
||||
#define GUILE_CURRENT_SCRIPT_NAME ((guile_current_script) ? guile_current_script->name : "-")
|
||||
|
||||
extern struct t_weechat_plugin *weechat_guile_plugin;
|
||||
|
||||
extern int guile_quiet;
|
||||
extern struct t_plugin_script *guile_scripts;
|
||||
extern struct t_plugin_script *last_guile_script;
|
||||
extern struct t_plugin_script *guile_current_script;
|
||||
extern struct t_plugin_script *guile_registered_script;
|
||||
extern const char *guile_current_script_filename;
|
||||
extern SCM guile_port;
|
||||
|
||||
extern SCM weechat_guile_hashtable_to_alist (struct t_hashtable *hashtable);
|
||||
extern struct t_hashtable *weechat_guile_alist_to_hashtable (SCM dict,
|
||||
int hashtable_size);
|
||||
extern void *weechat_guile_exec (struct t_plugin_script *script,
|
||||
int ret_type, const char *function,
|
||||
char *format, void **argv);
|
||||
extern int weechat_guile_port_fill_input (SCM port);
|
||||
extern void weechat_guile_port_write (SCM port, const void *data, size_t size);
|
||||
|
||||
#endif /* __WEECHAT_GUILE_H */
|
||||
Reference in New Issue
Block a user