Re: I hope there's a more efficient way of doing this
- Posted by axtens Oct 18, 2008
- 1095 views
G'day everyone,
Just to let you see what it became.
Kind regards,
Bruce.
include machine.e include dll.e include wildcard.e include w32msgs.e include w32def_series.ew include Unicode.ew include variant.ew function peek_vb( atom ptr ) sequence str, temp, len str = "" ptr -= 4 len = peek( {ptr,4} ) -- get length DWORD ptr += 4 temp = peek( {ptr, 2} ) ptr += 2 while not equal( temp, {0,0} ) do str &= ( temp[2] * 256 + temp[1] ) temp = peek( {ptr,2} ) ptr += 2 end while return { bytes_to_int(len) / 2 , str } end function sequence BlockRanges BlockRanges = { { #0000, #007F, "Basic Latin" }, { #0080, #00FF, "Latin-1 Supplement" }, { #0100, #017F, "Latin Extended-A" }, { #0180, #024F, "Latin Extended-B" }, { #0250, #02AF, "IPA Extensions" }, { #02B0, #02FF, "Spacing Modifier Letters" }, { #0300, #036F, "Combining Diacritical Marks" }, { #0370, #03FF, "Greek and Coptic" }, { #0400, #04FF, "Cyrillic" }, { #0500, #052F, "Cyrillic Supplement" }, { #0530, #058F, "Armenian" }, { #0590, #05FF, "Hebrew" }, { #0600, #06FF, "Arabic" }, { #0700, #074F, "Syriac" }, { #0750, #077F, "Arabic Supplement" }, { #0780, #07BF, "Thaana" }, { #07C0, #07FF, "NKo" }, { #0900, #097F, "Devanagari" }, { #0980, #09FF, "Bengali" }, { #0A00, #0A7F, "Gurmukhi" }, { #0A80, #0AFF, "Gujarati" }, { #0B00, #0B7F, "Oriya" }, { #0B80, #0BFF, "Tamil" }, { #0C00, #0C7F, "Telugu" }, { #0C80, #0CFF, "Kannada" }, { #0D00, #0D7F, "Malayalam" }, { #0D80, #0DFF, "Sinhala" }, { #0E00, #0E7F, "Thai" }, { #0E80, #0EFF, "Lao" }, { #0F00, #0FFF, "Tibetan" }, { #1000, #109F, "Myanmar" }, { #10A0, #10FF, "Georgian" }, { #1100, #11FF, "Hangul Jamo" }, { #1200, #137F, "Ethiopic" }, { #1380, #139F, "Ethiopic Supplement" }, { #13A0, #13FF, "Cherokee" }, { #1400, #167F, "Unified Canadian Aboriginal Syllabics" }, { #1680, #169F, "Ogham" }, { #16A0, #16FF, "Runic" }, { #1700, #171F, "Tagalog" }, { #1720, #173F, "Hanunoo" }, { #1740, #175F, "Buhid" }, { #1760, #177F, "Tagbanwa" }, { #1780, #17FF, "Khmer" }, { #1800, #18AF, "Mongolian" }, { #1900, #194F, "Limbu" }, { #1950, #197F, "Tai Le" }, { #1980, #19DF, "New Tai Lue" }, { #19E0, #19FF, "Khmer Symbols" }, { #1A00, #1A1F, "Buginese" }, { #1B00, #1B7F, "Balinese" }, { #1B80, #1BBF, "Sundanese" }, { #1C00, #1C4F, "Lepcha" }, { #1C50, #1C7F, "Ol Chiki" }, { #1D00, #1D7F, "Phonetic Extensions" }, { #1D80, #1DBF, "Phonetic Extensions Supplement" }, { #1DC0, #1DFF, "Combining Diacritical Marks Supplement" }, { #1E00, #1EFF, "Latin Extended Additional" }, { #1F00, #1FFF, "Greek Extended" }, { #2000, #206F, "General Punctuation" }, { #2070, #209F, "Superscripts and Subscripts" }, { #20A0, #20CF, "Currency Symbols" }, { #20D0, #20FF, "Combining Diacritical Marks for Symbols" }, { #2100, #214F, "Letterlike Symbols" }, { #2150, #218F, "Number Forms" }, { #2190, #21FF, "Arrows" }, { #2200, #22FF, "Mathematical Operators" }, { #2300, #23FF, "Miscellaneous Technical" }, { #2400, #243F, "Control Pictures" }, { #2440, #245F, "Optical Character Recognition" }, { #2460, #24FF, "Enclosed Alphanumerics" }, { #2500, #257F, "Box Drawing" }, { #2580, #259F, "Block Elements" }, { #25A0, #25FF, "Geometric Shapes" }, { #2600, #26FF, "Miscellaneous Symbols" }, { #2700, #27BF, "Dingbats" }, { #27C0, #27EF, "Miscellaneous Mathematical Symbols-A" }, { #27F0, #27FF, "Supplemental Arrows-A" }, { #2800, #28FF, "Braille Patterns" }, { #2900, #297F, "Supplemental Arrows-B" }, { #2980, #29FF, "Miscellaneous Mathematical Symbols-B" }, { #2A00, #2AFF, "Supplemental Mathematical Operators" }, { #2B00, #2BFF, "Miscellaneous Symbols and Arrows" }, { #2C00, #2C5F, "Glagolitic" }, { #2C60, #2C7F, "Latin Extended-C" }, { #2C80, #2CFF, "Coptic" }, { #2D00, #2D2F, "Georgian Supplement" }, { #2D30, #2D7F, "Tifinagh" }, { #2D80, #2DDF, "Ethiopic Extended" }, { #2DE0, #2DFF, "Cyrillic Extended-A" }, { #2E00, #2E7F, "Supplemental Punctuation" }, { #2E80, #2EFF, "CJK Radicals Supplement" }, { #2F00, #2FDF, "Kangxi Radicals" }, { #2FF0, #2FFF, "Ideographic Description Characters" }, { #3000, #303F, "CJK Symbols and Punctuation" }, { #3040, #309F, "Hiragana" }, { #30A0, #30FF, "Katakana" }, { #3100, #312F, "Bopomofo" }, { #3130, #318F, "Hangul Compatibility Jamo" }, { #3190, #319F, "Kanbun" }, { #31A0, #31BF, "Bopomofo Extended" }, { #31C0, #31EF, "CJK Strokes" }, { #31F0, #31FF, "Katakana Phonetic Extensions" }, { #3200, #32FF, "Enclosed CJK Letters and Months" }, { #3300, #33FF, "CJK Compatibility" }, { #3400, #4DBF, "CJK Unified Ideographs Extension A" }, { #4DC0, #4DFF, "Yijing Hexagram Symbols" }, { #4E00, #9FFF, "CJK Unified Ideographs" }, { #A000, #A48F, "Yi Syllables" }, { #A490, #A4CF, "Yi Radicals" }, { #A500, #A63F, "Vai" }, { #A640, #A69F, "Cyrillic Extended-B" }, { #A700, #A71F, "Modifier Tone Letters" }, { #A720, #A7FF, "Latin Extended-D" }, { #A800, #A82F, "Syloti Nagri" }, { #A840, #A87F, "Phags-pa" }, { #A880, #A8DF, "Saurashtra" }, { #A900, #A92F, "Kayah Li" }, { #A930, #A95F, "Rejang" }, { #AA00, #AA5F, "Cham" }, { #AC00, #D7AF, "Hangul Syllables" }, { #D800, #DB7F, "High Surrogates" }, { #DB80, #DBFF, "High Private Use Surrogates" }, { #DC00, #DFFF, "Low Surrogates" }, { #E000, #F8FF, "Private Use Area" }, { #F900, #FAFF, "CJK Compatibility Ideographs" }, { #FB00, #FB4F, "Alphabetic Presentation Forms" }, { #FB50, #FDFF, "Arabic Presentation Forms-A" }, { #FE00, #FE0F, "Variation Selectors" }, { #FE10, #FE1F, "Vertical Forms" }, { #FE20, #FE2F, "Combining Half Marks" }, { #FE30, #FE4F, "CJK Compatibility Forms" }, { #FE50, #FE6F, "Small Form Variants" }, { #FE70, #FEFF, "Arabic Presentation Forms-B" }, { #FF00, #FFEF, "Halfwidth and Fullwidth Forms" }, { #FFF0, #FFFF, "Specials" }, { #10000, #1007F, "Linear B Syllabary" }, { #10080, #100FF, "Linear B Ideograms" }, { #10100, #1013F, "Aegean Numbers" }, { #10140, #1018F, "Ancient Greek Numbers" }, { #10190, #101CF, "Ancient Symbols" }, { #101D0, #101FF, "Phaistos Disc" }, { #10280, #1029F, "Lycian" }, { #102A0, #102DF, "Carian" }, { #10300, #1032F, "Old Italic" }, { #10330, #1034F, "Gothic" }, { #10380, #1039F, "Ugaritic" }, { #103A0, #103DF, "Old Persian" }, { #10400, #1044F, "Deseret" }, { #10450, #1047F, "Shavian" }, { #10480, #104AF, "Osmanya" }, { #10800, #1083F, "Cypriot Syllabary" }, { #10900, #1091F, "Phoenician" }, { #10920, #1093F, "Lydian" }, { #10A00, #10A5F, "Kharoshthi" }, { #12000, #123FF, "Cuneiform" }, { #12400, #1247F, "Cuneiform Numbers and Punctuation" }, { #1D000, #1D0FF, "Byzantine Musical Symbols" }, { #1D100, #1D1FF, "Musical Symbols" }, { #1D200, #1D24F, "Ancient Greek Musical Notation" }, { #1D300, #1D35F, "Tai Xuan Jing Symbols" }, { #1D360, #1D37F, "Counting Rod Numerals" }, { #1D400, #1D7FF, "Mathematical Alphanumeric Symbols" }, { #1F000, #1F02F, "Mahjong Tiles" }, { #1F030, #1F09F, "Domino Tiles" }, { #20000, #2A6DF, "CJK Unified Ideographs Extension B" }, { #2F800, #2FA1F, "CJK Compatibility Ideographs Supplement" }, { #E0000, #E007F, "Tags" }, { #E0100, #E01EF, "Variation Selectors Supplement" }, { #F0000, #FFFFF, "Supplementary Private Use Area-A" }, { #100000, #10FFFF, "Supplementary Private Use Area-B" }} function NumToBlock( atom codepoint ) for i = 1 to length( BlockRanges ) do if ( codepoint >= BlockRanges[ i ][ 1 ] and codepoint <= BlockRanges[ i ][ 2 ] ) then return BlockRanges[ i ][ 3 ] end if end for return "<unassigned>" end function global function BLOCKS( atom ptrString ) atom h sequence sData sequence sResult sData = peek_vb( ptrString ) h = open("boune1.dat", "w" ) print( h, sData ) close(h) sResult = "" for i = 1 to sData[ 1 ] - 1 do sResult = sResult & NumToBlock( sData[ 2 ][ i ] ) & {9} end for sResult = sResult & NumToBlock( sData[ 2 ][ $ ] ) return alloc_bstr( sResult ) end function --printf(1, "%s", {NumToBlock( 125 )} )
