forked from JaviCervera/vortex-cx
-
Notifications
You must be signed in to change notification settings - Fork 0
/
convert2monkey.monkey
47 lines (36 loc) · 1.23 KB
/
convert2monkey.monkey
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
'NOTE: Should be built using the stdcpp or glfw targets
'This program automatically makes the needed modifications on Vortex so it can be used on Monkey-X
Strict
Import os
Function Main:Int()
'Move to the root dir
ChangeDir("../..")
If FileType("vortex.cerberusdoc") = FILETYPE_NONE And FileType("vortex.monkeydoc") = FILETYPE_NONE Then ChangeDir("../..")
If FileType("vortex.cerberusdoc") = FILETYPE_NONE And FileType("vortex.monkeydoc") = FILETYPE_NONE Then ChangeDir("../../../..")
Print CurrentDir()
'Rename doc file
CopyFile("vortex.cerberusdoc", "vortex.monkeydoc")
'Convert root dir
ConvertDir(".")
'Convert src dir
ConvertDir("src")
'Convert src_tools dir
ConvertDir("src_tools")
'Convert tests dir
ConvertDir("tests")
'Convert demos dir
ConvertDir("demos")
Return 0
End
Function ConvertDir:Void(path:String)
Local prevPath:String = CurrentDir()
ChangeDir(path)
Local files:String[] = LoadDir(CurrentDir())
For Local file:String = Eachin files
If ExtractExt(file).ToLower() = "cxs"
Local contents:String = LoadString(file).Replace("cerberus://data/", "monkey://data/").Replace("Import cerberus.", "Import monkey.")
SaveString(contents, StripExt(file) + ".monkey")
End
Next
ChangeDir(prevPath)
End