HSPでランタイムを使わずにコンソールを使う

ランタイムを使用せずコンソールを使ってみようと思います。
copenでコンソールを開き
coutputで文字を表示し、
cinputでキーボードから打たれた文字を取得します。
ccloseでコンソールを閉じます。

+ expand sourceview plainprint?

1. #module console  
2.  #define STD_INPUT_HANDLE (-10)   
3.  #define STD_OUTPUT_HANDLE (- 11)  
4.  #define STD_ERROR_HANDLE (-12)  
5.   
6.  #uselib "kernel32.dll"  
7.  #func AllocConsole "AllocConsole"  
8.  #func FreeConsole "FreeConsole"  
9.  #cfunc GetStdHandle "GetStdHandle" int  
10.  #func SetStdHandle "SetStdHandle" int,int  
11.  #func ReadFile "ReadFile" int,int,int,int,int  
12.  #func WriteFile "WriteFile" int,int,int,int,int  
13.   
14.  #deffunc cset  
15.   SetStdHandle STD_OUTPUT_HANDLE,7  
16.   SetStdHandle STD_INPUT_HANDLE,3  
17.  return  
18.  #deffunc copen  
19.   AllocConsole  
20.     
21.  return stat  
22.  #deffunc cclose  
23.   FreeConsole  
24.  return stat  
25.  #deffunc coutput str buf_  
26.   buf=buf_  
27.   b=0  
28.   WriteFile GetStdHandle(STD_OUTPUT_HANDLE),varptr(buf),strlen(buf),b,0  
29.   stat_=stat  
30.   if stat_=0{  
31.     return -1  
32.   }  
33.  return  
34.  #deffunc cinput var buf_  
35.   d=0  
36.   buf_max=64  
37.   sdim buf,buf_max  
38.   data=0  
39.   index=0  
40.   repeat  
41.    ReadFile GetStdHandle(STD_INPUT_HANDLE),varptr(data),1,varptr(d),0  
42.    stat_=stat  
43.    if stat_=0{  
44.     return -1  
45.    }  
46.    if data=13||data=10||data=0{  
47.     buf_=buf  
48.     return  
49.    }  
50.    poke buf,index,data  
51.    index+  
52.    if index=buf_max{  
53.     sdim buf_d,buf_max  
54.     buf_d=buf  
55.     buf_max+=64  
56.     sdim buf,buf_max  
57.     buf=buf_d  
58.    }  
59.   loop  
60.  return  
61.  #deffunc cbinput var buf_  
62.   d=0  
63.   buf_max=64  
64.   sdim buf,buf_max  
65.   data=0  
66.   index=0  
67.   repeat  
68.    ReadFile GetStdHandle(STD_INPUT_HANDLE),varptr(data),1,varptr(d),0  
69.    stat_=stat  
70.    if stat_=0{  
71.     return -1  
72.    }  
73.    if data=0{  
74.     buf_=buf  
75.     return  
76.    }  
77.    poke buf,index,data  
78.    index+  
79.    if index=buf_max{  
80.     sdim buf_d,buf_max  
81.     buf_d=buf  
82.     buf_max+=64  
83.     sdim buf,buf_max  
84.     buf=buf_d  
85.    }  
86.   loop  
87.  return  
88. #global  
89.   
90. //////////サンプル///////////  
91. a=""  
92. copen  
93. coutput "hello world"  
94. cinput a  
95. coutput a  
96. wait  
97. cclose  
98. wait  
99. end  

#module console
 #define STD_INPUT_HANDLE (-10) 
 #define STD_OUTPUT_HANDLE (- 11)
 #define STD_ERROR_HANDLE (-12)

 #uselib "kernel32.dll"
 #func AllocConsole "AllocConsole"
 #func FreeConsole "FreeConsole"
 #cfunc GetStdHandle "GetStdHandle" int
 #func SetStdHandle "SetStdHandle" int,int
 #func ReadFile "ReadFile" int,int,int,int,int
 #func WriteFile "WriteFile" int,int,int,int,int

 #deffunc cset
  SetStdHandle STD_OUTPUT_HANDLE,7
  SetStdHandle STD_INPUT_HANDLE,3
 return
 #deffunc copen
  AllocConsole
  
 return stat
 #deffunc cclose
  FreeConsole
 return stat
 #deffunc coutput str buf_
  buf=buf_
  b=0
  WriteFile GetStdHandle(STD_OUTPUT_HANDLE),varptr(buf),strlen(buf),b,0
  stat_=stat
  if stat_=0{
    return -1
  }
 return
 #deffunc cinput var buf_
  d=0
  buf_max=64
  sdim buf,buf_max
  data=0
  index=0
  repeat
   ReadFile GetStdHandle(STD_INPUT_HANDLE),varptr(data),1,varptr(d),0
   stat_=stat
   if stat_=0{
    return -1
   }
   if data=13||data=10||data=0{
    buf_=buf
    return
   }
   poke buf,index,data
   index+
   if index=buf_max{
    sdim buf_d,buf_max
    buf_d=buf
    buf_max+=64
    sdim buf,buf_max
    buf=buf_d
   }
  loop
 return
 #deffunc cbinput var buf_
  d=0
  buf_max=64
  sdim buf,buf_max
  data=0
  index=0
  repeat
   ReadFile GetStdHandle(STD_INPUT_HANDLE),varptr(data),1,varptr(d),0
   stat_=stat
   if stat_=0{
    return -1
   }
   if data=0{
    buf_=buf
    return
   }
   poke buf,index,data
   index+
   if index=buf_max{
    sdim buf_d,buf_max
    buf_d=buf
    buf_max+=64
    sdim buf,buf_max
    buf=buf_d
   }
  loop
 return
#global

//////////サンプル///////////
a=""
copen
coutput "hello world"
cinput a
coutput a
wait
cclose
wait
end