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
|
// e:2017.05.15
//Dirhead=getdirhead();
if(iswindows(),
Dirlib=Dirhead+"\ketlib";
DirlibC=Dirhead+"\ketlibC";
Dirbin=Dirhead+"\ketbin";
Dirwork=Dirhead+"\ketwork";
Dirwork=replace(Dirwork,"/","\");
Libname=Dirlib+"\ketpicsciL5";
Batparent="\kc.bat";
if(indexof(Shellfile,".")==0,Shellfile=Shellfile+".bat");
if(indexof(Shellfile,"/")+indexof(Shellfile,"\")==0 ,
Batchild=Dirbin+"\"+Shellfile;
,
Batchild=Shellfile;
);
);
if(ismacosx(),
Dirlib=Dirhead+"/ketlib";
DirlibC=Dirhead+"/ketlibC";
Dirbin=Dirhead+"/ketbin";
Dirwork=Dirhead+"/ketwork";
Dirwork=replace(Dirwork,"\","/");
Libname=Dirlib+"/ketpicsciL5";
Shellparent="/kc.sh";
if(isstring(Shellfile),
if(indexof(Shellfile,".")==0,Shellfile=Shellfile+".sh");
if(indexof(Shellfile,"/")==0,
Shellchild=Dirbin+"/"+Shellfile;
,
Shellchild=Shellfile;
);
,
Shellfile="";
);
if(!isexists(Dirwork,""),
println(Dirwork+" not exist");
,
if(!iskcexists(Dirwork),
setdirectory(Dirwork);
SCEOUTPUT = openfile(Shellparent);
closefile(SCEOUTPUT);
println(Shellparent+" generated");
);
println(setexec(Dirwork,Shellparent));
);
Mackc="sh";
// Mackc="open";
);
if(islinux(),
Dirlib=Dirhead+"/ketlib";
DirlibC=Dirhead+"/ketlibC";
Dirbin=Dirhead+"/ketbin";
Dirwork=Dirhead+"/ketwork";
Dirwork=replace(Dirwork,"\","/");
Libname=Dirlib+"/ketpicsciL5";
Shellparent="/kc.sh";
if(indexof(Shellfile,".")==0,Shellfile=Shellfile+".sh");
if(indexof(Shellfile,"/")==0,
Shellchild=Dirbin+"/"+Shellfile;
,
Shellchild=Shellfile;
);
);
setdirectory(Dirlib);
import("ketcindylibbasic1.cs");
import("ketcindylibbasic2.cs");
import("ketcindylibout.cs");
import("ketcindylib3d.cs");
import("ketcindylibmv.cs");
setdirectory(Dirhead);
|