Displaying 11 results from an estimated 11 matches for "fun_name".
Did you mean:
func_name
2020 May 22
3
Compatibility issues caused by new simplify argument in apply function
...de for full usage section:*
..
\description{
Apply function over all spectra or a subset of spectra in a \code{Speclib}.
}
\Sexpr[echo=TRUE,results=rd,stage=install]{
hsdar:::.applyInHelp1("Speclib", usage = TRUE)
}
\arguments{
..
*Function .applyInHelp1*
.applyInHelp1 <- function(fun_name, usage)
{
if (usage)
{
if ("simplify" %in% names(formals(base::apply)))
{
return(paste0("\\usage{\n",
"\\S4method{apply}{", fun_name, "}(X, MARGIN, FUN, ...,
simplify = TRUE)\n",
"}"))...
2007 Jun 01
0
Branch 'as' - 2 commits - libswfdec/Makefile.am libswfdec/swfdec_as_strings.c libswfdec/swfdec_as_types.c libswfdec/swfdec_interval.c libswfdec/swfdec_interval.h libswfdec/swfdec_player_as.c libswfdec/swfdec_player.c
...layer_internal.h"
+
+G_DEFINE_TYPE (SwfdecInterval, swfdec_interval, SWFDEC_TYPE_AS_OBJECT)
+
+static void
+swfdec_interval_mark (SwfdecAsObject *object)
+{
+ guint i;
+ SwfdecInterval *interval = SWFDEC_INTERVAL (object);
+
+ swfdec_as_object_mark (interval->object);
+ if (interval->fun_name)
+ swfdec_as_string_mark (interval->fun_name);
+ for (i = 0; i < interval->n_args; i++) {
+ swfdec_as_value_mark (&interval->args[i]);
+ }
+
+ SWFDEC_AS_OBJECT_CLASS (swfdec_interval_parent_class)->mark (object);
+}
+
+static void
+swfdec_interval_dispose (GObject *objec...
2020 Jan 18
1
How to get an object name from C?
(earlier I sent it as html by mistake).
Hi,
How can I get from C an object name used as a function argument? I
have sample code in C that gives me access to the name of the function
being called:
SEXP xname(SEXP x)
{
const char *fun_name = CHAR(PRINTNAME(CAR(x)));
x = CDR(x);
const char *arg_name = isNull(TAG(x)) ? "" : CHAR(PRINTNAME(TAG(x)));
Rprintf("fn_name: %s, arg_name: %s\n", fun_name, arg_name);
return R_NilValue;
}
> xname <- function(...) invisible(.External(&q...
2020 May 22
2
Compatibility issues caused by new simplify argument in apply function
...de{Speclib}.
> > }
> >
> > \Sexpr[echo=TRUE,results=rd,stage=install]{
> > hsdar:::.applyInHelp1("Speclib", usage = TRUE)
> > }
> >
> > \arguments{
> > ..
> >
> > *Function .applyInHelp1*
> > .applyInHelp1 <- function(fun_name, usage)
> > {
> > if (usage)
> > {
> > if ("simplify" %in% names(formals(base::apply)))
> > {
> > return(paste0("\\usage{\n",
> > "\\S4method{apply}{", fun_name, "}(X, MARGIN, FU...
2020 May 22
0
Compatibility issues caused by new simplify argument in apply function
...ion over all spectra or a subset of spectra in a \code{Speclib}.
> }
>
> \Sexpr[echo=TRUE,results=rd,stage=install]{
> hsdar:::.applyInHelp1("Speclib", usage = TRUE)
> }
>
> \arguments{
> ..
>
> *Function .applyInHelp1*
> .applyInHelp1 <- function(fun_name, usage)
> {
> if (usage)
> {
> if ("simplify" %in% names(formals(base::apply)))
> {
> return(paste0("\\usage{\n",
> "\\S4method{apply}{", fun_name, "}(X, MARGIN, FUN, ...,
> simplify = TRUE)\n&quo...
2013 Aug 09
1
a fast table() for the 1D case
...names(ans) <- list(as.character(x2))
names(dimnames(ans)) <- "x" # always set to 'x'
class(ans) <- "table"
ans
}
table1D() also fixes some issues with base::table() that can be exposed
by running the tests below.
test_table <- function(FUN_NAME)
{
FUN <- match.fun(FUN_NAME)
.make_target <- function(target_names, target_data)
{
ans <- array(target_data)
dimnames(ans) <- list(as.character(target_names))
names(dimnames(ans)) <- "x"
class(ans) <- "table&qu...
2024 Feb 18
1
Capturing Function Arguments
? Sat, 17 Feb 2024 11:15:43 -0700
"Reed A. Cartwright" <racartwright at gmail.com> ?????:
> I'm wrapping a function in R and I want to record all the arguments
> passed to it, including default values and missing values.
This is hard if not impossible to implement for the general case
because the default arguments are evaluated in the environment of the
function as it
2007 Dec 13
0
libswfdec-gtk/swfdec_gtk_player.c libswfdec/swfdec_as_date.c libswfdec/swfdec_audio.c libswfdec/swfdec_audio_event.c libswfdec/swfdec_button_movie.c libswfdec/swfdec_interval.c libswfdec/swfdec_key_as.c libswfdec/swfdec_mouse_as.c libswfdec/swfdec_movie.c
...r_add_timeout (SWFDEC_PLAYER (context), timeout);
} else {
- player->intervals = g_list_remove (player->intervals, interval);
+ player->priv->intervals = g_list_remove (player->priv->intervals, interval);
interval->timeout.callback = NULL;
}
if (interval->fun_name) {
@@ -122,19 +122,19 @@ swfdec_interval_new (SwfdecPlayer *player, guint msecs, gboolean repeat,
interval = g_object_new (SWFDEC_TYPE_INTERVAL, NULL);
swfdec_as_object_add (SWFDEC_AS_OBJECT (interval), context, size);
- interval->id = ++player->interval_id;
+ interval->id = ++pl...
2007 Nov 14
0
9 commits - libswfdec/swfdec_as_string.c libswfdec/swfdec_color_as.c libswfdec/swfdec_interval.c test/image test/trace
...{
timeout->timestamp += SWFDEC_MSECS_TO_TICKS (interval->msecs);
swfdec_player_add_timeout (SWFDEC_PLAYER (context), timeout);
} else {
+ player->intervals = g_list_remove (player->intervals, interval);
interval->timeout.callback = NULL;
}
if (interval->fun_name) {
commit f22f7bef8ab822c14a653c04680840150a97b4d0
Author: Pekka Lampila <pekka.lampila at iki.fi>
Date: Wed Nov 14 14:10:26 2007 +0200
Make swfdec_movie_color_get_movie return null if object is null
diff --git a/libswfdec/swfdec_color_as.c b/libswfdec/swfdec_color_as.c
index 6bd1878....
2007 Jul 18
0
12 commits - configure.ac doc/swfdec-sections.txt libswfdec-gtk/swfdec_playback_alsa.c libswfdec/jpeg libswfdec/Makefile.am libswfdec/swfdec_amf.c libswfdec/swfdec_as_array.c libswfdec/swfdec_as_boolean.h libswfdec/swfdec_as_context.c
...ab79eb8..f8fcc85 100644
--- a/libswfdec/swfdec_interval.c
+++ b/libswfdec/swfdec_interval.c
@@ -104,7 +104,7 @@ swfdec_interval_trigger (SwfdecTimeout *
}
}
-guint
+static guint
swfdec_interval_new (SwfdecPlayer *player, guint msecs, gboolean repeat,
SwfdecAsObject *object, const char *fun_name,
guint n_args, const SwfdecAsValue *args)
diff --git a/libswfdec/swfdec_listener.c b/libswfdec/swfdec_listener.c
index da7a365..73c1bf9 100644
--- a/libswfdec/swfdec_listener.c
+++ b/libswfdec/swfdec_listener.c
@@ -79,7 +79,7 @@ swfdec_listener_add (SwfdecListener *lis
return TRUE;
}...
2008 Jan 21
0
70 commits - configure.ac libswfdec-gtk/Makefile.am libswfdec-gtk/swfdec-gtk.h libswfdec-gtk/swfdec_gtk_loader.c libswfdec-gtk/swfdec_gtk_player.c libswfdec-gtk/swfdec_gtk_socket.c libswfdec-gtk/swfdec_gtk_socket.h libswfdec-gtk/swfdec_playback_alsa.c
...7 +42,7 @@ swfdec_interval_mark (SwfdecAsObject *object)
SwfdecInterval *interval = SWFDEC_INTERVAL (object);
swfdec_as_object_mark (interval->object);
- swfdec_resource_mark (interval->resource);
+ swfdec_as_object_mark (SWFDEC_AS_OBJECT (interval->sandbox));
if (interval->fun_name)
swfdec_as_string_mark (interval->fun_name);
for (i = 0; i < interval->n_args; i++) {
@@ -64,10 +64,6 @@ swfdec_interval_dispose (GObject *object)
swfdec_player_remove_timeout (SWFDEC_PLAYER (SWFDEC_AS_OBJECT (object)->context), &interval->timeout);
interval->...