piątek, 22 kwietnia 2022 o 04:12:41 UTC+2 fir napisał(a):
> czwartek, 21 kwietnia 2022 o 19:25:03 UTC+2 bart c napisał(a):
> > This worked. Already it did say the file would be deleted after downloading (you may need to re-upload?).
> >
> the first site seemd to be designed to share something only for one download... this filebin hosts
> for 6 days
>
> i found 2 years ago i also made i may call functions in what i call naked form (what i was writing bac then i found viable alternative
>
> foo(a,b,c);
> foo a b c ; //naked form
>
> https://filebin.net/33fxpjsgk846ymb2
>
> also gave alternative for initialisation
>
> int a = 10;
> int a{10}
>
>
> so now it can compile
>
> import "green_fire.dll" cdecl DrawSomeText2
> import "green_fire.dll" cdecl ToggleFullscreen
> import "green_fire.dll" cdecl ClearFrameData
> import "green_fire.dll" cdecl DrawCircle
> import "green_fire.dll" cdecl RegisterRunFrame
> import "green_fire.dll" cdecl RegisterMouseMove
> import "green_fire.dll" cdecl RegisterKeyDown
> import "green_fire.dll" cdecl RegisterOnResize
> import "green_fire.dll" cdecl SetSleepValue
> import "green_fire.dll" cdecl SetScaleOnResize
> import "green_fire.dll" cdecl SetupWindow3
> void ProcessMouseMove(int mouse_x, int mouse_y)
> return
>
> void ProcessKeyDown(int last_key_pressed)
> int PAGE_UP{33}
> if last_key_pressed = PAGE_UP
> ToggleFullscreen(); .
> return
>
> void RollBackgroundColor()
> int background_color {0x00000001}
> background_color += 1;
> ClearFrameData background_color
> return
>
> void RunFrame()
> RollBackgroundColor()
> int r{10}
> for r from 10 to 250 step 3
> DrawCircle mouse_x mouse_y r 0xff00
> .
> DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00"
> DrawSomeText2 0xffffff 30 130 "mouse %d %d\x00" mouse_x mouse_y
> int b {2} ; int c {10}
> b = 2;c = 10; b = c/(b-1)+c*(c-2);
> DrawSomeText2 0xffffff 20 140 " %d \x00" b
> b = 2; c = 10; lisplike b = c+b*7/4+3-12 ;
> DrawSomeText2 0xffffff 20 150 " %d \x00" b
> return
>
> void OnResize()
> return
>
> void main()
> RegisterRunFrame &RunFrame
> RegisterMouseMove &ProcessMouseMove
> RegisterKeyDown &ProcessKeyDown
> RegisterOnResize &OnResize
> SetSleepValue 30
> SetScaleOnResize 1
> SetupWindow3 " compiled by fir's furia proto c compiler \x00" 10 10 600 400 300 200
> return

i wouldnt call it especially readable but at least its proof as it work if it compiles and runs
as to readability i think if i should drop semicolons ":" and use "'," (commas) instead (thought it the first is semocolon the second should be named colon)

this makes me to coment out the code that compiles clothed/dressed form foo(a,b,c) untill i will revrite it to not break on logical lines on commas inside parenthesis (and i dont want to smend my time on such things) but bessides comma form seem interesting to me

DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00" , DrawSomeText2 0xffffff 30 130 "mouse %d %d\x00" mouse_x mouse_y ,
int b {2}, ; int c {10} , b = 2, c = 10, b = c/(b-1)+c*(c-2), DrawSomeText2 0xffffff 20 140 " %d \x00" b , b = 2; c = 10, lisplike b = c+b*7/4+3-12 , DrawSomeText2 0xffffff 20 150 " %d \x00" b, return

worth change i guess.. i will coment out the dressed form compilation then

piątek, 22 kwietnia 2022 o 13:03:04 UTC+2 fir napisał(a):
> piątek, 22 kwietnia 2022 o 04:12:41 UTC+2 fir napisał(a):
> > czwartek, 21 kwietnia 2022 o 19:25:03 UTC+2 bart c napisał(a):
> > > This worked. Already it did say the file would be deleted after downloading (you may need to re-upload?).
> > >
> > the first site seemd to be designed to share something only for one download... this filebin hosts
> > for 6 days
> >
> > i found 2 years ago i also made i may call functions in what i call naked form (what i was writing bac then i found viable alternative
> >
> > foo(a,b,c);
> > foo a b c ; //naked form
> >
> > https://filebin.net/33fxpjsgk846ymb2
> >
> > also gave alternative for initialisation
> >
> > int a = 10;
> > int a{10}
> >
> >
> > so now it can compile
> >
> > import "green_fire.dll" cdecl DrawSomeText2
> > import "green_fire.dll" cdecl ToggleFullscreen
> > import "green_fire.dll" cdecl ClearFrameData
> > import "green_fire.dll" cdecl DrawCircle
> > import "green_fire.dll" cdecl RegisterRunFrame
> > import "green_fire.dll" cdecl RegisterMouseMove
> > import "green_fire.dll" cdecl RegisterKeyDown
> > import "green_fire.dll" cdecl RegisterOnResize
> > import "green_fire.dll" cdecl SetSleepValue
> > import "green_fire.dll" cdecl SetScaleOnResize
> > import "green_fire.dll" cdecl SetupWindow3
> > void ProcessMouseMove(int mouse_x, int mouse_y)
> > return
> >
> > void ProcessKeyDown(int last_key_pressed)
> > int PAGE_UP{33}
> > if last_key_pressed = PAGE_UP
> > ToggleFullscreen(); .
> > return
> >
> > void RollBackgroundColor()
> > int background_color {0x00000001}
> > background_color += 1;
> > ClearFrameData background_color
> > return
> >
> > void RunFrame()
> > RollBackgroundColor()
> > int r{10}
> > for r from 10 to 250 step 3
> > DrawCircle mouse_x mouse_y r 0xff00
> > .
> > DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00"
> > DrawSomeText2 0xffffff 30 130 "mouse %d %d\x00" mouse_x mouse_y
> > int b {2} ; int c {10}
> > b = 2;c = 10; b = c/(b-1)+c*(c-2);
> > DrawSomeText2 0xffffff 20 140 " %d \x00" b
> > b = 2; c = 10; lisplike b = c+b*7/4+3-12 ;
> > DrawSomeText2 0xffffff 20 150 " %d \x00" b
> > return
> >
> > void OnResize()
> > return
> >
> > void main()
> > RegisterRunFrame &RunFrame
> > RegisterMouseMove &ProcessMouseMove
> > RegisterKeyDown &ProcessKeyDown
> > RegisterOnResize &OnResize
> > SetSleepValue 30
> > SetScaleOnResize 1
> > SetupWindow3 " compiled by fir's furia proto c compiler \x00" 10 10 600 400 300 200
> > return
> i wouldnt call it especially readable but at least its proof as it work if it compiles and runs
> as to readability i think if i should drop semicolons ":" and use "'," (commas) instead (thought it the first is semocolon the second should be named colon)
>
> this makes me to coment out the code that compiles clothed/dressed form foo(a,b,c) untill i will revrite it to not break on logical lines on commas inside parenthesis (and i dont want to smend my time on such things) but bessides comma form seem interesting to me
>
> DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00" , DrawSomeText2 0xffffff 30 130 "mouse %d %d\x00" mouse_x mouse_y ,
> int b {2}, ; int c {10} , b = 2, c = 10, b = c/(b-1)+c*(c-2), DrawSomeText2 0xffffff 20 140 " %d \x00" b , b = 2; c = 10, lisplike b = c+b*7/4+3-12 , DrawSomeText2 0xffffff 20 150 " %d \x00" b, return
>
> worth change i guess.. i will coment out the dressed form compilation then

sorry for posting a lot of post (in the mode of adding remarks as post below my own posts as i like to do)
i find it somewhat interesting besides after writing few days i will probably wanish for another half a year or so

as to this above replacing ; by , dont changed like to much though imo , looks slightly better ..so i couldnt be sure worthing to do this but another argument is that typing , is easier than : so i think it may stay

i made yet some additions

https://filebin.net/c7cns125ysfca8d2

i repaired splitter, now it i dont made mistake its poroof on beraking
on logical lines becouse it splits on "," not after ","

aa aa,aaa ,a s s,s,s,ss ->
aa aa
aaa
a s s
s s
ss

befoe it was
aa aa,
aaa ,
a s s,
s,
s,
ss
and those additional atoms could interfere with interpretation insade lines

also i made braking on logical lines on 3 values 0x0a "," and ":"

the code it compiles

import "green_fire.dll" cdecl DrawSomeText2 ToggleFullscreen
import "green_fire.dll" cdecl ClearFrameData DrawCircle
import "green_fire.dll" cdecl RegisterRunFrame RegisterMouseMove
import "green_fire.dll" cdecl RegisterKeyDown RegisterOnResize
import "green_fire.dll" cdecl SetSleepValue SetScaleOnResize SetupWindow3
import "green_fire.dll" variable frame_size_x frame_size_y

void ProcessMouseMove(int mouse_x; int mouse_y): return

void ProcessKeyDown(int last_key_pressed)
int PAGE_UP{33}
if last_key_pressed = PAGE_UP: ToggleFullscreen() :.
return

void RollBackgroundColor()
int background_color {0x00000001}
background_color += 1
ClearFrameData background_color
return

void RunFrame()
RollBackgroundColor()
int r, int wx = 0, int wy = 0, wx = frame_size_x, wy = frame_size_y, wx /= 2, wy /= 2
for r from 20 to 100 step 2: DrawCircle wx wy r 0xff4455 :.
for r from 20 to 200 step 2: DrawCircle mouse_x mouse_y r 0xff00 :.

DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00"
DrawSomeText2 0xffffff 30 130 "mouse %d %d\x00" mouse_x mouse_y
int b {2},int c {10}
b = 2, c = 10, b = c/(b-1)+c*(c-2), DrawSomeText2 0xffffff 20 150 " %d \x00" b
b = 2, c = 10, lisplike b = c+b*7/4+3-12 , DrawSomeText2 0xffffff 20 170 " %d \x00" b
return

void OnResize(): return

void main()
RegisterRunFrame &RunFrame,
RegisterMouseMove &ProcessMouseMove
RegisterKeyDown &ProcessKeyDown,
RegisterOnResize &OnResize
SetSleepValue 30
SetScaleOnResize 1
SetupWindow3 " compiled by fir's furia proto c compiler \x00" 10 10 600 400 300 200
return

https://filebin.net/7nvpszd5eru4o4uf

i added yet some syntax changes ment to maybe try later to put this some c little programs meant to be
stripped for size and see in what syntax i could obtain the possible minimum (though for now i got yet many things yet not implemented for examlple no float expressions (need to put stubs in assembly)
acces to array is obtainalble only thru a = b[i] and c[i]=d etc) now it compiles

import "green_fire.dll" cdecl DrawSomeText2 ToggleFullscreen
import "green_fire.dll" cdecl ClearFrameData DrawCircle
import "green_fire.dll" cdecl RegisterRunFrame RegisterMouseMove
import "green_fire.dll" cdecl RegisterKeyDown RegisterOnResize
import "green_fire.dll" cdecl SetSleepValue SetScaleOnResize SetupWindow3
import "green_fire.dll" variable frame_size_x frame_size_y

void ProcessMouseMove(int mouse_x; int mouse_y): return

.PAGE_UP{33}

void ProcessKeyDown(int last_key_pressed)
? last_key_pressed=PAGE_UP: ToggleFullscreen() :.
return

.background_color{0x00000001}

void RollBackgroundColor()
background_color += 1, ClearFrameData background_color
return

void RunFrame()
RollBackgroundColor()
.wx=frame_size_x, .wy=frame_size_y, wx/=2, wy/=2
20/100/2 .r: DrawCircle wx wy r 0xff4455:.
20/200/2 r: DrawCircle mouse_x mouse_y r 0xff00:.
DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00",
DrawSomeText2 0xffffff 30 130 "mouse %d %d\x00" mouse_x mouse_y
.b=2, .c=10, b = c/(b-1)+c*(c-2), DrawSomeText2 0xffffff 20 150 " %d \x00" b
b=2, c=10, lisplike b = c+b*7/4+3-12 , DrawSomeText2 0xffffff 20 170 " %d \x00" b
return

void OnResize(): return

void main(): RegisterRunFrame &RunFrame, RegisterMouseMove &ProcessMouseMove
RegisterKeyDown &ProcessKeyDown, RegisterOnResize &OnResize
SetSleepValue 30, SetScaleOnResize 1
SetupWindow3 " compiled by fir's furia proto c compiler \x00" 20 20 640 480 320 240
return

i got a little weary already but it is potential fun..potentially if i would implement more and rise quality of source i can give the c source of this compiler too (though taking my kinda novative (i guess) hints how to write it esp if someone would target nasm or something and not write his own asm it not so hard) but this is yet to be seen

somewhat upgraded version

https://filebin.net/pethf87gfgorfuz7

takes code like

//////////////////////////////
import "green_fire.dll" (cdecl) DrawSomeText2 ToggleFullscreen ...
ClearFrameData DrawCircle RegisterRunFrame RegisterMouseMove ...
RegisterKeyDown RegisterOnResize SetSleepValue SetScaleOnResize ...
SetupWindow3 (var) frame_size_x frame_size_y
import "user32.dll" (stdcall) MessageBoxA
import "msvcrt.dll" (cdecl) printf

void ProcessMouseMove(int mouse_x int mouse_y), return

void foo(int z1 int z2 int z3 int z4 )
printf " %d %d %d %d \x00" z1 z2 z3 z4, return

void AddBackgrounColor(int addX)
background_color = background_color + addX , return

void ProcessKeyDown(int last_key_pressed)
int PAGE_UP=33, int keyR = 0x52, int keyG = 0x47, int keyB = 0x42
last_key_pressed?=PAGE_UP: ToggleFullscreen().
last_key_pressed?=0x41: foo(frame_size_x frame_size_y/2 3 4).
last_key_pressed?=0x53: foo(2 3 4 5), foo(6 7 8 9).
last_key_pressed?=0x43: MessageBoxA 0 "captionC\x00" "title\x00" 0 .
last_key_pressed?=keyR: AddBackgrounColor(0x10).
last_key_pressed?=keyG: AddBackgrounColor(0x1000).
last_key_pressed?=keyB: AddBackgrounColor(0x100000).

return

void RollBackgroundColor(), int background_color += 0x01, ClearFrameData background_color,
return
double aa = 1111.111111111, double bb = 7.22, int cc = 2, int dd = 3
void RunFrame(),
RollBackgroundColor(),
30;.r;100;2: DrawCircle frame_size_x/4 frame_size_y/3 r 0xff4455 .
20; r;100;3: DrawCircle frame_size_x/5*4 frame_size_y/4 r 0xff00 .
10; r;70;2: DrawCircle frame_size_x/2 frame_size_y/5*4 r 0xffff00 .

20; r;200;2: DrawCircle mouse_x mouse_y r 0xffff .
DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00",
DrawSomeText2 0xffffff 30 180 "mouse %d %d\x00" mouse_x mouse_y
cc+=1, aa+=0.01, aa-=0.00001,
DrawSomeText2 0xffffff 30 100 "cc %d aa %f \x00" cc aa,
return
void OnResize(), return
void main()
RegisterRunFrame &RunFrame, RegisterMouseMove &ProcessMouseMove
RegisterKeyDown &ProcessKeyDown, RegisterOnResize &OnResize, SetSleepValue 30, SetScaleOnResize 1
SetupWindow3 " compiled by fir's furia proto c compiler \x00" 20 20 640 480 320 240
return

now some can put expresions as argument of functions,,it doesnt seem a big upgrade but
in fact the core things in the inner layer/ring of compilers are those two: microcompiler of expressions and code that compiles-in this expressions in given place (here for me it is those arguments of functions)

those two things emmn most thing done, probably teh harded thing in thic compiler, so when i done it i may feel like 51% of compiler done
(my expresions are errorouns and simple (only +-*/) but extending it is easy work... sadly i myself feel like emeritus so harder parts was wearing me...its a doom of my life, need to do work when began to feel really old)

yet i may add some remarks:
the compiler is now, i checked 100k bytes source )including commented and not needed parts_
which gave 5k lines (which in turn stands for 2 weeks of crazy work, as for me month of crazy work
is 10k lines - this was whan i was younger and able to code 10k lines a month) ... for me it took
probably like about 5-6 weeks of coding (i dont remember exactly, proably about 5)

i will need to add things yet but overally it seems in 10k lines one could build basic proto-c compiler
if one could try to not get too long it also can go in few k lines possinly (like 5k) hovever i skipped some things so if add some it probably will go up to 20 k maybe (but 20k seem a lot)

as to how hard it is i seen easier thibgs to code but also is not so hard, hovever i found a trouble
of writing it stright from begin to end good way, it rather put my head of state when i just added and added those ifs (as its damn many ifs) and not being sure if it all packs together and forget precise
code flow..it seems to pack together though

overally when i see on code i can compile i see: logical lines containing
- function call
- function definition (header)
- expression
- if-header
- for-header
and thats mostly all (yet i may add ends of if/for.function blocks)

from those 6 mentioned 4 are easy, expression and function calls are those that are harder...
still i dont see all that things to much clear i may say bot some experience here i got... i eventually suspect that investing more in that could give some good vision of things here (but its yet to see)

sobota, 30 kwietnia 2022 o 22:11:32 UTC+2 fir napisał(a):
> yet i may add some remarks:
> the compiler is now, i checked 100k bytes source )including commented and not needed parts_
> which gave 5k lines (which in turn stands for 2 weeks of crazy work, as for me month of crazy work
> is 10k lines - this was whan i was younger and able to code 10k lines a month) ... for me it took
> probably like about 5-6 weeks of coding (i dont remember exactly, proably about 5)
>
> i will need to add things yet but overally it seems in 10k lines one could build basic proto-c compiler
> if one could try to not get too long it also can go in few k lines possinly (like 5k) hovever i skipped some things so if add some it probably will go up to 20 k maybe (but 20k seem a lot)
>
> as to how hard it is i seen easier thibgs to code but also is not so hard, hovever i found a trouble
> of writing it stright from begin to end good way, it rather put my head of state when i just added and added those ifs (as its damn many ifs) and not being sure if it all packs together and forget precise
> code flow..it seems to pack together though
>
> overally when i see on code i can compile i see: logical lines containing
> - function call
> - function definition (header)
> - expression
> - if-header
> - for-header
> and thats mostly all (yet i may add ends of if/for.function blocks)
>
> from those 6 mentioned 4 are easy, expression and function calls are those that are harder...
> still i dont see all that things to much clear i may say bot some experience here i got... i eventually suspect that investing more in that could give some good vision of things here (but its yet to see)

i added yet new version https://filebin.net/hhwx77gjc4zmeyax

this compiles a bit cleanised syntax

//////////////////////////////
import "green_fire.dll" (cdecl) DrawSomeText2 ToggleFullscreen ClearFrameData DrawCircle RegisterRunFrame RegisterMouseMove RegisterKeyDown RegisterOnResize SetSleepValue SetScaleOnResize SetupWindow3 (var) frame_size_x frame_size_y
import "user32.dll" (stdcall) MessageBoxA
import "msvcrt.dll" (cdecl) printf
////////////////////////////////////

void ProcessMouseMove int mouse_x int mouse_y
return

void foo int z1 int z2 int z3 int z4
printf " %d %d %d %d \x00" z1 z2 z3 z4
return

void AddBackgrounColor int addX
background_color += addX
return

void ProcessKeyDown int last_key_pressed :
int PAGE_UP{33}, int keyR{0x52}, int keyG{0x47}, int keyB{0x42}
last_key_pressed?=PAGE_UP: ToggleFullscreen .
last_key_pressed?=0x41: foo frame_size_x frame_size_y/2 3 4 .
last_key_pressed?=0x53: foo 2 3 4 5, foo 6 7 8 9 .
last_key_pressed?=0x43: MessageBoxA 0 "captionC\x00" "title\x00" 0 .
last_key_pressed?=keyR: AddBackgrounColor 0x10 .
last_key_pressed?=keyG: AddBackgrounColor 0x1000 .
last_key_pressed?=keyB: AddBackgrounColor 0x100000 .
return

void RollBackgroundColor: int background_color += 0x01
ClearFrameData background_color
return

double aa {21111.111111111},double bb{7.22},int cc{2}, int dd{3}

void RunFrame
RollBackgroundColor,
30;.r;100;2: DrawCircle frame_size_x/4 frame_size_y/3 r 0xff4455 .
20; r;100;3: DrawCircle frame_size_x/5*4 frame_size_y/4 r 0xff00 .
10; r;70 ;4: DrawCircle frame_size_x/6*5 frame_size_y/5*4 r 0xffff00 .
11; r;70 ;4: DrawCircle frame_size_x/6*5 frame_size_y/5*4 r 0x00ffff .

30; r;200;2: DrawCircle mouse_x mouse_y r 0xffff .
DrawSomeText2 0xffffff 10 30 "this app is compiled by furia \x00"
DrawSomeText2 0xffffff 30 180 "mouse %d %d\x00" mouse_x mouse_y
DrawSomeText2 0xffffff 10 220 "test cc %d test aa %f \x00" cc+=1 aa+=0.111111
return

void OnResize, return

void main()
RegisterRunFrame &RunFrame, RegisterMouseMove &ProcessMouseMove
RegisterKeyDown &ProcessKeyDown, RegisterOnResize &OnResize, SetSleepValue 30, SetScaleOnResize 1
SetupWindow3 " compiled by fir's furia proto c compiler \x00" 20 20 640 480 320 240
return

though still it has a bunch of small syntax holes and wrongings
most possibly i will get a break and return to it some other day hovever as i said i think
wthe worst of this is done and 52% of it is done, the rest is just easy typing

some newer version

https://filebin.net/qg6zad6s27xb80vt

i upgraded those 'vector' separation code and
allowed both use ; or | separators or none
like
foo a b c
foo a|b|c

i throwed old reducer code to trash bin and wrote one notably cleaner though
still i didnt wanted even to test that (probably not all works but may be mended)

possibly i could go on and add something more