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

任意桁数の実数計算

view plainprint?

1. #module  
2. #defcfunc comp_h int a,int b  
3. if a<b :return b  
4. return a  
5. #defcfunc comp_l int a,int b  
6. if a<b :return a  
7. return b  
8.   
9. #deffunc fteki var keka_,var size1_,var ten1_  
10. k1=size1_-ten1_-1-1  
11. sdim keka_2,size1_  
12. sik=0  
13. sij=0  
14. repeat  
15.  if peek(keka_,k1+ten1_+1)=0:sik+:else:break  
16.  k1-  
17. loop  
18. k1=-ten1_-1  
19. repeat  
20.  if peek(keka_,k1+ten1_+1)=0:sij+:else:break  
21.  k1+  
22. loop  
23.   
24. size1_-=sik+sij  
25. ten1_=sij  
26.   
27. memcpy keka_2,keka_,size1_,0,sij  
28. memcpy keka_,keka_2,size1_,0,0  
29.   
30. return  
31. #deffunc fzetai  var hiki2_,int size2_,int ten2_,int sehu2_,  var hiki3_,int size3_,int ten3_,int sehu3_  
32. size1_=comp_h(ten2_+1,ten3_+1)+comp_h(size2_-ten2_-1,size3_-ten3_-1)+1  
33. ten1_=comp_h(ten2_,ten3_)+1  
34.   
35.   
36. k1=size1_-ten1_-1-1  
37.   
38. repeat  
39.   
40. st1=0  
41. st2=0  
42. if k1<=size2_-ten2_-1-1&&k1>=-ten2_-1{  
43.    
44.  st1=((sehu2_!1)*2-1)*peek(hiki2_,k1+ten2_+1)  
45.    
46. }  
47. if k1<=size3_-ten3_-1-1&&k1>=-ten3_-1{  
48.  st2=((sehu3_!1)*2-1)*peek(hiki3_,k1+ten3_+1)  
49. }  
50. st3=st1+st2+kuri  
51. kuri=0  
52. if st3>=1010:st3-=10:kuri=1  
53. if st3<0:st3+=10:kuri=-1  
54.   
55.   
56. k1-  
57. if k1<-(ten1_+1):break  
58. loop  
59.   
60. if kuri!=0:return 1  
61. return  
62.   
63.   
64. return  
65. #deffunc fplus var keka_3,var size1,var ten1,var sehu1,  var hiki2,int size2,int ten2,int sehu2,  var hiki3,int size3,int ten3,int sehu3  
66.   
67. fzetai hiki2, size2, ten2, sehu2,  hiki3, size3, ten3, sehu3  
68. han=1  
69. if stat=1:han=-1  
70.   
71. size1=comp_h(ten2+1,ten3+1)+comp_h(size2-ten2-1,size3-ten3-1)+1  
72. ten1=comp_h(ten2,ten3)+1  
73. sdim keka_3,size1  
74. sdim keka,size1  
75. k1=size1-ten1-1-1  
76. kuri=0  
77. repeat  
78.   
79. st1=0  
80. st2=0  
81. if k1<=size2-ten2-1-1&&k1>=-ten2-1{  
82.    
83.  st1=han*((sehu2!1)*2-1)*peek(hiki2,k1+ten2+1)  
84.    
85. }  
86. if k1<=size3-ten3-1-1&&k1>=-ten3-1{  
87.  st2=han*((sehu3!1)*2-1)*peek(hiki3,k1+ten3+1)  
88. }  
89. st3=st1+st2+kuri  
90. kuri=0  
91. if st3>=1010:st3-=10:kuri=1  
92. if st3<0:st3+=10:kuri=-1  
93. poke keka,k1+ten1+1,st3  
94.   
95. k1-  
96. if k1<-(ten1+1):break  
97. loop  
98.   
99.   
100. sehu1=((han+1)/2!1)  
101.   
102. fteki keka ,size1 ,ten1  
103.   
104. ;if kuri!=0:dialog "エラー"  
105. memcpy keka_3,keka,size1,0,0  
106. return  
107. #global  
108. a=""  
109. size2=30  
110. ten2=0//1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679   
111. sdim suti1,size2  
112. //配列にデータをいれます　（π）  
113. poke suti1,0,3  
114. poke suti1,1,1  
115. poke suti1,2,4  
116. poke suti1,3,1  
117. poke suti1,4,5  
118. poke suti1,5,9  
119. poke suti1,6,2  
120. poke suti1,7,6  
121. poke suti1,8,5  
122. poke suti1,9,3  
123. poke suti1,10,5  
124. poke suti1,11,8  
125. poke suti1,12,9  
126. poke suti1,13,0  
127. poke suti1,14,9  
128. poke suti1,15,3  
129. poke suti1,16,2  
130. poke suti1,17,3  
131. poke suti1,18,8  
132. poke suti1,19,4  
133. poke suti1,20,6  
134. poke suti1,21,2  
135. poke suti1,22,6  
136. poke suti1,23,4  
137. poke suti1,24,3  
138. poke suti1,25,3  
139. poke suti1,26,8  
140. poke suti1,27,3  
141. poke suti1,28,0  
142. poke suti1,29,0  
143.   
144. size3=2  
145. sdim suti3,size3   
146. poke suti1,0,3  
147. ten3=0  
148. sehu3=0  
149.   
150. sehu2=0  
151.   
152.   
153. //fplus 代入される変数,サイズ,小数点位置   足す変数,サイズ,小数点位置　足される変数,サイズ,小数点位置  
154. fplus suti,size,ten,sehu,suti1,size2,ten2,sehu2,suti3,size3,ten3,sehu3  
155. //結果はデバッグウィンドウのメモリダンプで・・・  
156.   
157. mes size1  
158. mes ten1  

#module
#defcfunc comp_h int a,int b
if a<b :return b
return a
#defcfunc comp_l int a,int b
if a<b :return a
return b

#deffunc fteki var keka_,var size1_,var ten1_
k1=size1_-ten1_-1-1
sdim keka_2,size1_
sik=0
sij=0
repeat
 if peek(keka_,k1+ten1_+1)=0:sik+:else:break
 k1-
loop
k1=-ten1_-1
repeat
 if peek(keka_,k1+ten1_+1)=0:sij+:else:break
 k1+
loop

size1_-=sik+sij
ten1_=sij

memcpy keka_2,keka_,size1_,0,sij
memcpy keka_,keka_2,size1_,0,0

return
#deffunc fzetai  var hiki2_,int size2_,int ten2_,int sehu2_,  var hiki3_,int size3_,int ten3_,int sehu3_
size1_=comp_h(ten2_+1,ten3_+1)+comp_h(size2_-ten2_-1,size3_-ten3_-1)+1
ten1_=comp_h(ten2_,ten3_)+1


k1=size1_-ten1_-1-1

repeat

st1=0
st2=0
if k1<=size2_-ten2_-1-1&&k1>=-ten2_-1{
 
 st1=((sehu2_!1)*2-1)*peek(hiki2_,k1+ten2_+1)
 
}
if k1<=size3_-ten3_-1-1&&k1>=-ten3_-1{
 st2=((sehu3_!1)*2-1)*peek(hiki3_,k1+ten3_+1)
}
st3=st1+st2+kuri
kuri=0
if st3>=10:st3-=10:kuri=1
if st3<0:st3+=10:kuri=-1


k1-
if k1<-(ten1_+1):break
loop

if kuri!=0:return 1
return


return
#deffunc fplus var keka_3,var size1,var ten1,var sehu1,  var hiki2,int size2,int ten2,int sehu2,  var hiki3,int size3,int ten3,int sehu3

fzetai hiki2, size2, ten2, sehu2,  hiki3, size3, ten3, sehu3
han=1
if stat=1:han=-1

size1=comp_h(ten2+1,ten3+1)+comp_h(size2-ten2-1,size3-ten3-1)+1
ten1=comp_h(ten2,ten3)+1
sdim keka_3,size1
sdim keka,size1
k1=size1-ten1-1-1
kuri=0
repeat

st1=0
st2=0
if k1<=size2-ten2-1-1&&k1>=-ten2-1{
 
 st1=han*((sehu2!1)*2-1)*peek(hiki2,k1+ten2+1)
 
}
if k1<=size3-ten3-1-1&&k1>=-ten3-1{
 st2=han*((sehu3!1)*2-1)*peek(hiki3,k1+ten3+1)
}
st3=st1+st2+kuri
kuri=0
if st3>=10:st3-=10:kuri=1
if st3<0:st3+=10:kuri=-1
poke keka,k1+ten1+1,st3

k1-
if k1<-(ten1+1):break
loop


sehu1=((han+1)/2!1)

fteki keka ,size1 ,ten1

;if kuri!=0:dialog "エラー"
memcpy keka_3,keka,size1,0,0
return
#global
a=""
size2=30
ten2=0//1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679 
sdim suti1,size2
//配列にデータをいれます　（π）
poke suti1,0,3
poke suti1,1,1
poke suti1,2,4
poke suti1,3,1
poke suti1,4,5
poke suti1,5,9
poke suti1,6,2
poke suti1,7,6
poke suti1,8,5
poke suti1,9,3
poke suti1,10,5
poke suti1,11,8
poke suti1,12,9
poke suti1,13,0
poke suti1,14,9
poke suti1,15,3
poke suti1,16,2
poke suti1,17,3
poke suti1,18,8
poke suti1,19,4
poke suti1,20,6
poke suti1,21,2
poke suti1,22,6
poke suti1,23,4
poke suti1,24,3
poke suti1,25,3
poke suti1,26,8
poke suti1,27,3
poke suti1,28,0
poke suti1,29,0

size3=2
sdim suti3,size3 
poke suti1,0,3
ten3=0
sehu3=0

sehu2=0


//fplus 代入される変数,サイズ,小数点位置   足す変数,サイズ,小数点位置　足される変数,サイズ,小数点位置
fplus suti,size,ten,sehu,suti1,size2,ten2,sehu2,suti3,size3,ten3,sehu3
//結果はデバッグウィンドウのメモリダンプで・・・

mes size1
mes ten1

自作RADツール（HSP） 途中断念・・・ 再開の可能性あり？

RADツールを製作していましたが行き詰っていました。
ソースを公開します
ソースを実行するときは　main_test.hsp　を実行してください。
EXEを実行するときは　！試作！.exe　を実行して下さい。

ダウンロード　－＞http://begriff.web.fc2.com/radtool.zip

式評価とポーランド記法化

view plainprint?

1. screen 0,700,600  
2. ;mes 12 + 24 * limit ( 68 ,36+48*sin(85), 120+64 ) * 59 +( 63>=23)  
3. buf="12 + 24 * limit ( 68+89 ,36+48*sin(85), 120+64 ) * 59 +( 63>=23)"  
4. ;buf="24 * limit ( 68+89 ,48*aa(85+77,99*2), 120+64 )"  
5. mes buf  
6. len=strlen(buf)  
7. sdim buf2,len  
8.   
9. repeat  
10. data=peek(buf,c)  
11. if (data=' '||data=9)=0{  
12.  poke buf2,c2,data  
13.  c2+  
14. }  
15.   
16. c+  
17. if c=len:c=0:c2=0:break  
18. loop//--------------------------  
19.   
20. mes buf2  
21.   
22. len=strlen(buf2)  
23. sdim buf,len  
24. buf=buf2  
25. sdim buf2,len  
26.   
27. repeat  
28. data=peek(buf,c)  
29. if data='+'||data='-'||data='*'||data='/'||data='\\'||data='|'||data='&'||data='^'||data='='||data='>'||data='<'||data='!'{  
30.  poke buf2,c,'C'  
31. }else : if data='('{  
32.  poke buf2,c,'B'  
33. }else : if data=')'{  
34.  poke buf2,c,'D'  
35. }else : if data=','{  
36.  poke buf2,c,'K'  
37. }else : poke buf2,c,'A'  
38. c+  
39. if c=len:c=0:break  
40. loop//--------------------------  
41.   
42. mes buf2  
43.   
44. len=strlen(buf2)  
45.   
46. repeat  
47. data=peek(buf2,c)  
48. if data='A'{  
49.  c2=c  
50.  func=0  
51.  repeat  
52.  data=peek(buf2,c2)  
53.  if data!='A'{  
54.   if  data='B':func=1  
55.   break  
56.  }  
57.  c2+  
58.  if c2=len:break  
59.  loop  
60.  c2=0  
61.   
62.  if func{  
63.   repeat  
64.   data=peek(buf2,c)  
65.   if data ! 'A':break  
66.   poke buf2,c,'F'  
67.   c+  
68.   if c=len:c=0:break  
69.   loop  
70.  }  
71. }  
72.   
73. c+  
74. if c>=len:c=0:break  
75. loop//--------------------------  
76. mes "シンボル化"  
77. mes buf2  
78.   
79. len=strlen(buf2)  
80. sdim buf3,len  
81. sdim ad,len,len  
82. sdim cd,len,len  
83.   
84. repeat  
85. data=peek(buf2,c)  
86. if data='A'{  
87.  poke buf3,c3,'A'  
88.  c3+  
89.  repeat  
90.  if peek(buf2,c+c2)!'A':break  
91.  data2=peek(buf,c+c2)  
92.  poke ad(ac),c2,data2  
93.  c2+  
94.  loop  
95.  c2-  
96.  c=c+c2  
97.  c2=0  
98.  ac+  
99. }else :if data='C'{  
100.  poke buf3,c3,'C'  
101.  c3+  
102.  repeat  
103.  if peek(buf2,c+c2)!'C':break  
104.  data2=peek(buf,c+c2)  
105.  poke cd(cc),c2,data2  
106.  c2+  
107.  loop  
108.  c2-  
109.  c=c+c2  
110.  c2=0  
111.  cc+  
112. }else : if data='F'{  
113.  poke buf3,c3,'F'  
114.  c3+  
115.  repeat  
116.  if peek(buf2,c+c2)!'F':break  
117.  data2=peek(buf,c+c2)  
118.  poke cd(cc),c2,data2  
119.  c2+  
120.  loop  
121.  c2-  
122.  c=c+c2  
123.  c2=0  
124.  cc+  
125. }else {  
126.  poke buf3,c3,data  
127.  c3+  
128. }  
129. c+  
130. if c>=len:c=0:break  
131. loop//--------------------------  
132. c3=0  
133. cc=0  
134. ac=0  
135.   
136. buf2=buf3  
137. mes "シンボル簡易化"  
138. mes buf2  
139.   
140. len=strlen(buf2)  
141. dim bk,len  
142. dim ck,len  
143.   
144.   
145. repeat//--------------------------  
146. data=peek(buf2,c)  
147. if data='B':lv+  
148.   
149. if data='C'||data='F'{  
150.  ck(cc)=lv  
151.  cc+  
152. }    
153. if data='B'||data='D'||data='K'{  
154.  bk(bc)=lv  
155.  bc+  
156. }  
157. if data='D':lv-  
158. c+  
159. if c>=len:c=0:break  
160. loop  
161. bc=0  
162. cc=0  
163.   
164.   
165. dim cy,len  
166. dim ch,len  
167. repeat//--------------------------  
168. data=peek(buf2,c)  
169. if data='C'{  
170.  data2=cd(cc)  
171.  h=0  
172.  if data2="*":cy(cc)=5:ch(cc)=2:h=1  
173.  if data2="/":cy(cc)=5:ch(cc)=2:h=1  
174.  if data2="\\":cy(cc)=5:ch(cc)=2:h=1  
175.  if data2="+":cy(cc)=4:ch(cc)=2:h=1  
176.  if data2="-":cy(cc)=4:ch(cc)=2:h=1  
177.  if data2="<<":cy(cc)=3:ch(cc)=2:h=1  
178.  if data2=">>":cy(cc)=3:ch(cc)=2:h=1  
179.  if data2="=":cy(cc)=2:ch(cc)=2:h=1  
180.  if data2="==":cy(cc)=2:ch(cc)=2:h=1  
181.  if data2="!":cy(cc)=2:ch(cc)=2:h=1  
182.  if data2="!=":cy(cc)=2:ch(cc)=2:h=1  
183.  if data2=">":cy(cc)=2:ch(cc)=2:h=1  
184.  if data2="<":cy(cc)=2:ch(cc)=2:h=1  
185.  if data2=">=":cy(cc)=2:ch(cc)=2:h=1  
186.  if data2="<=":cy(cc)=2:ch(cc)=2:h=1  
187.  if data2="&":cy(cc)=1:ch(cc)=2:h=1  
188.  if data2="&&":cy(cc)=1:ch(cc)=2:h=1  
189.  if data2="|":cy(cc)=1:ch(cc)=2:h=1  
190.  if data2="||":cy(cc)=1:ch(cc)=2:h=1  
191.  if data2="^":cy(cc)=1:ch(cc)=2:h=1  
192.  if h=0:dialog "式の記述が無効です。  不明な演算子  \" "+data2+" \""  
193.  cc+  
194. }  
195. if data='F'{  
196.  cy(cc)=6  
197.  cc+  
198. }  
199. c+  
200. if c>=len:c=0:break  
201. loop  
202. h=0  
203. fhm=0  
204. cc=0  
205. dim cf,len  
206. repeat//--------------------------  
207. data=peek(buf2,c)  
208. if data='B'||data='D'||data='K'{  
209.  bc+  
210. }  
211. if data='F'{  
212.  k=bk(bc)  
213.  c2=2  
214.  repeat  
215.  data2=peek(buf2,c+c2)  
216.  if data2='B'||data2='D'||data2='K'{  
217.   bc2+  
218.   
219.   
220.  }  
221.  if k=bk(bc+bc2){  
222.   if data2='A':d=1  
223.   if data2='K':fh+  
224.   if data2='D':break  
225.  }  
226.  c2+  
227.  if c+c2>=len:c2=0:break  
228.  loop  
229.  bc2=0  
230.  c2=0  
231.  fh+  
232.  if d=0:fh=0  
233.  d=0  
234.  if fhm<fh:fhm=fh  
235.  ch(cc)=fh  
236.  cf(cc)=1  
237.  fh=0  
238.  cc+  
239.  poke buf2,c,'C'  
240. }  
241. if data='C'{  
242.  cf(cc)=0  
243.  cc+  
244. }  
245. c+  
246. if c>=len:c=0:break  
247. loop  
248. cc=0  
249. bc=0  
250. mes buf2  
251.   
252. sdim buf3,len  
253. dim c_st,len  
254. dim ca,len  
255. c_sa=0  
256. c3=0  
257. repeat//--------------------------  
258. data=peek(buf2,c)  
259. if data='C'{  
260.  data2=peek(buf2,c+1)  
261.  repeat  
262.  if c_sa!0&&(ck(c_st(c_sa))>ck(cc)||((ck(c_st(c_sa))=ck(cc)&&cy(c_st(c_sa))>=cy(cc)))){  
263.   ca(c4)=c_st(c_sa)  
264.   poke buf3,c3,'C'  
265.   c3+  
266.   c4+  
267.   c_sa-  
268.  }else : break  
269.  loop  
270.  if data2='A'{  
271.   poke buf3,c3,'A'  
272.   c3+  
273.   c+  
274.   data2=peek(buf2,c+1)  
275.  }  
276.  if data2='B'{  
277.   c_sa+  
278.   c_st(c_sa)=cc  
279.  }  
280.  if data2='C'{  
281.   if (ck(cc+1))>ck(cc)||(ck(cc+1)=ck(cc)&&cy(cc+1)>=cy(cc)){  
282.    c_sa+  
283.    c_st(c_sa)=cc  
284.   }else{  
285.    ca(c4)=cc  
286.    poke buf3,c3,'C'  
287.    c3+  
288.    c4+  
289.   }  
290.  }  
291.  if data2='K'||data2='D'||data2=0{  
292.   ca(c4)=cc  
293.   poke buf3,c3,'C'  
294.   c3+  
295.   c4+  
296.  }  
297.    
298.  cc+  
299. }  
300.   
301. if data='K'||data='D'||data=0{  
302.  lv=bk(bc)  
303.  if data=0:lv=0  
304.  repeat  
305.  if c_sa!0&&lv=ck(c_st(c_sa)){  
306.   ca(c4)=c_st(c_sa)  
307.   poke buf3,c3,'C'  
308.   c3+  
309.   c4+  
310.   c_sa-  
311.  }else :break  
312.  loop  
313. }  
314.   
315. if data='B'||data='K'||data='D'{  
316.  bc+  
317. }  
318.   
319. if data='A'{  
320.  poke buf3,c3,'A'  
321.  c3+  
322. }  
323. c+  
324. if c>=len+1:c=0:break  
325. loop  
326. bc=0  
327. c2=0  
328. c3=0  
329. c4=0  
330. cc=0  
331. mes "\n逆ポーランド記法化(シンボル)"  
332. mes buf3  
333. /*いらない↓*/  
334. sdim buf4,512  
335. len=strlen(buf3)  
336. repeat//--------------------------  
337. data=peek(buf3,c)  
338. if data='A'{  
339.  buf4+=ad(ac)+" "  
340.  ac+  
341. }  
342. if data='C'{  
343.  buf4+=cd(ca(cc))  
344.  if cf(ca(cc)):buf4+="()"  
345.  buf4+=" "  
346.  cc+  
347. }  
348. c+  
349. if c>=len+1:c=0:break  
350. loop  
351. mes "\n逆ポーランド記法化(人間が認識できるようにするだけなので内部処理的にはいらない　上と同じ)"  
352. mes buf4  
353. /*いらない↑*/  
354. cc=0  
355. ac=-1  
356. dim a_st,len//各数値がどのスタックにあるか  
357. sdim st_st,fhm//引数に渡す値の配列  
358. sdim buf5,512  
359. st2=0//引数の順番  
360. ac=-1  
361. c2=0  
362.   
363. repeat//--------------------------  
364. data=peek(buf3,c)  
365. if data='A'{  
366.   
367.  ac+  
368. }  
369. if data='C'{  
370.  retn=ch(ca(cc))  
371.  st_itiml=0  
372.  st_itims=0  
373.  st2=0  
374.    
375.  syu=0  
376.  repeat retn//引数に渡す値を配列に収納  
377.   
378.   st_iti=a_st(ac-c2)  
379.   if st_iti=0{  
380.   
381.    st_st(st2)=ad(ac-c2)  
382.    st2+  
383.    c2+  
384.      
385.   }else{  
386.   
387.    st_st(st2)="st"+a_st(ac-c2)  
388.    st2+  
389.    c2+  
390.    if st_itims>st_iti || st_itims=0:st_itims=st_iti  
391.    if st_itiml<st_iti:st_itiml=st_iti  
392.    ;dialog st_itims  
393.   }  
394.    repeat  
395.    if (ac-c2)<0:syu=1:break  
396.    st_iti2=a_st(ac-c2)  
397.      
398.    if st_iti2=0:break  
399.    if st_iti!=st_iti2:break  
400.    c2+  
401.    loop  
402.    if syu=1:break  
403.     
404.  loop  
405.    
406.  if st_itims=0{  
407.   st+  
408.  }else{  
409.   st=st_itims  
410.  }  
411.   
412.  repeat c2  
413.  a_st(ac-cnt)=st  
414.  loop  
415.    
416.  buf5+="st"+st+" = "  
417.  if cf(ca(cc)){  
418.   buf5+=cd(ca(cc))+"( "  
419.   repeat retn  
420.   if retn!1&&cnt!0 :buf5+=", "  
421.   f=retn-cnt  
422.   buf5+=st_st(retn-cnt-1)  
423.   loop  
424.   buf5+=" )"  
425.  }else{  
426.   buf5+=st_st(1)+" "+cd(ca(cc))+" "+st_st(0)  
427.   
428.  }  
429.  buf5+="\n"  
430. c2=0   
431. st2=0  
432. cc+  
433. }  
434.   
435. c+  
436. if c>=len:c=0:break  
437. loop  
438. buf5+="ans = st1"  
439.   
440. mes "\n\n変換前の数式"  
441. mes buf  
442. mes "\n変換後の数式\n"  
443. mes buf5  

screen 0,700,600
;mes 12 + 24 * limit ( 68 ,36+48*sin(85), 120+64 ) * 59 +( 63>=23)
buf="12 + 24 * limit ( 68+89 ,36+48*sin(85), 120+64 ) * 59 +( 63>=23)"
;buf="24 * limit ( 68+89 ,48*aa(85+77,99*2), 120+64 )"
mes buf
len=strlen(buf)
sdim buf2,len

repeat
data=peek(buf,c)
if (data=' '||data=9)=0{
 poke buf2,c2,data
 c2+
}

c+
if c=len:c=0:c2=0:break
loop//--------------------------

mes buf2

len=strlen(buf2)
sdim buf,len
buf=buf2
sdim buf2,len

repeat
data=peek(buf,c)
if data='+'||data='-'||data='*'||data='/'||data='\\'||data='|'||data='&'||data='^'||data='='||data='>'||data='<'||data='!'{
 poke buf2,c,'C'
}else : if data='('{
 poke buf2,c,'B'
}else : if data=')'{
 poke buf2,c,'D'
}else : if data=','{
 poke buf2,c,'K'
}else : poke buf2,c,'A'
c+
if c=len:c=0:break
loop//--------------------------

mes buf2

len=strlen(buf2)

repeat
data=peek(buf2,c)
if data='A'{
 c2=c
 func=0
 repeat
 data=peek(buf2,c2)
 if data!='A'{
  if  data='B':func=1
  break
 }
 c2+
 if c2=len:break
 loop
 c2=0

 if func{
  repeat
  data=peek(buf2,c)
  if data ! 'A':break
  poke buf2,c,'F'
  c+
  if c=len:c=0:break
  loop
 }
}

c+
if c>=len:c=0:break
loop//--------------------------
mes "シンボル化"
mes buf2

len=strlen(buf2)
sdim buf3,len
sdim ad,len,len
sdim cd,len,len

repeat
data=peek(buf2,c)
if data='A'{
 poke buf3,c3,'A'
 c3+
 repeat
 if peek(buf2,c+c2)!'A':break
 data2=peek(buf,c+c2)
 poke ad(ac),c2,data2
 c2+
 loop
 c2-
 c=c+c2
 c2=0
 ac+
}else :if data='C'{
 poke buf3,c3,'C'
 c3+
 repeat
 if peek(buf2,c+c2)!'C':break
 data2=peek(buf,c+c2)
 poke cd(cc),c2,data2
 c2+
 loop
 c2-
 c=c+c2
 c2=0
 cc+
}else : if data='F'{
 poke buf3,c3,'F'
 c3+
 repeat
 if peek(buf2,c+c2)!'F':break
 data2=peek(buf,c+c2)
 poke cd(cc),c2,data2
 c2+
 loop
 c2-
 c=c+c2
 c2=0
 cc+
}else {
 poke buf3,c3,data
 c3+
}
c+
if c>=len:c=0:break
loop//--------------------------
c3=0
cc=0
ac=0

buf2=buf3
mes "シンボル簡易化"
mes buf2

len=strlen(buf2)
dim bk,len
dim ck,len


repeat//--------------------------
data=peek(buf2,c)
if data='B':lv+

if data='C'||data='F'{
 ck(cc)=lv
 cc+
}  
if data='B'||data='D'||data='K'{
 bk(bc)=lv
 bc+
}
if data='D':lv-
c+
if c>=len:c=0:break
loop
bc=0
cc=0


dim cy,len
dim ch,len
repeat//--------------------------
data=peek(buf2,c)
if data='C'{
 data2=cd(cc)
 h=0
 if data2="*":cy(cc)=5:ch(cc)=2:h=1
 if data2="/":cy(cc)=5:ch(cc)=2:h=1
 if data2="\\":cy(cc)=5:ch(cc)=2:h=1
 if data2="+":cy(cc)=4:ch(cc)=2:h=1
 if data2="-":cy(cc)=4:ch(cc)=2:h=1
 if data2="<<":cy(cc)=3:ch(cc)=2:h=1
 if data2=">>":cy(cc)=3:ch(cc)=2:h=1
 if data2="=":cy(cc)=2:ch(cc)=2:h=1
 if data2="==":cy(cc)=2:ch(cc)=2:h=1
 if data2="!":cy(cc)=2:ch(cc)=2:h=1
 if data2="!=":cy(cc)=2:ch(cc)=2:h=1
 if data2=">":cy(cc)=2:ch(cc)=2:h=1
 if data2="<":cy(cc)=2:ch(cc)=2:h=1
 if data2=">=":cy(cc)=2:ch(cc)=2:h=1
 if data2="<=":cy(cc)=2:ch(cc)=2:h=1
 if data2="&":cy(cc)=1:ch(cc)=2:h=1
 if data2="&&":cy(cc)=1:ch(cc)=2:h=1
 if data2="|":cy(cc)=1:ch(cc)=2:h=1
 if data2="||":cy(cc)=1:ch(cc)=2:h=1
 if data2="^":cy(cc)=1:ch(cc)=2:h=1
 if h=0:dialog "式の記述が無効です。  不明な演算子  \" "+data2+" \""
 cc+
}
if data='F'{
 cy(cc)=6
 cc+
}
c+
if c>=len:c=0:break
loop
h=0
fhm=0
cc=0
dim cf,len
repeat//--------------------------
data=peek(buf2,c)
if data='B'||data='D'||data='K'{
 bc+
}
if data='F'{
 k=bk(bc)
 c2=2
 repeat
 data2=peek(buf2,c+c2)
 if data2='B'||data2='D'||data2='K'{
  bc2+


 }
 if k=bk(bc+bc2){
  if data2='A':d=1
  if data2='K':fh+
  if data2='D':break
 }
 c2+
 if c+c2>=len:c2=0:break
 loop
 bc2=0
 c2=0
 fh+
 if d=0:fh=0
 d=0
 if fhm<fh:fhm=fh
 ch(cc)=fh
 cf(cc)=1
 fh=0
 cc+
 poke buf2,c,'C'
}
if data='C'{
 cf(cc)=0
 cc+
}
c+
if c>=len:c=0:break
loop
cc=0
bc=0
mes buf2

sdim buf3,len
dim c_st,len
dim ca,len
c_sa=0
c3=0
repeat//--------------------------
data=peek(buf2,c)
if data='C'{
 data2=peek(buf2,c+1)
 repeat
 if c_sa!0&&(ck(c_st(c_sa))>ck(cc)||((ck(c_st(c_sa))=ck(cc)&&cy(c_st(c_sa))>=cy(cc)))){
  ca(c4)=c_st(c_sa)
  poke buf3,c3,'C'
  c3+
  c4+
  c_sa-
 }else : break
 loop
 if data2='A'{
  poke buf3,c3,'A'
  c3+
  c+
  data2=peek(buf2,c+1)
 }
 if data2='B'{
  c_sa+
  c_st(c_sa)=cc
 }
 if data2='C'{
  if (ck(cc+1))>ck(cc)||(ck(cc+1)=ck(cc)&&cy(cc+1)>=cy(cc)){
   c_sa+
   c_st(c_sa)=cc
  }else{
   ca(c4)=cc
   poke buf3,c3,'C'
   c3+
   c4+
  }
 }
 if data2='K'||data2='D'||data2=0{
  ca(c4)=cc
  poke buf3,c3,'C'
  c3+
  c4+
 }
 
 cc+
}

if data='K'||data='D'||data=0{
 lv=bk(bc)
 if data=0:lv=0
 repeat
 if c_sa!0&&lv=ck(c_st(c_sa)){
  ca(c4)=c_st(c_sa)
  poke buf3,c3,'C'
  c3+
  c4+
  c_sa-
 }else :break
 loop
}

if data='B'||data='K'||data='D'{
 bc+
}

if data='A'{
 poke buf3,c3,'A'
 c3+
}
c+
if c>=len+1:c=0:break
loop
bc=0
c2=0
c3=0
c4=0
cc=0
mes "\n逆ポーランド記法化(シンボル)"
mes buf3
/*いらない↓*/
sdim buf4,512
len=strlen(buf3)
repeat//--------------------------
data=peek(buf3,c)
if data='A'{
 buf4+=ad(ac)+" "
 ac+
}
if data='C'{
 buf4+=cd(ca(cc))
 if cf(ca(cc)):buf4+="()"
 buf4+=" "
 cc+
}
c+
if c>=len+1:c=0:break
loop
mes "\n逆ポーランド記法化(人間が認識できるようにするだけなので内部処理的にはいらない　上と同じ)"
mes buf4
/*いらない↑*/
cc=0
ac=-1
dim a_st,len//各数値がどのスタックにあるか
sdim st_st,fhm//引数に渡す値の配列
sdim buf5,512
st2=0//引数の順番
ac=-1
c2=0

repeat//--------------------------
data=peek(buf3,c)
if data='A'{

 ac+
}
if data='C'{
 retn=ch(ca(cc))
 st_itiml=0
 st_itims=0
 st2=0
 
 syu=0
 repeat retn//引数に渡す値を配列に収納

  st_iti=a_st(ac-c2)
  if st_iti=0{

   st_st(st2)=ad(ac-c2)
   st2+
   c2+
   
  }else{

   st_st(st2)="st"+a_st(ac-c2)
   st2+
   c2+
   if st_itims>st_iti || st_itims=0:st_itims=st_iti
   if st_itiml<st_iti:st_itiml=st_iti
   ;dialog st_itims
  }
   repeat
   if (ac-c2)<0:syu=1:break
   st_iti2=a_st(ac-c2)
   
   if st_iti2=0:break
   if st_iti!=st_iti2:break
   c2+
   loop
   if syu=1:break
  
 loop
 
 if st_itims=0{
  st+
 }else{
  st=st_itims
 }

 repeat c2
 a_st(ac-cnt)=st
 loop
 
 buf5+="st"+st+" = "
 if cf(ca(cc)){
  buf5+=cd(ca(cc))+"( "
  repeat retn
  if retn!1&&cnt!0 :buf5+=", "
  f=retn-cnt
  buf5+=st_st(retn-cnt-1)
  loop
  buf5+=" )"
 }else{
  buf5+=st_st(1)+" "+cd(ca(cc))+" "+st_st(0)

 }
 buf5+="\n"
c2=0 
st2=0
cc+
}

c+
if c>=len:c=0:break
loop
buf5+="ans = st1"

mes "\n\n変換前の数式"
mes buf
mes "\n変換後の数式\n"
mes buf5

ベジェ曲線

view plainprint?

1. #module  
2. #deffunc Beziers int x1,int y1,int x2, int y2, int x3 ,int y3,int x4,int y4,double rate  
3.  t=0.0  
4.  line x1,y1,x1,y1  
5.  repeat  
6.   x=(1.0-t)*(1.0-t)*(1.0-t)*x1+3.0*(1.0-t)*(1.0-t)*t*x2+3.0*(1.0-t)*t*t*x3+t*t*t*x4  
7.   y=(1.0-t)*(1.0-t)*(1.0-t)*y1+3.0*(1.0-t)*(1.0-t)*t*y2+3.0*(1.0-t)*t*t*y3+t*t*t*y4  
8.   line x,y  
9.   t+=rate  
10.   if t>1:break  
11.  loop  
12.  line x4,y4  
13.  line x4,y4,x4,y4  
14. return  
15. #global   
16.   
17. k=4  
18. f=4  
19.   
20. onclick gosub *click  
21.   
22. x(0)=300:y(0)=300  
23. x(1)=300:y(1)=100  
24. x(2)=100:y(2)=300  
25. x(3)=100:y(3)=100  
26.   
27. gosub *draw  
28.   
29. stop  
30. *click  
31.  i=0  
32.  repeat 4  
33.  if x(i)-k< mousex&&mousex< x(i)+k&&y(i)-k< mousey&&mousey< y(i)+k{  
34.   repeat  
35.   x(i)=mousex  
36.   y(i)=mousey  
37.   gosub *draw  
38.   getkey key,1  
39.   if key=0:break  
40.   wait 0  
41.   loop  
42.  }  
43.  i+  
44.  loop  
45.  return  
46. *draw   
47. redraw 0  
48. color 255,255,255  
49. boxf   
50.   
51. color 192,192,255  
52. line x(0),y(0),x(1),y(1)  
53. line x(2),y(2),x(3),y(3)  
54. color 0,0,0  
55.   
56. Beziers x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3),0.01  
57.   
58. color 255,,  
59. circle x(0)-f,y(0)-f,x(0)+f,y(0)+f,0  
60. circle x(3)-f,y(3)-f,x(3)+f,y(3)+f,0  
61.   
62. color ,,255  
63. circle x(1)-f,y(1)-f,x(1)+f,y(1)+f,0  
64. circle x(2)-f,y(2)-f,x(2)+f,y(2)+f,0  
65. redraw 1  
66. return  

#module
#deffunc Beziers int x1,int y1,int x2, int y2, int x3 ,int y3,int x4,int y4,double rate
 t=0.0
 line x1,y1,x1,y1
 repeat
  x=(1.0-t)*(1.0-t)*(1.0-t)*x1+3.0*(1.0-t)*(1.0-t)*t*x2+3.0*(1.0-t)*t*t*x3+t*t*t*x4
  y=(1.0-t)*(1.0-t)*(1.0-t)*y1+3.0*(1.0-t)*(1.0-t)*t*y2+3.0*(1.0-t)*t*t*y3+t*t*t*y4
  line x,y
  t+=rate
  if t>1:break
 loop
 line x4,y4
 line x4,y4,x4,y4
return
#global 

k=4
f=4

onclick gosub *click

x(0)=300:y(0)=300
x(1)=300:y(1)=100
x(2)=100:y(2)=300
x(3)=100:y(3)=100

gosub *draw

stop
*click
 i=0
 repeat 4
 if x(i)-k< mousex&&mousex< x(i)+k&&y(i)-k< mousey&&mousey< y(i)+k{
  repeat
  x(i)=mousex
  y(i)=mousey
  gosub *draw
  getkey key,1
  if key=0:break
  wait 0
  loop
 }
 i+
 loop
 return
*draw 
redraw 0
color 255,255,255
boxf 

color 192,192,255
line x(0),y(0),x(1),y(1)
line x(2),y(2),x(3),y(3)
color 0,0,0

Beziers x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3),0.01

color 255,,
circle x(0)-f,y(0)-f,x(0)+f,y(0)+f,0
circle x(3)-f,y(3)-f,x(3)+f,y(3)+f,0

color ,,255
circle x(1)-f,y(1)-f,x(1)+f,y(1)+f,0
circle x(2)-f,y(2)-f,x(2)+f,y(2)+f,0
redraw 1
return

難航^^

自作言語について色々と思いめぐらせるこのごろです。
初期案は変数と言う概念を持たず
直接メモリアドレスを参照すると言う形でした。
しかし問題が出てきました。
たとえばユーザー関数を別ファイルで汎用化させようとした場合、
関数間でメモリエリアの干渉が起こってしまうのです。
つまり、現状のままでは変数と言う概念が必要不可欠なのです。

言語仕様を一掃しようと思います。
まず言語的にサポートする機能は最低限のものであるというコンセプトは残します。
ではその機能を列挙します。

一般文

変数定義
ラベル定義
演算文（一項式）
条件分岐
無条件分岐

プリプロセス文

インクルード
ディファイン
外部DLL指定　外部関数指定

自作言語プロジェクト(仮)

うむむ。久々に作業したって感じかな
若干進んだのでPDFのほうみてやってください

動かん！！！ いや微妙にうごいたか・・・？

どもども

何が動かないって？

もうデバック仕切れんよぅ・・・・


プログラムの話じゃないですよ？

ただいま実世界で電子回路を作っているのですが・・・
大変です
何に使うかは超機密事項ですけどね

マジかよっと

マクロスfrontier　20話をみました…
クランクランとミハイル・ブラン今からだって時に死んじゃイヤだよぅぅぅぉぉぉーーー

おっと取り乱してしまいました。
今独自言語を作っています。
どんなかんじになるかは少しずつ決まってきました。

これ今のところの方針　PDF

基本的にだるいデス

ども、begriffです。
ウェブログをbloggaerに変えました。

今年の夏は、あれ？まだ夏になってないよね？と思いつつ、秋に入るような、感じですよね。

今のシーズン、テレビをつければをどこかしらのチャンネルで、オリンピックが観れると思うのですが、その公式サポーターのコカ・コーラってありますよね。
そのコーラを買って気づくことがあると思います。

　　　なんか上についている！　

っと
まぁ、シールがついているわけなんですが、今、そのシールを集めて後ろにあるシリアルナンバーを
携帯電話またはパソコンで入力し、応募するとT-シャツとかが、あたったりするそうです。

するそうです　っといいましたが、私はもうすでにT-シャツを三枚ほど当てていたりします。