mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
add Cirru with some samples
This commit is contained in:
@@ -296,6 +296,16 @@ ChucK:
|
|||||||
lexer: Java
|
lexer: Java
|
||||||
primary_extension: .ck
|
primary_extension: .ck
|
||||||
|
|
||||||
|
Cirru:
|
||||||
|
type: programming
|
||||||
|
color: "#aaaaff"
|
||||||
|
primary_extension: .cirru
|
||||||
|
# ace_mode: cirru
|
||||||
|
# lexer: Cirru
|
||||||
|
lexer: Text only
|
||||||
|
extensions:
|
||||||
|
- .cr
|
||||||
|
|
||||||
Clean:
|
Clean:
|
||||||
type: programming
|
type: programming
|
||||||
color: "#3a81ad"
|
color: "#3a81ad"
|
||||||
|
|||||||
12
samples/Cirru/array.cirru
Normal file
12
samples/Cirru/array.cirru
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
|
||||||
|
print $ array
|
||||||
|
int 1
|
||||||
|
string 2
|
||||||
|
|
||||||
|
print $ array
|
||||||
|
int 1
|
||||||
|
array
|
||||||
|
int 2
|
||||||
|
string 3
|
||||||
|
array
|
||||||
|
string 4
|
||||||
7
samples/Cirru/block.cirru
Normal file
7
samples/Cirru/block.cirru
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
|
||||||
|
set f $ block (a b c)
|
||||||
|
print a b c
|
||||||
|
|
||||||
|
call f (int 1) (int 2) (int 3)
|
||||||
|
|
||||||
|
f (int 1) (int 2) (int 3)
|
||||||
7
samples/Cirru/bool.cirru
Normal file
7
samples/Cirru/bool.cirru
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
|
||||||
|
print $ bool true
|
||||||
|
print $ bool false
|
||||||
|
print $ bool yes
|
||||||
|
print $ bool no
|
||||||
|
print $ bool 1
|
||||||
|
print $ bool 0
|
||||||
14
samples/Cirru/map.cirru
Normal file
14
samples/Cirru/map.cirru
Normal file
@@ -0,0 +1,14 @@
|
|||||||
|
|
||||||
|
print $ map
|
||||||
|
a $ int 5
|
||||||
|
b $ array (int 1) (int 2)
|
||||||
|
c $ map
|
||||||
|
int 1
|
||||||
|
array (int 4)
|
||||||
|
|
||||||
|
set m $ map
|
||||||
|
a $ int 1
|
||||||
|
|
||||||
|
set m b $ int 2
|
||||||
|
|
||||||
|
print m
|
||||||
3
samples/Cirru/number.cirru
Normal file
3
samples/Cirru/number.cirru
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
|
||||||
|
print $ int 1
|
||||||
|
print $ float 1.2
|
||||||
2
samples/Cirru/require.cirru
Normal file
2
samples/Cirru/require.cirru
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
|
||||||
|
require ./stdio.cr
|
||||||
23
samples/Cirru/scope.cirru
Normal file
23
samples/Cirru/scope.cirru
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
|
||||||
|
set a (int 2)
|
||||||
|
|
||||||
|
print (self)
|
||||||
|
|
||||||
|
set c (child)
|
||||||
|
|
||||||
|
under c
|
||||||
|
under parent
|
||||||
|
print a
|
||||||
|
|
||||||
|
print $ get c a
|
||||||
|
|
||||||
|
set c x (int 3)
|
||||||
|
print $ get c x
|
||||||
|
|
||||||
|
set just-print $ code
|
||||||
|
print a
|
||||||
|
|
||||||
|
print just-print
|
||||||
|
|
||||||
|
eval (self) just-print
|
||||||
|
eval just-print
|
||||||
55
samples/Cirru/stdio.cirru
Normal file
55
samples/Cirru/stdio.cirru
Normal file
@@ -0,0 +1,55 @@
|
|||||||
|
|
||||||
|
set a $ string 1
|
||||||
|
print a
|
||||||
|
|
||||||
|
print (string 1)
|
||||||
|
|
||||||
|
print nothing
|
||||||
|
|
||||||
|
print
|
||||||
|
map
|
||||||
|
a (int 4)
|
||||||
|
b $ map
|
||||||
|
a $ int 5
|
||||||
|
b $ int 6
|
||||||
|
c $ map
|
||||||
|
int 7
|
||||||
|
|
||||||
|
print
|
||||||
|
array
|
||||||
|
int 1
|
||||||
|
int 2
|
||||||
|
array
|
||||||
|
int 3
|
||||||
|
int 4
|
||||||
|
|
||||||
|
print
|
||||||
|
array
|
||||||
|
int 1
|
||||||
|
map
|
||||||
|
a $ int 2
|
||||||
|
b $ array
|
||||||
|
int 3
|
||||||
|
|
||||||
|
print
|
||||||
|
int 1
|
||||||
|
int 2
|
||||||
|
|
||||||
|
print $ code
|
||||||
|
set a 1
|
||||||
|
print (get a)
|
||||||
|
print $ array
|
||||||
|
int a
|
||||||
|
array
|
||||||
|
int a
|
||||||
|
|
||||||
|
set container (map)
|
||||||
|
set container code $ code
|
||||||
|
set a 1
|
||||||
|
print (get a)
|
||||||
|
print $ array
|
||||||
|
int a
|
||||||
|
array
|
||||||
|
int a
|
||||||
|
|
||||||
|
print container
|
||||||
3
samples/Cirru/string.cirru
Normal file
3
samples/Cirru/string.cirru
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
|
||||||
|
print $ string a
|
||||||
|
print $ string "a b"
|
||||||
Reference in New Issue
Block a user