search for: xlen

...Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width) Error in names.default(x) : evaluation is nested too deeply: infinite recursion? Here is the code of HTMLExport.list : "HTMLExport.list"<- function(x, prefix = "", File = "", Align = "left", ...) { xlen <- length(x) if(xlen == 0) { cat("list()\n") return(invisible(x)) } n <- names(x) if(is.null(n)) this <- paste(prefix, "[[", 1:xlen, "]]", sep = "") else this <- paste(prefix, "$",names(x), sep = "") for(i in 1:xlen...

...r_put(bd->efi); + bd->efi = refstrdup(skipspace(p + 3)); + } else if (looking_at(p, "options")) { + /* The "options" keyword can be specified multiple times */ + int len = bd->options ? strlen(bd->options) : 0; + int xlen; + p = skipspace(p + 7); + xlen = strlen(p); + if (len && xlen) { + /* Grab one space char from the file */ + p--; + xlen++; + } + bd->options = realloc(bd->options, len + xlen + 1); +...

...rdup(skipspace(p + 3)); > > + } else if (looking_at(p, "options")) { > > + /* The "options" keyword can be specified multiple times > > */ > > + int len = bd->options ? strlen(bd->options) : 0; > > + int xlen; > > + p = skipspace(p + 7); > > + xlen = strlen(p); > > + if (len && xlen) { > > + /* Grab one space char from the file */ > > + p--; > > + xlen++; > > + } &gt...

...ace(p + 10)); + } else if (looking_at(p, "linux")) { + refstr_put(bd->freax); + bd->freax = refstrdup(skipspace(p + 5)); + } else if (looking_at(p, "initrd")) { + /* The "initrd" keyword can be specified multiple times */ + int clen = 0; + int xlen = 0; + + p = skipspace(p + 6); + xlen = strlen(p); + + if (xlen) { + if (bd->initrd) { + clen = strlen(bd->initrd); + bd->initrd[clen++] = ','; + } + bd->initrd = realloc(bd->initrd, clen + xlen + 1); + memcpy(bd->initrd + clen, p, xlen + 1); +...

...bd->efi = refstrdup(skipspace(p + 3)); > + } else if (looking_at(p, "options")) { > + /* The "options" keyword can be specified multiple times > */ > + int len = bd->options ? strlen(bd->options) : 0; > + int xlen; > + p = skipspace(p + 7); > + xlen = strlen(p); > + if (len && xlen) { > + /* Grab one space char from the file */ > + p--; > + xlen++; > + } > + bd->options = rea...

On 4 Jun 2020, at 0:54, James Y Knight via llvm-dev wrote: > While MLIR may be one part of the solution, I think it's also the case > that > the function-ABI interface between Clang and LLVM is just wrong and > should > be fixed -- independently of whether Clang might use MLIR in the > future. > > I've mentioned this idea before, I think, but never got around to

...nerally by (a) not performing 'unclass'; (b) generalizing (changing) ismat <- is.matrix(x) to become ismat <- length(dim(x)) == 2L If suggestion 1 is to be applied, if 'unclass' is not wanted (point (a) in suggestion 2 is also to be applied), if (lag * differences >= xlen) return(x[0L]) can be changed to if (lag * differences >= xlen) return( if (ismat) x[0L, , drop = FALSE] - x[0L, , drop = FALSE] else x[0L] - x[0L]) It will handle class where subtraction (minus) operation change class. Otherwise, if 'unclass' is wanted,...

...gt; > > + } else if (looking_at(p, "options")) { > > > + /* The "options" keyword can be specified multiple > > > times */ > > > + int len = bd->options ? strlen(bd->options) : 0; > > > + int xlen; > > > + p = skipspace(p + 7); > > > + xlen = strlen(p); > > > + if (len && xlen) { > > > + /* Grab one space char from the file */ > > > + p--; > > > + xlen++...

Hi, is there any function in R that shifts elements of a vector to the opposite direction of what Lag() of the Hmisc package does? (something like, Lag(x, shift = -1) ) Thanks Zava -------------------------------------------------------- This is not an offer (or solicitation of an offer) to buy/se...{{dropped}}

Dear all, I am trying to make a series of waffle plot-like figures for my data to visualize the ratios of amino acid residues at each position. For each one of 37 positions, there may be one to four different amino acid residues. So the data consist of the positions, what residues are there, and the ratios of residues. The ratios of residues at a position add up to 100, or close to 100 (more on

I have a dataset showing points, with a category for each point and its location. I simply want to display my points, in a way that users can toggle the points on and off by category. Where I have two objects in the same category I'd like to display them nudged to appear as two distinct, but very close points. I have made reproduceable example (the places are not real), which is loosely

...ude <fcntl.h> #include <sys/stat.h> +#include <syslinux/callback.h> #include <syslinux/loadfile.h> #define INCREMENTAL_CHUNK 1024*1024 @@ -48,13 +49,13 @@ int floadfile(FILE * f, void **ptr, size struct stat st; void *data, *dp; size_t alen, clen, rlen, xlen; + callback_record *cb = NULL; clen = alen = 0; data = NULL; if (fstat(fileno(f), &st)) goto err; - if (!S_ISREG(st.st_mode)) { /* Not a regular file, we can't assume we know the file size */ if (prefix_len) { @@ -75,6 +76,11 @@ int floadfile(FILE * f, void...

...free(data); return -1; } + +int floadfile_w_callback(FILE *f, void **ptr, size_t *len, const void *prefix, + size_t prefix_len, const char *filename, void (*callback)(const char *name, size_t cur, size_t total)) +{ + struct stat st; + void *data, *dp; + size_t alen, clen, rlen, xlen, flen; + + clen = alen = 0; + data = NULL; + + if ( fstat(fileno(f), &st) ) + goto err; + + + if (!S_ISREG(st.st_mode)) { + /* Not a regular file, we can't assume we know the file size */ + flen = -1; + } + else { + flen = st.st_size + prefix_len - ftell(f); + } + + if (...

...loat *in, spx_uint32_t *in_len, float *out, spx_uint32_t *out_len) +#endif +{ + int j; + spx_uint32_t ilen = *in_len; + spx_uint32_t olen = *out_len; + spx_word16_t *x = st->mem + channel_index * st->mem_alloc_size; + const int filt_offs = st->filt_len - 1; + const spx_uint32_t xlen = st->mem_alloc_size - filt_offs; + const int istride = st->in_stride; + + if (st->magic_samples[channel_index]) + olen -= speex_resampler_magic(st, channel_index, &out, olen); + if (! st->magic_samples[channel_index]) { + while (ilen && olen) { + spx...

...loat *in, spx_uint32_t *in_len, float *out, spx_uint32_t *out_len) +#endif +{ + int j; + spx_uint32_t ilen = *in_len; + spx_uint32_t olen = *out_len; + spx_word16_t *x = st->mem + channel_index * st->mem_alloc_size; + const int filt_offs = st->filt_len - 1; + const spx_uint32_t xlen = st->mem_alloc_size - filt_offs; + const int istride = st->in_stride; + + if (st->magic_samples[channel_index]) + olen -= speex_resampler_magic(st, channel_index, &out, olen); + if (! st->magic_samples[channel_index]) { + while (ilen && olen) { + spx...

On a train ride to Bruxelles, brought out my axe and directly attacked run_init(8). run_init(8) is dead, long live switch_root(8). The next run on switch_root(8) involves fdopendir, so another push for the upcoming stdio 1.6 branch. The following is boot tested with initramfs-tools, kinit(8) tests would very much be appreciated!? Michal Suchanek (1): [klibc] switch_root: Fix single file

...which value they have. And in fact, there is a published (written out in the spec) mechanism for obtaining VLMAX, which is directly related to VLEN (so you can obtain VLEN with a little more arithmetic, though for most purposes VLMAX is more useful): requesting the vector length of -1 (unsigned: 2^XLEN - 1) is guaranteed to result in vl=VLMAX. For regular strip-mined loops, the vsetvl instruction takes care of everything so there's simply no need for the program to do this. But for other tasks, it's required (i.e., you can't sensibly write the program otherwise) and perfectly fine w....

Hi all, I need a little help for construct an state's map on R. The first problem is to get the data. I have a datafile of longitude and latitude in the follow format: trajectory latitude longtude T -22.045618 -51.287056 T -22.067078 -51.265888 T -22.067039 -51.207249 T -22.059690 -48.089695 T -22.075529 -48.074608 T -22.072460 -48.044472 T -22.062767 -48.298473 T -22.077349

...x for fast copy of 0 length files -goldor */ + mbuf = map_file(fd, 0, 0, s->blength); + rprintf(FINFO,"sending file descriptor %d\n", mbuf->fd); + send_fd(local_socket, mbuf->fd); + } + write_ndx_and_attrs(f_out, ndx, iflags, fname, file, fnamecmp_type, xname, xlen); write_sum_head(f_xfer, s); @@ -333,7 +345,18 @@ set_compression(fname); - match_sums(f_xfer, s, mbuf, st.st_size); + if (local_server && local_socket && s->count == 0) { + OFF_T offset = 0; + while (offset < st.st_size) { + read_buf(local_socket, (char *)&...

Attached is a patch that implements compressing output files as they're written to disk, uzing zlib. Thus far I've only used it with synchronizing directories on a single machine. What seems to work / what's done: - Synchronizing directories with all files in the target directory gzip'd. Files seem to contain the correct data. Use the option "--gzip-dest". -