lyrpy 0.0.2__py3-none-any.whl

lyr/LUStrDecode.py

@@ -0,0 +1,223 @@
+"""LUDecode.py"""
+# -*- coding: UTF-8 -*-
+__annotations__ = """
+ =======================================================
+ Copyright (c) 2023-2024
+ Author:
+     Lisitsin Y.R.
+ Project:
+     LU_PY
+     Python (LU)
+ Module:
+     LUStrDecode.py
+
+ =======================================================
+"""
+
+#------------------------------------------
+# БИБЛИОТЕКИ python
+#------------------------------------------
+
+#------------------------------------------
+# БИБЛИОТЕКИ сторонние
+#------------------------------------------
+
+#------------------------------------------
+# БИБЛИОТЕКИ LU
+#------------------------------------------
+
+cCP1251 = 'cp1251'
+cUTF_8 = 'UTF-8'
+
+#---------------------------------------------------------------------------
+UTF8WIN1251 =\
+    0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,\
+    16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,\
+    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,\
+    48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,\
+    64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,\
+    80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,\
+    96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,\
+    112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,\
+    240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255,\
+    192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,\
+    208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,\
+    224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,\
+    192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,\
+    208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,\
+    224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,\
+    240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
+
+#---------------------------------------------------------------------------
+DOSWIN1251 =\
+    0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,\
+    16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,\
+    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,\
+    48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,\
+    64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,\
+    80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,\
+    96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,\
+    112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,\
+    192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,\
+    208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,\
+    224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,\
+    240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255,\
+    192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,\
+    208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,\
+    224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,\
+    240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
+
+#---------------------------------------------------------------------------
+WINDOS1251 =\
+    0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,\
+    16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,\
+    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,\
+    48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,\
+    64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,\
+    80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,\
+    96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,\
+    112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,\
+    192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,\
+    208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,\
+    224, 225, 226, 227, 228, 229, 230, 231, 240, 233, 234, 235, 236, 237, 238, 239,\
+    240, 241, 242, 243, 244, 245, 246, 247, 241, 249, 250, 251, 252, 253, 254, 255,\
+    128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,\
+    144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,\
+    160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,\
+    224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239
+
+#---------------------------------------------------------------------------
+TransLit =\
+    0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,\
+    16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,\
+    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,\
+    48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,\
+    64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,\
+    80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,\
+    96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,\
+    112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,\
+    192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,\
+    208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,\
+    224,225,226,227,228,229,230,231,240,233,234,235,236,237,238,239,\
+    240,241,242,243,244,245,246,247,241,249,250,251,252,253,254,255,\
+    128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,\
+    144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,\
+    160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,\
+    224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239\
+
+#----------------------------------------------------------------------------
+# UTF8toWin
+#----------------------------------------------------------------------------
+def UTF8toWin (s: str) -> str:
+    """UTF8toWin"""
+#beginfunction
+    LResult: str = ''
+    i = 0
+    while i < len (s) + 1:
+        c = s[i]
+        if ord (c) == 208 or ord (c) == 209:
+            i = i + 1
+            c = s[i]
+        #endif
+        _i = ord (c)
+        __i = UTF8WIN1251 [_i]
+        LResult = LResult + chr (__i)
+        i = i + 1
+    #endwhile
+    return LResult
+#endfunction
+
+#----------------------------------------------------------------------------
+# DOStoWin
+#----------------------------------------------------------------------------
+def DOStoWin (s: str) -> str:
+    """DOStoWin"""
+#beginfunction
+    LResult: str = ""
+    i = 1
+    while i < len (s) + 1:
+        c = s[i]
+        LResult = LResult + chr (DOSWIN1251[ord(c)])
+        i = i + 1
+    #endwhile
+    return LResult
+#endfunction
+
+#----------------------------------------------------------------------------
+# WintoDOS
+#----------------------------------------------------------------------------
+def WinToDOS (s: str) -> str:
+    """WinToDOS"""
+#beginfunction
+    LResult = ''
+    i = 1
+    while i < len (s) + 1:
+        c = s[i,1]
+        LResult = LResult + "" + chr (WINDOS1251[ord(c)])
+        i = i + 1
+    #endwhile
+    return LResult
+#endfunction
+
+#----------------------------------------------------------------------------
+# WintoDOSFile
+#----------------------------------------------------------------------------
+def WinToDOSFile (AFileIN: str, AFileOUT: str):
+    """WinToDOSFile"""
+#beginfunction
+    """
+    if EXIST (FileIN)
+        $HandleIN = FreeFileHandle
+        if Open ($HandleIN, $FileIN, 2) = 0
+            HandleOUT = FreeFileHandle
+            Open ($HandleOUT, $FileOUT, 1+4)
+            S = ReadLine ($HandleIN)
+            while @ERROR = 0
+                S = WinToDOS($s)
+                LResult = WriteLine ($HandleOUT, $S+@CRLF)
+                S = ReadLine ($HandleIN)
+            #endwhile
+            LResult = Close ($HandleIN)
+            LResult = Close ($HandleOUT)
+        #endif
+    #endif
+    """
+#endfunction
+
+"""
+function StrToOem (const AnsiStr: string): string;
+begin
+    SetLength (Result, Length(AnsiStr));
+    if Length (Result) > 0 then
+        CharToOemBuff (PWideChar(AnsiStr), PAnsiChar(Result), Length(Result));
+        AnsiToOemBuff (@AnsiStr[1], @Result[1], Length(Result));
+end;
+"""
+
+"""
+function OemToAnsiStr (const OemStr: string): string;
+begin
+    SetLength (Result, Length(OemStr));
+    if Length (Result) > 0 then
+        OemToCharBuff (PAnsiChar(OemStr), PWideChar(Result), Length(Result));
+        OemToAnsiBuff (@OemStr[1], @Result[1], Length(Result));
+end;
+"""
+
+#---------------------------------------------------------
+# main
+#---------------------------------------------------------
+def main ():
+#beginfunction
+    ...
+#endfunction
+
+#---------------------------------------------------------
+#
+#---------------------------------------------------------
+#beginmodule
+if __name__ == "__main__":
+    main()
+#endif
+
+#endmodule