search for: printname

> -----Original Message----- > From: llvm-dev [mailto:llvm-dev-bounces at lists.llvm.org] On Behalf Of Tim > Northover via llvm-dev > Sent: Wednesday, July 25, 2018 3:07 AM > To: Nat! > Cc: LLVM Developers Mailing List > Subject: Re: [llvm-dev] A question to the DWARF experts on symbol > indirection > > Hi Nat!, > > On Wed, 25 Jul 2018 at 01:21, Nat! via

...p is defined as a tagged pairlist. "ENVSXP: Pointers to the frame, enclosing environment and hash table (NULL or a VECSXP). A frame is a tagged pairlist with tag the symbol and CAR the bound value." But I'm having troubles accessing the data. I've written a small function called printNames that looks like ----------------------- void printNames(SEXP list){ SEXP names = getAttrib(list, R_NamesSymbol); int i; Rprintf("List is of length:%d\n",length(list)); for (i = 0; i < length(list); i++) Rprintf("name of id:%d\t%s\n",i,CHAR(STRING_ELT(na...

(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("xname",...

...xt) { if ((cptr->callflag & (CTXT_FUNCTION | CTXT_BUILTIN)) && TYPEOF(cptr->call) == LANGSXP) { SEXP fun = CAR(cptr->call); if (!newline) newline = 1; fprintf(R_ProfileOutfile, "\"%s\" ", TYPEOF(fun) == SYMSXP ? CHAR(PRINTNAME(fun)) : "<Anonymous>"); } } so we can see it only cares about context CTXT_FUNCTION and CTXT_BUILTIN, when for loops play with CTXT_LOOP (this is again in eval.c within the do_for function) begincontext(&cntxt, CTXT_LOOP, R_NilValue, rho, R_BaseEnv, R_NilVa...

...====================================================== --- src/main/altrep.c (revision 79385) +++ src/main/altrep.c (working copy) @@ -275,10 +275,11 @@ SEXP psym = ALTREP_SERIALIZED_CLASS_PKGSYM(info); SEXP class = LookupClass(csym, psym); if (class == NULL) { - SEXP pname = ScalarString(PRINTNAME(psym)); + SEXP pname = PROTECT(ScalarString(PRINTNAME(psym))); R_tryCatchError(find_namespace, pname, handle_namespace_error, NULL); class = LookupClass(csym, psym); + UNPROTECT(1); } return class; } seems to remove the warning; I'm guessing that the other...

...objects such as symbols and calls are deparsed to character strings before comparison. and in the source code that does the comparison [1] shows that It deparses each language object and then only extracts the first element from the resulting character vector: |SET_STRING_ELT(tmp, 0, (iS) ? PRINTNAME(x) : STRING_ELT(deparse1(x, 0, DEFAULTDEPARSE), 0)); | Is this a fix that needs to happen within the |==| documentation? or an actual bug with the operator? For more context the original issue we had is here: https://github.com/rstudio-education/grader/issues/28 Workaround: You can get aroun...

Hi, I am trying to write an LLVM project, using LLVM 2.9. My passes are defined as follows, where the Pass2 requires Pass1. namespace llvm { class BaseClass : public ModulePass { // Name for printing const char* printname; protected: BaseClass(char id, const char* name) : ModulePass(id),printname(name){ } }; class Pass1 : public BaseClass { public: static char ID; Pass1() : BaseClass(ID, "pass1") { } ~Pass1() { releaseMemory(); } virtual bool runOnModule(Module &M); virtual void getA...

Hi, I'm using Samba 3.0.14a I'm trying to migrate printers from a Windows server to my samba one. So I tried to use the following command : /net rpc printer migrate all Myprinter -S SERVER1 --destination=SAMBAMIGR -U Administrator%mypasswd/ And I received the following message : /Could not connect to server SAMBAMIGR The username or password was not correct. /How can I provide the

...TRUE Thomas Lumley <tlumley@u.washington.edu> suggested that this weird behavior essentially arises because the parser converts "NA" to R_NaString, and so... > It looks like we basically need to > 1) stop the parser generating R_NaString from \"NA\" > 2) Change PRINTNAME(R_NaString) to avoid ambiguity While I still like the simple S-Plus model (""), Thomas's suggestions (with PRINTNAME(R_NaString) = "<NA>" for example) would be OK too. Thanks for listening (again)! -- -- David Brahm (brahm@alum.mit.edu)...

...- This line is wrong. */ As you can see, "args = CDR(args)" is called twice, resulting in every other argument skipped. The marked line should be deleted. Furthermore, the function requires all arguments to be named, as it gives an error if TAG returns NIL in the line name = CHAR(PRINTNAME(TAG(args))); It might improve the example to introduce here a test "if( TAG(args) != R_NilValue )". May I suggest to the maintainer of the manual to change the example to the following code? (Changes to original: lines 1, 2, 15, 17, 18 added; one line deleted after line 13.) 1 #i...

...se "findFun". However I have trouble when the name searched cannot be found: while "findVar" returns R_UnboundValue, "findFun" does not (the 4 last lines of "findFun" are copied below). error(_("could not find function \"%s\""), CHAR(PRINTNAME(symbol))); /* NOT REACHED */ return R_UnboundValue; } I assume that the comment "/* NOT REACHED */ means that R_UnboundValue is not returned... and my question is: what is returned then ? (I am a little lost in the nested calls within "error"). Thanks, Laurent

...====================== > --- src/main/altrep.c (revision 79385) > +++ src/main/altrep.c (working copy) > @@ -275,10 +275,11 @@ > SEXP psym = ALTREP_SERIALIZED_CLASS_PKGSYM(info); > SEXP class = LookupClass(csym, psym); > if (class == NULL) { > - SEXP pname = ScalarString(PRINTNAME(psym)); > + SEXP pname = PROTECT(ScalarString(PRINTNAME(psym))); > R_tryCatchError(find_namespace, pname, > handle_namespace_error, NULL); > class = LookupClass(csym, psym); > + UNPROTECT(1); > } > return class; > } > > seems to remove th...

...# Modifications marked with #MR28092001MR # Date: Sep 28,2001 # Email: reczko@web.de # # Get rid of the -x on the first line, and add parameters # # Script further altered by hamiltom@ecnz.co.nz (Michael Hamilton) # so that the server, service, and password can be read from # a /usr/var/spool/lpd/PRINTNAME/.config file. # # Script further modified by Richard Sharpe to fix some things. # Get rid of the -x on the first line, and add parameters # # -t now causes translate to be used when sending files # # In order for this to work the /etc/printcap entry must include an # accounting file (af=...):...

Hi all, I am not able to export an ALTREP object when `gctorture` is on in the worker. The package simplemmap can be used to reproduce the problem. See the example below ``` ## Create a temporary file filePath <- tempfile() con <- file(filePath, "wrb") writeBin(rep(0.0,10),con) close(con) library(simplemmap) library(parallel) cl <- makeCluster(1) x <- mmap(filePath,

...re from evalArgs which may have been called on part of the args. */ errorcall(call, _("argument %d is empty"), n); } else if (isSymbol(CAR(el)) && R_isMissing(CAR(el), rho)) { /* It was missing */ errorcall(call, _("'%s' is missing"), CHAR(PRINTNAME(CAR(el)))); } else { if (mode==1) { PROTECT(head); mode = 2; } ev = CONS(eval(CAR(el), rho), R_NilValue); COPY_TAG(ev, el); if (mode==0) { head = ev; mode = 1; }...

On 8/6/2009 4:11 PM, Marilyn & Rich Short wrote: > Hello, > > I'm having a problem in R. The R GUI is crashing with a message to > contact Microsoft for the solution. I've contacted Microsoft and they > are of no help. Below is a distilled set of code that will cause the > crash. As you will see, there are two do-loops within which is a "load" >

...if ((cptr->callflag & (CTXT_FUNCTION | CTXT_BUILTIN)) && TYPEOF(cptr->call) == LANGSXP) { SEXP fun = CAR(cptr->call); if (!newline) newline = 1; fprintf(file, "\"%s\" ", TYPEOF(fun) == SYMSXP ? CHAR(PRINTNAME(fun)) : "<Anonymous>"); } } if (newline) fprintf(file, "\n"); } Thomas, your last comment was: > Yes. It's obviously better to always print a newline, and so clearly > deliberate not to, that I suspect there may have been a good...

...= cptr->nextcontext) { if ((cptr->callflag & (CTXT_FUNCTION | CTXT_BUILTIN)) && TYPEOF(cptr->call) == LANGSXP) { SEXP fun = CAR(cptr->call); if (!newline) newline = 1; - fprintf(file, "\"%s\" ", - TYPEOF(fun) == SYMSXP ? CHAR(PRINTNAME(fun)) : - "<Anonymous>"); + if (R_MemReportingOutfile != NULL) + fprintf(R_MemReportingOutfile, "\"%s\" ", + TYPEOF(fun) == SYMSXP ? CHAR(PRINTNAME(fun)) : + "<Anonymous>"); + if (R_MemReportingToTermi...

B <- A <- factor(c("a", "b")) outer(A, B, "!=") Warning: "FUN" not meaningful for factors [,1] [,2] [1,] NA NA [2,] NA NA Now, this used to work in 0.63.2, but someone `improved' outer. There it did an implicit as.numeric. The problem is that get in match.fun does not understand group generics, and gets Browse[1]> FUN

...sapply(x, class) > RobMcG> dt > RobMcG> "Date" > > Yes, thanks a lot, Robert, for the report. > > That *is* a bug somewhere in the .Internal(lapply(...)) C code, > when S3 dispatch of primitive functions should happen. The bug is in do_is, which uses CHAR(PRINTNAME(CAR(call))), and when called from lapply that gives "FUN" not "is.numeric". The root cause is the following comment FUN = CADR(args); /* must be unevaluated for use in e.g. bquote */ and hence that the function in the *call* passed to do_is can be unevaluated. >...