/
main.go
executable file
·161 lines (145 loc) · 4.15 KB
/
main.go
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
package main
import (
"flag"
"fmt"
"io/ioutil"
"os"
"runtime"
"runtime/debug"
"runtime/pprof"
"github.com/anssihalmeaho/funl/extensions"
"github.com/anssihalmeaho/funl/funl"
"github.com/anssihalmeaho/funl/std"
)
//go:generate go run ./stdfun/stdfun_generator.go
const doProfiling = false
const doStackMeas = false
const doMemMeas = false
func main() {
extensions.CallMe()
if doProfiling {
f, err := os.Create("fup.prof")
if err != nil {
fmt.Println("Error in profile setup: " + err.Error())
}
pprof.StartCPUProfile(f)
defer pprof.StopCPUProfile()
}
_, goBTset := os.LookupEnv("FUNLGOBACKTRACE")
defer func() {
if r := recover(); r != nil {
fmt.Println("Runtime error: ", r)
if goBTset {
debug.PrintStack()
}
}
}()
var err error
var fargs string
flag.StringVar(&fargs, "args", "", fmt.Sprintf("arguments for %s", os.Args[0]))
var name string
flag.StringVar(&name, "name", "main", "function or procedure to be evaluated (main is default)")
var modName string
flag.StringVar(&modName, "mod", "main", "module (namespace) to be evaluated (main is default)")
replPtr := flag.Bool("repl", false, "starts REPL")
silentPtr := flag.Bool("silent", false, "does not print result of evaluation when returning from program (not silent is default)")
noPrintPtr := flag.Bool("noprint", false, "prevents printing from functions (by print-operator)")
doRTEPrintPtr := flag.Bool("rteprint", false, "enables printing RTE location and scope")
packagePtr := flag.Bool("package", false, "source file is package")
var evalStr string
flag.StringVar(&evalStr, "eval", "", "evaluate expression")
var importPackageName string
flag.StringVar(&importPackageName, "import", "", "package from which imports are done")
flag.Parse()
if *noPrintPtr {
funl.PrintingDisabledInFunctions = true
}
if *doRTEPrintPtr {
funl.PrintingRTElocationAndScopeEnabled = true
}
var parsedArgs []*funl.Item
if fargs != "" {
parsedArgs, err = funl.GetArgs(fargs)
if err != nil {
fmt.Println("Error in parsing arguments: ", err)
return
}
}
var skipSrcFile bool
if modName != "main" {
skipSrcFile = true
}
var content []byte
var srcFileName string
if !skipSrcFile {
if *replPtr {
srcFileName = "repl.fnl"
}
if evalStr != "" {
content = []byte(fmt.Sprintf("ns main main = proc() %s end endns", evalStr))
name = "main"
} else {
others := flag.Args()
if srcFileName == "" {
if len(others) != 1 {
fmt.Println("Source file not given correctly")
return
}
srcFileName = others[0]
}
if srcFileName == "repl.fnl" {
content = []byte(funl.GetReplCode())
} else if *packagePtr {
// none
} else {
content, err = ioutil.ReadFile(srcFileName)
if err != nil {
fmt.Println(fmt.Sprintf("Source file reading failed: %v", err))
return
}
}
}
} else {
srcFileName = modName
var argStr string
if fargs != "" {
argStr = "," + fargs
}
content = []byte(fmt.Sprintf("ns main import %s main = proc() call(%s.%s%s) end endns", modName, modName, name, argStr))
name = "main"
}
var retValue funl.Value
if *packagePtr {
retValue, err = funl.FunlMainWithPackage(parsedArgs, name, srcFileName, std.InitSTD)
} else if importPackageName != "" {
retValue, err = funl.FunlMainWithPackImport(importPackageName, string(content), parsedArgs, name, srcFileName, std.InitSTD)
} else {
retValue, err = funl.FunlMainWithArgs(string(content), parsedArgs, name, srcFileName, std.InitSTD)
}
if err != nil {
fmt.Println(fmt.Sprintf("Error: %v", err))
return
}
if !*replPtr {
if !*silentPtr {
fmt.Println(fmt.Sprintf("%#v", retValue))
}
}
if doStackMeas {
var mems runtime.MemStats
runtime.ReadMemStats(&mems)
fmt.Println("in use : ", mems.StackInuse)
fmt.Println("stack sys: ", mems.StackSys)
}
if doMemMeas {
var m runtime.MemStats
runtime.ReadMemStats(&m)
fmt.Printf("\nAlloc = %v MB", transformBytesToMegaBytes(m.Alloc))
fmt.Printf("\tTotalAlloc = %v MB", transformBytesToMegaBytes(m.TotalAlloc))
fmt.Printf("\tSys = %v MB", transformBytesToMegaBytes(m.Sys))
fmt.Printf("\tNumGC = %v\n", m.NumGC)
}
}
func transformBytesToMegaBytes(b uint64) uint64 {
return b / 1024 / 1024
}