If I got you correctly... for IRIS (and newer Cache Versions) you can use
select * from INFORMATION_SCHEMA.ROUTINES where ROUTINE_NAME='...'and for older Cache versions try
select * from %Dictionary.CompiledMethod where SqlProc=1 and Name='...'(but be patient, this takes some time)
You have a string of digits... like
set result="12345678900987654321"then you can easily extract groups of four digits as
for i=1:4:$length(result) write $extract(result,i,i+3),!this gives you
1234
5678
9009
8765
4321assuming, there are no other characters between those numbers...
[1,2,,3] is equally arguably as [1,2,3,,] or [1,2,3,,,,,] and IRIS/Cache accepts all of them.
Nothing against a system which is input tolerant (forgiving, with your words) but then this tolerance should be obvious and in some way logical. An example, I tolerate trailing comma(s), becuse they could be leftovers of editing. So I would say, all the arrays
[1,2,3]
[1,2,3,]
[1,2,3,,,]have a size of 3 - there are three elements, no more. But IRIS/Cache says the sizes are 3, 4 and 6. So let check the last one
set obj=[].%FromJSON("[1,2,3,,,]")
write obj.%Size() --> 6
for i=0:1:9 write i,?3,obj.%Get(i),?7,obj.%GetTypeOf(i),!The output of the FOR-Loop is:
0 1 number
1 2 number
2 3 number
3 unassigned
4 unassigned
5 unassigned
6 unassigned
7 unassigned
8 unassigned
9 unassigned
The elements with index 3, 4 and 5 are unassigned and in some kind, I can understand that. But if the higher indices, like 6, 7, 88 or 1000 etc. are also unassigned then I ask you, why is the size 6 and not, say 12 or 573?
For me the logical size should be 3 because there are three intendeed elements, the others are a result of tolerated delimiters!
Finally, I don't want to start a war, how to interpret JSON strings. It was just my 2cc to a theme, which is out-of-round, according to my opinion.
OK, take a more simple case:
set obj=[1,2,,3] // again, this is a SYNTAX
set obj=[].%FromJSON("[1,2,,3]") // this is OKbut in both cases, the problem was the bouncing comma-key on my keyboard.
The first was told by compiler the second was "forgiven" by JSON-Reader! BUT the real question is, WHAT IS the third item in the above array? The latter shows obj has a size of 4, so the, and the desired thrid element could be null, 3 or maybe something else!
I wrote my very first program somewhere in 1971 or 1972, I can't remember anymore. But one thing I have learned is, one should accept checked data only.
Imagine, you accept those incorrect (aka forgiven) data and beside processing, store the data in your database, then later, for whatever reason, you send the (original string) data to an external party.... bang! They can't read it, because it's not JSON conform.
For the sake of completness, there is one more validator: https://jsonlint.com/ (which shows the above settings.json file as incorrect).
One more problem, it seems IRIS (and Cache) speaks with a forked tongue (but has nothing to do with the above problem) :
set string = "{""Value"":123, }" // note the extra comma!
set stream=##class(%Stream.TmpCharacter).%New()
do stream.WriteLine(string)
set obj1={"Value":123, } --> gives a SYNTAX
set obj2={}.%FromJSON(string) --> accepts the incorrect (json)string!I'm not sure... but I think, your settings.json does NOT conform to JSON specification. It seems, you like extra commas but JSON does not likes them. Take a look at:
...
"active":true , <----extra comma
}, <----------------------- extra comma
}This produces in IRIS/Cache an <SYNTAX... which starts with an "<"
Long time ago I did some connections to external databases (MySql and PostGres).
The essential parts such a connection are:
1) First, you have to create in your OS the corresponding ODBC Data Source entries
(System-DSN) after installing the required DB-Driver
2) The connection
set gtwConn=##class(%SQLGatewayConnection).%New(), gtwHandle=0
if gtwConn.Connect(OdbcName, OdbcUser, OdbcPass) {
if gtwConn.AllocateStatement(.gtwHandle) {
// check gtwConn.GatewayStatus
// etc.
} else { write "Can't Allocate: "_OdbcName }
} else { write "Can't connect to "_OdbcName }
3) SQL-Commands
do gtwConn.CloseCursor(gtwHandle)
if gtwConn.PrepareW(gtwHandle, sqlStatement) {
if gtwConn.Execute(gtwHandle) {
...
...
} else { /* check gtwConn.GatewayStatus */ }
} else { /* check.gtwConn.GatewayStatus */ }
4) Finish
if gtwConn {
do gtwConn.DropStatement(gtwHandle), gtwConn.Disconnect()
set gtwConn="", gtwHandle=""
}There is a keyword %NOINDEX indexname1, indexname2, ... to prevent the SQL-Enginne to use specific indices but there is no keyword for the opposite, something like %USEINDEX indexname, sadly.
Maybe someone with more SQL experience knows what is preventing the SQL engine to use the existing index over the numDossiersMER property...
But, and this is the great thing with IRIS and Cache, if everything else fails, you can always create your custom query.
Class User.TestList.Data.Titre Extends (%Persistent, %Populate)
{
Property numTitre As %Integer;
Property millesime As %Integer;
Property codeProduit As %String;
/// Old field which will be replaced by the next one
Property numDossierMER As %Integer;
Property numDossiersMER As list Of %Integer;
Index titreIdx On (numTitre, millesime, codeProduit) [ PrimaryKey ];
/// Old index
Index numDossierMERIdx On numDossierMER;
Index numDossiersMERIdx On numDossiersMER(ELEMENTS);
Query Select(num...) As %Query(CONTAINID = 1, ROWSPEC = "ID:%Integer,Dossier:%Integer,codeProd:%String") [ SqlProc ]
{
}
ClassMethod SelectExecute(par As %Binary, num...) As %Status
{
kill par, ^||tmpSelectQry
for i=1:1:$g(num) set nr=$g(num(i)) merge:nr]"" ^||tmpSelectQry(nr)=^User.TestList.Data.TitreI("numDossiersMERIdx",nr)
set par=$na(^||tmpSelectQry)
quit $$$OK
}
ClassMethod SelectFetch(par As %Binary, row As %List, end As %Integer) As %Status
{
set par=$query(@par)
if par="" { set end=1, row="" }
else {
set end=0, id=$qs(par,2)
set row=$lb(id, $qs(par,1), ..codeProduitGetStored(id)) // and other fields...
}
quit $$$OK
}
ClassMethod SelectClose(par As %Binary) As %Status
{
kill par, ^||tmpSelectQry
quit $$$OK
}
ClassMethod Test()
{
write "Using a ResultSet...",!
set rs=##class(%ResultSet).%New("User.TestList.Data.Titre:Select")
if rs.Execute(230,3590,40110,507550,6094,70071,820096,9380148,8,592) {
set t=$zh
while rs.Next() { write rs.Data("ID"),?10,rs.Data("Dossier"),?30,rs.Data("codeProd"),! }
}
write "Time: ",$zh-t*1E3,!!
write "Direct usage of the query methods...",!
do ..SelectExecute(.par,230,3590,40110,507550,6094,70071,820096,9380148,8,592)
set t=$zh
for do ..SelectFetch(.par,.row,.end) quit:end zwrite row
write "Time: ",$zh-t*1E3,!
}
Storage Default
{
<Data name="TitreDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>numTitre</Value>
</Value>
<Value name="3">
<Value>millesime</Value>
</Value>
<Value name="4">
<Value>codeProduit</Value>
</Value>
<Value name="5">
<Value>numDossierMER</Value>
</Value>
</Data>
<Data name="numDossiersMER">
<Attribute>numDossiersMER</Attribute>
<Structure>subnode</Structure>
<Subscript>"numDossiersMER"</Subscript>
</Data>
<DataLocation>^User.TestList.Data.TitreD</DataLocation>
<DefaultData>TitreDefaultData</DefaultData>
<ExtentSize>1000000</ExtentSize>
<IdLocation>^User.TestList.Data.TitreD</IdLocation>
<IndexLocation>^User.TestList.Data.TitreI</IndexLocation>
<Property name="%%CLASSNAME">
<AverageFieldSize>1</AverageFieldSize>
<Selectivity>100.0000%</Selectivity>
</Property>
<Property name="%%ID">
<AverageFieldSize>5.88</AverageFieldSize>
<Selectivity>1</Selectivity>
</Property>
<Property name="codeProduit">
<AverageFieldSize>4.89</AverageFieldSize>
<Selectivity>0.0004%</Selectivity>
</Property>
<Property name="millesime">
<AverageFieldSize>8.89</AverageFieldSize>
<Selectivity>0.0001%</Selectivity>
</Property>
<Property name="numDossierMER">
<AverageFieldSize>8.89</AverageFieldSize>
<Selectivity>0.0001%</Selectivity>
</Property>
<Property name="numTitre">
<AverageFieldSize>8.89</AverageFieldSize>
<Selectivity>0.0001%</Selectivity>
</Property>
<SQLMap name="IDKEY">
<BlockCount>-63088</BlockCount>
</SQLMap>
<SQLMap name="numDossierMERIdx">
<BlockCount>-7912</BlockCount>
</SQLMap>
<SQLMap name="titreIdx">
<BlockCount>-19940</BlockCount>
</SQLMap>
<StreamLocation>^User.TestList.Data.TitreS</StreamLocation>
<Type>%Storage.Persistent</Type>
} }
Some examples after do ##class(..).Poulate(1E6)
USER>d ##class(User.TestList.Data.Titre).Test()
Using a ResultSet...
700556 8 R7369
696384 230 R6776
952257 592 E8624
209184 3590 Q7863
239874 6094 N7969
497500 40110 W6490
188796 70071 O9708
145090 507550 S3705
803994 820096 S20
97986 9380148 W6598
Time: .787
Direct usage of the query methods...
row=$lb("700556","8","R7369")
row=$lb("696384","230","R6776")
row=$lb("952257","592","E8624")
row=$lb("209184","3590","Q7863")
row=$lb("239874","6094","N7969")
row=$lb("497500","40110","W6490")
row=$lb("188796","70071","O9708")
row=$lb("145090","507550","S3705")
row=$lb("803994","820096","S20")
row=$lb("97986","9380148","W6598")
Time: .894
There are two solutions, either you use the property numDossiersMER as array instead of list, as suggested by David Hockenbroch, or in case when existing application use list methods like insert and FOR-loops to acces list elements, then you can change this property to a kind of list-table property (see below).
Either of the above gives you the possibility to use queries like:
select Titre->ID, Titre->numTitre, Titre->millesime, Titre->codeProduit, Titre->numDossierMer, numDossiersMER
from User_TestList_Data.Titre_numDossiersMER
where numDossiersMER in (123, 234, 345)The following guidance is based on the fact that Cache/IRIS uses the so called "schema evolution" in class storage, see also: https://docs.intersystems.com/latest/csp/docbook/Doc.View.cls?KEY=GOBJ_…
I use to say list-table property if in a class definition a property shows up as
Property PropName As list of WhateverDataType;but the SQL-projection is array-like
Property PropName As array Of WhateverDataType;The steps to create a list-table property depends on the state of your project:
a) You not yet have any data (or the data you have can be deleted):
a1) Delete the possibly existing data
a2) Delete the storage definition (Studio-->Inspector-->Storage-->RightClick-->Delete)
a3) Change the property definition to array:
Property numDossiersMER As array of %Integer;a4) Compile the class
a5) Change the property definotion to list:
Property numDossiersMER As list Of %Integer;a6) Compile the class
Voila, you got a list-table property:
do obj.MyProp.Insert(data) to add data items
and query property data as it would be a table: select * from class.name_MyProp b) You want to keep your data and you want to retain the property name numDossiersMER (because you don't want to change existing applications). Before proceeding, make a backup of your class globals, then:
b1) Rename the existing property and then add it again as a new array property:
from: Property numDossiersMER as list of %Integer
to : Property OLDnumDossiersMER as list of %Integerchange the property name in the storage definition too
from: <Value>numDossiersMER</Value>
to : <Value>OLDnumDossiersMEROLD</Value>then add the new property as array
Property numDossiersMER as array of %Integer;b2) Compile the class
b3) Change the property's collection from array to list
Property numDossiersMER as list of %Integer;b4) Compile the class
b5) Transfer the list data from old storage to the new and potentially delete the old list data
set id=0
for {set id=$order(^User.TestList.Data.TitreD(id)) quit:'id
set obj=##class(User.TestList.Data.Titre).%OpenId(id)
if 'obj write id," ??",! continue
for i=1:1:obj.OLDnumDossiersMER.Count() do obj.numDossiersMER.Insert(obj.OLDnumDossiersMER.GetAt(i)
// obj.OLDnumDossiersMER.Clear()
do obj.%Save()
}or you use an SQL statement instead of $order(...)
b6) Rebuild the indexes.
c) You want to keep your data and you want to have a new property name too. Again, before proceeding, make a backup of your class globals, then:
c1) Add the new property as an array
Property numNewDossiersMER As array Of %Integer;c2) Compile the class
c3) Change the new property collection from array to list
Property numNewDossiersMER As list Of %Integer;c4) Compile the class
c5) Transfer the list data from numDossiersMER to numNewDossiersMER according to b5)
It's IMPORTANT to follow the above steps in the given sequence!
Just to keep things complete, the other way around (array items stored as list items) is also possible. You have just to swap the definition sequence: define as list, compile, redefine as array, compile.
Both possible structures are considered. Here, I use the examples from my previous posting:
set obj=##class(DC.Rick.MemberData).%OpenId(1)
do obj.%JSONExport() --> {"members":[{"dob":"1990-07-18","firstName":"Bob","memberId":123956}]}set obj=##class(DC.Rick.MemberData).%OpenId(2)
do obj.%JSONExport() --> {}The second example outputs {} only and not {"members":null}, I don't know why. Maybe there is a parameter which control this behavior, please ask WRC.
From the view of data value, you can consider {} and {"members":null} as equal.
write {"members":null}.%GetTypeOf("members") --> null
write {}.%GetTypeOf("members") ----------------> unassignedBoth representation mean, the members property has no value. But, yes, but you can philosophize about it ...
I assume (according to the error message you show) you are trying to import some JSON-formatted data into an IRIS class. In addition I recommend the reading of https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cl…
To achieve this, you must define two IRIS classes:
Class DC.Rick.MemberData Extends (%Persistent, %JSON.Adaptor)
{
Property members As list Of Member;
}Class DC.Rick.Member Extends (%SerialObject, %JSON.Adaptor)
{
Property dob As %Date;
Property firstName As %String;
Property middleName As %String;
Property nameSuffix As %String;
Property genderCode As %String;
Property lastName As %String;
Property memberId As %Integer;
Property relationship As %String;
}Furthermore, I assume you have data like this (I shortened your example to keep things simple):
set memb0={"dob":"1990-07-18", "firstName":"Bob", "memberId":123956}
set memb1={"dob":"1990-05-25", "firstName":"Bill", "memberId":12345}
set memb2={"dob":"1990-10-30", "firstName":"Tommy", "memberId":4567}
set data(1)={"members":[(memb0)]}.%ToJSON() // one member
set data(2)={"members":null}.%ToJSON() // no member at all
set data(3)={"members":[(memb1),(memb2)]}.%ToJSON() // two memberscheck the examples:
for i=1:1:3 write data(i),!the output should be:
{"members":[{"dob":"1990-07-18","firstName":"Bob","memberId":123956}]}
{"members":null}
{"members":[{"dob":"1990-05-25","firstName":"Bill","memberId":12345},{"dob":"1990-10-30","firstName":"Tommy","memberId":4567}]}
now import those data
for i=1:1:3 {
set oref=##class(DC.Rick.MembersData).%New()
if oref.%JSONImport(data(i)), oref.%Save() { write "OK",! } else { write "ERR",! }
}If everything goes well, you should get three "OK"s and your data global looks like this
zwrite ^DC.Rick.MemberDataD
^DC.Rick.MemberDataD=3
^DC.Rick.MemberDataD(1)=$lb("",$lb($lb($lb(54620,"Bob","","","","",123956,""))))
^DC.Rick.MemberDataD(2)=$lb("","")
^DC.Rick.MemberDataD(3)=$lb("",$lb($lb($lb(54566,"Bill","","","","",12345,"")),$lb($lb(54724,"Tommy","","","","",4567,""))))check member sizes:
for i=1:1:3 set oref=##class(DC.Rick.MemberData).%OpenId(i) write oref.members.Size,!and the output should be:
1
0
2I hope this is a good starting point for you...
It depends on...
Who is sitting at the other end? A Cache/IRIS server or a third-party product?
If Cache/IRIS: Mirroring, shadowing are the catchwords, you have to look for. In case of third-party SQL-DB: how fast (how often) want to do your updates? Once a day or (nearly)realtime?
I did something like that several years ago... the procedure is (just as a starting point):
Our application uses objects, so all the involved classes have an %OnAfterSave() method, something like this
Method %OnAfterSave(insert As %Boolean) As %Status
{
do ..addToTransfer(..%Id())
}with some smartness, like do not add if the record is already in the transfer queue, etc. If you use SQL instead of objects, triggers are your friend.
We have also a task, which crates (based on the class definition) a series of INSERT/UPDATE statement(s) and does the transfer with the help of %SQLGatewayConnection.
The simplest solution was already answered by Robert Cemper in https://community.intersystems.com/post/how-select-random-row-table. I just want to show a more "universal variant" of that solution.
First, create an SQL stored procedure
class SP.Utilis Extends %RegisteredObject
{
ClassMethod Random(number As %Integer, dummy As %String) As %Integer [SqlProc]
{
quit $random(number) // we do not use dummy but we need it!!
}
}then make your query as follows:
select top 10 * from whatever.table where SP.Utils_Random(100,ID)<50This has following advantages:
1) works with all classes, i.e. the ID column has not to be an integer (greater 0), can be a compound column too (like part1||part2, etc)
2) by adjusting the comparison:
Random(1000,ID) < 50 // gives you more "greater" distances then
Random(1000,ID) <500 // between the returned rowsFor testing of edge conditions you can use
Random(1000,ID)<0 // no rows will be returned or
Random(1000,ID)<1000 // all rows will be returndWith the right side of the comparison you can fine tune the distances between the returned rows.
For the dummy argument in the above function you can use an arbitrary column name, the simplest is to use ID because the ID column always exists, it's purpose is to force the SQL-Compiler to call this function for each row (thinking, the result of the Random() function is row-dependet). A comparsion like Random(100)<50 is executed just once. Roberts solution works too because he uses Random(100)<ID but this works only for tables where ID is a Integer (>0). You can verify this by just issuing a simple query
select top 10 * fom your.table where SP.Utils_Random(100)<50You will see (by repeatedly executing the above query) either 10 (subsequente) rows or nothing
According to your $ZV you have a unicode installation, so there should be no problem, neither with skandinavian- nor with other language characters.
Please check your filename string... start a terminal session and then:
zzdump FileNameFullPaththen check, in the same way, the file name in your file system
ClassMethod Size(file)
{
if '##class(%File).Exists(file) quit -1
quit ##class(%File).GetFileSize(file)
}Returnvalues:
-1=File does not exists, 0...n=Filesize
nothing against 7zip, merely, I use (win)rar since the mid-nineties. And as you probably know, old habits never die...
Just my 2 cent suggestion, CACHE.DAT and IRIS.DAT can be (usually) well compressed, the catchwords are winzip and winrar (I prefer winrar over winzip). Winrar, despite the word "win" in name, is also available for linux.
An example: winzip turned a 16GB CACHE.DAT into 3.45GB, winrar (mode=best) topped this with 2.2GB, but as always, your values will depend on your data. And mind the time you need to compress and decompress the files, which, of course will depend on your hardware...
For example (command line)
rar a -m4 -m512 -v4g <pathTo>cachetransfer <pathTo>cache.datwill create as many compressed files as needed, each (but the last one) with a size of 4GB, with good compression using dictionary of 512KB size.
You will get, in total, roughly 250 (*.rar) files (each with size of 4GB), I assume, 4TB compresses to 1TB.
When the first 4GB (rar)file is ready, start the transfer in parallel (one job does the compression and the other(s) work(s) on transfer - maybe you have multiple internet connections). Further, suppose you have a continuous (internet) connection between your and the target system with 100 Mbps then, again roughly, the job is done in 28 hours... better then transferring 4TB in a week or more (it's easier to restart a 4GB file as a 4TB file)
Yes, in the ^TRACE routine itself. From command line (in %SYS namespace) issue a "do ^TRACE" and you will get a nice documentation... ;-)
not so terrible... but one more thing
set ascii=$char(65,66,196)
set wide=$char(65,66,352)
write $ziswide(ascii)," ",$ziswide(wide)
zzdump ascii,wideas I wrote in my first answer, you have to care, always to return ASCII data and not WIDE data
Counterquestion, do you have an example of a 'non-ASCII' char?
Codepoints 0x00-0x7F (0 - 127) are the C0 controls, aka Basic Latin (ASCII)
Codepoints 0x80-0xFF (128-255) are the C1 controls, aka Latin1
Take a look on https://www.unicode.org/charts/PDF/U0080.pdf
For example, Ä or ä are the german umlaut-A respective umlaut-a,
$ascii("Ä") --> 196 and $ascii("ä") --> 228 type in a terminal session on your system: write $char(196) --> Ä
Download and compare the above pdf with your iso-8859-1 data, there should be no difference.
If you get data as ISO-8859-1 (aka Latin1) and have a Unicode (IRIS/Cache) installation then usually you have nothing to do (except, to process the data). What do you mean with "convert the text to UTF-8"? In IRIS/Cache you have (and work with) Unicode codepoints, UTF-8 comes into play only when you export your data but in your case, it will rather be ISO-8859-1 or do I something misunderstand?
By the way, if you return your data back to your Latin1 source (as Latin1) then you have to take some precautions because you have an unicode installation, so during the data processing you could mix your Latin1 data with true unicode data from other sources!
See: https://unicode.org/charts/
Also, you may download and read:
https://www.unicode.org/versions/Unicode13.0.0/UnicodeStandard-13.0.pdf
The best way your problem be solved is, give us a little more information, at least, the error message you get.
Of course, this is not a must
Of course, if you don't want to check each and every write() for error or success, you can do the check just one time at the beginning
set str=##class(%Stream.FileCharacter).%New()
do str.LinkToFile("/root/my_file.txt")
set sts=str.Write("")
if 'sts { write "We have a problem",! quit }writing a nullstring to stream does not change the stream but the file opening sequence will be executed
Checking status codes is a good starting point...
set str=##class(%Stream.FileCharacter).%New()
write str --> 4@%Stream.FileCharacter
write $system.OBJ.DisplayError(str.LinkToFile("/root/my_file.txt")) --> 1
write $system.OBJ.DisplayError(str.WriteLine("line-1")) --> ERROR #5005: Cannot open file '/root/my_file.txt'1Your %Save() returns with 1 (OK), because there is nothing to save...
Note: on linux, for a standard user (like me now) is forbidden to write to '/root' directory
In addition to Ben's answer,
on Windows: netstat -ano | find "LISTENING"
will in the far right column show the process ID of the listening process
on Linux: sudo netstat -pln | grep tcp
the last column shows the process name which is opened the port
I think, there is a "small problem" at start...
zn "%SYS",n=SL ...will not work as expected ;-))
but what about this line with 552 chars
zn "%SYS" s n="SL" d ##class(Security.SSLConfigs).Create(n):'##class(Security.SSLConfigs).Exists(n),##class(%Net.URLParser).Parse("https://pm.community.intersystems.com/packages/zpm/latest/installer",.c) s h=##class(%Net.HttpRequest).%New(),h.Server=c("host"),h.Port=443,h.Https=1,h.SSLConfiguration=n,s=h.Get(c("path")) q:'s $System.Status.GetErrorText(s) s x=##class(%File).TempFilename("xml"),f=##class(%Stream.FileBinary).%New(),f.Filename=x d f.CopyFromAndSave(h.HttpResponse.Data) d h.%Close(),$system.OBJ.Load(x,"ck") do ##class(%File).Delete(x)
I only rewrote your line, but haven't tried to execute
I think, your solution is an "ad hoc" solution for a particular task, anyway, I want to point out two problems.
First, the solution fails, if the size of <source> is less then than the size of <target>:
set source={"Name":"Joe", "Age":50 }
set target={"Name":"Joe", "Age":50, "Phone":"123-456"}
write CompareJSON(source,target) ---> 1
write CompareJSON(target,source) ---> 0The same goes for data like:
set source={"Name":"Joe", "Age":50, "Data":[10,20] }
set target={"Name":"Joe", "Age":50, "Data":[10,20,30]}Maybe your data do not have such cases.
A quick check could be:
if source.%Size()-target.%Size() { quit "Size-problem" }Second, in a more "general" case, comparing lists could sometimes lead to an philosophical question:
are two lists with the same elements but in a different sequence (of those elements) equal or not?
list1: [aaa, bbb]
list2: [bbb, aaa]The answer MAY depend on the question, what is stored in those lists?
If the lists contains, for example, some kind of instructions, then the sequence of those instructions will mattern, but if those list are just list of, say my hobbies, then the sequence is unimportant (except, if one implies some kind of weighting, like the first entry is my preferred hobby).
This implies to me, to compare two list, you MAY need an extra info, something like:
dependsOnSequence = yes | no
One more hint, in the line
s tSC= ..CompareJSON(value,target.%Get(key),RefNo) what happens if target.%Get(key) is empty (or not a corresponding object)?
Just my2cents
Ok, here I am... sorry for the delay.
***********************************************
Forget it!
I'm unable to copy and paste a program (in this case a method) into this text box!
After paste operation, some lines are joint, others not, the indention is lost...
Maybe I'm just too dumb to work with the text box...
*****************************************
If you want this class, you can it download from my FTP.
ftp: ftp.kavay.at
usr: dcmember
psw: member-of-DCI'm not sure, what you want to do, but if you want to read a tiff file by byte-by-byte and the interpret it in some kind, there is a very simple example for the start.
The method below returns the file type (gif,jpg,png or tif) based on the magic number.
/// Identify an image by its magic number
/// (only for gif,jpg,png and tif)
ClassMethod ImageType(file, ByRef err)
{
o file:"ru":0
i $t {
s io=$i, err=""
u file r x#8
i x?1"GIF8"1(1"7",1"9")1"a" { s typ="gif" }
elseif $e(x,1,2)=$c(255,216), $$end()=$c(255,217) { s typ="jpg" }
elseif x=$c(137,80,78,71,13,10,26,10) { s typ="png" }
elseif $case($e(x,1,4), $c(73,73,42,0):1, $c(77,77,0,42):1, :0) { s typ="tif" }
else { s typ="", err="File type unknown" }
c file
u:io]"" io
} else { s typ="", err="Can't open "_file }
q typ
end() s t="" r:$zseek(-2,2) t#2 q t
}I have also a method to retrive the image size (pixelsWidth and pixelsHeight) for the same (gif,jpg,png and tif) files. If you are working on similar problem, I could post this method too.