[Implemented] With EndWith

[ts-soft]

Example:

Code: Select all

Structure Test
  First.l
  Last.l
  Text.s
EndStructure

MyTest.Test
With MyTest
  First = 1000
  Last = 9999
  Text = "Hello PureBasic"
EndWith

Is clear Syntax, i hope

[Dreglor]

i see one problem if your using varibles to set the structure that have the same name of the structure field you have problems

[Trond]

EDIT: Oh my I'm thick sorry.

[ts-soft]

Or so:

Code: Select all

MyTest.Test
With MyTest
  \First = 1000
  \Last = 9999
  \Text = "Hello PureBasic"
EndWith

like other programming languages

[Fred]

Yes, it's planned.

[ts-soft]

thx

[GedB]

Excellent.

Will it work with Interfaces, too?

[Fred]

This will works as a real macro, which means you could put any expression after 'With', and it will be inserted before each orphan '\'.

[Psychophanta]

BB 2 from Amiga supported this feature.
It used an easy way to do, something like this:

Code: Select all

Structure Test 
  First.l 
  Last.l 
  Text.s 
EndStructure 
MyTest.Test
Structure Test1
  a.l
  b.l
EndStructure
NewList li.Test1()
USEPATH MyTest.Test
\First = 1000 
\Last = 9999 
\Text = "Hello PureBasic" 
AddElement li()
USEPATH li()
\a=24
\b=25

[Psychophanta]

This will works as a real macro, which means you could put any expression after 'With', and it will be inserted before each orphan '\'.

Aha!, just replace the 'USEPATH' word by 'With' word

[GedB]

Hmmmm, Reaaaal Maaaaacrooooooooos!

imagine Homer like drool.