Example #1
0
func populateServer(serv *server) []sfs.ReplicateChunkArgs {
	str := fmt.Sprintf("%s:%d", serv.addr.IP.String(), serv.addr.Port)
	log.Printf("master: PopulateServer: populating %s\n", str)
	log.Printf("master: PopulateServer: server heap state:\n%s\n", sHeap.printPresent())

	if len(chunks) == 0 {
		return nil
	}

	thisVec := new(vector.Vector)
	for _, chunk := range chunks {
		//log.Printf("master: PopulateServer: examining chunk %+v, nservers %d\n", *chunk, chunk.servers.Len())
		if chunk.servers.Len() < sfs.NREPLICAS {

			//populate chunk location list
			chunklist := make([]net.TCPAddr, chunk.servers.Len())
			for cnt1 := 0; cnt1 < chunk.servers.Len(); cnt1++ {
				chunklist[cnt1] = chunk.servers.At(cnt1).(*server).addr
			}

			//send rpc call off
			thisVec.Push(sfs.ReplicateChunkArgs{chunk.chunkID, chunklist})
		}
	}

	cnt := thisVec.Len()

	thisSlice := make([]sfs.ReplicateChunkArgs, cnt)
	for i := 0; i < cnt; i++ {
		thisSlice[i] = thisVec.Pop().(sfs.ReplicateChunkArgs) //horribly inefficient but what can you do...
	}

	return thisSlice
}
Example #2
0
func main() {
	re1 := new(vector.Vector)
	re1.Push(10)
	fmt.Print(re1.Pop())

	infcheck(5)

	re1.Push(10)
	re1.Push(20)
	//  fmt.Print(re1.Less(0,1))
	fmt.Print("\n")
	i := 10
	checkpoint(&i)
	checkTypeComp()
	//  fmt.Print(int32(10).Less(5));
}
Example #3
0
func renderSection(section *sectionElement, contextChain *vector.Vector, buf io.Writer) {
	value := lookup(contextChain, section.name)
	var context = contextChain.At(contextChain.Len() - 1).(reflect.Value)
	var contexts = new(vector.Vector)
	// if the value is nil, check if it's an inverted section
	isNil := isNil(value)
	if isNil && !section.inverted || !isNil && section.inverted {
		return
	} else {
		valueInd := indirect(value)
		switch val := valueInd; val.Kind() {
		case reflect.Slice:
			for i := 0; i < val.Len(); i++ {
				contexts.Push(val.Index(i))
			}
			if val.Len() == 0 {
				contexts.Push(context)
			}
		case reflect.Array:
			for i := 0; i < val.Len(); i++ {
				contexts.Push(val.Index(i))
			}
			if val.Len() == 0 {
				contexts.Push(context)
			}
		case reflect.Map, reflect.Struct:
			contexts.Push(value)
		default:
			contexts.Push(context)
		}
	}

	//by default we execute the section
	for j := 0; j < contexts.Len(); j++ {
		ctx := contexts.At(j).(reflect.Value)
		contextChain.Push(ctx)
		for i := 0; i < section.elems.Len(); i++ {
			renderElement(section.elems.At(i), contextChain, buf)
		}
		contextChain.Pop()
	}
}
Example #4
0
func run(ct Obj, stack *Frame, argstack vector.Vector) Obj {
	defer func() {
		if err := recover(); err != nil {
			fmt.Printf("Error in Scheme code: %v\n", err)
			stack_trace(stack)
			panic("no error recovery yet")
		}
	}()
	pc := stack.savedpc
	cycles := 0

	for {
		cycles++
		if cycles > SCHED_TICK {
			cycles = 0
			runtime.Gosched()
		}
		i := stack.code.bc[pc]
		if false {
			name := "*unknown*"
			if stack.cc != nil {
				name = stack.cc.name
			}
			fmt.Printf("\nI=#x%x op=#b%b PC=#x%x procedure=%s\nregs: ",
				i, i>>I_SHIFT, pc, name)
			for i := range stack.regs {
				Write(stack.regs[i])
				fmt.Printf(", ")
			}
			fmt.Printf("\nargstack: ")
			if argstack != nil {
				for i := 0; i < argstack.Len(); i++ {
					o := argstack.At(i)
					Write((o).(Obj))
					fmt.Printf(", ")
				}
			}
			fmt.Printf("\n")
		}

		pc += 1

		switch i >> I_SHIFT {
		// op1 format
		case FRAME:
			// TODO: use this to check that the required
			// number of arguments were passed
			continue
		case RETURN:
			v := stack.regs[i&OP1_R2]
			if stack.up == nil {
				return v
			}
			// stack_trace(stack)
			rreg := stack.rreg
			pc = stack.savedpc
			// fmt.Printf("will return to PC=#x%x in reg %d: ",pc,rreg)
			// Write(v)
			// fmt.Printf("\n")
			stack = stack.up
			stack.regs[rreg] = v
		case PUSH:
			//fmt.Printf("pushing reg %d on argument stack", i & OP1_R2)
			argstack.Push(stack.regs[i&OP1_R2])
		case MOVE:
			src := (i & OP1_R1) >> OP1_R1_SHIFT
			dst := (i & OP1_R2)
			stack.regs[dst] = stack.regs[src]
		case MAKE_VOID:
			dst := (i & OP1_R2)
			stack.regs[dst] = Void
		case CLOSURE:
			f := make([]Obj, (i&OP1_N)>>OP1_N_SHIFT)
			stack.regs[i&OP1_R2] = wrap(&Procedure{apply: aprun, free: f, code: stack.code})
		case CLOSURE_NAME:
			p := (*stack.regs[i&OP1_R2]).(*Procedure)
			name := stack.regs[(i&OP1_R1)>>OP1_R1_SHIFT]
			if is_immediate(name) {
				continue
			}
			p.name = (*name).(string)
		case CLOSURE_VAR:
			p := (*stack.regs[i&OP1_R2]).(*Procedure)
			value := stack.regs[(i&OP1_R1)>>OP1_R1_SHIFT]
			freevar := (i & OP1_N) >> OP1_N_SHIFT
			p.free[freevar] = value
		case CLOSURE_REF:
			p := stack.cc
			freevar := (i & OP1_N) >> OP1_N_SHIFT
			stack.regs[i&OP1_R2] = p.free[freevar]
		case FUNCALL:
			// stack_trace(stack)
			r := int(i & OP1_R2)
			argnum := int((i & OP1_N) >> OP1_N_SHIFT)
			_p := stack.regs[(i&OP1_R1)>>OP1_R1_SHIFT]
			if is_immediate(_p) {
				panic("Bad type to apply")
			}
			p := (*_p).(*Procedure)
			if p.apply != aprun {
				// This is a primitive.
				args := make([]Obj, argnum)
				for i := argnum - 1; i >= 0; i-- {
					args[i] = (argstack.Pop()).(Obj)
				}
				stack.regs[r] = p.apply(p, args, ct)
				continue
			}
			dst_i := p.code.bc[p.label]
			if (dst_i >> I_SHIFT) != FRAME {
				panic(fmt.Sprintf("Procedure %s at #x%x has no FRAME: #x%x",
					p.name, p.label, i))
			}
			frame := call_frame(stack, r, pc, argnum+int((dst_i&OP1_R2)))
			for i := argnum - 1; i >= 0; i-- {
				frame.regs[i] = (argstack.Pop()).(Obj)
			}
			frame.cc = p
			frame.argnum = argnum
			frame.code = p.code
			stack = frame
			pc = p.label
			// stack_trace(stack)
			//fmt.Printf("funcall to %d (%s), new frame = %v\n",pc,p.name,stack)
		case TAILCALL:
			argnum := int((i & OP1_N) >> OP1_N_SHIFT)
			_p := stack.regs[i&OP1_R2]
			if is_immediate(_p) {
				panic("Bad type to apply")
			}
			p := (*_p).(*Procedure)
			dst_i := p.code.bc[p.label]
			if (dst_i >> I_SHIFT) != FRAME {
				panic(fmt.Sprintf("Procedure at #x%x has no FRAME: #x%x",
					p.label, i))
			}
			if p.apply != aprun {
				panic("tail-call to primitive")
			}
			tail_frame(stack, argnum+int((dst_i&OP1_R2)))
			for i := argnum - 1; i >= 0; i-- {
				stack.regs[i] = (argstack.Pop()).(Obj)
			}
			stack.cc = p
			stack.argnum = argnum
			stack.code = p.code
			pc = p.label
			//fmt.Printf("tailcall to %d, new frame = %v\n",pc,stack)
		case CONSARGS:
			// Called at the very start of procedures with
			// rest arguments. n is how many variables are
			// in the formals of the procedure.
			n := int((i & OP1_N) >> OP1_N_SHIFT)
			rest := Eol
			for i := stack.argnum - 1; i >= n-1; i-- {
				rest = Cons(stack.regs[i], rest)
				stack.regs[i] = Void
			}
			stack.regs[n-1] = rest
		// op2 format
		case JUMP:
			disp := (i & OP2_N) >> OP2_N_SHIFT
			// fmt.Printf("JUMP DISPLACEMENT: %d = %d\n", disp, int17(disp))
			// convert to signed:
			abs := pc - 1 + int17(disp)
			pc = abs
		case CONST_REF:
			stack.regs[i&OP2_R] = stack.code.consts[(i&OP2_N)>>OP2_N_SHIFT]
		case CLOSURE_LABEL:
			p := (*stack.regs[i&OP2_R]).(*Procedure)
			disp := (i & OP2_N) >> OP2_N_SHIFT
			// convert to signed:
			// fmt.Printf("CLOSURE LABEL DISPLACEMENT: %x = %x = %x\n",
			// 	disp, int17(disp), pc-1+int17(disp))
			abs := pc - 1 + int17(disp)
			p.label = abs
		case BF:
			v := stack.regs[i&OP2_R]
			if v != False {
				continue
			}
			disp := (i & OP2_N) >> OP2_N_SHIFT
			// fmt.Printf("BRANCH DISPLACEMENT: %d = %d\n",
			// 	disp, int17(disp))
			// convert to signed:
			abs := pc - 1 + int17(disp)
			pc = abs
		// op3 format
		case PRIMCALL:
			r := i & OP3_R
			primitive := (i & OP3_N2) >> OP3_N2_SHIFT
			argnum := int((i & OP3_N1) >> OP3_N1_SHIFT)
			args := make([]Obj, argnum)
			// fmt.Printf("primitive: %d, argnum: %d\nargs:",primitive,argnum)
			for i := argnum - 1; i >= 0; i-- {
				args[i] = (argstack.Pop()).(Obj)
				// Write(args[i])
				// fmt.Printf(", ")
			}
			// fmt.Printf("\n")
			stack.regs[r] = evprimn(primitive, args, ct)
		case PRIMREF:
			r := i & OP3_R
			stack.regs[r] = primitive[(i&OP3_N2)>>OP3_N2_SHIFT]
		// unknown opcodes
		default:
			panic(fmt.Sprintf("Unimplemented bytecode op: #b%b (in #x%x)",
				i>>I_SHIFT, i))
		}
	}
	// Appease Go
	panic("fell off the edge in run()")
}
Example #5
0
File: regex.go Project: ypb/bwl
func (self *BasicState) AddRegex(re string, m RegexSet) (*BasicState, os.Error) {
	if m == nil {
		m = defaultMeta
	}
	// this is just the sort of horror show that lexical analysis avoids

	// stack machine
	start := self
	end := NewState()
	stack := new(vector.Vector)

	// state flags
	expr, esc, cs := false, false, false
	setstr := ""

	// go into a subexpression
	push := func() {
		rp := &regexPos{start, end}
		stack.Push(rp)
		end = NewState()
		start.AddEmptyTransition(end)
	}
	// come out of a subexpression
	pop := func() {
		rp := stack.Pop().(*regexPos)
		end.AddEmptyTransition(rp.end)
		start = rp.start
		end = rp.end
	}
	// move forward, for the purposes of concatenation
	move := func() {
		start = end
		end = NewState()
	}

	// the expression is inside an implicit ( ... )
	push()

	// parse the expression
	for _, c := range re {
		// escaped characters
		if esc {
			esc = false
			// inside a charset jobby
			if cs {
				setstr += string(c)
				continue
			}
			// check out the metachar action
			if meta, ok := m[c]; ok {
				move()
				chars, err := Charset(meta, end)
				if err != nil {
					return nil, err
				}
				start.AddEmptyTransition(chars)
				expr = true
				continue
			}
			// nothing else going on? well you escaped it for a reason
			goto add
		}
		// charsets
		if cs {
			if c == '\\' {
				esc = true
			} else if c == ']' {
				chars, err := Charset(setstr, end)
				if err != nil {
					return nil, err
				}
				start.AddEmptyTransition(chars)
				setstr = ""
				cs = false
				expr = true
			} else {
				setstr += string(c)
			}
			continue
		}
		// everything else
		switch c {
		// charsets
		case '.':
			move()
			start.AddEmptyTransition(Any(end))
			expr = true
		case '[':
			move()
			cs = true
		case ']':
			if !cs {
				return nil, os.ErrorString("trying to close unopened charset")
			}
		// grouping
		case '(':
			move()
			push()
			expr = false
		case ')':
			if stack.Len() <= 1 {
				return nil, os.ErrorString("trying to close unopened subexpr")
			}
			pop()
			expr = true
		// alternation
		case '|':
			pop()
			push()
			expr = false
		// modifiers
		case '?':
			start.AddEmptyTransition(end)
			goto check
		case '*':
			start.AddEmptyTransition(end)
			end.AddEmptyTransition(start)
			goto check
		case '+':
			end.AddEmptyTransition(start)
			goto check
		// escape character
		case '\\':
			esc = true
			expr = false
		// otherwise just add that char
		default:
			goto add
		}
		continue
		// make sure the modifier modified something
	check:
		if !expr {
			return nil, os.ErrorString("nothing to modify")
		}
		expr = false
		continue
		// add a character transition
	add:
		move()
		start.AddTransition(c, end)
		expr = true
		continue
	}

	// some final consistency checks
	if cs {
		return nil, os.ErrorString("unclosed charset")
	}
	if esc {
		return nil, os.ErrorString("invalid escape sequence")
	}
	if stack.Len() > 1 {
		return nil, os.ErrorString("unclosed subexpr")
	}

	// close the implicit brackets
	pop()

	return end, nil
}
Example #6
0
File: nodes.go Project: 8l/go-learn
// Sets multiLine to true if the binary expression spans multiple lines.
func (p *printer) binaryExpr(x *ast.BinaryExpr, prec1 int, multiLine *bool) {
	prec := x.Op.Precedence()
	if prec < prec1 {
		// parenthesis needed
		// Note: The parser inserts an ast.ParenExpr node; thus this case
		//       can only occur if the AST is created in a different way.
		p.print(token.LPAREN)
		p.expr(x, multiLine)
		p.print(token.RPAREN)
		return
	}

	// Traverse left, collect all operations at same precedence
	// and determine if blanks should be printed around operators.
	//
	// This algorithm assumes that the right-hand side of a binary
	// operation has a different (higher) precedence then the current
	// node, which is how the parser creates the AST.
	var list vector.Vector
	line := x.Y.Pos().Line
	printBlanks := prec <= token.EQL.Precedence() || needsBlanks(x.Y)
	for {
		list.Push(x)
		if t, ok := x.X.(*ast.BinaryExpr); ok && t.Op.Precedence() == prec {
			x = t
			prev := line
			line = x.Y.Pos().Line
			if needsBlanks(x.Y) || prev != line {
				printBlanks = true
			}
		} else {
			break
		}
	}
	prev := line
	line = x.X.Pos().Line
	if needsBlanks(x.X) || prev != line {
		printBlanks = true
	}

	// Print collected operations left-to-right, with blanks if necessary.
	ws := indent
	p.expr1(x.X, prec, multiLine)
	for list.Len() > 0 {
		x = list.Pop().(*ast.BinaryExpr)
		prev := line
		line = x.Y.Pos().Line
		if printBlanks {
			if prev != line {
				p.print(blank, x.OpPos, x.Op)
				// at least one line break, but respect an extra empty line
				// in the source
				if p.linebreak(line, 1, 2, ws, true) {
					ws = ignore
					*multiLine = true
				}
			} else {
				p.print(blank, x.OpPos, x.Op, blank)
			}
		} else {
			if prev != line {
				panic("internal error")
			}
			p.print(x.OpPos, x.Op)
		}
		p.expr1(x.Y, prec, multiLine)
	}
	if ws == ignore {
		p.print(unindent)
	}
}
Example #7
0
File: main.go Project: nunb/GoForth
func parse_forth(dat string, DataStack *vector.Vector) {
	L := DataStack.Len()

	switch strings.TrimSpace(string(dat)) {
	case "":
	case "<cr>":
		return
	case "t":
		//check the DataStack size using the popped value
		//	if it passes, then the program continues
		minimum := int(DataStack.Pop().(float32))
		if DataStack.Len() < minimum {
			log.Println("DataStack has not enough minerals (values)")
		}
	case ".":
		log.Println(DataStack.Pop())
	case "0SP":
		DataStack.Cut(0, L)
	case ".S":
		log.Println(DataStack)
	case "2/":
		DataStack.Push(DataStack.Pop().(float32) / 2)
	case "2*":
		DataStack.Push(DataStack.Pop().(float32) * 2)
	case "2-":
		DataStack.Push(DataStack.Pop().(float32) - 2)
	case "2+":
		DataStack.Push(DataStack.Pop().(float32) + 2)
	case "1-":
		DataStack.Push(DataStack.Pop().(float32) - 1)
	case "1+":
		DataStack.Push(DataStack.Pop().(float32) + 1)
	case "DUP":
		DataStack.Push(DataStack.Last())
	case "?DUP":
		if DataStack.Last().(float32) != 0 {
			DataStack.Push(DataStack.Last().(float32))
		}
	case "PICK":
		number := int(DataStack.Pop().(float32))

		if number < L {
			DataStack.Push(DataStack.At(L - 1 - number).(float32))
		} else {
			log.Fatal("picking out of stack not allowed. Stack Length: " + string(L) + ". Selecting: " + string(number) + ".")
			return
		}
	case "TUCK":
		DataStack.Insert(L-2, int(DataStack.Last().(float32)))
	case "NIP":
		DataStack.Delete(L - 2)
	case "2DROP":
		DataStack.Pop()
		DataStack.Pop()
	case "2DUP":
		DataStack.Push(DataStack.At(L - 2))
		DataStack.Push(DataStack.At(DataStack.Len() - 2))
	case "DROP":
		DataStack.Pop()
	case "OVER":
		DataStack.Push(DataStack.At(L - 2))
	case "SWAP":
		l := DataStack.Len()
		DataStack.Swap(l-2, l-1)
	case "*":
		num1 := DataStack.Pop().(float32)
		num2 := DataStack.Pop().(float32)
		DataStack.Push(num1 * num2)
	case "+":
		num1 := DataStack.Pop().(float32)
		num2 := DataStack.Pop().(float32)
		DataStack.Push(num1 + num2)
	case "-":
		num1 := DataStack.Pop().(float32)
		num2 := DataStack.Pop().(float32)
		DataStack.Push(num2 - num1)
	case "/":
		num1 := DataStack.Pop().(float32)
		num2 := DataStack.Pop().(float32)
		DataStack.Push(num2 / num1)
	case "-ROT":
		DataStack.Swap(L-1, L-2)
		DataStack.Swap(L-2, L-3)
	case "ROT":
		DataStack.Swap(L-3, L-2)
		DataStack.Swap(L-2, L-1)
	case "2OVER":
		DataStack.Push(DataStack.At(L - 4))
		DataStack.Push(DataStack.At(DataStack.Len() - 4))
	case "2SWAP":
		DataStack.Swap(L-4, L-2)
		DataStack.Swap(L-3, L-1)
	case "EMIT":
		log.Println(string([]byte{uint8(DataStack.Last().(float32))}))
	default:
		val, ok := strconv.Atof32(dat)

		if ok == nil {
			DataStack.Push(val)
		} else {
			log.Println(ok)
			log.Fatalln("error, unknown token \"" + dat + "\"")
		}
	}
}
Example #8
0
// returns a topologically sorted vector of Node's
func TopSort(dag vec.Vector, s byte) vec.Vector {

	sortDag := new(vec.Vector)
	tempDag := new(vec.Vector)
	destDag := new(vec.Vector)
	setVec := new(vec.Vector)

	for i := 0; i < dag.Len(); i++ {
		tempDag.Push((dag.At(i).(*par.Node)).Copy())
		destDag.Push((dag.At(i).(*par.Node)).Copy())
	}
	// t-level gets regular top sort
	if s == 't' {
		setVec.Push(tempDag.At(0))
		destDag.Delete(0)
		for i := setVec.Len(); i > 0; i = setVec.Len() {
			n := (setVec.Pop().(*par.Node)).Copy()
			sortDag.Push(n)
			for j := 0; j < (n.Cl).Len(); j++ {
				c := ((n.Cl).At(j).(*par.Rel)).Id
				for k := 0; k < destDag.Len(); k++ {
					if (destDag.At(k).(*par.Node)).Id == c {
						for l := 0; l < (destDag.At(k).(*par.Node)).Pl.Len(); l++ {
							if (destDag.At(k).(*par.Node)).Pl.At(l).(*par.Rel).Id == n.Id {
								(destDag.At(k).(*par.Node)).Pl.Delete(l)
								break
							}
						}
					}
				}
			}
			for j := 0; j < destDag.Len(); j++ {
				if (destDag.At(j).(*par.Node)).Pl.Len() == 0 {
					c := (destDag.At(j).(*par.Node)).Id
					for k := 0; k < tempDag.Len(); k++ {
						if (tempDag.At(k).(*par.Node)).Id == c {
							setVec.Push(tempDag.At(k))
							break
						}
					}
					destDag.Delete(j)
					j--
				}
			}
		}
		// b-level gets reverse top sort
	} else if s == 'b' {
		setVec.Push(tempDag.At(tempDag.Len() - 1))
		destDag.Delete(destDag.Len() - 1)
		for i := setVec.Len(); i > 0; i = setVec.Len() {
			n := (setVec.Pop().(*par.Node)).Copy()
			sortDag.Push(n)
			for j := 0; j < (n.Pl).Len(); j++ {
				c := ((n.Pl).At(j).(*par.Rel)).Id
				for k := 0; k < destDag.Len(); k++ {
					if (destDag.At(k).(*par.Node)).Id == c {
						for l := 0; l < (destDag.At(k).(*par.Node)).Cl.Len(); l++ {
							if (destDag.At(k).(*par.Node)).Cl.At(l).(*par.Rel).Id == n.Id {
								(destDag.At(k).(*par.Node)).Cl.Delete(l)
								break
							}
						}
					}
				}
			}
			for j := 0; j < destDag.Len(); j++ {
				if (destDag.At(j).(*par.Node)).Cl.Len() == 0 {
					c := (destDag.At(j).(*par.Node)).Id
					for k := 0; k < tempDag.Len(); k++ {
						if (tempDag.At(k).(*par.Node)).Id == c {
							setVec.Push(tempDag.At(k))
							break
						}
					}
					destDag.Delete(j)
					j--
				}
			}
		}
	} else {
		fmt.Printf("Error")
	}

	return sortDag.Copy()

}