D 2020-04-20T16:03:24.642
J comment <div>Dear\sRoy,</div><div><br\s/></div><div>thank\syou\sfor\sgreat\stcl2c.tcl\sand\sits\sframework.</div><div>I\sam\slearning\seach\sday\sand\sdigging\smiself\sthrough\sthe\smechanisms.</div><div>Sorry\sto\sbe\sa\snovice.</div><div>And\ssorry\sto\suse\sMicrosoft\scompilers.</div><div><br\s/></div><div>The\scompiler\sMS-VC2015\s(VC9)\shas\sa\sstring\sconstant\ssize\slimit\sof\s65535\scharacters.</div><div>A\spossibility\sto\savoid\sthis\slimit\sis\sto\suse\san\sarray\sof\scharacters,\swhich\shave\sa\slimit\sof\ssize_z\s=\s0x7CFFFFFF.</div><div><br\s/></div><div>The\spatch\sbelow\schanges\sdir2c.tcl\sto\soutput\seach\sfile\swithin\sone\scharacter\sarray\snamed&nbsp;\scvfs_data_$idx\sas\sfollows:</div><div><br\s/></div><div>&lt;verbatim&gt;</div><div>/*\sData\sof\sboot.tcl\s*/<br\s/>static\sunsigned\schar\scvfs_data_2[]\s=\s{<br\s/>&nbsp;&nbsp;&nbsp;\s0x70,\s0x72,\s0x6f,\s0x63,\s0x20,\s0x74,\s0x63,\s0x6c,\s0x49,\s0x6e,\s0x69,\s0x74,\s0x20,\s0x7b,\s0x7d,\s0x20,\s<br\s/>...</div><div>static\sstruct\scvfs_data\scvfs_tcl_data[]\s=\s{<br\s/></div><div>...<br\s/></div><div>&nbsp;&nbsp;&nbsp;\s{<br\s/>&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s/*\sname&nbsp;\s*/\s"boot.tcl",<br\s/>&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s/*\sindex\s*/\s2,<br\s/>&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s/*\stype&nbsp;\s*/\sCVFS_FILETYPE_FILE,<br\s/>&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s/*\ssize&nbsp;\s*/\s2887,<br\s/>&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s/*\sdata&nbsp;\s*/\scvfs_data_2,<br\s/>&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s/*\sfree&nbsp;\s*/\s0,<br\s/>&nbsp;&nbsp;&nbsp;\s},<br\s/>&lt;/verbatim&gt;<br\s/></div><div><br\s/></div><div>The\spatch\sallows\sto\suse\sthis\sfor\sall\sfiles\sor\sfiles\slarger\sthan\sthe\scharacter\slength\slimit.</div><div><br\s/></div><div>I\smay\smiss\sanother\sdisadvantage\sof\sthis\smethod.\sI\ssuppose,\sit\sonly\savoids\sthe\simplicite\strailing\szero\sbyte.<br\s/></div><div><br\s/></div><div>Thank\syou,</div><div>Harald</div><div><br\s/></div><div>Patch:</div><div>&lt;verbatim&gt;</div><div>---\sC:/Users/oehhar/AppData/Local/Temp/dir2c.tcl-revBASE.svn001.tmp.tcl&nbsp;&nbsp;&nbsp;\sFri\sApr\s17\s17:29:24\s2020<br\s/>+++\sC:/oehhar/elmicron/projekte/el1005_scanlink_dll/source/c-vfs/dir2c.tcl&nbsp;&nbsp;&nbsp;\sMon\sApr\s20\s17:30:25\s2020<br\s/>@@\s-66,26\s+66,44\s@@<br\s/>&nbsp;proc\sstringify\s{data}\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sset\sret\s"\\""<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sfor\s{set\sidx\s0}\s{$idx\s&lt;\s[string\slength\s$data]}\s{incr\sidx}\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sbinary\sscan\s[string\sindex\s$data\s$idx]\sH*\schar<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sappend\sret\s"\\\\x${char}"<br\s/>&nbsp;<br\s/>-&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sif\s{($idx\s%\s20)\s==\s0\s&amp;&amp;\s$idx\s!=\s0}\s{<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sif\s{(($idx+1)\s%\s20)\s==\s0}\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sappend\sret\s"\\"\\n\\""<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s}<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s}<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sset\sret\s[string\strim\s$ret\s"\\n\\""]<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sset\sret\s"\\"$ret\\""<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sreturn\s$ret<br\s/>&nbsp;}<br\s/>&nbsp;<br\s/>+#\sConvert\sdata\sto\sa\scharacter\sarray<br\s/>+proc\scharacter_array\s{data}\s{<br\s/>+&nbsp;&nbsp;&nbsp;\sset\sret\s"\\{\\n\\t"<br\s/>+&nbsp;&nbsp;&nbsp;\sfor\s{set\sidx\s0}\s{$idx\s&lt;\s[string\slength\s$data]}\s{incr\sidx}\s{<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sbinary\sscan\s[string\sindex\s$data\s$idx]\sH*\schar<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sappend\sret\s"0x${char},\s"<br\s/>+<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sif\s{(($idx+1)\s%\s16)\s==\s0\s}\s{<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sappend\sret\s"\\n\\t"<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s}<br\s/>+&nbsp;&nbsp;&nbsp;\s}<br\s/>+&nbsp;&nbsp;&nbsp;\sset\sret\s[string\strimright\s$ret\s"\\n,\s\\t"]<br\s/>+<br\s/>+&nbsp;&nbsp;&nbsp;\sappend\sret\s"\\n\\}"<br\s/>+<br\s/>+&nbsp;&nbsp;&nbsp;\sreturn\s$ret<br\s/>+}<br\s/>+<br\s/>&nbsp;#\sEncrypt\sthe\sdata<br\s/>&nbsp;proc\srandom_byte\s{}\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sset\svalue\s[expr\s{int(256\s*\srand())}]<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sreturn\s$value<br\s/>&nbsp;}<br\s/>&nbsp;<br\s/>@@\s-303,64\s+321,80\s@@<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sreturn(0);<br\s/>&nbsp;}<br\s/>&nbsp;<br\s/>&nbsp;#&nbsp;\sendif\s/*\s!LOADED_CVFS_COMMON\s*/}<br\s/>&nbsp;puts\s""<br\s/>&nbsp;<br\s/>-puts\s"static\sstruct\scvfs_data\s${code_tag}_data\\[\\]\s=\s{"<br\s/>-puts\s"\\t{"<br\s/>-puts\s"\\t\\t/*\sIndex\s0\scannot\sbe\sused\sbecause\swe\suse\sthe\svalue\s0\sto\srepresent\sfailure\s*/"<br\s/>-puts\s"\\t\\t/*\sname&nbsp;\s*/\sNULL,"<br\s/>-puts\s"\\t\\t/*\sindex\s*/\s0,"<br\s/>-puts\s"\\t\\t/*\stype&nbsp;\s*/\s0,"<br\s/>-puts\s"\\t\\t/*\ssize&nbsp;\s*/\s0,"<br\s/>-puts\s"\\t\\t/*\sdata&nbsp;\s*/\sNULL,"<br\s/>-puts\s"\\t\\t/*\sfree&nbsp;\s*/\s0,"<br\s/>-puts\s"\\t},"<br\s/>+#\sC\sstruct\sdata\soutput\sbuffer\s(must\sbe\sdelayed\safter\sdefinition\sof\sfile\sdata)<br\s/>+set\sstruct_data\s""<br\s/>+<br\s/>&nbsp;for\s{set\sidx\s1}\s{$idx\s&lt;\s[llength\s$files]}\s{incr\sidx}\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sset\sfile\s[lindex\s$files\s$idx]<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sset\sshortfile\s[shorten_file\s$startdir\s$file]<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sunset\s-nocomplain\sfinfo\stype<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sfile\sstat\s$file\sfinfo<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\sswitch\s--\s$finfo(type)\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"file"\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\ssize\s$finfo(size)<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sfd\s[open\s$file]<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sfconfigure\s$fd\s-translation\sbinary<br\s/>-&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata\s[read\s$fd]<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata_in\s[read\s$fd]<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sclose\s$fd<br\s/>&nbsp;<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sif\s{$obsfucate}\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\stype\s"CVFS_FILETYPE_ENCRYPTED_FILE"<br\s/>-&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata\s"(unsigned\schar\s*)\s[stringify\s[encrypt\s$data\s$obsfucation_key]]"<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata_in\s[encrypt\s$data\s$obsfucation_key]<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s}\selse\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\stype\s"CVFS_FILETYPE_FILE"<br\s/>-&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata\s"(unsigned\schar\s*)\s[stringify\s$data]"<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s}<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#\sMicrosoft\sVC9\scompiler\shas\sa\sstring\slimit\sof\s65535\sbytes<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#\sso\sput\sall\slarger\sfiles\sinto\san\sarray\swhich\shas\sa\shigher<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#\sstring\slimit<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#if\s{$size\s&lt;=\s65535}\s{<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#&nbsp;&nbsp;&nbsp;\sset\sdata\s"(unsigned\schar\s*)\s[stringify\s$data_in]"<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#}\selse\s{<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sputs\s"/*\sData\sof\s$shortfile\s*/"<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\svariable_name\scvfs_data_$idx<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata\s$variable_name<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sputs\s"static\sunsigned\schar\s${variable_name}\\[\\]\s=\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s[character_array\s$data_in];"<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s#}<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s}<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"directory"\s{<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\stype\s"CVFS_FILETYPE_DIR"<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\sdata\s"NULL"<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\sset\ssize\s0<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s}<br\s/>&nbsp;&nbsp;&nbsp;&nbsp;\s}<br\s/>&nbsp;<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t{"<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t\\t/*\sname&nbsp;\s*/\s\\"$shortfile\\","<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t\\t/*\sindex\s*/\s$idx,"<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t\\t/*\stype&nbsp;\s*/\s$type,"<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t\\t/*\ssize&nbsp;\s*/\s$size,"<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t\\t/*\sdata&nbsp;\s*/\s$data,"<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t\\t/*\sfree&nbsp;\s*/\s0,"<br\s/>-&nbsp;&nbsp;&nbsp;\sputs\s"\\t},"<br\s/>+&nbsp;&nbsp;&nbsp;\sappend\sstruct_data\s"\\t{\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t\\t/*\sname&nbsp;\s*/\s\\"$shortfile\\",\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t\\t/*\sindex\s*/\s$idx,\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t\\t/*\stype&nbsp;\s*/\s$type,\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t\\t/*\ssize&nbsp;\s*/\s$size,\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t\\t/*\sdata&nbsp;\s*/\s$data,\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t\\t/*\sfree&nbsp;\s*/\s0,\\n"\\<br\s/>+&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s&nbsp;&nbsp;&nbsp;\s"\\t},\\n"<br\s/>&nbsp;}<br\s/>+puts\s""<br\s/>+puts\s"static\sstruct\scvfs_data\s${code_tag}_data\\[\\]\s=\s{"<br\s/>+puts\s"\\t{"<br\s/>+puts\s"\\t\\t/*\sIndex\s0\scannot\sbe\sused\sbecause\swe\suse\sthe\svalue\s0\sto\srepresent\sfailure\s*/"<br\s/>+puts\s"\\t\\t/*\sname&nbsp;\s*/\sNULL,"<br\s/>+puts\s"\\t\\t/*\sindex\s*/\s0,"<br\s/>+puts\s"\\t\\t/*\stype&nbsp;\s*/\s0,"<br\s/>+puts\s"\\t\\t/*\ssize&nbsp;\s*/\s0,"<br\s/>+puts\s"\\t\\t/*\sdata&nbsp;\s*/\sNULL,"<br\s/>+puts\s"\\t\\t/*\sfree&nbsp;\s*/\s0,"<br\s/>+puts\s"\\t},"<br\s/>+puts\s-nonewline\s$struct_data<br\s/>&nbsp;puts\s"};"<br\s/>&nbsp;puts\s""<br\s/>&nbsp;<br\s/>&nbsp;puts\s"static\sunsigned\slong\s${code_tag}_lookup_index(const\schar\s*path)\s{"<br\s/>&nbsp;puts\s"\\tswitch\s(cvfs_hash((unsigned\schar\s*)\spath))\s{"<br\s/>&nbsp;<br\s/>&nbsp;for\s{set\sidx\s1}\s{$idx\s&lt;\s[llength\s$files]}\s{incr\sidx}\s{<br\s/><br\s/></div><div>&lt;/verbatim&gt;<br\s/></div>
J foundin trunk
J login anonymous
J private_contact 0f366eb3e9e2fcab52b8ebacd197db9047186a5f
J severity Minor
J status Open
J title dir2c:\sOutput\sdata\sas\scharacter\sarray\sand\snot\sas\sstring
J type Feature\sRequest
K bd6188edd4290bfdcff4a8ef9355f5280496eda5
U anonymous
Z abde5fc13982fa4229bd20c2de3c66b5