Yes. It is mine.
On Mon, 26 Jun 2017 17:24:55 -0400, Alan Tilson wrote: > Chip, > Thanks for the link. I'll try to check it out. Is it your component? > Alan > > On Mon, Jun 26, 2017 at 11:13 AM, Chip Scheide <4d_o...@pghrepository.org> > wrote: > >> Alan, >> First the specific problem was/is trying to compile (testing database) >> with interpreted component. >> The error provided "Invalid parameter" is not really the correct error >> to generate. >> >> As to your question regarding sets. >> download the (shareware) component. >> https://www.dropbox.com/s/075k0ap7afervs8/Sets_Component_v1.0.zip?dl=0 >> >> Basically, you run all your set creation code through the component, it >> tracks everything. >> This makes it possible to ask (and answer!!) questions you could not do >> so before. >> Such as: >> - To which table does a set belong? >> - What set(s) exists for a specified table? >> - Does a set exist? >> >> Chip >> >> >> On Mon, 26 Jun 2017 10:43:52 -0400, Alan Tilson wrote: >>> Hello Chip, >>> Sorry, I don't know the answer to your issues, but I am curious about how >>> you determine what sets if any exist for a table? I thought the only test >>> available was Records in Set()>0? >>> Thanks, >>> Alan >>> >>> On Wed, Jun 21, 2017 at 12:30 PM, Chip Scheide via 4D_Tech < >>> 4d_tech@lists.4d.com> wrote: >>> >>>> Thanks. >>>> >>>> The code runs, interpretably just fine. >>>> I have to re-test, but I think the code runs fine when the component is >>>> compiled and built. >>>> >>>> The method (from original code I posted, and this code posted below) : >>>> utl_sets_whatsets_Validate >>>> does all of this validation and returns a boolean (true - everything is >>>> OK) >>>> >>>> I do not do a parameter count check, in that I believe that 4D is >>>> *supposed* to do that >>>> However, tracing this code, interpretedly it works correctly. >>>> >>>> The problem is when I try to compile the test database. It is when >>>> compiling the test database that I get the invalid parameter errors, >>>> when making calls to (for example, and as previously posted) >>>> utl_sets_What_Sets. >>>> >>>> >>>> code for utl_sets_whatsets_Validate >>>> //(m) utl_whatsets_Validate >>>> // $1 - pointer - to a table to determine what, if any sets exist >>>> // $2 - pointer - to text Array >>>> // $3 - pointer - to error text >>>> >>>> //RETURNS - boolean - are parameters valid >>>> // • Created 06-09-17 by Chip - >>>> C_POINTER($1;$2;$Table;$Array;$3;$Errors) >>>> C_TEXT($Sets;$msg) >>>> C_BOOLEAN($0) >>>> >>>> $Table:=$1 >>>> $Array:=$2 >>>> $Errors:=$3 >>>> >>>> Case of >>>> : (Nil($Table)) //nil table pointer (nil passed, or nothing) >>>> $msg:="Table pointer is Nil." >>>> >>>> : (Not(utl_type_Is_Table ($Table))) // pointer passed, but not to a >>>> table >>>> $msg:="Table pointer does not point to a table." >>>> >>>> : (Nil($Array)) //nil array pointer (nil passed, or nothing) >>>> $msg:="Array pointer is Nil." >>>> >>>> : (Not(utl_type_Is_An_Array ($Array;"Text"))) // array is not text >>>> $msg:="Array pointer does not point to an Array." >>>> Else //everything is OK >>>> $0:=True >>>> End case >>>> >>>> If (Not(utl_Is_Empty (->$msg))) // there was an error above >>>> utl_errtxt_Add ($msg) //add it to the error handler >>>> End if >>>> utl_errtxt_End (Current method name;$Errors) //report the error >>>> //End utl_whatsets_Validate >>>> >>>> >>>> On Wed, 21 Jun 2017 17:37:19 +0200, Arnaud de Montard via 4D_Tech wrote: >>>>> >>>>>> Le 21 juin 2017 à 16:38, Chip Scheide via 4D_Tech >>>>>> <4d_tech@lists.4d.com> a écrit : >>>>>> >>>>>> $Table:=$1 >>>>>> $Array:=$2 >>>>> >>>>> Hi Chip, >>>>> If you trace in the component code, nothing helps? >>>>> >>>>> Some times it helps to "look into the pointer", for example: >>>>> >>>>> case of >>>>> :(count parameters < 2) >>>>> //err 1 >>>>> :(not(Ptr_isTable($1))) >>>>> //err 2 >>>>> :(not(Ptr_isArray($2;is text array))) >>>>> //err 3 >>>>> else >>>>> //run method >>>>> end case >>>>> >>>>> -- >>>>> Arnaud >>>>> >>>>> >>>>> >>>>> ********************************************************************** >>>>> 4D Internet Users Group (4D iNUG) >>>>> FAQ: http://lists.4d.com/faqnug.html >>>>> Archive: http://lists.4d.com/archives.html >>>>> Options: http://lists.4d.com/mailman/options/4d_tech >>>>> Unsub: mailto:4d_tech-unsubscr...@lists.4d.com >>>>> ********************************************************************** >>>> --------------- >>>> Gas is for washing parts >>>> Alcohol is for drinkin' >>>> Nitromethane is for racing >>>> ********************************************************************** >>>> 4D Internet Users Group (4D iNUG) >>>> FAQ: http://lists.4d.com/faqnug.html >>>> Archive: http://lists.4d.com/archives.html >>>> Options: http://lists.4d.com/mailman/options/4d_tech >>>> Unsub: mailto:4d_tech-unsubscr...@lists.4d.com >>>> ********************************************************************** >>>> >> --------------- >> Gas is for washing parts >> Alcohol is for drinkin' >> Nitromethane is for racing >> --------------- Gas is for washing parts Alcohol is for drinkin' Nitromethane is for racing ********************************************************************** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **********************************************************************
