English version: English
Magpie是一个用go语言写的解析器. 语法借鉴了C, Ruby, Python, Perl和C#。
支持常用的控制流程，函数式编程和面向对象编程，也能够导入go语言的模块。
它自带一个文档生成工具(mdoc)，用来从magpie源码中生成文档(html)。它自带一个可以用来体验的调试器。
同时它还包括一个实时语法高亮的REPL。
同时，我还用magpie语言写了一个简单的程序语言。
你甚至可以在浏览器中运行大部分的magpie脚本。
完整的语言教程：docs
- 类:支持属性，索引器和操作符重载
- 支持await/async的异步编程
- 内置linq支持
- 内置日期时间字面量
- 一级函数(First class function)
- 多参函数及缺省参数值函数
- 函数可以有多个返回值
- int, uint, float, bool, array, tuple, hash(所有均支持json序列化/反序列化, 所有类型均可以扩展)
- try-catch-finally异常处理
- 可选类型支持(类似Java 8的Optional类)
- using语句(类似C#的using)
- Elixir的管道操作符(pipe operator)
- 使用Go语言的方法(RegisterFunctions与RegisterVars)
- 语法高亮REPL
- 文档自动生成工具
mdoc - 集成服务(service)处理
- 简单调试器
- 简单宏处理
// async/await
async fn add(a, b) { a + b }
result = await add(1, 2)
println(result)
// linq example
class Linq {
static fn TestSimpleLinq() {
//数据源
let ingredients = [
{Name: "Sugar", Calories: 500},
{Name: "Egg", Calories: 100},
{Name: "Milk", Calories: 150},
{Name: "Flour", Calories: 50},
{Name: "Butter", Calories: 200},
]
//检索数据源
ingredient = from i in ingredients where i.Calories >= 150 orderby i.Name select i
//显示
for item in ingredient => println(item)
}
static fn TestFileLinq() {
//从文件读取数据源
file = newFile("./examples/linqSample.csv", "r")
//检索数据源
result = from field in file where int(field[1]) > 300000 select field[0]
//显示
for item in result => printf("item = %s\n", item)
file.close()
}
/* Code from https://docs.microsoft.com/en-us/dotnet/csharp/language-reference/keywords/let-clause */
static fn TestComplexLinq() {
//数据源
stringList = [
"A penny saved is a penny earned.",
"The early bird catches the worm.",
"The pen is mightier than the sword."
]
//检索数据源
earlyBirdQuery =
from sentence in stringList
let words = sentence.split(" ")
from word in words
let w = word.lower()
where w[0] == "a" || w[0] == "e" ||
w[0] == "i" || w[0] == "o" ||
w[0] == "u"
select word
//显示
for v in earlyBirdQuery => printf("'%s' starts with a vowel\n", v)
}
}
Linq.TestSimpleLinq()
println("======================================")
Linq.TestFileLinq()
println("======================================")
Linq.TestComplexLinq()//service Hello on "0.0.0.0:8090" {
service Hello on "0.0.0.0:8090:debug" { //':debug': for debugging request
//'@route'中，你可以使用'url(必须), methods, host, schemes, headers, queries'
@route(url="/authentication/login", methods=["POST"])
fn login(writer, request) {
//writer.writeJson({ sessionId: "3d5bd2cA15ef047689" })
//writer.writeJson({ sessionId: "3d5bd2cA15ef047689" }), 200 # same as above
//return { sessionId: "3d5bd2cA15ef047689" }, 200 # same as above
return { sessionId: "3d5bd2cA15ef047689" } // same as above
}
@route(url="/authentication/logout", methods=["POST"])
fn logout(writer, request) {
// writer.writeHeader(http.STATUS_CREATED) # return http status code 201
return http.STATUS_CREATED // same as above
}
@route(url="/meters/setting-result/{acceptNo}", methods=["GET"])
fn load_survey_result(writer, request) {
//using 'vars' dictionary to access the url parameters
//writer.writeJson({ acceptNo: vars["acceptNo"], resultCode: "1"})
return { acceptNo: vars["acceptNo"], resultCode: "1"} // same as above
}
@route(url="/articles/{category}/{id:[0-9]+}", methods=["GET"])
fn getArticle(writer, request) {
//using 'vars' dictionary to access the url parameters
//writer.writeJson({ category: vars["category"], id: vars["id"]})
return { category: vars["category"], id: vars["id"]} // same as above
}
}下面演示了Magpie语言的一些功能:
s1 = "hello, 黄" // strings are UTF-8 encoded
三 = 3 // UTF-8 identifier
i = 20_000_000 // int
u = 10u // uint
f = 123_456.789_012 // float
b = true // bool
a = [1, "2"] // array
h = {"a": 1, "b": 2} // hash
t = (1,2,3) // tuple
dt = dt/2018-01-01 12:01:00/ //datetime literal
n = nilconst PI = 3.14159
PI = 3.14 //错误
const (
INT, //缺省为0
DOUBLE,
STRING
)
let i = INTLogOption = enum {
Ldate = 1 << 0,
Ltime = 1 << 1,
Lmicroseconds = 1 << 2,
Llongfile = 1 << 3,
Lshortfile = 1 << 4,
LUTC = 1 << 5,
LstdFlags = 1 << 4 | 1 << 5
}
opt = LogOption.LstdFlags
println(opt)let i = [{"a": 1, "b": 2}, 10]
let x = [{"a": 1, "b": 2},10]
case i in {
1, 2 { println("i matched 1, 2") }
3 { println("i matched 3") }
x { println("i matched x") }
else { println("i not matched anything")}
}- if
- for
- while
- do
- case-in
let a, b = 10, 5
if (a > b) {
println("a > b")
}
elif a == b {
println("a = b")
}
else {
println("a < b")
}
if 10.isEven() {
println("10 is even")
}
if 9.isOdd() {
println("9 is odd")
}i = 9
for { // 无限循环
i = i + 2
if (i > 20) { break }
println('i = {i}')
}
i = 0
for (i = 0; i < 5; i++) { // 类似C语音的for循环，这里括号'()'是必须的
if (i > 4) { break }
if (i == 2) { continue }
println('i is {i}')
}
# for x in arr <where expr> {}
let a = [1,2,3,4]
for i in a where i % 2 != 0 {
println(i)
}
# read line by line
using (f = open("./file.log", "r")) {
for line in <$f> where line =~ ``magpie`` {
println(line) //print only lines which match 'magpie'
}
}
i = 10
while (i>3) {
i--
println('i={i}')
}
# read line by line
using (f = open("./file.log", "r")) {
while <$f> {
println($_) //$_: line read from file
}
}i = 10
do {
i--
if (i==3) { break }
}let i = [{"a": 1, "b": 2}, 10]
let x = [{"a": 1, "b": 2},10]
case i in {
1, 2 { println("i matched 1, 2") }
3 { println("i matched 3") }
x { println("i matched x") }
else { println("i not matched anything")}
}a = [1,2,3,4]
for i in a where i % 2 != 0 {
println(i)
}
if ([].empty()) {
println("array is empty")
}
a.push(5)
revArr = reverse(a)
println("Reversed Array = ", revArr)hashObj = {
12 : "twelve",
true : 1,
"Name" : "HHF"
}
println(hashObj)
hashObj += {"key1" : "value1"}
hashObj -= "key1"
hashObj.push(15, "fifteen") //第一个参数是键, 第二个参数是值
hs = {"a": 1, "b": 2, "c": 3, "d": 4, "e": 5, "f": 6, "g": 7}
for k, v in hs where v % 2 == 0 {
println('{k} : {v}')
}
doc = {
"one": {
"two": { "three": [1, 2, 3], "six":(1,2,3)},
"four": { "five": [11, 22, 33]},
},
}
// 和下面的语句效果相同
//doc[one][two][three][2] = 44
doc["one"]["two"]["three"][2] = 44
printf("doc[one][two][three][2]=%v\n", doc["one"]["two"]["three"][2])
doc.one.four.five = 4
printf("doc.one.four.five=%v\n", doc.one.four.five)t = () //等价于't = tuple()'
for i in (1,2,3) {
println(i)
}let month = "01"
let dt0 = dt/2018-{month}-01 12:01:00/
println(dt0)
let dt1 = dt/2018-01-01 12:01:00/.addDate(1, 2, 3).add(time.SECOND * 10) //日期加1年，2个月，3天，10秒
printf("dt1 = %v\n", dt1)
/* 'datetime字面量' + 字符串:
字符串支持'YMDhms'形式
Y:年 M:月 D:日
h:小时 m:分钟 s:秒
*/
//和'dt1'的结果相同
let dt2 = dt/2018-01-01 12:01:00/ + "1Y2M3D10s" //日期加1年，2个月，3天，10秒
printf("dt2 = %v\n", dt2)
//和上面的结果一样
//printf("dt2 = %s\n", dt2.toStr()) //使用 'toStr()' 方法将detime转换为字符串.
let dt3 = dt/2019-01-01 12:01:00/
//也可以用strtime()方法将日期时间转换成字符串，下面例子将日期时间转换成'yyyy/mm/dd hh:mm:ss'格式
format = dt3.strftime("%Y/%m/%d %T")
println(dt3.toStr(format))
////////////////////////////////
// 日期时间转换成时间戳
////////////////////////////////
println(dt3.unix()) //to timestamp(UTC)
println(dt3.unixNano()) //to timestamp(UTC)
println(dt3.unixLocal()) //to timestamp(LOCAL)
println(dt3.unixLocalNano()) //to timestamp(LOCAL)
////////////////////////////////
// 时间戳转换为日期时间
////////////////////////////////
timestampUTC = dt3.unix() //to timestamp(UTC)
println(unixTime(timestampUTC)) //timestamp to time
timestampLocal = dt3.unixLocal() //to timestamp(LOCAL)
println(unixTime(timestampLocal)) //timestamp to time
////////////////////////////////
// 日期时间比较
////////////////////////////////
//两个日期时间对象可以使用'>', '>=', '<', '<=' and '=='相互比较
let dt4 = dt/2018-01-01 12:01:00/
let dt5 = dt/2019-01-01 12:01:00/
println(dt4 <= dt5) //返回true在magpie中，你可以使用以下的几种方式来表示正则表达式：
- 正则表达式字面量
- 'regexp'模块
- =~ and !~ 操作符(类似perl)
//使用正则表达式字面量( /pattern/.match(str) )
let regex = /\d+\t/.match("abc 123 mnj")
if (regex) { println("regex matched using regular expression literal") }
//使用'regexp'模块
if regexp.compile(``\d+\t``).match("abc 123 mnj") {
println("regex matched using 'regexp' module")
}
//使用 '=~'(str =~ pattern)
if "abc 123 mnj" =~ ``\d+\t`` {
println("regex matched using '=~'")
}else {
println("regex not matched using '=~'")
}// convert to string using str() function
x = str(10) // convert 10 to string
// convert to int using int() function
x1 = int("10") // x1 = 10
x2 = +"10" // same as above
y1 = int("0x10") // y1 = 16
y2 = +"0x10" // same as above
// convert to float using float() funciton
x = float("10.2")
// convert to array using array() funciton
x = array("10") // x = ["10"]
y = array((1, 2, 3)) // convert tuple to array
// convert to tuple using tuple() funciton
x = tuple("10") // x = ("10",)
y = tuple([1, 2, 3]) // convert array to tuple
// convert to hash using hash() function
x = hash(["name", "jack", "age", 20]) // array->hash: x = {"name" : "jack", "age" : 20}
y = hash(("name", "jack", "age", 20)) // tuple->hash: x = {"name" : "jack", "age" : 20}
// if the above conversion functions have no arguments, they simply return
// new corresponding types
i = int() // i = 0
f = float() // f = 0.0
s = str() // s = ""
h = hash() // h = {}
a = array() // a = []
t = tuple() // t = ()#define DEBUG
// only support two below format:
// 1. #ifdef xxx { body }
// 2. #ifdef xxx { body } #else { body }, here only one '#else' is supported'.
#ifdef DEBUG2
{
add = fn(x, y) { x + y }
printf("add = %d\n", add(1, 2))
}
#else
{
sub = fn(x, y) { x - y }
printf("sub = %d\n", sub(3, 1))
}
#define TESTING
#ifdef TESTING
{
add = fn(x, y) { x + y }
printf("add = %d\n", add(1, 2))
}//带缺省值和多参数
add = fn(x, y=5, z=7, args...) {
w = x + y + z
for i in args {
w += i
}
return w
}
w = add(2,3,4,5,6,7)
println(w)
let z = (x,y) => x * y + 5
println(z(3,4)) //结果 :17
# multiple returns
fn testReturn(a, b, c, d=40) {
return a, b, c, d
}
let (x, y, c, d) = testReturn(10, 20, 30) // d为40
//与上面的'let'语句等价
//x, y, c, d = testReturn(10, 20, 30) // d为40你可以使用反引号来执行命令(类似Perl)
if (RUNTIME_OS == "linux") {
var = "~"
out = `ls -la $var`
println(out)
}
elif (RUNTIME_OS == "windows") {
out = `dir`
println(out)
println("")
println("")
//下面的代码测试执行失败的情况
out = `dirs`
if (!out.ok) {
printf("Error: %s\n", out)
}
}Magpie支持async/await。
let add = async fn(a, b) { a + b }
result = await add(3, 4)
println(result)- 简单
- 继承
- 操作符重载
- 属性(类似c#)
- 索引器
class Animal {
let name = ""
fn init(name) { //'init'是构造方法
//do somthing
}
}class Dog : Animal { //Dog继承于Animal
}class Vector {
let x = 0;
let y = 0;
fn init (a, b) {
x = a; y = b
}
fn +(v) { //重载'+'运算符
if (type(v) == "INTEGER" {
return new Vector(x + v, y + v);
} elif v.is_a(Vector) {
return new Vector(x + v.x, y + v.y);
}
return nil;
}
fn String() {
return fmt.sprintf("(%v),(%v)", this.x, this.y);
}
}
v1 = new Vector(1,2);
v2 = new Vector(4,5);
v3 = v1 + v2
println(v3.String());
v4 = v1 + 10
println(v4.String());class Date {
let month = 7; // Backing store
property Month
{
get { return month }
set {
if ((value > 0) && (value < 13))
{
month = value
} else {
println("BAD, month is invalid")
}
}
}
property Year; // 等价于'property Year { get; set;}'
property Day { get; }
fn init(year, month, day) {
this.Year = year
this.Month = month
this.Day = day
}
fn getDateInfo() {
printf("Year:%v, Month:%v, Day:%v\n", this.Year, this.Month, this.Day)
}
}
dateObj = new Date(2000, 5, 11)
dateObj.getDateInfo()class IndexedNames
{
let namelist = []
let size = 10
fn init()
{
let i = 0
for (i = 0; i < size; i++)
{
namelist[i] = "N. A."
}
}
fn getNameList() {
println(namelist)
}
property this[index] //索引器必须是属性
{
get
{
let tmp;
if ( index >= 0 && index <= size - 1 )
{
tmp = namelist[index]
}
else
{
tmp = ""
}
return tmp
}
set
{
if ( index >= 0 && index <= size-1 )
{
namelist[index] = value
}
}
}
}
namesObj = new IndexedNames()
//调用索引器的setter方法
namesObj[0] = "Zara"
namesObj[1] = "Riz"
namesObj[2] = "Nuha"
namesObj[3] = "Asif"
namesObj[4] = "Davinder"
namesObj[5] = "Sunil"
namesObj[6] = "Rubic"
namesObj.getNameList()
for (i = 0; i < namesObj.size; i++)
{
println(namesObj[i]) //调用索引器的getter方法
}Magpie中预定义了下面三个对象: stdin, stdout, stderr。分别代表标准输入，标准输出，标准错误。
stdout.writeLine("Hello world")
//和上面效果一样
fmt.fprintf(stdout, "Hello world\n")
print("Please type your name:")
name = stdin.read(1024) //从标准输入读最多1024字节
println("Your name is " + name)
//你还可以使用类似C++的插入操作符(`<<`)和提取操作符(`>>`)来操作标准输入和输出。
stdout << "hello " << "world!" << " How are you?" << endl;// 注: 仅支持抛出字符串类型的异常
let exceptStr = "SUMERROR"
try {
let th = 1 + 2
if (th == 3) { throw exceptStr }
}
catch e {
printf("Catched: %s\n", e)
}
finally {
println("finally running")
}fn safeDivision?(a, b) {
if (b == 0){
return optional.empty();
} else {
return optional.of(a/b);
}
}
op1 = safeDivision?(10, 0)
if (!op1.isPresent()) {
println(op1)
}//字面量: /pattern/.match(str)
let regex = /\d+\t/.match("abc 123 mnj")
if (regex) {
println("regex matched using regular expression literal")
}
//使用 '=~'(str =~ pattern)
if "abc 123 mnj" =~ ``\d+\t`` {
println("regex matched using '=~'")
}else {
println("regex not matched using '=~'")
}// 管道操作符(|>)
x = ["hello", "world"] |> strings.join(" ") |> strings.upper() |> strings.lower() |> strings.title()
//same as above
//x = ["hello", "world"] |> strings.join(" ") |> strings.upper |> strings.lower |> strings.title
printf("x=<%s>\n", x)let mm = [1,2,3,4,5,6,7,8,9,10]
result = linq.from(mm).where(x => x % 2 == 0).select(x => x + 2).toSlice()
println('before mm={mm}')
println('after result={result}')let hsJson = {"key1" : 10,
"key2" : "Hello Json %s %s Module",
"key3" : 15.8912,
"key4" : [1,2,3.5, "Hello"],
"key5" : true,
"key6" : {"subkey1": 12, "subkey2": "Json"},
"key7" : fn(x,y){x+y}(1,2)
}
let hashStr = json.marshal(hsJson) //等价于'json.toJson(hsJson)'
println(json.indent(hashStr, " "))
let hsJson1 = json.unmarshal(hashStr)
println(hsJson1)
let arrJson = [1,2.3,"HHF",[],{ "key" : 10, "key1" : 11}]
let arrStr = json.marshal(arrJson)
println(json.indent(arrStr))
let arr1Json = json.unmarshal(arrStr) //等价于'json.fromJson(arrStr)'
println(arr1Json)//中缀运算符 '=@'接受两个参数
fn =@(x, y) {
return x + y * y
}
let pp = 10 =@ 5 // 使用刚才定义的'=@'中缀运算符
printf("pp=%d\n", pp) // 结果: pp=35
//前缀运算符'=^'仅接受一个参数
fn =^(x) {
return -x
}
let hh = =^10 // 使用'=^' 前缀运算符
printf("hh=%d\n", hh) // 结果: hh=-10// 这里不需要调用infile.close()
using (infile = newFile("./file.demo", "r")) {
if (infile == nil) {
println("opening 'file.demo' for reading failed, error:", infile.message())
os.exit(1)
}
let line;
let num = 0
//使用提取运算符(">>")读取文件
while (infile>>line != nil) {
num++
printf("%d %s\n", num, line)
}
}非常欢迎贡献代码。如果您对该语言进行任何更改，请通知我，我会将你放在Credits部分。
-
mayoms： 本项目基于mayoms的monkey解析器。
-
ahmetb： Linq模块基于ahmetb的linq。
-
shopspring： Decimal模块基于shopspring的decimal。
-
gorilla: Service模块基于gorilla的mux。
下载此仓库并运行./run.sh
MIT