Changeset 119 for Include/basic/prompt.sbp

Timestamp:

Feb 23, 2007, 11:00:24 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Unicode (#50) 前準備
Byte→Char (#51) 型名は殆ど完了、ただし中身までは手を付けていないものが多い

File:

• Include/basic/prompt.sbp (modified) (7 diffs)

Include/basic/prompt.sbp

@@ -99 +99 @@
 
                 temporary[0]=_PromptSys_Buffer[i][i2]
+#ifdef UNICODE
+                If _System_IsSurrogatePair(_PromptSys_Buffer[i][i2], _PromptSys_Buffer[i][i2+1]) Then
+#else
                 If IsDBCSLeadByte(temporary[0]) Then
+#endif
                     temporary[1]=_PromptSys_Buffer[i][i2+1]
                     temporary[2]=0
+                    i2++
                 Else
                     temporary[1]=0
@@ -107 +112 @@
                 TextOut(hDC,i2*_PromptSys_FontSize.cx,i*_PromptSys_FontSize.cy,_
                     temporary,lstrlen(temporary))
-
-                If IsDBCSLeadByte(temporary[0]) Then i2++
             Next
         End If
@@ -172 +175 @@
     Dim CompForm As COMPOSITIONFORM
     Dim hGlobal As HGLOBAL
-    Dim pTemp As BytePtr
 
     Select Case message
@@ -246 +248 @@
                     hGlobal=GetClipboardData(CF_TEXT)
                     If hGlobal=0 Then PromptProc=0:Exit Function
-                    pTemp=GlobalLock(hGlobal) As *Byte
-
+                    Dim pTemp=GlobalLock(hGlobal) As *Byte
+#ifdef UNICODE
+                    Dim tempSizeW = MultiByteToWideChar(CP_ACP, 0, pTemp, -1, 0, 0) + 1
+                    TempStr=ZeroString(tempSizeW)
+                    MultiByteToWideChar(CP_ACP, 0, pTemp, -1, StrPtr(TempStr), tempSizeW)
+#else
                     TempStr=ZeroString(lstrlen(pTemp)+1)
                     lstrcpy(StrPtr(TempStr),pTemp)
-
+#endif
                     lstrcpy((VarPtr(_PromptSys_InputStr[0])+_PromptSys_InputLen) As *Byte,pTemp)
                     _PromptSys_InputLen=_PromptSys_InputLen+lstrlen(pTemp)
@@ -337 +343 @@
     _PromptSys_hWnd=CreateWindowEx(WS_EX_CLIENTEDGE,"PROMPT","BASIC PROMPT",WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0,GetModuleHandle(0),0)
     ShowWindow(_PromptSys_hWnd,SW_SHOW)
+    UpdateWindow(_PromptSys_hWnd)
 
     Dim msg As MSG, iResult As Long
@@ -455 +462 @@
             Case _System_Type_Integer,_System_Type_Word
                 SetWord(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_Char,_System_Type_Byte
+            Case _System_Type_SByte,_System_Type_Byte
                 SetByte(_System_InputDataPtr[i],Val(buf))
-
+            Case _System_Type_Char
+#ifdef UNICODE
+                SetWord(_System_InputDataPtr[i], buf[0])
+#else
+                SetByte(_System_InputDataPtr[i], buf[0])
+#endif
             Case _System_Type_String
+            *INPUT_FromPrompt_Type_String
                 Dim pTempStr As *String
                 pTempStr=_System_InputDataPtr[i] As *String
@@ -464 +477 @@
                 memcpy(pTempStr->Chars, buf.Chars, pTempStr->Length)
                 pTempStr->Chars[pTempStr->Length] = 0
+            Case 13
+                Goto *INPUT_FromPrompt_Type_String
         End Select