Implemented infinite loops

src/build/Function.go

@@ -23,6 +23,7 @@ type Function struct {
 	Assembler asm.Assembler
 	CPU       cpu.CPU
 	Error     error
+	count     struct{ loop int }
 }
 
 // Compile turns a function into machine code.
@@ -115,104 +116,6 @@ func (f *Function) CompileInstruction(line token.List) error {
 	return errors.New(&errors.InvalidInstruction{Instruction: expr.Token.Text()}, f.File, expr.Token.Position)
 }
 
-// CompileKeyword compiles an instruction that starts with a keyword.
-func (f *Function) CompileKeyword(line token.List) error {
-	switch line[0].Text() {
-	case "return":
-		if len(line) > 1 {
-			value := expression.Parse(line[1:])
-			defer value.Close()
-			// TODO: Set the return value
-		}
-
-		f.Assembler.Return()
-
-	case "loop":
-		blockStart := line.IndexKind(token.BlockStart) + 1
-		blockEnd := line.LastIndexKind(token.BlockEnd)
-
-		if blockStart == -1 {
-			return errors.New(errors.MissingBlockStart, f.File, line[0].End())
-		}
-
-		if blockEnd == -1 {
-			return errors.New(errors.MissingBlockEnd, f.File, line[len(line)-1].End())
-		}
-
-		return f.CompileTokens(line[blockStart:blockEnd])
-
-	default:
-		return errors.New(&errors.KeywordNotImplemented{Keyword: line[0].Text()}, f.File, line[0].Position)
-	}
-
-	return nil
-}
-
-// CompileVariableDefinition compiles a variable definition.
-func (f *Function) CompileVariableDefinition(expr *expression.Expression) error {
-	if len(expr.Children) < 2 {
-		return errors.New(errors.MissingAssignValue, f.File, expr.LastChild().Token.End())
-	}
-
-	name := expr.Children[0].Token.Text()
-
-	if f.identifierExists(name) {
-		return errors.New(&errors.VariableAlreadyExists{Name: name}, f.File, expr.Children[0].Token.Position)
-	}
-
-	value := expr.Children[1]
-
-	err := value.EachLeaf(func(leaf *expression.Expression) error {
-		if leaf.Token.Kind == token.Identifier && !f.identifierExists(leaf.Token.Text()) {
-			return errors.New(&errors.UnknownIdentifier{Name: leaf.Token.Text()}, f.File, leaf.Token.Position)
-		}
-
-		return nil
-	})
-
-	if err != nil {
-		return err
-	}
-
-	reg, exists := f.CPU.FindFree()
-
-	if !exists {
-		panic("no free registers")
-	}
-
-	f.ExpressionToRegister(value, reg)
-	f.CPU.Use(reg)
-
-	f.Variables[name] = &Variable{
-		Name:     name,
-		Register: reg,
-	}
-
-	return nil
-}
-
-// CompileFunctionCall compiles a function call.
-func (f *Function) CompileFunctionCall(expr *expression.Expression) error {
-	funcName := expr.Children[0].Token.Text()
-	parameters := expr.Children[1:]
-
-	for i, parameter := range parameters {
-		err := f.ExpressionToRegister(parameter, f.CPU.Syscall[i])
-
-		if err != nil {
-			return err
-		}
-	}
-
-	if funcName == "syscall" {
-		f.Assembler.Syscall()
-	} else {
-		f.Assembler.Call(funcName)
-	}
-
-	return nil
-}
-
 // ExpressionToRegister moves the result of an expression into the given register.
 func (f *Function) ExpressionToRegister(root *expression.Expression, register cpu.Register) error {
 	if root.IsLeaf() {
@@ -285,13 +188,3 @@ func (f *Function) identifierExists(name string) bool {
 	_, exists := f.Variables[name]
 	return exists
 }
-
-// isVariableDefinition returns true if the expression is a variable definition.
-func isVariableDefinition(expr *expression.Expression) bool {
-	return expr.Token.Kind == token.Operator && expr.Token.Text() == ":="
-}
-
-// isFunctionCall returns true if the expression is a function call.
-func isFunctionCall(expr *expression.Expression) bool {
-	return expr.Token.Kind == token.Operator && expr.Token.Text() == "λ"
-}