wash/ivy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

doc: sample: switch to kebab-case

Browse Source
This commit is contained in:
max 🍓
2025-11-07 10:07:44 +00:00
parent c8f0be14a1
commit 77791d91e3
9 changed files with 66 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
doc/sample/Blocks.im
View File

@@ -1,9 +1,9 @@
pkg2 = {
onEnter => [
on-enter => [
cout put:'start!'
],
onExit => [
on-exit => [
cout put:'end!'
]
}.

25
doc/sample/CaesarCipher.im
View File

@@ -15,32 +15,31 @@ while true do
end
end
shiftWidth = 0
shift-width = 0
while true do
cout print:'Shift size: '
cout flush
shiftStr = ''
cin get:shiftStr
shift-str = cin read-line.
if shiftStr == '' then
if shift-str == '' then
continue
end
try
shiftWidth = Int parse:shiftStr
catch (#err:number_format, err)
shift-width = Int parse:shift-str
catch ($err:number-format, err)
continue
end
break
end
encodedMessage = ''
encoded-message = ''
for c in message do
i = c toOrdinal
i = c to-ordinal
sub = 0
if i >= 65 && i <= 90 then
@@ -50,16 +49,16 @@ for c in message do
else
continue
end
i -= sub
i += shiftWidth
i += shift-width
if i >= 26 then
i -= 26
end
c2 = i toChar
encodedMessage += c2
c2 = i to-char
encoded-message += c2
end
cout put:encodedMessage
cout put:encoded-message

2
doc/sample/Exception.im
View File

@@ -1,7 +1,7 @@
try
x = 0
--v = Int parse:'342'
catch ($err:number_format, err) in
catch ($err:number-format, err) in
x = 1
--cout put:'Cannot parse integer string ({err})'
catch (_, err) in

20
doc/sample/Expressions.im
View File

@@ -1,12 +1,12 @@
y = 1 + 2 * 3 / 4 * 5 - 6 + 7 multiplyBy:2.
z = w = 2 + 3 multiplyBy:2.
x = (((1 + 2 * 3) multiplyBy:3) add: 5) + 2.
x = ((1 + 2 * 3) multiplyBy:3).
y = 1 + 2 * 3 / 4 * 5 - 6 + 7 multiply-by:2.
z = w = 2 + 3 multiply-by:2.
x = (((1 + 2 * 3) multiply-by:3) add: 5) + 2.
x = ((1 + 2 * 3) multiply-by:3).
p = 5 multiply(by:3, add:(2 + 1)).
q = 10 squared squared.
p1
setAge:2 squared squared + 4 squared multiply(by:2, add:4 + 1 * 3)
set-age:2 squared squared + 4 squared multiply(by:2, add:4 + 1 * 3)
in:"mon" + "ths".
m = xz multiply(by:3 add:2) squared.
@@ -20,7 +20,7 @@ x = OrderedCollection new
yourself.
age = Person new(name:"John Doe", age:34)
setAge:144 inUnit:"months";
set-age:144 in-unit:"months";
ageInMonths.
x = 5.
@@ -76,10 +76,10 @@ pkg = { 1, 2, 3, 4, 5 }.
pkg = { 10, 2 => "Hello", 9, 5 => "World", 14 }.
pkg = { { 0 }, { 1 }, { y for y in huh } }.
pkg = { x multiplyBy:2 for x in wow if x > 2 }.
pkg = { x multiply-by:2 for x in wow if x > 2 }.
pkg->x = 32.
k = (1 multiplyBy:2, 4).
k = (1 multiply-by:2, 4).
for (x, y) in pkg do
cout put:'{x}: {y}'
@@ -97,11 +97,11 @@ v = pkg->x.
v = pkg at:'x'.
pkg2 = {
onEnter => [
on-enter => [
cout put:'start!'
],
onExit => [
on-exit => [
cout put:'end!'
]
}.

40
doc/sample/Person.im
View File

@@ -58,13 +58,13 @@ class Person
- age | ^self::age.
- ageInMonths | ^self::age * 12.
- age-in-months | ^self::age * 12.
- setName:name | self::name = name.
- set-name:name | self::name = name.
- setAge:age | self::age = age.
- set-age:age | self::age = age.
- setAge:age inUnit:units
- set-age:age in-unit:units
match units in
$years => self::age = age,
$months => self::age = age / 12,
@@ -72,7 +72,7 @@ class Person
_ => self::age = 0
end!
- getAgeInUnit:units
- get-age-in-units:units
^match units in
$years => self::age,
$months => self::age / 12,
@@ -104,12 +104,12 @@ class Person
is converted to the lambda
[ :x | self::val = x ]
*/
-> exampleProperty | get => self::val, set => self::val = value.
-> example-property | get => self::val, set => self::val = value.
/* Without the lambda synthesis, the property would look like this:
Note that this is the only time it is legal to access private fields
via `self` from a lambda. */
-> exampleProperty |
-> example-property |
get => [ ^self::val ],
set => [ :x | self::val = x ].
@@ -119,7 +119,7 @@ class Person
If either the `set` or `get` elements are not provided, the property
becomes read-only or write-only respectively */
-> exampleProperty2 | get => 42.
-> example-property-2 | get => 42.
/* A property can also be configured to act just like a regular variable,
by setting the getter and setters to default implementations.
@@ -131,15 +131,15 @@ class Person
Similarly, the default setter will set the value of a private member
variable named by prepending two underscores to the property name
(__exampleProperty3 in this case) to the value provided to the setter. */
-> exampleProperty3 (get, set)
-> example-property-3 (get, set)
/* Just like in the earlier examples, either `get` or `set` can be omitted
to create a write-only or read-only property respectively */
-> exampleProperty4 (get)
-> example-property-4 (get)
end
p1 = Person new(name:'John Doe', age:34).
p1 setAge:100 inUnit:$months.
p1 set-age:100 in-unit:$months.
p1 test(param:'Hello', 'World').
@@ -299,7 +299,7 @@ a = (32, 64).
try
v = Int parse:'342'
catch ($err:number_format, err) in
catch ($err:number-format, err) in
cout put:'Cannot parse integer string ({err})'
catch (_, err) in
cout put:'Unknown error occurred ({err})'
@@ -308,7 +308,7 @@ end
/* equivalent 'pure' syntax */
[ v = Int parse:'342' ]
on:$err:number_format do:[ :err :data |
on:$err:number-format do:[ :err :data |
cout put:'Cannot parse integer string ({err})'
];
onError:[ :err :data |
@@ -382,10 +382,10 @@ cout put:'Hello, world!' if x > 10.
**/
p1
setAge:2 squared squared + 4 squared multiply(by:2, add:4 + 1 * 3)
set-age:2 squared squared + 4 squared multiply(by:2, add:4 + 1 * 3)
in:'mon' + 'ths'.
(p1
setAge:(((2 squared) squared) + ((4 squared) multiply(by:2, add:(4 + (1 * 3)))))
set-age:(((2 squared) squared) + ((4 squared) multiply(by:2, add:(4 + (1 * 3)))))
in:('mon' + 'ths')).
/******************************************************************************/
@@ -440,7 +440,7 @@ pkg2 = pkg1 map:[ :x | ^x * 2 ].
**/
age = Person new(name:'John Doe', age:34);
setAge:144 inUnit:$months;
set-age:144 in-unit:$months;
ageInMonths.
-- age now has the value 144
@@ -448,7 +448,7 @@ age = Person new(name:'John Doe', age:34);
age = do
x = Person new(name:'John Doe', age:34).
x setAge:144 inUnit:$months.
x set-age:144 in-unit:$months.
x ageInMonths
end
@@ -471,15 +471,15 @@ end
**/
p1 = Person new(name:'John Doe', age:34);
setAge:100 inUnit:$months;
yourself::
set-age:100 in-unit:$months;
yourself
/* p1 now contains the Person object */
/* again, with do..end */
p1 = do
x = Person new(name:'John Doe', age:34).
x setAge:100 inUnit:$months.
x set-age:100 in-unit:$months.
x
end.

16
doc/sample/Simple.im
View File

@@ -1,27 +1,27 @@
y = 1 + 2 * 3 / 4 * 5 - 6 + 7 multiplyBy:2.
z = w = 2 + 3 multiplyBy:2.
x = (((1 + 2 * 3) multiplyBy:3) add: 5) + 2.
x = ((1 + 2 * 3) multiplyBy:3).
y = -1 + 2 * 3 / 4 * 5 - 6 + 7 multiply-by:2.
z = w = 2 + 3 multiply-by:2.
x = (((1 + 2 * 3) multiply-by:3) add: 5) + 2.
x = ((1 + 2 * 3) multiply-by:3).
p = 5 multiply(by:3, add:(2 + 1)).
q = 10 squared squared.
p1
setAge:2 squared squared + 4 squared multiply(by:2, add:4 + 1 * 3)
set-age:2 squared squared + 4 squared multiply(by:2, add:4 + 1 * 3)
in:"mon" + "ths".
m = xz multiply(by:3 add:2) squared.
m = xz multiply(by:3 add:2); squared.
x = OrderedCollection new
x = Ordered-Collection new
add: 2;
add: 4;
add: 6;
yourself.
age = Person new(name:"John Doe", age:34)
setAge:144 inUnit:"months";
ageInMonths.
set-age:144 in-unit:"months";
age-in-months.
x = 5.
q = 10 if x > 2 else 20.

2
doc/sample/String.im
View File

@@ -3,4 +3,4 @@ package net.doorstuck.test
s1 = 'hello world'
s2 = s1 map:[ :c | ^c uppercase ]
s3 = s1 map:[ :c | ^((c ordinal) + 1) toChar ]
s3 = s1 map:[ :c | ^((c ordinal) + 1) to-char ]

2
doc/sample/Sum.im
View File

@@ -9,7 +9,7 @@ while true do
cout flush.
v = 0.
input = cin readLine.
input = cin read-line.
if input == '' then
break

22
doc/sample/Vehicle.im
View File

@@ -3,8 +3,8 @@ package net.doorstuck.vehicles
protocol Vehicle
- startup
- shutdown
- nrWheels
- nrDoors
- nr-wheels
- nr-doors
- turn(direction:dir)
- accelerate(direction:dir)
- velocity
@@ -12,33 +12,33 @@ end
class Car <Vehicle>
- startup
self.engineRunning = true
self.engine-running = true
end
- shutdown
self.engineRunning = false
self.engine-running = false
end
- nrWheels
- nr-wheels
^4
end
- nrDoors
- nr-doors
^4
end
- turn(direction:dir)
self.currentDirection = dir
self.current-direction = dir
end
- accelerate(direction:dir)
match dir
#forward => self.currentVelocity += 1,
#backward => self.currentVelocity -= 1,
$forward => self.current-velocity += 1,
$backward => self.current-velocity -= 1,
end
end
- velicity
^self.currentVelocity
- velocity
^self.current-velocity
end
end