/* ----------------------------------------------------------------------------- This source file is part of OpenSpace3D For the latest info, see http://www.openspace3d.com Copyright (c) 2012 I-maginer This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA, or go to http://www.gnu.org/copyleft/lesser.txt ----------------------------------------------------------------------------- */ /* applet file generator origin by Sylvain Huet - oct 2003 Bastien Bourineau - june 2009 */ struct FtpSetting= [ AFTP_telnet : TELNET, AFTP_trmTimeout : Timer, AFTP_sDataCmd : S, AFTP_sIp : S, AFTP_sHost : S, AFTP_iport : I, AFTP_sLogin : S, AFTP_sPass : S, AFTP_sDir : S, AFTP_sAppDir : S, AFTP_sUrl : S, AFTP_bWebIn : I, AFTP_lFiles : [S r1], AFTP_lDirs : [S r1], AFTP_wLogFile : W, AFTP_ctrlWindow : EdWindow, AFTP_ctrlHost : EdControl, AFTP_ctrlPort : EdControl, AFTP_ctrlLogin : EdControl, AFTP_ctrlPass : EdControl, AFTP_ctrlRoot : EdControl, AFTP_ctrlDir : EdControl, AFTP_ctrlWww : EdControl, AFTP_ctrlInWeb : EdControl, AFTP_ctrlUpload : EdControl, AFTP_ctrlLog : EdControl, AFTP_ctrlOk : EdControl, AFTP_ctrlCancel : EdControl, AFTP_bError : I, AFTP_iState : I, AFTP_iLogged : I ] mkFtpSetting ;; var sMkAppletPath = "os3dlib/res/web/";; var sMkAppletTmpPath = "tmp/mkapplet/";; typeof winMkApplet = EdWindow;; var iTimeOut = 60000;; var iTimeOutCmd = 10000;; var iOS3DPackMaxZipBuffer = 268435456;; var sExportDirectory = "export";; var lConfidentialMarks = "ftpHost"::"ftpPort"::"ftpLogin"::"ftpRoot"::"ftpDir"::"ftpWWW"::"ftpIntegrated"::"ftpUpload"::nil;; proto sendFtpCommand = fun[FtpSetting S I] I;; proto ftpConnect = fun[FtpSetting] I;; proto getMkAppletXmlResources = fun [S [S r1]] [[S r1] [S r1] [S r1]];; proto getProjectSetting = fun [S] S;; proto getProjectSettingDef = fun [S S] S;; proto setProjectSetting = fun [S S] I;; proto getProjectVersion = fun [] S;; proto mkAppletAddLog = fun [FtpSetting S] I;; proto mkPakAll = fun [FtpSetting [S r1] W fun [] I] I;; proto mkWebPakAll = fun [EdControl [S r1] W fun [] I] I;; // protos Android proto makeAndroidAppBundle = fun [S S] [P S];; proto signAndroidAppBundle = fun [P P S S] [P S];; proto encryptAndroidSigninKey = fun [P S S P] [P S];; proto makeAndroidSigninKey = fun [W S S [[S S] r1]] [P S];; proto makeAndroidAPK = fun [S S] [P S];; proto signAndroidAPK = fun [P P S S] [P S];; proto installAndroidAPK = fun [P] I;; proto mkOS3DPakAll = fun [[S r1] W W fun [] I] I;; fun checkPlatform(file)= _addPartition "./" 2; let _checkpack file -> pfile in let if (pfile == nil) then 0 else 1 -> ret in ( _removeLastPartition; ret; );; var lPlatformPlugins = ["win" "androiddeployer"::"emotiv"::"eyetracking"::"glove"::"joypad"::"leapmotion"::"lib2d24":: "mmedia24"::"myo"::"neurosky"::"nonin"::"oculus"::"openniscol"::"optitrack":: "respirationbelt"::"rpigpio"::"s3drudder"::"scolsql"::"sensor"::"serialio"::"sopenvr"::"sopenxr":: "spacepointfusion"::"spdf"::"speech"::"sqlite3"::"stuio"::"svrpn"::"tobii"::"usbuirt":: "vuzix"::"wiimote"::"wsystem"::"x10"::"xtension"::"zoogl24"::nil]:: ["linux" "joypad"::"rpigpio"::"sensor"::"serialio"::"spdf"::"sqlite3"::"stuio"::"svrpn"::"speech"::nil]:: ["android" "joypad"::"sensor"::"serialio"::"spdf"::"sqlite3"::"svrpn"::"soculusmobile"::"sopenxr"::"speech"::nil]:: ["ios" "joypad"::"sensor"::"sqlite3"::nil]:: ["macOS" "joypad"::"sensor"::"serialio"::"spdf"::"sqlite3"::"stuio"::"svrpn"::"speech"::nil]:: nil;; var lPluginsBase = "libos2d24"::"so3engine"::"security"::"bitmaptoolkit"::"audio"::"scurl"::"sxml"::nil;; fun apply_dep_replace(list, old, new)= if list==nil then nil else let list -> [first next] in if !strcmp first old then new::next else first::apply_dep_replace next old new;; fun apply_dep_replace_list(list, dlist)= if dlist==nil then list else let dlist -> [[new old] next] in apply_dep_replace_list (apply_dep_replace list old new) next;; /* ********************************************************************************************* / PAK Functions / ********************************************************************************************* */ fun copyFileContentOpt(from, to, case)= if (((_checkpack from) == nil) || (to == nil)) then nil else let getFileExt from -> ext in if (!strcmpi ext "xos") then //test for xos file and remove private content ( let XMLload from -> xmlstr in ( let XMLgetMarkByValue xmlstr "project" -> srcprjmark in let XMLgetMarkByValueFromMarkSons srcprjmark "setting" -> srcsettingmark in let sizelist lConfidentialMarks -> size in let 0 -> i in ( while (i < size) do ( let nth_list lConfidentialMarks i -> key in let XMLgetMarkByValueFromMarkSons srcsettingmark key -> mark in if (mark == nil) then nil else XMLdelMark xmlstr mark; set i = i + 1; ); ); if (case) then _storepack2 XMLserializeZipped xmlstr to else _storepack XMLserializeZipped xmlstr to; ); ) else ( if (!case) then ( _CopyFile (_checkpack from) (_getmodifypack to); //addLogMessage strcatn "Copy file : "::from::" to "::to::nil; /* let _getmodifypack to -> tow in let _FILEOpen _channel _checkpack from -> file in let _FILESize file -> filesize in if (file == nil) then nil else ( while ((_FILETell file) < filesize) do _appendpack (_FILERead file 65534) tow; _FILEClose file; ); */ 0; ) else ( //_getmodifypack is case insensivity only //addLogMessage strcatn "Copy file with case : "::from::" to "::to::nil; _storepack2 (_getpack _checkpack from) to; 0; ); ); 0;; fun copyFileContentC(from, to)= copyFileContentOpt from to 1;; fun copyFileContent(from, to)= copyFileContentOpt from to 0;; fun getFileContent(file)= //test for xos file and remove private content let getFileExt file -> ext in if (!strcmpi ext "xos") then ( let XMLload file -> xmlstr in ( let XMLgetMarkByValue xmlstr "project" -> srcprjmark in let XMLgetMarkByValueFromMarkSons srcprjmark "setting" -> srcsettingmark in let sizelist lConfidentialMarks -> size in let 0 -> i in ( while (i < size) do ( let nth_list lConfidentialMarks i -> key in let XMLgetMarkByValueFromMarkSons srcsettingmark key -> mark in if (mark == nil) then nil else XMLdelMark xmlstr mark; set i = i + 1; ); ); XMLserializeZipped xmlstr; ); ) else ( _getpack _checkpack file; );; fun mkDTime(ttime)= let ctime ttime -> ftime in let substr ftime 4 3 -> mounth in let substr ftime 8 2 -> num in let substr ftime 20 4 -> an in let substr ftime 11 2 -> hour in let substr ftime 14 2 -> minutes in let substr ftime 17 2 -> sec in ( let "Jan"::"Feb"::"Mar"::"Apr"::"May"::"Jun"::"Jul"::"Aug"::"Sep"::"Oct"::"Nov"::"Dec"::nil -> emounth in let "01"::"02"::"03"::"04"::"05"::"06"::"07"::"08"::"09"::"10"::"11"::"12"::nil -> fmounth in let 0 -> ok in let 0 -> ct in ( while (ok==0) do ( if (!strcmp mounth nth_list emounth ct) then ( set mounth = nth_list fmounth ct; set ok = 1; ) else set ct = ct+1; ); ); strcatn num::"/"::mounth::"/"::an::" "::hour::":"::minutes::":"::sec::nil; );; fun mkReadFileLine(file)= let "" -> buff in ( while (((strfind "\n" buff 0) == nil) && ((_FILETell file) < (_FILESize file))) do ( set buff = strcat buff (_FILERead file 1); ); buff; );; //TODO add APPROTDIR in XOS //TODO rewrite material / shaders scripts paths fun relocateOS3DProject(path, ppath, npath)= let (_checkpack path) -> pfile in let _getpack pfile -> fcont in let if (!strcmp "ZXML" (substr fcont 0 4)) then 1 else 0 -> iszipped in let if iszipped then unzip (substr fcont 4 (strlen fcont)-4) else fcont -> fcont in let strreplacei fcont ppath npath -> ndata in let strreplacei ndata strtoweb ppath strtoweb npath -> ndata in let if iszipped then strcat "ZXML" zip ndata else ndata -> content in _storepack content path; 0;; fun readPakHeader(xmlpath, filecont)= let (strfind "#******#" filecont 0) + 8 -> namepos in let strfind "|" filecont namepos -> nextpos in let substr filecont namepos (nextpos - namepos) -> filename in let if (!strcmp "|!Z|" (substr filecont nextpos 4)) then ( set nextpos = strfind "|" filecont (nextpos + 1); 0; ) else if (!strcmp "|Z|" (substr filecont nextpos 3)) then ( set nextpos = strfind "|" filecont (nextpos + 1); 1; ) else 1 -> iszip in let strfind "|" filecont (nextpos + 1) -> nextsignpos in let substr filecont (nextpos + 1) (nextsignpos - (nextpos + 1)) -> strsign in let strfind "|" filecont (nextsignpos + 1) -> nextsizepos in let atoi substr filecont (nextsignpos + 1) (nextsizepos - (nextsignpos + 1)) -> strsize in let strreplace filename "APPROOTDIR/" "" -> filename in [filename iszip strsign strsize nextsizepos];; fun mkUnpakProject(path)= // date pos let _FILEOpen _channel _checkpack path -> file in let _FILERead file 19 -> date in let _FILESize file -> filesize in let "" -> filecont in if (file == nil) then nil else ( _FILESeek file 1 1; //remove \n let strtrim mkReadFileLine file -> xmlpath in let nil -> projectContent in let 0 -> skip in ( while ((_FILETell file) < filesize) do ( set filecont = strcat filecont (_FILERead file 65534); set skip = 0; while (!skip && ((strfind "#******#" filecont 0) != nil)) do ( let readPakHeader xmlpath filecont -> [filename iszip strsign strsize datapos] in let strreplace filename "APPBASEDIR" APPBASEDIR -> filename in let substr filecont (datapos + 1) strsize -> thisfile in let strlen thisfile -> datalen in ( if (datalen != strsize) then ( set skip = 1; ) else ( set filecont = substr filecont datapos + strsize + 1 (strlen filecont); if (!strcmp xmlpath filename) then ( set projectContent = if (iszip) then (unzip thisfile) else thisfile; 0; ) else ( if (!strcmp (_fileSign _checkpack filename) strsign) then nil else _storepack (if (iszip) then (unzip thisfile) else thisfile) filename; _freememory; 0; ); ); ); ); ); _FILEClose file; projectContent; ); );; fun readOS3DPakHeader(xmlpath, basepath, filecont)= let (strfind "#******#" filecont 0) + 8 -> namepos in let strfind "|" filecont namepos -> nextpos in let substr filecont namepos (nextpos - namepos) -> filename in let if (!strcmp "|!Z|" (substr filecont nextpos 4)) then ( set nextpos = strfind "|" filecont (nextpos + 1); 0; ) else if (!strcmp "|Z|" (substr filecont nextpos 3)) then ( set nextpos = strfind "|" filecont (nextpos + 1); 1; ) else 1 -> iszip in let strfind "|" filecont (nextpos + 1) -> nextsignpos in let substr filecont (nextpos + 1) (nextsignpos - (nextpos + 1)) -> strsign in let strfind "|" filecont (nextsignpos + 1) -> nextsizepos in let atoi (substr filecont (nextsignpos + 1) (nextsizepos - (nextsignpos + 1))) -> strsize in let getFileDirectory filename -> fdir in let getFileExt filename -> ext in let !strcmp (strcat "APPROOTDIR/" xmlpath) filename -> isproj in let strreplace filename "APPROOTDIR/" basepath -> filename in [filename ext iszip strsign strsize nextsizepos isproj fdir];; fun mkStoreOS3DPakFile(filename, ext, iszip, fdir, basepath, data)= //addLogMessage strcatn "Store XOS: "::filename::" Ext: "::ext::" base path: "::basepath::nil; _storepack (if (iszip) then (unzip data) else data) filename; if ((strcmpi ext "XOS") || (!strcmp basepath "")) then nil else ( relocateOS3DProject filename (strcat fdir "/") (strcatn basepath::fdir::"/"::nil); relocateOS3DProject filename "assets/" (strcat basepath "assets/"); ); 0;; // mode 0 for all packages, 1 for project resources only fun mkUnpakOS3DProject(filep, basepath, mode)= // date pos let if (basepath == nil) then "" else basepath -> basepath in let _FILEOpen _channel filep -> file in if (file == nil) then nil else let _FILERead file 19 -> date in let _FILESize file -> filesize in let "" -> filecont in ( _FILESeek file 1 1; //remove \n let strtrim mkReadFileLine file -> xmlpath in let nil -> projectFile in let 0 -> skip in let 0 -> readsize in let nil -> curfile in let nil -> curext in let nil -> cursign in let 0 -> curzip in let 0 -> curproj in let nil -> curfdir in let 0 -> cursize in let 0 -> skipfile in ( while ((_FILETell file) < filesize) do ( set filecont = strcat filecont (_FILERead file 65534); set skip = 0; if (curzip || (cursize == 0) || (curfile == nil)) then nil else ( let substr filecont 0 (cursize - readsize) -> data in let strlen data -> datalen in ( if (skipfile) then nil else ( //addLogMessage strcat "store next pak :" curfile; //TODO check if this is an xos file, use project relocation of resources paths _appendpack data _getmodifypack curfile; ); set readsize = readsize + datalen; if (readsize != cursize) then nil else ( set readsize = 0; set curfile = nil; set curext = nil; set curzip = 0; set cursign = nil; set cursize = 0; set curproj = 0; set curfdir = nil; ); set filecont = substr filecont datalen (strlen filecont); ); ); //do not search new file until we get all data while (!skip && ((strfind "#******#" filecont 0) != nil)) do ( let readOS3DPakHeader xmlpath basepath filecont -> [filename ext iszip strsign strsize datapos isproj fdir] in let substr filecont (datapos + 1) strsize -> thisfile in let strlen thisfile -> datalen in ( let strreplace filename "APPBASEDIR" APPBASEDIR -> cmpname in if ((filename != nil) && (datapos != nil) && (strcmp cmpname curfile)) then ( set curext = ext; set curzip = iszip; set cursign = strsign; set cursize = strsize; set curproj = isproj; set curfdir = fdir; set readsize = datalen; let (_fileSign _checkpack cmpname) -> lsign in ( //addLogMessage strcatn "Unpack sign :"::cmpname::" local: "::lsign::" dist: "::cursign::nil; if ((mode && ((strfindi "APPBASEDIR" filename 0) != nil)) || (!strcmp lsign cursign)) then set skipfile = 1 else set skipfile = 0; ); set curfile = cmpname; //addLogMessage strcat "new unpak found: " curfile; ); if ((curfile == nil) || (datalen != cursize)) then ( set skip = 1; if (iszip || (curfile == nil)) then nil else ( set filecont = substr filecont datapos + cursize + 1 (strlen filecont); //init data if (skipfile) then nil else ( let _getmodifypack curfile -> wfile in let _createpack "" wfile -> _ in //force empty _appendpack thisfile wfile; //addLogMessage strcat "store init pak: " curfile; ); if (!curproj) then nil else set projectFile = curfile; ); 0; ) else ( //addLogMessage strcat "clear pak packet: " curfile; set filecont = substr filecont datapos + cursize + 1 (strlen filecont); if (skipfile) then ( //addLogMessage strcat "store pak is same packet: " curfile; 0; ) else ( //addLogMessage strcatn "store is zip: "::curfile::" > "::(itoa curzip)::nil; if (cursize != 0) then ( mkStoreOS3DPakFile curfile curext curzip curfdir basepath thisfile; 0; ) else ( let getPathFile _PtoScol filep "" -> [path _] in let getPathFile curfile "" -> [_ fname] in _CopyFile (_checkpack strcatn path::"/"::fname::nil) (_getmodifypack curfile); 0; ); ); if (!curproj) then nil else set projectFile = curfile; set readsize = 0; set curfile = nil; set curext = nil; set curzip = 0; set cursign = nil; set cursize = 0; set curproj = 0; set curfdir = nil; _freememory; 0; ); ); ); ); _FILEClose file; projectFile; ); );; fun cbPakTrm(trm, wp)= let wp -> [ftpstr l wfile cbComplete] in ( _deltimer trm; _freememory; //manage cancel if (winMkApplet == nil) then nil else mkPakAll ftpstr l wfile cbComplete; ); 0;; fun mkPakAll(ftpstr, l, wfile, cbComplete)= if (l == nil) then ( exec cbComplete with []; 0; ) else ( let l->[name nxt] in let getFileContent name -> content in ( let zip content -> ziped in let if (!strcmpi (substr name 0 (strlen APPBASEDIR)) APPBASEDIR) then strcat "APPBASEDIR" (substr name (strlen APPBASEDIR) (strlen name)) else name -> mname in _appendpack strcatn "#******#"::mname::"|"::(_getlongname content "" "#")::"|"::(itoa (strlen ziped))::"|"::ziped::nil wfile; _freememory; mkAppletAddLog ftpstr strcatn "Pack "::name::nil; // use a timer to allow the garbage collector to free some memory in the loop _rfltimer _starttimer _channel 5 @cbPakTrm [ftpstr nxt wfile cbComplete]; 0; ); ); 0;; fun mkPakProject(ftpstr, lfiles, outpath, xmlpath, cbComplete)= let strcatn (mkDTime time)::"\n"::xmlpath::"\n"::nil -> ncontent in ( _storepack ncontent outpath; mkPakAll ftpstr lfiles (_getmodifypack outpath) cbComplete; ); 0;; /* ********************************************************************************************* / FTP Functions / ********************************************************************************************* */ fun mkAppletEnableInterface(ftpstr, mode)= setEdCtrlButtonEnable ftpstr.AFTP_ctrlOk mode; setEdCtrlTextLineEnable ftpstr.AFTP_ctrlHost mode; setEdCtrlFloatEnable ftpstr.AFTP_ctrlPort mode; setEdCtrlTextLineEnable ftpstr.AFTP_ctrlLogin mode; setEdCtrlTextLineEnable ftpstr.AFTP_ctrlPass mode; setEdCtrlTextLineEnable ftpstr.AFTP_ctrlRoot mode; setEdCtrlTextLineEnable ftpstr.AFTP_ctrlDir mode; setEdCtrlTextLineEnable ftpstr.AFTP_ctrlWww mode; setEdCtrlCheckEnable ftpstr.AFTP_ctrlInWeb mode; setEdCtrlCheckEnable ftpstr.AFTP_ctrlUpload mode; 0;; fun mkAppletAddLog(ftpstr, message)= if ((getEdCtrlTextLineCount ftpstr.AFTP_ctrlLog) < 100) then nil else removeEdCtrlTextLine ftpstr.AFTP_ctrlLog 0; addEdCtrlTextValue ftpstr.AFTP_ctrlLog message; _appendpack message ftpstr.AFTP_wLogFile; scrollEdCtrlText ftpstr.AFTP_ctrlLog 0 (getEdCtrlTextLineCount ftpstr.AFTP_ctrlLog); 0;; fun cbDlgTimeout (dlg, ftpstr, res)= if res == 1 then ftpConnect ftpstr else ( mkAppletAddLog ftpstr (loc "OS3D_0514"); mkAppletEnableInterface ftpstr 1; 0; ); 0;; fun cbMkAppletTimeOut(timer, ftpstr)= _deltimer timer; _TELNETClose ftpstr.AFTP_telnet; let _DLGMessageBox _channel ftpstr.AFTP_ctrlWindow.EDW_win (loc "OS3D_0541") (loc "OS3D_0515") 1 -> dlgTimeOut in _DLGrflmessage dlgTimeOut @cbDlgTimeout ftpstr; 0;; fun cbTimeOutCmd (timer, ftpstr)= _deltimer timer; _TELNETClose ftpstr.AFTP_telnet; mkAppletAddLog ftpstr (loc "OS3D_0503"); ftpConnect ftpstr; 0;; fun sendFtpCommand (ftpstr, cmd, log)= let strcat (ctoa 13) (ctoa 10) -> lnfeed in if (strfind "LIST" cmd 0)!=nil || (strfind "NLST" cmd 0)!=nil || (strfind "STOR" cmd 0)!=nil || (strfind "RETR" cmd 0)!=nil then ( set ftpstr.AFTP_sDataCmd = cmd; mkAppletAddLog ftpstr (loc "OS3D_0502"); _TELNETSend (strcat "PASV" lnfeed) ftpstr.AFTP_telnet; 0; ) else ( if !log then nil else mkAppletAddLog ftpstr strcatn ">> "::cmd::"\n"::nil; _TELNETSend (strcat cmd lnfeed) ftpstr.AFTP_telnet; 0; ); set ftpstr.AFTP_trmTimeout = _starttimer _channel iTimeOutCmd; _rfltimer ftpstr.AFTP_trmTimeout @cbTimeOutCmd ftpstr; 0;; fun cbDataTimer (t, data)= _deltimer t; _TELNETClose data; 0;; fun cbDataWrite (data, ftpstr)= if (strfind "STOR" ftpstr.AFTP_sDataCmd 0)!=nil then ( let (hd ftpstr.AFTP_lFiles) -> file in ( mkAppletAddLog ftpstr strcatn (strcat (loc "OS3D_0505") " ")::file::"\n"::nil; _TELNETSend (_getpack _checkpack (strcat sMkAppletTmpPath file)) data; set ftpstr.AFTP_lFiles = tl ftpstr.AFTP_lFiles; ); // il manque parfois un octet le timer va permetre de lui laisser le temps d'envoyer let _starttimer _channel 500 -> datatimer in _rfltimer datatimer @cbDataTimer data; 0; ) else ( _TELNETClose data; 0; ); 0;; fun cbDataRead(data, ftpstr)= let _TELNETGetBuffer data -> ftpecho in mkAppletAddLog ftpstr ftpecho; _TELNETClose data; 0;; fun cbDataConnect(ftpdata, ftpstr)= //_SETtext output strcatn (_GETtext output)::"\n"::">> connected data"::"\n"::nil; _TELNETrflRead ftpdata @cbDataRead ftpstr; _TELNETrflWrite ftpdata @cbDataWrite ftpstr; //_SETtext output strcatn (_GETtext output)::">> "::cmd::"\n"::nil; let strcat (ctoa 13) (ctoa 10) -> lnfeed in _TELNETSend (strcat ftpstr.AFTP_sDataCmd lnfeed) ftpstr.AFTP_telnet; 0;; fun cbDataClose(ftpdata, ftpstr)= mkAppletAddLog ftpstr (loc "OS3D_0507"); 0;; // se connecte au port ftp data fun tryToConnectData(serveur, ftpstr)= let _TELNETConnect _channel serveur -> telnetdata in ( mkAppletAddLog ftpstr strcatn (strcat (loc "OS3D_0501") " ")::serveur::"\n"::nil; _TELNETrflConnect telnetdata @cbDataConnect ftpstr; _TELNETrflClose telnetdata @cbDataClose ftpstr; ); 0;; fun getPort(str, portpos, pos)= let strfind "," str pos -> npos in if npos==nil then ( let substr str pos ((strfind ")" str 0) - pos) -> port in let substr str portpos ((pos -1) - portpos) -> coef in ( _fooS strcat ">>>>>>> coef : " coef; _fooS strcat ">>>>>>> port : " port; itoa ((atoi coef)*256+(atoi port)); ); ) else getPort str pos npos+1 ;; fun cbMkAppletClose(dlg, ftpstr, rep)= dsEdWindow winMkApplet; set winMkApplet = nil; 0;; fun cbMkAppletOpenBrowser(dlg, ftpstr, rep)= if rep then ( let strcatn ftpstr.AFTP_sUrl::"web/index.html"::nil -> url in _openbrowserhttp url; ) else nil; dsEdWindow winMkApplet; set winMkApplet = nil; 0;; fun getFtpResponse(ftpEcho, ftpstr)= let strextr ftpEcho -> echolist in let if (sizelist echolist) > 1 then atoi (hd (nth_list echolist ((sizelist echolist)-1))) else atoi (hd hd echolist) -> cmdid in //let atoi substr ftpEcho 0 3 -> cmdid in if cmdid == 330 then ( // please log in set ftpstr.AFTP_iLogged = 1; sendFtpCommand ftpstr (strcatn "USER "::ftpstr.AFTP_sLogin::nil) 1; ) else if cmdid == 220 then ( // ready if (ftpstr.AFTP_iLogged > 0) then nil else ( set ftpstr.AFTP_iLogged = 1; sendFtpCommand ftpstr (strcatn "USER "::ftpstr.AFTP_sLogin::nil) 1; ); ) else if cmdid == 331 then ( let strlen ftpstr.AFTP_sPass -> plen in let "" -> pmask in ( while plen > 0 do ( set pmask = strcat pmask "*"; set plen = plen - 1; ); // transfert complete mkAppletAddLog ftpstr strcat ">> " (strcatn "PASS "::pmask::"\n"::nil); sendFtpCommand ftpstr (strcatn "PASS "::ftpstr.AFTP_sPass::nil) 0; ); ) else if cmdid == 230 then ( // logged in set ftpstr.AFTP_iLogged = 2; sendFtpCommand ftpstr (strcatn "SYST"::nil) 1; ) else if cmdid == 215 then ( // System type sendFtpCommand ftpstr "TYPE I" 1; ) else if cmdid == 200 then ( // TYPE ok sendFtpCommand ftpstr (strcatn "CWD "::ftpstr.AFTP_sDir::nil) 1; ) /* else if cmdid == 250 then ( // CWD successful sendFtpCommand ftpstr "LIST" 1; ) */ // upload else if cmdid == 250 || cmdid == 226 || cmdid == 257 || cmdid == 550 || cmdid == 521 then ( // MDK ok or exist transfert complete // nextCommmand if (cmdid == 550) && !ftpstr.AFTP_iState then ( sendFtpCommand ftpstr "QUIT" 1; set ftpstr.AFTP_bError = 1; 0; ) else ( // first CWD passed set ftpstr.AFTP_iState = 1; if ftpstr.AFTP_lDirs != nil then ( sendFtpCommand ftpstr (strcatn "MKD "::(hd ftpstr.AFTP_lDirs)::nil) 1; set ftpstr.AFTP_lDirs = tl ftpstr.AFTP_lDirs; 0; ) else if ftpstr.AFTP_lFiles != nil then ( //let if (hd ftpstr.AFTP_lFiles) == nil then (hd tl ftpstr.AFTP_lFiles) else (hd ftpstr.AFTP_lFiles) -> fileok in sendFtpCommand ftpstr (strcatn "STOR "::((hd ftpstr.AFTP_lFiles))::nil) 1; 0; ) else ( sendFtpCommand ftpstr "QUIT" 1; 0; ); ); 0; ) else if cmdid == 227 then ( // pasv tryToConnectData (strcatn ftpstr.AFTP_sIp::":"::(getPort ftpEcho 0 0)::nil) ftpstr; ) else if cmdid == 421 then ( // time out _DLGMessageBox _channel ftpstr.AFTP_ctrlWindow.EDW_win (loc "OS3D_0541") (loc "OS3D_0547") 0; mkAppletEnableInterface ftpstr 1; 0; ) else if cmdid == 221 then ( set ftpstr.AFTP_iLogged = 0; // Quit if (!ftpstr.AFTP_bError) then ( _TELNETClose ftpstr.AFTP_telnet; let strcatn ftpstr.AFTP_sUrl::"web/index.html"::nil -> url in _DLGrflmessage _DLGMessageBox _channel ftpstr.AFTP_ctrlWindow.EDW_win (loc "OS3D_0544") (strcat (strcat (loc "OS3D_0545") " ") url) 1 @cbMkAppletOpenBrowser ftpstr; 0; ) else ( _TELNETClose ftpstr.AFTP_telnet; _DLGMessageBox _channel ftpstr.AFTP_ctrlWindow.EDW_win (loc "OS3D_0543") (loc "OS3D_0510") 0; mkAppletEnableInterface ftpstr 1; 0; ); 0; ) else if cmdid == 530 then ( if (ftpstr.AFTP_iLogged != 2) then ( set ftpstr.AFTP_iLogged = 0; // bad login mkAppletAddLog ftpstr (loc "OS3D_0512"); _TELNETClose ftpstr.AFTP_telnet; mkAppletEnableInterface ftpstr 1; ) else ( // strange... replied from "SYST" command ? try to continue sendFtpCommand ftpstr "TYPE I" 1; ); 0; ) else if cmdid == 150 then ( mkAppletAddLog ftpstr (loc "OS3D_0542"); 0; ) else nil; 0;; fun cbTelnetWrite (tel, ftpstr)= mkAppletAddLog ftpstr (loc "OS3D_0506"); 0;; fun cbTelnetRead(tel, ftpstr)= let _TELNETGetBuffer tel -> ftpecho in ( _deltimer ftpstr.AFTP_trmTimeout; if (ftpecho == nil) || (!strcmp ftpecho "") then nil else ( mkAppletAddLog ftpstr ftpecho; getFtpResponse ftpecho ftpstr; ); ); 0;; fun cbTelnetConnect(tel, ftpstr)= mkAppletAddLog ftpstr (loc "OS3D_0499"); _TELNETrflRead tel @cbTelnetRead ftpstr; _TELNETrflWrite tel @cbTelnetWrite ftpstr; 0;; fun ftpConnect(ftpstr)= let (_gethostbyname ftpstr.AFTP_sHost) -> resolvip in let (strcatn resolvip::":"::(itoa ftpstr.AFTP_iport)::nil) -> ftpadress in let _TELNETConnect _channel ftpadress -> telnetftp in ( set ftpstr.AFTP_telnet = telnetftp; set ftpstr.AFTP_sIp = resolvip; mkAppletAddLog ftpstr strcatn (strcat (loc "OS3D_0500") " ")::ftpstr.AFTP_sHost::(loc "OS3D_0497")::nil; set ftpstr.AFTP_trmTimeout = _starttimer _channel iTimeOut; _rfltimer ftpstr.AFTP_trmTimeout @cbMkAppletTimeOut ftpstr; _TELNETrflConnect ftpstr.AFTP_telnet @cbTelnetConnect ftpstr; ); 0;; fun addDirToList(l, ftpstr)= if l == nil then nil else let l -> [elem next] in ( set ftpstr.AFTP_lDirs = elem::ftpstr.AFTP_lDirs; addDirToList next ftpstr; ); 0;; fun getInitDirs(initdir, ftpstr)= let 0 -> curpos in let nil -> newldir in let (strfind "/" initdir curpos) -> dirpos in ( while dirpos != nil do ( let (strfind "/" initdir (dirpos +1)) -> nextpos in let substr initdir curpos ((dirpos) - curpos) -> newdir in ( if (isStringInList ftpstr.AFTP_lDirs (strlowercase newdir)) then nil else set newldir = (strlowercase newdir)::newldir; ); set dirpos = (strfind "/" initdir dirpos +1); ); addDirToList newldir ftpstr; ); 0;; fun mkAppletGetDirectories(l)= let sizelist l -> size in let nil -> ndata in let 0 -> i in ( while i < size do ( let nth_list l i -> elem in let getPathFile elem "" -> [path _] in set ndata = path::ndata; set i = i + 1; ); ndata; );; /* fun debugStringList(l, file)= let sizelist l -> size in let "" -> ndata in let 0 -> i in ( while i < size do ( let nth_list l i -> elem in set ndata = strcatn ndata::elem::"\n"::nil; set i = i + 1; ); _storepack ndata file; );; */ fun mkAppletUploadFiles(ftpstr)= apply_on_list (mkAppletGetDirectories ftpstr.AFTP_lFiles) @getInitDirs ftpstr; // sort list by alphabetical order set ftpstr.AFTP_lDirs = sortlist ftpstr.AFTP_lDirs @isSmaller; //debugStringList ftpstr.AFTP_lFiles strcat sMkAppletTmpPath "debug.txt"; ftpConnect ftpstr; 0;; /* ********************************************************************************************* / Make Applet files / ********************************************************************************************* */ fun mkAppletCpWebfiles(l, path)= if l == nil then nil else ( let getPathFile (hd l) "" -> [_ filename] in if !strcmpi "index.html" filename then nil else copyFileContent (hd l) strcatn path::"web/"::filename::nil; mkAppletCpWebfiles (tl l) path; ); 0;; fun mkAppletPhpInc(ftpstr, projname, filename, xmlpath)= let if ftpstr.AFTP_sAppDir == nil then sMkAppletTmpPath else strcatn sMkAppletTmpPath::ftpstr.AFTP_sAppDir::"/"::nil -> tmppath in let _listoffiles strcat APPBASEDIR sMkAppletPath -> lwebfiles in let _checkpack (getProjectSetting "splashpath") -> psplash in let if (psplash == nil) then lwebfiles else (getProjectSetting "splashpath")::lwebfiles -> lwebfiles in let XMLload xmlpath -> xmlscenestr in let XMLgetMarkByValue xmlscenestr "environment" -> envmark in let XMLgetMarkByValueFromMarkSons envmark "colourBackground" -> backstr in let make_rgb (ftoi ((atof XMLgetParam backstr "b") *. 255.0)) (ftoi ((atof XMLgetParam backstr "g") *. 255.0)) (ftoi ((atof XMLgetParam backstr "r") *. 255.0)) -> bgcolor in ( mkAppletCpWebfiles lwebfiles tmppath; let strreplace strcatn "scol://applet?app="::ftpstr.AFTP_sUrl::filename::nil " " "%20" -> appurl in let strreplace strcatn "scol://applet:"::ftpstr.AFTP_sUrl::filename::nil " " "%20" -> oldappurl in let getVoyagerVersionS -> svoyver in let _getpack _checkpack strcatn APPBASEDIR::sMkAppletPath::"index.html"::nil -> html in ( if (psplash == nil) then ( set html = strreplace html "$BGSPLASH" ""; ) else ( let getPathFile (_PtoScol psplash) "" -> [_ splashimg] in set html = strreplace html "$BGSPLASH" strcatn "style=\"background-image:url('"::splashimg::"'); background-repeat:no-repeat; background-position:center;\""::nil; ); set html = strreplace html "$TITLE" projname; set html = strreplace html "$BGCOLOR" (if bgcolor == 0 then "000000" else (itoh bgcolor)); set html = strreplace html "$SCOL_SITE_URL_OLD" oldappurl; set html = strreplace html "$SCOL_SITE_URL" appurl; set html = strreplace html "$WIN_32_PLUGIN_URL" "http://www.scolring.org/rsc/scol_plugin.exe"; set html = strreplace html "$MINIMUMSCOLVERSION" svoyver; set html = strreplace html "$WEBINTEGRATED" (itoa ftpstr.AFTP_bWebIn); set html = strreplace html "$WIDTH" (getProjectSettingDef "defaultWidth" "1280"); set html = strreplace html "$HEIGHT" (getProjectSettingDef "defaultHeight" "720"); _storepack html strcatn tmppath::"web/index.html"::nil; ); let sizelist lwebfiles -> size in let nil -> ndata in let 0 -> i in ( while i < size do ( let nth_list lwebfiles i -> elem in let getPathFile elem "" -> [_ wname] in set ndata = (strcatn ftpstr.AFTP_sAppDir::"/web/"::wname::nil)::ndata; set i = i + 1; ); (strcat ftpstr.AFTP_sAppDir "/web/index.html")::ndata; ); );; fun strright(s, i) = substr s (strlen s)-i i;; fun mkAppletFilter(l, path)= if (l == nil) then nil else let if path == nil then sMkAppletTmpPath else strcatn sMkAppletTmpPath::path::"/"::nil -> tmppath in let l->[x nxt] in let x->[url [name[size[type[sgn _]]]]] in if url!=nil && ((!strcmp "http://" substr url 0 7) || (!strcmp "https://" substr url 0 8) || (!strcmp "ftp://" substr url 0 6)) then ( let if (_checkpack name) == nil then strcat tmppath name else name -> gname in let getFileExt gname -> ext in //do not compress pak files if (!strcmpi ext "pak") then ( (url::name::(itoa (_fileSize _checkpack gname))::"0"::(_fileSign _checkpack gname)::nil)::(mkAppletFilter nxt path); ) else let getFileContent gname -> content in let zip content -> zipfile in ( _storepack zipfile strcatn tmppath::name::".zp"::nil; ((if !strcmpi strright url 3 ".zp" then url else strcat url ".zp")::name::(itoa strlen zipfile)::"2"::(_getlongname content "" "#")::nil)::(mkAppletFilter nxt path); ); ) else x::(mkAppletFilter nxt path);; fun mkAppletCrypt(ftpstr, projname, name, cont, lfiles, xmlpath, bupload)= let if (ftpstr.AFTP_sAppDir == nil) then name else strlowercase strcatn ftpstr.AFTP_sAppDir::"/"::name::nil -> destfile in let strbuild mkAppletFilter strextr cont ftpstr.AFTP_sAppDir -> newcontent in ( _storepack newcontent strcat sMkAppletTmpPath destfile; let mkAppletPhpInc ftpstr projname name xmlpath -> lwebfiles in let listLowercase (destfile::(lcat lwebfiles lfiles)) -> lupfiles in set ftpstr.AFTP_lFiles = lupfiles; if (!bupload) then ( let getFileDirectory (_PtoS _checkpack (strcat sMkAppletTmpPath destfile)) -> fullpath in _startExe "launch" "openExplorer" fullpath; _DLGrflmessage _DLGMessageBox _channel ftpstr.AFTP_ctrlWindow.EDW_win (loc "OS3D_0532") (loc "OS3D_0525") 0 @cbMkAppletClose ftpstr; 0; ) else ( mkAppletUploadFiles ftpstr; 0; ); ); 0;; fun fileExist(l, file)= if l ==nil then 0 else if (!strcmp (hd l) file) then 1 else fileExist (tl l) file;; fun findExcluFile(lfiles)= let sizelist lfiles -> size in let nil -> nlist in let 0 -> i in ( while i < size do ( let nth_list lfiles i -> file in let getFileExt file -> ext in if (!strcmpi "bak" ext) || (!strcmpi "scol" ext) || (!strcmpi "max" ext) || (!strcmpi "psd" ext) || (!strcmpi "exe" ext) || (!strcmpi "php" ext) || (fileExist nlist file) then nil else set nlist = file::nlist; set i = i + 1; ); nlist; );; fun excludeFilesBase(lfiles, exbase)= let sizelist lfiles -> size in let nil -> nlist in let 0 -> i in ( while i < size do ( let nth_list lfiles i -> file in let getFileNameWithoutExt file -> bname in if (isStringInListi exbase bname) then nil else set nlist = file::nlist; set i = i + 1; ); nlist; );; fun keepFilesBase(lfiles, exbase, ldepsrep, prefix)= let strlen prefix -> prefixlen in let sizelist lfiles -> size in let nil -> nlist in let 0 -> i in ( while i < size do ( let nth_list lfiles i -> file in let getFileNameWithoutExt file -> bname in let substr bname prefixlen ((strlen bname) - prefixlen) -> sname in if ((prefixlen != 0) && (strcmpi prefix (substr bname 0 prefixlen))) then nil else if (!isStringInListi exbase sname) then nil else let switchstr ldepsrep sname -> dname in let if (dname != nil) then dname else sname -> dname in let getPathFile file "" -> [fp fn] in let getFileExt fn -> fex in set nlist = [file (strcatn fp::prefix::dname::"."::fex::nil)]::nlist; set i = i + 1; ); nlist; );; // get default player lib and plugin resources fun getMkAppletXmlResources(xmlpath, lin)= let XMLload xmlpath -> xmlscenestr in let XMLgetMarksByValue xmlscenestr "resource" -> lresourcemarks in let XMLgetMarksByValue xmlscenestr "plugin" -> lpluginsmarks in let nil -> lout in let nil -> ldeps in let nil -> lfeatures in ( let sizelist lresourcemarks -> size in let 0 -> i in while i < size do ( let nth_list lresourcemarks i -> resourcemark in let XMLgetParam resourcemark "type" -> type in let XMLgetParam resourcemark "path" -> path in set lout = path::lout; set i = i + 1; ); // get project theme resource let XMLgetMarkByValue xmlscenestr "project" -> srcprjmark in let XMLgetMarkByValueFromMarkSons srcprjmark "setting" -> srcsettingmark in let XMLgetData (XMLgetMarkByValueFromMarkSons srcsettingmark "themeName") -> data in let if ((data == nil) || (!strcmp "default" (strtrim data))) then nil else VUIgetThemePath data -> themepath in if (themepath == nil) then nil else ( let XMLload themepath -> xmlthemestr in let XMLgetMarkByValue xmlthemestr "UITheme" -> thememark in let XMLgetMarksDataByValueFromMark thememark "UIResource" -> lthemeres in set lout = lcat themepath::lout lthemeres; ); let sizelist lpluginsmarks -> size in let 0 -> i in while i < size do ( let nth_list lpluginsmarks i -> pluginmark in let strcat strcat APPBASEDIR "os3dplugins/" XMLgetParam pluginmark "source" -> source in let getPathFile source "" -> [plugdir _] in let getDirectoryWithoutLastSlash plugdir -> plugdir in let XMLload source -> xmlpluginstr in let XMLgetMarkByValue xmlpluginstr "dependencies" -> depsmark in let XMLgetMarksByValueFromMark depsmark "scolplugin" -> lscolpluginsmarks in let XMLgetMarksByValueFromMark depsmark "scoldeps" -> ldepsmarks in let XMLgetMarkByValue xmlpluginstr "resource" -> resourcemark in let XMLgetMarksByValueFromMark resourcemark "file" -> lfilemarks in let XMLgetMarksByValueFromMark resourcemark "dir" -> ldirmarks in let XMLgetMarkByValue xmlpluginstr "client" -> clientmark in let XMLgetMarkByValue xmlpluginstr "editor" -> editormark in let XMLgetMarksByValueFromMark clientmark "script" -> lscripmarks in let XMLgetMarksByValueFromMark editormark "param" -> lparams in let getFilesFromDir (strcat plugdir "/lang") "lang"::nil -> llangs in ( set lout = lcat llangs source::lout; let sizelist lscolpluginsmarks -> size in let 0 -> i2 in while i2 < size do ( let nth_list lscolpluginsmarks i2 -> depmark in let XMLgetParam depmark "name" -> scolplug in set ldeps = scolplug::ldeps; set i2 = i2 + 1; ); let sizelist ldepsmarks -> size in let 0 -> i2 in while i2 < size do ( let nth_list ldepsmarks i2 -> depmark in let XMLgetParam depmark "name" -> scoldep in set ldeps = scoldep::ldeps; set i2 = i2 + 1; ); let sizelist lfilemarks -> size in let 0 -> i2 in while i2 < size do ( let nth_list lfilemarks i2 -> filemark in let getRelativePath plugdir (XMLgetParam filemark "path") -> file in set lout = file::lout; set i2 = i2 + 1; ); let sizelist ldirmarks -> size in let 0 -> i2 in while i2 < size do ( let nth_list ldirmarks i2 -> dirmark in let getRelativePath plugdir (XMLgetParam dirmark "path") -> dir in let getFilesFromDirRecursive dir -> ldirfiles in set lout = lcat lout ldirfiles; set i2 = i2 + 1; ); let sizelist lscripmarks -> size in let 0 -> i2 in while i2 < size do ( let nth_list lscripmarks i2 -> scriptmark in let getRelativePath plugdir (XMLgetParam scriptmark "path") -> file in set lout = file::lout; set i2 = i2 + 1; ); let sizelist lparams -> size3 in let 0 -> i3 in while i3 < size3 do ( let nth_list lparams i3 -> parammark in let XMLgetParam parammark "name" -> pname in let XMLgetParam parammark "type" -> ptype in if (!strcmpi ptype "file") then ( let if (!strcmp "_" (substr pname ((strlen pname) - 1) 1)) then XMLgetMarksByValueAndParamPrefixValueFromMark pluginmark "param" "name" pname else XMLgetMarksByValueAndParamValueFromMark pluginmark "param" "name" pname -> liparam in while liparam != nil do ( let XMLgetData (hd liparam) -> path in if (!strcmp "" strtrim path) || (path == nil) || ((_checkpack path) == nil) then nil else ( let getFileExt path -> ext in // check recursive xos references in plugits to avoid infinite loop let xmlpath::(lcat lout lin) -> fl in if ((!strcmpi ext "xos") && (strcmpi path xmlpath) && !(isStringInListi fl path)) then let getMkAppletXmlResources path fl -> [no nd _] in ( set ldeps = lcat nd ldeps; set lout = lcat no lout; ) else set lout = path::lout; ); set liparam = tl liparam; ); ) else if (!strcmpi ptype "feature") then ( let XMLgetMarksByValueAndParamValueFromMark pluginmark "param" "name" pname -> liparam in while liparam != nil do ( let atoi XMLgetData (hd liparam) -> state in if (!state) then nil else set lfeatures = pname::lfeatures; set liparam = tl liparam; ); ) else nil; set i3 = i3 + 1; ); XMLclose xmlpluginstr; ); set i = i + 1; ); XMLclose xmlscenestr; [xmlpath::lout ldeps lfeatures]; );; fun mkAppletAddFile(url, l, ls)= if l ==nil then ls else let l -> [elem next] in ( let (strreplace (strcat url elem) " " "%20") -> nurl in let (strcatn nurl::"\ "::(strreplace elem " " "\\ ")::"\n"::ls::nil) -> newstring in mkAppletAddFile url next newstring; );; fun mkAppletUpdateZpFilesName(l, path)= let if path == nil then "" else strcatn path::"/"::nil -> tmppath in let sizelist l -> size in let nil -> ndata in let 0 -> i in ( while i < size do ( let nth_list l i -> elem in let getFileExt elem -> ext in //do not compress pak files if (!strcmpi ext "pak") then set ndata = (strcatn tmppath::elem::nil)::ndata else set ndata = (strcatn tmppath::elem::".zp"::nil)::ndata; set i = i + 1; ); ndata; );; fun mkAppletGetFilesMd5(lfiles)= let sizelist lfiles -> size in let nil -> ndata in let 0 -> i in ( while i < size do ( let nth_list lfiles i -> elem in let _filemd5 _checkpack elem -> fmd5 in if fmd5 == nil then nil else set ndata = fmd5::ndata; set i = i + 1; ); ndata; );; fun makeUsmIni(dir, platform, renderer, antialias, pfx, pext, ldeps, lp)= let "# Scol Configuration\n# DO NOT MODIFY !!!!!!!!!\n\n" -> baseusm in let if (platform != nil) then strcatn baseusm::"platform "::platform::"\n\n"::nil else baseusm -> baseusm in let lcat strextr baseusm ("standalone"::"yes"::nil)::("log"::"no"::nil)::("#echo"::"ffffff"::nil)::(""::nil)::nil -> pusm in let switchstr lPlatformPlugins platform -> lavailableplugs in let lPluginsBase -> baseplugs in ( if (strcmp platform "win") then nil else ( set pusm = lcat pusm ("scol"::"scol.dll"::"SCOLWinMain"::nil)::(""::nil)::nil; set baseplugs = lcat baseplugs "lib2d24"::nil; ); set pusm = lcat pusm ("#"::"Plugins"::nil)::nil; while baseplugs != nil do ( let hd baseplugs -> elem in set pusm = lcat pusm ("plugin"::(strcatn pfx::elem::pext::nil)::nil)::nil; set baseplugs = tl baseplugs; ); while ldeps != nil do ( let hd ldeps -> elem in if (!isStringInListi lavailableplugs elem) then nil else set pusm = lcat pusm ("plugin"::(strcatn pfx::elem::pext::nil)::nil)::nil; set ldeps = tl ldeps; ); set pusm = lcat pusm (""::nil):: ("#"::"Partitions"::nil):: ("cache"::"./Cache"::"256"::nil)::nil; // add user partition for other platforms if (!strcmp platform "win") || (!strcmp platform "linux") || (!strcmp platform "macOS") then ( set pusm = lcat pusm ("diska"::"./partition"::"0"::nil)::nil; ) else ( set pusm = lcat pusm ("disku"::"./partition"::"0"::nil):: ("diska"::"./partition"::"0"::nil):: nil; ); set pusm = lcat pusm ("logsp"::"./logs"::"0"::nil):: (""::nil):: ("#"::"Rendering"::nil):: ("SO3Renderer"::renderer::nil):: ("3DFSAA"::antialias::nil):: ("FocalLength"::"1"::nil):: ("EyeSeparation"::"0.06"::nil):: (""::nil):: lp; _storepack (strbuild pusm) strcatn dir::"/"::"usm.ini"::nil; let "AutoSetup No\nLaunchCommutron No\nOrigin __\nvideocapture -1\nWizard\nDefaultLanguage English\nRegistering Yes\nLicense\nlocalIPindex 0" -> defusmress in _storepack defusmress strcatn dir::"/"::"usmress.ini"::nil; _addPartition "./" 2; let _getpack (_checkpack "ext.ini") -> extini in let if (extini != nil) then extini else "[launch]\nexe explore .\nexe openExplorer explorer" -> extini in ( _removeLastPartition; _storepack extini strcatn dir::"/"::"ext.ini"::nil; ); ); 0;; fun copyFilesToExportDirectory(dir, lfiles, ldeps, xmlpath, fname, archname, renderer, antialias)= let strlen archname -> srclen in ( while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/partition/"::file::nil; set lfiles = tl lfiles; ); //copy scol voyager let getFilesFromDir archname "dll"::"ini"::"ocx"::"ico"::"bin"::"dat"::nil -> lroot in while lroot != nil do ( let hd lroot -> file in let substr file srclen ((strlen file) - srclen) -> dstfile in copyFileContent file strcatn dir::"/"::dstfile::nil; set lroot = tl lroot; ); //copy plugins let getFilesFromDir strcat archname "/plugins" "dll"::nil -> lf in let lcat lPluginsBase "lib2d24"::ldeps -> fulldeps in let keepFilesBase lf fulldeps nil "" -> lplugins in while lplugins != nil do ( let hd lplugins -> [sfile dfile] in let substr dfile srclen ((strlen dfile) - srclen) -> dstfile in copyFileContent sfile strcatn dir::"/"::dstfile::nil; set lplugins = tl lplugins; ); //copy OpenNI redist if (!isStringInListi ldeps "openniscol") then nil else ( let getFilesFromDirRecursive strcat archname "/plugins/NiTE2" -> lni in let strlen strcat archname "/plugins" -> plen in while lni != nil do ( let hd lni -> file in let substr file plen ((strlen file) - plen) -> dstfile in copyFileContent file strcatn dir::"/plugins/"::dstfile::nil; set lni = tl lni; ); let getFilesFromDirRecursive strcat archname "/plugins/OpenNI2" -> lni in let strlen strcat archname "/plugins" -> plen in while lni != nil do ( let hd lni -> file in let substr file plen ((strlen file) - plen) -> dstfile in copyFileContent file strcatn dir::"/plugins/"::dstfile::nil; set lni = tl lni; ); ); //copy scol base let getFilesFromDirRecursive "btdata" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/plugins/"::file::nil; set lbase = tl lbase; ); let getFilesFromDir "ogre_redist" "zip"::nil -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/plugins/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "cefres" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/plugins/"::file::nil; set lbase = tl lbase; ); copyFileContent (strcat archname "/Scol.exe") strcatn dir::"/"::(strcat fname ".exe")::nil; copyFileContent "logo.bmp" strcatn dir::"/partition/"::"logo.bmp"::nil; let getProjectSetting "iconpath" -> iconpath in let getFileExt getProjectSetting "iconpath" -> ext in let nil -> icon_src in if ((strcmpi ext "ico") && (set icon_src = G2DloadBmp _channel iconpath) != nil) then ( let _CRbitmap _channel 128 128 -> bmp in let _BTSCALEbitmap bmp icon_src 2 -> icon in ( _SAVEbitmap icon _getmodifypack strcatn dir::"/partition/"::APPBASEDIR::"os3dplayer/os3dplayer.ico"::nil; _DSbitmap bmp; ); 0; ) else ( if ((_checkpack iconpath) == nil) then nil else copyFileContent iconpath strcatn dir::"/partition/"::APPBASEDIR::"os3dplayer/os3dplayer.ico"::nil; 0; ); let getProjectSetting "splashpath" -> psplash in if ((_checkpack psplash) == nil) then nil else copyFileContent psplash strcatn dir::"/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; //make usm.ini makeUsmIni dir "win" renderer antialias "plugins/" ".dll" ldeps nil; //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/partition/locked/master.pkg"::nil; ); 0;; fun mkStandAloneListFiles(xmlpath)= let getFilesFromDir "locked" nil -> locked in let getFilesFromDirRecursive "locked/etc" -> etc in let getFilesFromDirRecursive "locked/lib" -> lcklib in let getFilesFromDirRecursive strcat APPBASEDIR "os3dlib" -> lib in let getFilesFromDirRecursive strcat APPBASEDIR "os3dplayer" -> player in let getMkAppletXmlResources xmlpath nil -> [lres ldeps lfts] in let getProjectSetting "iconpath" -> icon in let if icon != nil then icon::(getProjectSetting "splashpath")::nil else (getProjectSetting "splashpath")::nil -> nres in [listLowercase findExcluFile (lcat (lcat (lcat (lcat (lcat (lcat locked etc) lcklib) lib) player) lres) nres) (quicksort ldeps @suppDoublon) (quicksort lfts @suppDoublon)];; fun mkStandAloneProjectListFiles(xmlpath)= let getMkAppletXmlResources xmlpath nil -> [lres ldeps lfts] in let getProjectSetting "iconpath" -> icon in let if icon != nil then icon::(getProjectSetting "splashpath")::nil else (getProjectSetting "splashpath")::nil -> nres in [listLowercase (quicksort findExcluFile (lcat lres nres) @suppDoublon) (quicksort ldeps @suppDoublon)];; fun mkAppletListFiles(xmlpath)= let getFilesFromDirRecursive strcat APPBASEDIR "os3dlib" -> files in let lcat files (getFilesFromDirRecursive strcat APPBASEDIR "os3dplayer") -> files in let lcat files let (getMkAppletXmlResources xmlpath nil) -> [lf _ _] in lf -> files in let if (getProjectSetting "splashpath") != nil then (getProjectSetting "splashpath")::files else files -> files in listLowercase findExcluFile files;; fun mkAppletListOS3DFiles(xmlpath)= let getFilesFromDirRecursive strcat APPBASEDIR "os3dlib" -> files in let lcat files (getFilesFromDirRecursive strcat APPBASEDIR "os3dplayer") -> files in let if (getProjectSetting "splashpath") != nil then (getProjectSetting "splashpath")::files else files -> files in listLowercase findExcluFile files;; fun mkAppletGetAppMd5(xmlpath)= mkAppletGetFilesMd5 mkAppletListFiles xmlpath;; fun cbProjectPacked(p)= let p -> [projname fname xmlpath lpakfiles cont bupload ftpstr] in ( mkAppletCrypt ftpstr projname (strlowercase (strcat fname ".txt")) cont (mkAppletUpdateZpFilesName lpakfiles ftpstr.AFTP_sAppDir) xmlpath bupload; mkAppletAddLog ftpstr (loc "OS3D_0538"); ); 0;; fun cbMkAppletOkBtn(ctrlbtn, p)= let p -> [xmlpath projname script ftpstr] in let getDirectoryWithoutLastSlash (getEdCtrlTextLineValue ftpstr.AFTP_ctrlWww) -> www in let getDirectoryWithoutFirstSlash getDirectoryWithoutLastSlash (getEdCtrlTextLineValue ftpstr.AFTP_ctrlDir) -> appdir in let if (!strcmpi "" (strtrim appdir)) then nil else strlowercase appdir -> appdir in let getDirectoryWithoutLastSlash (getEdCtrlTextLineValue ftpstr.AFTP_ctrlRoot) -> ftproot in let if !strcmp (strtrim ftproot) "" then "/" else (strcat ftproot "/") -> ftproot in let (getEdCtrlTextLineValue ftpstr.AFTP_ctrlHost) -> ftphost in let ftoi (getEdCtrlFloatValue ftpstr.AFTP_ctrlPort) -> ftpport in let (getEdCtrlTextLineValue ftpstr.AFTP_ctrlLogin) -> ftplogin in let (getEdCtrlTextLineValue ftpstr.AFTP_ctrlPass) -> ftppass in let (getEdCtrlCheckState ftpstr.AFTP_ctrlInWeb) -> webin in let (getEdCtrlCheckState ftpstr.AFTP_ctrlUpload) -> bupload in let if appdir == nil then strcatn (if (!strcmp "http://" substr www 0 7) || (!strcmp "https://" substr www 0 8) then nil else "http://")::www::"/"::nil else strcatn (if (!strcmp "http://" substr www 0 7) || (!strcmp "https://" substr www 0 8) then nil else "http://")::www::"/"::appdir::"/"::nil -> url in if ((!strcmp (strtrim ftphost) "") || (ftpport == nil) || (!strcmp (strtrim ftplogin) "") || (!strcmp (strtrim ftppass) "") && bupload) || (!strcmp (strtrim www) "") then ( _DLGMessageBox _channel ftpstr.AFTP_ctrlWindow.EDW_win (loc "OS3D_0519") (loc "OS3D_0537") 0; 0; ) else ( set ftpstr.AFTP_bError = 0; set ftpstr.AFTP_iState = 0; set ftpstr.AFTP_sHost = ftphost; set ftpstr.AFTP_iport = ftpport; set ftpstr.AFTP_sLogin = ftplogin; set ftpstr.AFTP_sPass = ftppass; set ftpstr.AFTP_sDir = ftproot; set ftpstr.AFTP_sAppDir = appdir; set ftpstr.AFTP_sUrl = strreplace url " " "%20"; set ftpstr.AFTP_bWebIn = webin; //save ftp configuration setProjectSetting "ftpHost" ftphost; setProjectSetting "ftpPort" itoa ftpport; setProjectSetting "ftpLogin" ftplogin; setProjectSetting "ftpRoot" ftproot; setProjectSetting "ftpDir" appdir; setProjectSetting "ftpWWW" www; setProjectSetting "ftpIntegrated" itoa webin; setProjectSetting "ftpUpload" itoa bupload; setEdCtrlTextValue ftpstr.AFTP_ctrlLog ""; mkAppletEnableInterface ftpstr 0; if (!bupload) then nil else let ctime time -> date in let if ftpstr.AFTP_sAppDir == nil then strcatn sMkAppletTmpPath::"ftp.log"::nil else strcatn sMkAppletTmpPath::ftpstr.AFTP_sAppDir::"/"::"ftp.log"::nil -> logpath in ( _storepack strcatn "OS3D FTP Upload on "::date::"\n"::nil logpath; set ftpstr.AFTP_wLogFile = _getmodifypack logpath; ); let getFileNameWithoutExt xmlpath -> fname in let getFileDirectory xmlpath -> prjdir in let strlowercase strcatn prjdir::fname::".pak"::nil -> pakpath in let mkAppletListOS3DFiles xmlpath -> lfiles in let getMkAppletXmlResources xmlpath nil -> [resfiles _ _] in let if ftpstr.AFTP_sAppDir == nil then sMkAppletTmpPath else strcatn sMkAppletTmpPath::ftpstr.AFTP_sAppDir::"/"::nil -> tmppath in let pakpath::lfiles -> lpakfiles in let strcatn (mkAppletAddFile url lpakfiles nil)::"\nscript\n"::script::nil -> cont in mkPakProject ftpstr resfiles (strcat tmppath pakpath) xmlpath mkfun1 @cbProjectPacked [projname fname xmlpath lpakfiles cont bupload ftpstr]; ); 0;; fun cbMkAppletCancelBtn(ctrlbtn, p)= let p -> [winstr ftpstr] in ( _TELNETClose ftpstr.AFTP_telnet; dsEdWindow winstr; set winMkApplet = nil; ); 0;; fun cbDestroyExportAppletWin(winstr, ftpstr)= _TELNETClose ftpstr.AFTP_telnet; set winMkApplet = nil; 0;; fun mkApplet(fatherstr, projname, xmlpath, script)= if winMkApplet != nil then nil else ( let _GETscreenSize -> [sw sh] in let [530 430] -> [iw ih] in let getFileNameWithoutExt xmlpath -> fname in //get the user ftp preference let getProjectSetting "ftpHost" -> ftphost in let itof (atoi getProjectSetting "ftpPort") -> ftpPort in let if (ftpPort == nil) then 21.0 else ftpPort -> ftpPort in let getProjectSetting "ftpLogin" -> ftpLogin in let getProjectSetting "ftpRoot" -> ftpRoot in let if (ftpRoot == nil) then "/" else ftpRoot -> ftpRoot in let getProjectSetting "ftpDir" -> ftpDir in let if (ftpDir == nil) then fname else ftpDir -> ftpDir in let getProjectSetting "ftpWWW" -> ftpWWW in let atoi (getProjectSetting "ftpIntegrated") -> ftpIntegrated in let if (ftpIntegrated == nil) then 1 else ftpIntegrated -> ftpIntegrated in let atoi (getProjectSetting "ftpUpload") -> ftpUpload in let if (ftpUpload == nil) then 1 else ftpUpload -> ftpUpload in let 10 -> ypos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0523") -> winstr in let crEdCtrlLabel winstr 10 ypos + 2 300 20 (loc "OS3D_0527") nil -> labelhost in let crEdCtrlTextLine winstr 320 ypos (iw - 330) 20 ftphost nil EDWIN_RESIZE_MW -> ctrlhost in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 300 20 (loc "OS3D_0530") nil -> labelport in let crEdCtrlFloat winstr 320 ypos 60 20 ftpPort 1.0 65535.0 1.0 0 nil EDWIN_RESIZE_MW -> ctrlport in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 300 20 (loc "OS3D_0528") nil -> labellogin in let crEdCtrlTextLine winstr 320 ypos (iw - 330) 20 ftpLogin nil EDWIN_RESIZE_MW -> ctrllogin in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 300 20 (loc "OS3D_0529") nil -> labelpass in let crEdCtrlTextLine winstr 320 ypos (iw - 330) 20 "" ET_BORDER|ET_AHSCROLL|ET_TABFOCUS|ET_PASSWORD EDWIN_RESIZE_MW -> ctrlpass in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 300 20 (loc "OS3D_0531") nil -> labelroot in let crEdCtrlTextLine winstr 320 ypos (iw - 330) 20 ftpRoot nil EDWIN_RESIZE_MW -> ctrlroot in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 300 20 (loc "OS3D_0526") nil -> labeldir in let crEdCtrlTextLine winstr 320 ypos (iw - 330) 20 ftpDir nil EDWIN_RESIZE_MW -> ctrldir in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 300 20 (loc "OS3D_0533") nil -> labelwww in let crEdCtrlTextLine winstr 320 ypos (iw - 330) 20 ftpWWW nil EDWIN_RESIZE_MW -> ctrlwww in let crEdCtrlCheck winstr 10 (set ypos = ypos + 25) (iw - 20) 20 (loc "OS3D_0535") EDWIN_RESIZE_MW -> ctrlwebin in let crEdCtrlCheck winstr 10 (set ypos = ypos + 25) (iw - 20) 20 (loc "OS3D_0546") EDWIN_RESIZE_MW -> ctrlupload in let crEdCtrlText winstr 10 (set ypos = ypos + 25) (iw - 20) 150 "" ET_BORDER|ET_AVSCROLL|ET_VSCROLL|ET_TABFOCUS EDWIN_RESIZE_MW -> ctrlinfos in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let mkFtpSetting [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil winstr ctrlhost ctrlport ctrllogin ctrlpass ctrlroot ctrldir ctrlwww ctrlwebin ctrlupload ctrlinfos ctrlok ctrlcancel 0 0 0] -> ftpstr in ( set winMkApplet = winstr; setEdCtrlCheckState ctrlwebin ftpIntegrated; setEdCtrlCheckState ctrlupload ftpUpload; setEdCtrlButtonCb ctrlok mkfun2 @cbMkAppletOkBtn [xmlpath projname script ftpstr]; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkAppletCancelBtn [winstr ftpstr]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyExportAppletWin ftpstr; ); ); 0;; fun cbMkStandAloneDoneBtn(ctrlbtn, p)= let p -> [winstr exportdir archname xmlpath projname cbfun] in ( dsEdWindow winstr; set winMkApplet = nil; let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\Windows\\"::archname::"\\"::projname::nil -> fullpath in ( _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun cbMkStandAloneCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbMkStandAloneOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script ctrlarch ctrlrenderer ctrlantialias cbfun] in let getSelectedEdCtrlSelectPos ctrlarch -> arch in let if (arch == 0) then "x86" else "x64" -> archname in let getSelectedEdCtrlSelect ctrlrenderer -> renderer in let getSelectedEdCtrlSelectPos ctrlantialias -> antialiaspos in let getSelectedEdCtrlSelect ctrlantialias -> antialias in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/Windows/"::archname::"/"::projname::nil) else (strcatn projdir::"/"::sExportDirectory::"/Windows/"::archname::"/"::projname::nil) -> exportdir in ( setProjectSetting "appWindowsArch" itoa arch; setProjectSetting "appWindowsRenderer" renderer; setProjectSetting "appWindowsAntialias" itoa antialiaspos; dsEdWindow pwinstr; let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0522") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./windows" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in ( cleanDirectory exportdir; copyFilesToExportDirectory exportdir lfiles ldeps xmlpath projname archname renderer antialias; ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonCb ctrldone mkfun2 @cbMkStandAloneDoneBtn [winstr exportdir archname xmlpath projname cbfun]; setEdCtrlButtonEnable ctrldone 1; setEdWindowFocus pwinstr; ); ); 0;; fun cbStandAloneRenderer(ctrlselect, pos, elem, ctrlantialias)= fillEdCtrlSelect ctrlantialias (SO3GetMultisamplingMode (if (!strcmp elem "DirectX11") then SO3_DIRECTX11_RENDERER else SO3_OPENGL_RENDERER)); 0;; fun mkStandAlone(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0522") -> winstr in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0575") nil -> labelarch in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlarch in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0539") nil -> labelrenderer in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 CB_AHSCROLL -> ctrlrenderer in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0511") nil -> labelantialias in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 CB_AHSCROLL -> ctrlantialias in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script ctrlarch ctrlrenderer ctrlantialias cbfun] -> p in ( set winMkApplet = winstr; fillEdCtrlSelect ctrlarch "Windows 32bits"::"Windows 64bits"::nil; let atoi (getProjectSettingDef "appWindowsArch" "0") -> archselect in selectEdCtrlSelectByPos ctrlarch archselect; fillEdCtrlSelect ctrlrenderer "DirectX11"::"OpenGL"::nil; selectEdCtrlSelect ctrlrenderer (getProjectSettingDef "appWindowsRenderer" "OpenGL"); setEdCtrlSelectCb ctrlrenderer mkfun4 @cbStandAloneRenderer ctrlantialias; fillEdCtrlSelect ctrlantialias (SO3GetMultisamplingMode SO3_OPENGL_RENDERER); let atoi (getProjectSettingDef "appWindowsAntialias" "1") -> antialiasselect in selectEdCtrlSelectByPos ctrlantialias antialiasselect; setEdCtrlButtonCb ctrlok mkfun2 @cbMkStandAloneOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkStandAloneCancelBtn winstr; ); 0;; fun checkAndroidPkgName(name)= let name -> cpname in //do strlowercase on the copied string, this modify the original string otherwise let (strreplace (strreplace (strreplace strlowercase cpname " " "") "-" "") "_" "") -> nname in ( let "0"::"1"::"2"::"3"::"4"::"5"::"6"::"7"::"8"::"9"::nil -> nums in let 0 -> dotpos in while ((set dotpos = strfind "." nname dotpos) != nil) do ( //no number after a dot! if (!isStringInList nums (substr nname (dotpos + 1) 1)) then nil else set nname = strcat (substr nname 0 dotpos + 1) (substr nname (dotpos + 2) strlen nname); set dotpos = dotpos + 1; ); let "."::"a"::"b"::"c"::"d"::"e"::"f"::"g"::"h"::"i"::"j"::"k"::"l"::"m"::"n"::"o"::"p"::"q"::"r"::"s"::"t"::"u"::"v"::"w"::"x"::"y"::"z"::"0"::"1"::"2"::"3"::"4"::"5"::"6"::"7"::"8"::"9"::nil -> alphanum in let 0 -> pos in let "" -> fname in ( while ((strlen nname) > 0) do ( let substr nname 0 1 -> letter in if (!isStringInList alphanum letter) then nil else set fname = strcat fname letter; set nname = substr nname 1 strlen nname; ); //addLogMessage strcatn name::" > "::fname::nil; if (!strcmp name fname) && (fname != nil) && ((strlen fname) > 4) && ((strfind "." fname (strfind "." fname 0) + 1) != nil) then 1 else 0; ); );; fun getAndroidShortName(name)= let strdup name -> cpname in //do strlowercase on the copied string, this modify the original string otherwise let strlowercase cpname -> nname in ( let "a"::"b"::"c"::"d"::"e"::"f"::"g"::"h"::"i"::"j"::"k"::"l"::"m"::"n"::"o"::"p"::"q"::"r"::"s"::"t"::"u"::"v"::"w"::"x"::"y"::"z"::"0"::"1"::"2"::"3"::"4"::"5"::"6"::"7"::"8"::"9"::nil -> alphanum in let 0 -> pos in let "" -> fname in ( while ((strlen nname) > 0) do ( let substr nname 0 1 -> letter in if (!isStringInList alphanum letter) then nil else set fname = strcat fname letter; set nname = substr nname 1 strlen nname; ); fname; ); );; //// ANDROID fun androidGetFilters(manifest, lfts)= let "" -> filters in ( while (lfts != nil) do ( if (!strcmpi hd lfts "dragndrop") then ( set filters = strcat filters " "; ) else nil; set lfts = tl lfts; ); strreplace manifest "@ANDROID_INTENT_FILTER@" filters; );; fun copyAndroidFilesToExportDirectory(dir, lfiles, ldeps, ldepsrep, lfts, xmlpath, fname, keystorepath, pass, arch, mode)= let 0 -> androidvr in let 0 -> androidrecordaudio in let getAndroidShortName fname -> shortname in let getProjectSettingDef "appPkgName" (strcat "os3d.app." shortname) -> pkgname in let getFileExt pkgname -> pkgappname in ( //copy scol base let getFilesFromDirRecursive "bin" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "dex" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "package/assets" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); //copy plugins and kernel if (!strcmpi arch "all") then ( let getDirListFromPath "package/lib" -> larch in while larch != nil do ( let hd larch -> darch in let getFilesFromDir darch "so"::nil -> lf in let lcat lPluginsBase "kernel"::ldeps -> fulldeps in let keepFilesBase lf fulldeps ldepsrep "lib" -> lroot in while lroot != nil do ( let hd lroot -> [sfile dfile] in ( if ((strfind "speech" dfile 0) == nil) then nil else set androidrecordaudio = 1; copyFileContent sfile strcatn dir::"/"::dfile::nil; ); set lroot = tl lroot; ); set larch = tl larch; ); 0; ) else ( let getFilesFromDir strcat "package/lib/" arch "so"::nil -> lf in let lcat lPluginsBase "kernel"::ldeps -> fulldeps in let keepFilesBase lf fulldeps ldepsrep "lib" -> lroot in while lroot != nil do ( let hd lroot -> [sfile dfile] in ( if ((((strfind "soculusmobile" dfile 0) != nil) || ((strfind "sopenxr" dfile 0) != nil)) && (!strcmpi arch "arm64-v8a")) then set androidvr = 1 else if ((strfind "speech" dfile 0) != nil) then set androidrecordaudio = 1 else nil; copyFileContent sfile strcatn dir::"/"::dfile::nil; ); set lroot = tl lroot; ); 0; ); let getFilesFromDirRecursive "res" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/package/assets/partition/"::file::nil; set lfiles = tl lfiles; ); copyFileContent "logo.bmp" strcatn dir::"/package/assets/partition/"::"logo.bmp"::nil; let _checkpack getProjectSetting "iconpath" -> iconpath in if (iconpath == nil) then nil else ( let G2DloadAlphaBmp _channel _PtoScol iconpath -> icon_src in ( // XXXHDPI ICON let _CRbitmap _channel 192 192 -> bmp in let _CRbitmap8 _channel 192 192 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xxxhdpi in ( _BTSAVEalphaBitmap icon_xxxhdpi _getmodifypack strcatn dir::"/res/drawable-xxhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XXHDPI ICON let _CRbitmap _channel 144 144 -> bmp in let _CRbitmap8 _channel 144 144 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xxhdpi in ( _BTSAVEalphaBitmap icon_xxhdpi _getmodifypack strcatn dir::"/res/drawable-xxhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XHDPI ICON let _CRbitmap _channel 96 96 -> bmp in let _CRbitmap8 _channel 96 96 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xhdpi in ( _BTSAVEalphaBitmap icon_xhdpi _getmodifypack strcatn dir::"/res/drawable-xhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XHDPI BANNER let _FILLbitmap _CRbitmap _channel 320 180 0xffffff -> bmp in let _FILLbitmap8 _CRbitmap8 _channel 320 180 255 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _GETalphaBitmapSize icon_src -> [sw sh] in let _BTBLENDalphaBitmaps abmp [80 10 160 160] icon_src [0 0 sw sh] 1.0 -> banner_xhdpi in ( _BTSAVEalphaBitmap banner_xhdpi _getmodifypack strcatn dir::"/res/drawable-xhdpi/banner.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // HDPI ICON let _CRbitmap _channel 72 72 -> bmp in let _CRbitmap8 _channel 72 72 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_hdpi in ( _BTSAVEalphaBitmap icon_hdpi _getmodifypack strcatn dir::"/res/drawable-hdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // MDPI ICON let _CRbitmap _channel 48 48 -> bmp in let _CRbitmap8 _channel 48 48 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_mdpi in ( _BTSAVEalphaBitmap icon_mdpi _getmodifypack strcatn dir::"/res/drawable-mdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // LDPI ICON let _CRbitmap _channel 36 36 -> bmp in let _CRbitmap8 _channel 36 36 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_ldpi in ( _BTSAVEalphaBitmap icon_ldpi _getmodifypack strcatn dir::"/res/drawable-ldpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap icon_src; ); ); let (getProjectSetting "splashpath") -> psplash in if ((_checkpack psplash) == nil) then ( let getProjectSettingDef "appOrientation" "landscape" -> corient in let if (!strcmpi corient "landscape") || (!strcmpi corient "reverseLandscape") || androidvr then 0 else 1 -> vert in if (!vert) then nil else copyFileContent (strcatn APPBASEDIR::"os3dplayer/splash_vert.png"::nil) strcatn dir::"/package/assets/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; if (!androidvr) then nil else ( copyFileContent (strcatn APPBASEDIR::"os3dplayer/splash.png"::nil) strcatn dir::"/package/assets/vr_splash.png"::nil; copyFileContent (strcatn APPBASEDIR::"os3dplayer/splash.png"::nil) strcatn dir::"/package/assets/pico_splash.png"::nil; ) ) else ( copyFileContent psplash strcatn dir::"/package/assets/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; if (!androidvr) then nil else ( copyFileContent psplash strcatn dir::"/package/assets/vr_splash.png"::nil; copyFileContent psplash strcatn dir::"/package/assets/pico_splash.png"::nil; ); ); // add splash path in usm.ini for android splash managed in java //make usm.ini makeUsmIni strcat dir "/package/assets" "android" "OpenGLES2" "2" "lib" ".so" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; //make manifest let _getpack _checkpack "AndroidManifest.xml.in" -> manifest in let "0x00020000" -> glesVersion in let "android:minSdkVersion=\"21\" android:targetSdkVersion=\"33\"" -> useSdk in let "" -> addFeatures in let "" -> addMeta in let "" -> addIntent in ( if (!androidvr) then nil else ( set useSdk = "android:minSdkVersion=\"21\" android:targetSdkVersion=\"33\""; set glesVersion = "0x00030001"; if (mode == 4) then set addFeatures = " " else if (mode == 5) then set addFeatures = " " else set addFeatures = " "; if ((mode == 4) || (mode == 3)) then set addIntent = ""; if ((mode == 4) || (mode == 3)) then set addMeta = " " else ( set addMeta = " "; ) ); if (!androidrecordaudio) then nil else set addFeatures = strcat addFeatures "\n"; set manifest = strreplace manifest "@ANDROID_PKG_NAME@" pkgname; set manifest = strreplace manifest "@ANDROID_APP_NAME@" fname; set manifest = strreplace manifest "@ANDROID_VERSION@" itoa (time + 100000000000); set manifest = strreplace manifest "@ANDROID_VERSION_NAME@" getProjectVersion; set manifest = strreplace manifest "@ANDROID_USE_SDK@" useSdk; set manifest = strreplace manifest "@ANDROID_ORIENTATION@" if ((mode == 3) || (mode == 4)) then "landscape" else getProjectSettingDef "appOrientation" "landscape"; set manifest = strreplace manifest "@ANDROID_GLES_VERSION@" glesVersion; set manifest = strreplace manifest "@ANDROID_ADDITIONAL_INTENT@" addIntent; set manifest = strreplace manifest "@ANDROID_ADDITIONAL_FEATURE@" addFeatures; set manifest = strreplace manifest "@ANDROID_META@" addMeta; set manifest = androidGetFilters manifest lfts; _storepack manifest strcatn dir::"/AndroidManifest.xml"::nil; ); //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/package/assets/partition/locked/master.pkg"::nil; if (keystorepath != nil) then nil else let makeAndroidSigninKey _getmodifypack "keystores/default.keystore" pkgappname "password" ["CN" "I-Maginer"]::["C" "FR"]::nil -> [kpath output] in set keystorepath = kpath; if (pass != nil && strcmp pass "") then nil else set pass = "password"; let makeAndroidAPK pkgappname (strcat dir "/AndroidManifest.xml") -> [unsignedapk output] in if unsignedapk == nil then [unsignedapk output] else signAndroidAPK unsignedapk keystorepath pkgappname pass; );; fun copyAndroidBundleFilesToExportDirectory(dir, lfiles, ldeps, ldepsrep, lfts, xmlpath, fname, keystorepath, pass, arch)= let getAndroidShortName fname -> shortname in let getProjectSettingDef "appPkgName" (strcat "os3d.app." shortname) -> pkgname in let getFileExt pkgname -> pkgappname in let if keystorepath != nil then 1 else 0 -> encryptkey in ( //copy scol base let getFilesFromDirRecursive "bin" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "dex" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "package/assets" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); //copy plugins and kernel if (!strcmpi arch "all") then ( let getDirListFromPath "package/lib" -> larch in while larch != nil do ( let hd larch -> darch in let getFilesFromDir darch "so"::nil -> lf in let lcat lPluginsBase "kernel"::ldeps -> fulldeps in let keepFilesBase lf fulldeps ldepsrep "lib" -> lroot in while lroot != nil do ( let hd lroot -> [sfile dfile] in copyFileContent sfile strcatn dir::"/"::dfile::nil; set lroot = tl lroot; ); set larch = tl larch; ); 0; ) else ( let getFilesFromDir strcat "package/lib/" arch "so"::nil -> lf in let lcat lPluginsBase "kernel"::ldeps -> fulldeps in let keepFilesBase lf fulldeps ldepsrep "lib" -> lroot in while lroot != nil do ( let hd lroot -> [sfile dfile] in copyFileContent sfile strcatn dir::"/"::dfile::nil; set lroot = tl lroot; ); 0; ); let getFilesFromDirRecursive2 "res" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContentC file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/package/assets/partition/"::file::nil; set lfiles = tl lfiles; ); copyFileContent "logo.bmp" strcatn dir::"/package/assets/partition/"::"logo.bmp"::nil; let _checkpack getProjectSetting "iconpath" -> iconpath in if (iconpath == nil) then nil else ( let G2DloadAlphaBmp _channel _PtoScol iconpath -> icon_src in ( // XXXHDPI ICON let _CRbitmap _channel 192 192 -> bmp in let _CRbitmap8 _channel 192 192 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xxxhdpi in ( _BTSAVEalphaBitmap icon_xxxhdpi _getmodifypack strcatn dir::"/res/drawable-xxhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XXHDPI ICON let _CRbitmap _channel 144 144 -> bmp in let _CRbitmap8 _channel 144 144 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xxhdpi in ( _BTSAVEalphaBitmap icon_xxhdpi _getmodifypack strcatn dir::"/res/drawable-xxhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XHDPI ICON let _CRbitmap _channel 96 96 -> bmp in let _CRbitmap8 _channel 96 96 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xhdpi in ( _BTSAVEalphaBitmap icon_xhdpi _getmodifypack strcatn dir::"/res/drawable-xhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XHDPI BANNER let _FILLbitmap _CRbitmap _channel 320 180 0xffffff -> bmp in let _FILLbitmap8 _CRbitmap8 _channel 320 180 255 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _GETalphaBitmapSize icon_src -> [sw sh] in let _BTBLENDalphaBitmaps abmp [80 10 160 160] icon_src [0 0 sw sh] 1.0 -> banner_xhdpi in ( _BTSAVEalphaBitmap banner_xhdpi _getmodifypack strcatn dir::"/res/drawable-xhdpi/banner.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // HDPI ICON let _CRbitmap _channel 72 72 -> bmp in let _CRbitmap8 _channel 72 72 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_hdpi in ( _BTSAVEalphaBitmap icon_hdpi _getmodifypack strcatn dir::"/res/drawable-hdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // MDPI ICON let _CRbitmap _channel 48 48 -> bmp in let _CRbitmap8 _channel 48 48 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_mdpi in ( _BTSAVEalphaBitmap icon_mdpi _getmodifypack strcatn dir::"/res/drawable-mdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // LDPI ICON let _CRbitmap _channel 36 36 -> bmp in let _CRbitmap8 _channel 36 36 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_ldpi in ( _BTSAVEalphaBitmap icon_ldpi _getmodifypack strcatn dir::"/res/drawable-ldpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap icon_src; ); ); let (getProjectSetting "splashpath") -> psplash in if ((_checkpack psplash) == nil) then ( let getProjectSettingDef "appOrientation" "landscape" -> corient in let if (!strcmpi corient "landscape") || (!strcmpi corient "reverseLandscape") then 0 else 1 -> vert in if (!vert) then nil else copyFileContent (strcatn APPBASEDIR::"os3dplayer/splash_vert.png"::nil) strcatn dir::"/package/assets/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; ) else copyFileContent psplash strcatn dir::"/package/assets/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; // add splash path in usm.ini for android splash managed in java //make usm.ini makeUsmIni strcat dir "/package/assets" "android" "OpenGLES2" "2" "lib" ".so" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; //make manifest let _getpack _checkpack "AndroidManifest.xml.in" -> manifest in let "0x00020000" -> glesVersion in let "android:minSdkVersion=\"21\" android:targetSdkVersion=\"33\"" -> useSdk in let "" -> addFeatures in let "" -> addMeta in ( set manifest = strreplace manifest "@ANDROID_PKG_NAME@" pkgname; set manifest = strreplace manifest "@ANDROID_APP_NAME@" fname; set manifest = strreplace manifest "@ANDROID_VERSION@" itoa (time + 100000000000); set manifest = strreplace manifest "@ANDROID_VERSION_NAME@" getProjectVersion; set manifest = strreplace manifest "@ANDROID_USE_SDK@" useSdk; set manifest = strreplace manifest "@ANDROID_ORIENTATION@" getProjectSettingDef "appOrientation" "landscape"; set manifest = strreplace manifest "@ANDROID_GLES_VERSION@" glesVersion; set manifest = strreplace manifest "@ANDROID_ADDITIONAL_FEATURE@" addFeatures; set manifest = strreplace manifest "@ANDROID_META@" addMeta; set manifest = androidGetFilters manifest lfts; _storepack manifest strcatn dir::"/AndroidManifest.xml"::nil; ); //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/package/assets/partition/locked/master.pkg"::nil; if (keystorepath != nil) then nil else let makeAndroidSigninKey _getmodifypack "keystores/default.keystore" pkgappname "password" ["CN" "I-Maginer"]::["C" "FR"]::nil -> [kpath output] in set keystorepath = kpath; if (pass != nil && strcmp pass "") then nil else set pass = "password"; //encryptAndroidSigninKey keystorepath shortname pass dir; let makeAndroidAppBundle pkgappname (strcat dir "/AndroidManifest.xml") -> [unsignedbundle output] in if unsignedbundle == nil then [unsignedbundle output] else ( if !encryptkey then nil else encryptAndroidSigninKey keystorepath pkgappname pass unsignedbundle; signAndroidAppBundle unsignedbundle keystorepath pkgappname pass; ); );; fun copyAndroidProjectFilesToExportDirectory(dir, lfiles, ldeps, ldepsrep, lfts, xmlpath, fname, arch)= let getAndroidShortName fname -> shortname in let getProjectSettingDef "appPkgName" (strcat "os3d.app." shortname) -> pkgname in let strcat dir "/app/src/main" -> appdir in ( //copy scol base let getFilesFromDirRecursive "bin" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "package/assets" -> lbase in let strlen "package" -> bsize in while lbase != nil do ( let hd lbase -> file in let substr file bsize ((strlen file) - bsize) -> nfile in copyFileContent file strcatn appdir::"/"::nfile::nil; set lbase = tl lbase; ); //copy plugins and kernel let strlen "package/lib" -> bsize in if (!strcmpi arch "all") then ( let getDirListFromPath "package/lib" -> larch in while larch != nil do ( let hd larch -> darch in let getFilesFromDir darch "so"::nil -> lf in let lcat lPluginsBase "kernel"::ldeps -> fulldeps in let keepFilesBase lf fulldeps ldepsrep "lib" -> lroot in while lroot != nil do ( let hd lroot -> [sfile dfile] in let substr dfile bsize ((strlen dfile) - bsize) -> nfile in copyFileContent sfile strcatn appdir::"/jniLibs/"::nfile::nil; set lroot = tl lroot; ); set larch = tl larch; ); 0; ) else ( let getFilesFromDir strcat "package/lib/" arch "so"::nil -> lf in let lcat lPluginsBase "kernel"::ldeps -> fulldeps in let keepFilesBase lf fulldeps ldepsrep "lib" -> lroot in while lroot != nil do ( let hd lroot -> [sfile dfile] in let substr dfile bsize ((strlen dfile) - bsize) -> nfile in copyFileContent sfile strcatn appdir::"/jniLibs/"::nfile::nil; set lroot = tl lroot; ); 0; ); let getFilesFromDirRecursive2 "res" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContentC file strcatn appdir::"/"::file::nil; set lbase = tl lbase; ); //java let getFilesFromDirRecursive2 "java" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContentC file strcatn appdir::"/"::file::nil; set lbase = tl lbase; ); while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn appdir::"/assets/partition/"::file::nil; set lfiles = tl lfiles; ); copyFileContent "logo.bmp" strcatn appdir::"/assets/partition/"::"logo.bmp"::nil; let _checkpack getProjectSetting "iconpath" -> iconpath in if (iconpath == nil) then nil else ( let G2DloadAlphaBmp _channel _PtoScol iconpath -> icon_src in ( // XXXHDPI ICON let _CRbitmap _channel 192 192 -> bmp in let _CRbitmap8 _channel 192 192 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xxxhdpi in ( _BTSAVEalphaBitmap icon_xxxhdpi _getmodifypack strcatn appdir::"/res/drawable-xxhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XXHDPI ICON let _CRbitmap _channel 144 144 -> bmp in let _CRbitmap8 _channel 144 144 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xxhdpi in ( _BTSAVEalphaBitmap icon_xxhdpi _getmodifypack strcatn appdir::"/res/drawable-xxhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XHDPI ICON let _CRbitmap _channel 96 96 -> bmp in let _CRbitmap8 _channel 96 96 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xhdpi in ( _BTSAVEalphaBitmap icon_xhdpi _getmodifypack strcatn appdir::"/res/drawable-xhdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // XHDPI BANNER let _FILLbitmap _CRbitmap _channel 320 180 0xffffff -> bmp in let _FILLbitmap8 _CRbitmap8 _channel 320 180 255 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _GETalphaBitmapSize icon_src -> [sw sh] in let _BTBLENDalphaBitmaps abmp [80 10 160 160] icon_src [0 0 sw sh] 1.0 -> banner_xhdpi in ( _BTSAVEalphaBitmap banner_xhdpi _getmodifypack strcatn appdir::"/res/drawable-xhdpi/banner.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // HDPI ICON let _CRbitmap _channel 72 72 -> bmp in let _CRbitmap8 _channel 72 72 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_hdpi in ( _BTSAVEalphaBitmap icon_hdpi _getmodifypack strcatn appdir::"/res/drawable-hdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // MDPI ICON let _CRbitmap _channel 48 48 -> bmp in let _CRbitmap8 _channel 48 48 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_mdpi in ( _BTSAVEalphaBitmap icon_mdpi _getmodifypack strcatn appdir::"/res/drawable-mdpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // LDPI ICON let _CRbitmap _channel 36 36 -> bmp in let _CRbitmap8 _channel 36 36 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_ldpi in ( _BTSAVEalphaBitmap icon_ldpi _getmodifypack strcatn appdir::"/res/drawable-ldpi/ic_launcher.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap icon_src; ); ); let (getProjectSetting "splashpath") -> psplash in if ((_checkpack psplash) == nil) then ( let getProjectSettingDef "appOrientation" "landscape" -> corient in let if (!strcmpi corient "landscape") || (!strcmpi corient "reverseLandscape") then 0 else 1 -> vert in if (!vert) then nil else copyFileContent (strcatn APPBASEDIR::"os3dplayer/splash_vert.png"::nil) strcatn appdir::"/assets/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; ) else copyFileContent psplash strcatn appdir::"/assets/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; // add splash path in usm.ini for android splash managed in java //make usm.ini makeUsmIni strcat appdir "/assets" "android" "OpenGLES2" "2" "lib" ".so" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; //make manifest let _getpack _checkpack "AndroidManifest.xml.in" -> manifest in let "0x00020000" -> glesVersion in let "android:minSdkVersion=\"21\" android:targetSdkVersion=\"33\"" -> useSdk in let "" -> addFeatures in let "" -> addMeta in ( set manifest = strreplace manifest "@ANDROID_PKG_NAME@" pkgname; set manifest = strreplace manifest "@ANDROID_APP_NAME@" fname; set manifest = strreplace manifest "@ANDROID_VERSION@" itoa (time + 100000000000); set manifest = strreplace manifest "@ANDROID_VERSION_NAME@" getProjectVersion; set manifest = strreplace manifest "@ANDROID_USE_SDK@" useSdk; set manifest = strreplace manifest "@ANDROID_ORIENTATION@" getProjectSettingDef "appOrientation" "landscape"; set manifest = strreplace manifest "@ANDROID_GLES_VERSION@" glesVersion; set manifest = strreplace manifest "@ANDROID_ADDITIONAL_FEATURE@" addFeatures; set manifest = strreplace manifest "@ANDROID_META@" addMeta; set manifest = androidGetFilters manifest lfts; _storepack manifest strcatn appdir::"/AndroidManifest.xml"::nil; ); //make gradle let _getpack _checkpack "build.gradle.in" -> gradle in ( set gradle = strreplace gradle "@ANDROID_PKG_NAME@" pkgname; _storepack gradle strcatn dir::"/app/build.gradle"::nil; ); _storepack "include ':app'\n" strcatn dir::"/settings.gradle"::nil; copyFileContent "build.gradle.root.in" strcatn dir::"/build.gradle"::nil; copyFileContent "gradle.properties.in" strcatn dir::"/gradle.properties"::nil; copyFileContent "gradle-wrapper.properties.in" strcatn dir::"/gradle/wrapper/gradle-wrapper.properties"::nil; //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn appdir::"/assets/partition/locked/master.pkg"::nil; 0; );; fun cbMkAndroidDoneBtn(ctrlbtn, p)= let p -> [winstr pwinstr exportdir xmlpath projname arch mode cbfun] in ( dsEdWindow winstr; dsEdWindow pwinstr; set winMkApplet = nil; let if (mode == 2) then strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\Android_"::"project"::"\\"::projname::nil else if (mode == 1) then strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\Android_"::"bundle"::"\\"::projname::nil else strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\Android_"::arch::"\\"::projname::nil -> fullpath in ( _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun cbMkAndroidCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbDestroyAndroidExportWin(winstr, pwinstr)= dsEdWindow2 pwinstr; 0;; fun cbMkAndroidOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script keystorepath ctrlexport ctrlarch ctrlkeystorepath ctrlkeystorepass ctrldeploy ctrlorient ctrlpkgname cbfun] in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getEdCtrlCheckState ctrldeploy -> deploy in let getEdCtrlTextLineValue ctrlkeystorepass -> pass in let getSelectedEdCtrlSelectPos ctrlexport -> mode in let getSelectedEdCtrlSelect ctrlarch -> arch in let if ((!strcmp arch "default") || mode != 0) then "all" else arch -> arch in let getSelectedEdCtrlSelectPos ctrlorient -> orientation in let getEdCtrlTextLineValue ctrlpkgname -> pkgname in let if (mode == 2) then "project" else if (mode == 1) then "bundle" else arch -> archdir in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/Android_"::archdir::"/"::projname::nil) else (strcatn projdir::"/"::sExportDirectory::"/Android_"::archdir::"/"::projname::nil) -> exportdir in ( //set conf let if (orientation == 0) then "landscape" else if (orientation == 1) then "portrait" else if (orientation == 2) then "reverseLandscape" else "reversePortrait" -> orientmode in setProjectSetting "appOrientation" orientmode; setProjectSetting "appAndroidType" (itoa mode); setProjectSetting "appAndroidArch" itoa (getSelectedEdCtrlSelectPos ctrlarch); if (!checkAndroidPkgName(pkgname)) then ( _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0586")::nil 0; 0; ) else ( setProjectSetting "appPkgName" strlowercase pkgname; let crEdModalDialogWindow _channel pwinstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./androidDeployerTools/scolbase" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in ( cleanDirectory exportdir; if (mode == 2) then ( copyAndroidProjectFilesToExportDirectory exportdir lfiles ldeps nil lfts xmlpath projname arch; setEdCtrlButtonCb ctrldone mkfun2 @cbMkAndroidDoneBtn [winstr pwinstr exportdir xmlpath projname arch mode cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyAndroidExportWin pwinstr; setEdWindowFocus winstr; 0; ) else if (mode == 1) then ( let copyAndroidBundleFilesToExportDirectory exportdir lfiles ldeps nil lfts xmlpath projname keystorepath pass arch -> [signedapk output] in if (signedapk != nil) then ( setEdCtrlButtonCb ctrldone mkfun2 @cbMkAndroidDoneBtn [winstr pwinstr exportdir xmlpath projname arch mode cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyAndroidExportWin pwinstr; setEdWindowFocus winstr; 0; ) else ( dsEdWindow winstr; _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0560")::"\n\n"::output::nil 0; 0; ); ) else ( let copyAndroidFilesToExportDirectory exportdir lfiles ldeps nil lfts xmlpath projname keystorepath pass arch mode -> [signedapk output] in if (signedapk != nil) then ( if (!deploy) then nil else installAndroidAPK signedapk; setEdCtrlButtonCb ctrldone mkfun2 @cbMkAndroidDoneBtn [winstr pwinstr exportdir xmlpath projname arch mode cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyAndroidExportWin pwinstr; setEdWindowFocus winstr; 0; ) else ( dsEdWindow winstr; _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0560")::"\n\n"::output::nil 0; 0; ); ); ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); 0; ); ); 0;; fun cbMkAndroidValidate(ctrl, val, p)= cbMkAndroidOk nil p; 0;; fun cbDlgAndroidGetKeyStorePath(dlg, p, pfile)= let p -> [ctrlbtn p1] in let p1 -> [pwinstr fatherstr projname xmlpath script keystorepath ctrlexport ctrlarch ctrlkeystorepath ctrlkeystorepass ctrldeploy ctrlorient ctrlpkgname cbfun] in ( if pfile == nil then nil else let _GetFileNameFromP pfile -> fname in setEdCtrlTextLineValue ctrlkeystorepath fname; setEdCtrlButtonEnable ctrlbtn 1; setProjectSetting "keystorepath" _PtoScol pfile; mutate p1 <- [_ _ _ _ _ pfile _ _ _ _ _ _ _ _]; ); 0;; fun cbBtnAndroidPickKeyStorePath(ctrlbtn, p)= let p -> [winstr _ _ xmlpath _ _ _ _ _ _ _ _ _ _] in ( setEdCtrlButtonEnable ctrlbtn 0; let getFileDirectory xmlpath -> dir in _DLGrflopen _DLGOpenFile _channel winstr.EDW_win nil nil "Key Store (*.keystore)\0*.keystore\0All\0*.*\0\0" @cbDlgAndroidGetKeyStorePath [ctrlbtn p]; ); 0;; fun cbMkAndroidCancelKeyStoreBtn(ctrlbtn, p)= let p -> [winstr ctrlbtn] in ( dsEdWindow winstr; setEdCtrlButtonEnable ctrlbtn 1; ); 0;; fun cbAndroidCreateKeyStoreOk(ctrlbtn, p)= let p -> [p1 winstr wfile ctrlbtn1 ctrlcn ctrlo ctrlcity ctrlcountry ctrlpass ctrlpass2] in let p1 -> [pwinstr fatherstr projname xmlpath script keystorepath ctrlexport ctrlarch ctrlkeystorepath ctrlkeystorepass ctrldeploy ctrlorient ctrlpkgname cbfun] in let _WtoP wfile -> pfile in let getAndroidShortName projname -> shortname in let getEdCtrlTextLineValue ctrlpkgname -> pkgname in let getFileExt pkgname -> pkgappname in let getEdCtrlTextLineValue ctrlpass -> pass in let getEdCtrlTextLineValue ctrlpass2 -> pass2 in let getEdCtrlTextLineValue ctrlcn -> author in let getEdCtrlTextLineValue ctrlo -> compagny in let getEdCtrlTextLineValue ctrlcountry -> country in let getEdCtrlTextLineValue ctrlcity -> city in if (!strcmp pass pass2) && (strcmp strtrim pass "") && (strcmp strtrim country "") then ( let makeAndroidSigninKey wfile pkgappname pass ["CN" author]::["O" compagny]::["C" country]::["L" city]::nil -> [keystore output] in if (keystore != nil) then ( dsEdWindow winstr; let _GetFileNameFromP pfile -> fname in setEdCtrlTextLineValue ctrlkeystorepath fname; setEdCtrlTextLineValue ctrlkeystorepass pass; setEdCtrlButtonEnable ctrlbtn1 1; setProjectSetting "keystorepath" _PtoScol pfile; mutate p1 <- [_ _ _ _ _ pfile _ _ _ _ _ _ _ _]; setEdWindowFocus pwinstr; 0; ) else ( // error _DLGMessageBox _channel fatherstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0563")::"\n\n"::output::nil 0; 0; ); ) else ( //error password or country empty _DLGMessageBox _channel fatherstr.EDW_win (loc "OS3D_0155") (loc "OS3D_0564") 0; 0; ); 0;; fun cbDlgAndroidSetKeyStorePath(dlg, p, wfile)= let p -> [ctrlbtn p1] in let p1 -> [pwinstr fatherstr projname xmlpath script keystorepath ctrlexport ctrlarch ctrlkeystorepath ctrlkeystorepass ctrldeploy ctrlorient ctrlpkgname cbfun] in ( if wfile == nil then ( setEdCtrlButtonEnable ctrlbtn 1; 0; ) else ( let _WtoP wfile -> pfile in if ((_PtoScol pfile) == nil) then ( setEdCtrlButtonEnable ctrlbtn 1; 0; ) else ( let getFileExt _PtoScol pfile -> ext in if (!strcmpi ext "keystore") then nil else set wfile = _getmodifypack strcat _PtoScol pfile ".keystore"; 0; ); let _GETscreenSize -> [sw sh] in let [430 205] -> [iw ih] in let 10 -> ypos in ( let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0562") -> winstr in let crEdCtrlLabel winstr 10 ypos + 2 200 20 (loc "OS3D_0565") nil -> labelcn in let crEdCtrlTextLine winstr 220 ypos (iw - 230) 20 getProjectSetting "authorName" nil EDWIN_RESIZE_MW -> ctrlcn in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 200 20 (loc "OS3D_0566") nil -> labelo in let crEdCtrlTextLine winstr 220 ypos (iw - 230) 20 getProjectSetting "authorCompany" nil EDWIN_RESIZE_MW -> ctrlo in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 200 20 (loc "OS3D_0567") nil -> labelcity in let crEdCtrlTextLine winstr 220 ypos (iw - 230) 20 "" nil EDWIN_RESIZE_MW -> ctrlcity in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 200 20 (loc "OS3D_0568") nil -> labelcountry in let crEdCtrlTextLine winstr 220 ypos (iw - 230) 20 "" nil EDWIN_RESIZE_MW -> ctrlcountry in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 200 20 (loc "OS3D_0569") nil -> labelpass in let crEdCtrlTextLine winstr 220 ypos (iw - 230) 20 "" ET_BORDER|ET_AHSCROLL|ET_TABFOCUS|ET_PASSWORD EDWIN_RESIZE_MW -> ctrlpass in let crEdCtrlLabel winstr 10 (set ypos = ypos + 25) + 2 200 20 (loc "OS3D_0570") nil -> labelpass2 in let crEdCtrlTextLine winstr 220 ypos (iw - 230) 20 "" ET_BORDER|ET_AHSCROLL|ET_TABFOCUS|ET_PASSWORD EDWIN_RESIZE_MW -> ctrlpass2 in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in ( setEdCtrlButtonCb ctrlok mkfun2 @cbAndroidCreateKeyStoreOk [p1 winstr wfile ctrlbtn ctrlcn ctrlo ctrlcity ctrlcountry ctrlpass ctrlpass2]; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkAndroidCancelKeyStoreBtn [winstr ctrlbtn]; ); ); 0; ); ); 0;; fun cbBtnAndroidCreateKeyStore(ctrlbtn, p)= let p -> [winstr _ _ xmlpath _ _ _ _ _ _ _ _ _ _] in ( setEdCtrlButtonEnable ctrlbtn 0; let getFileDirectory xmlpath -> dir in _DLGrflsave _DLGSaveFile _channel winstr.EDW_win dir nil "Key Store (*.keystore)\0*.keystore\0All\0*.*\0\0" @cbDlgAndroidSetKeyStorePath [ctrlbtn p]; ); 0;; fun cbAndroidProjMode(ctrlstr, pos, value, p)= let p -> [labelarch ctrlarch labelkeystore pickkeystorebtn newkeystorebtn labelpass ctrlkeystorepass ctrldeploy] in ( if (pos != 0) then nil else setEdCtrlCheckState ctrldeploy 0; setEdCtrlLabelEnable labelarch (pos == 0); setEdCtrlSelectEnable ctrlarch (pos == 0); setEdCtrlLabelEnable labelkeystore !(pos == 2); setEdCtrlButtonEnable pickkeystorebtn !(pos == 2); setEdCtrlButtonEnable newkeystorebtn !(pos == 2); setEdCtrlLabelEnable labelpass !(pos == 2); setEdCtrlTextLineEnable ctrlkeystorepass !(pos == 2); setEdCtrlCheckEnable ctrldeploy (pos == 0); ); 0;; fun mkAndroidApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 220] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let getAndroidShortName projname -> shortname in let getProjectSettingDef "appPkgName" if ((getProjectSetting "authorCompany") != nil) then strcatn "com."::(getAndroidShortName (getProjectSetting "authorCompany"))::"."::shortname::nil else strcat "os3d.app." shortname -> pkgname in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0585") nil -> labelpkg in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 pkgname nil EDWIN_RESIZE_MW -> ctrlpkgname in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0582") nil -> labelorient in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlorient in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0680") nil -> labelexport in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlexport in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0575") nil -> labelarch in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlarch in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0558") nil -> labelkeystore in let crEdCtrlTextLine winstr 180 ipos (iw - 270) 20 nil nil EDWIN_RESIZE_MW -> ctrlkeystorepath in let crEdCtrlButton winstr (iw - 85) ipos 35 20 "..." nil -> pickkeystorebtn in let crEdCtrlButton winstr (iw - 45) ipos 35 20 "+" nil -> newkeystorebtn in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0559") nil -> labelpass in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 nil ET_BORDER|ET_AHSCROLL|ET_TABFOCUS|ET_PASSWORD EDWIN_RESIZE_MW -> ctrlkeystorepass in let crEdCtrlCheck winstr 10 (set ipos = ipos + 25) (iw - 35) 20 (loc "OS3D_0561") EDWIN_RESIZE_MW -> ctrldeploy in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script (_checkpack getProjectSetting "keystorepath") ctrlexport ctrlarch ctrlkeystorepath ctrlkeystorepass ctrldeploy ctrlorient ctrlpkgname cbfun] -> p in ( set winMkApplet = winstr; fillEdCtrlSelect ctrlorient (loc "OS3D_0583")::(loc "OS3D_0584")::(loc "OS3D_0633")::(loc "OS3D_0634")::nil; fillEdCtrlSelect ctrlexport (loc "OS3D_0681")::(loc "OS3D_0682")::(loc "OS3D_0683")::nil; setEdCtrlSelectCb ctrlexport mkfun4 @cbAndroidProjMode [labelarch ctrlarch labelkeystore pickkeystorebtn newkeystorebtn labelpass ctrlkeystorepass ctrldeploy]; let atoi (getProjectSettingDef "appAndroidType" "0") -> typeselect in ( selectEdCtrlSelectByPos ctrlexport typeselect; cbAndroidProjMode nil typeselect nil [labelarch ctrlarch labelkeystore pickkeystorebtn newkeystorebtn labelpass ctrlkeystorepass ctrldeploy]; ); fillEdCtrlSelect ctrlarch "default"::"all"::"armeabi-v7a"::"x86"::"arm64-v8a"::"x86_64"::nil; let getProjectSettingDef "appAndroidArch" "0" -> archselect in selectEdCtrlSelectByPos ctrlarch (atoi archselect); let getProjectSettingDef "appOrientation" "landscape" -> orientselect in let if (!strcmpi orientselect "landscape") then 0 else if (!strcmpi orientselect "portrait") then 1 else if (!strcmpi orientselect "reverseLandscape") then 2 else 3 -> opos in selectEdCtrlSelectByPos ctrlorient opos; setEdCtrlTextLineEnable ctrlkeystorepath 0; setEdCtrlTextLineValue ctrlkeystorepath (let getPathFile getProjectSetting "keystorepath" nil -> [_ filename] in filename); setEdCtrlTextLineCbValidate ctrlkeystorepass mkfun3 @cbMkAndroidValidate p; setEdCtrlButtonCb pickkeystorebtn mkfun2 @cbBtnAndroidPickKeyStorePath p; setEdCtrlButtonCb newkeystorebtn mkfun2 @cbBtnAndroidCreateKeyStore p; setEdCtrlButtonCb ctrlok mkfun2 @cbMkAndroidOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkAndroidCancelBtn winstr; ); 0;; ///// Oculus Mobile APP fun cbMkOculusMobileDoneBtn(ctrlbtn, p)= let p -> [winstr pwinstr exportdir xmlpath projname arch mode cbfun] in ( dsEdWindow winstr; dsEdWindow pwinstr; set winMkApplet = nil; let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\OculusMobile\\"::projname::nil -> fullpath in ( _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun cbMkOculusMobileCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbDestroyOculusMobileExportWin(winstr, pwinstr)= dsEdWindow2 pwinstr; 0;; fun cbMkOculusMobileOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script keystorepath _ ctrlhands ctrlkeystorepath ctrlkeystorepass ctrldeploy _ ctrlpkgname cbfun] in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getEdCtrlCheckState ctrldeploy -> deploy in let getEdCtrlTextLineValue ctrlkeystorepass -> pass in let getEdCtrlTextLineValue ctrlpkgname -> pkgname in let "arm64-v8a" -> arch in let if (getEdCtrlCheckState ctrlhands) then 4 else 3 -> mode in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/OculusMobile/"::projname::nil) else (strcatn projdir::"/"::sExportDirectory::"/OculusMobile/"::projname::nil) -> exportdir in ( setProjectSetting "appVrHands" if (mode == 4) then "1" else "0"; if (!checkAndroidPkgName(pkgname)) then ( _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0586")::nil 0; 0; ) else ( setProjectSetting "appPkgName" strlowercase pkgname; let crEdModalDialogWindow _channel pwinstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./androidDeployerTools/scolbase" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in let ["openxr_loader_oc" "openxr_loader"]::nil -> ldepsrep in let apply_dep_replace_list ldeps ldepsrep -> ldeps in ( cleanDirectory exportdir; let copyAndroidFilesToExportDirectory exportdir lfiles ldeps ldepsrep lfts xmlpath projname keystorepath pass arch mode -> [signedapk output] in if (signedapk != nil) then ( if (!deploy) then nil else installAndroidAPK signedapk; setEdCtrlButtonCb ctrldone mkfun2 @cbMkOculusMobileDoneBtn [winstr pwinstr exportdir xmlpath projname arch mode cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyOculusMobileExportWin pwinstr; setEdWindowFocus winstr; 0; ) else ( dsEdWindow winstr; _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0560")::"\n\n"::output::nil 0; 0; ); ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); 0; ); ); 0;; fun cbMkOculusMobileValidate(ctrl, val, p)= cbMkOculusMobileOk nil p; 0;; fun mkOculusApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 195] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let getAndroidShortName projname -> shortname in let getProjectSettingDef "appPkgName" if ((getProjectSetting "authorCompany") != nil) then strcatn "com."::(getAndroidShortName (getProjectSetting "authorCompany"))::"."::shortname::nil else strcat "os3d.app." shortname -> pkgname in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0585") nil -> labelpkg in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 pkgname nil EDWIN_RESIZE_MW -> ctrlpkgname in let crEdCtrlCheck winstr 10 (set ipos = ipos + 25) (iw - 35) 20 (loc "OS3D_0810") EDWIN_RESIZE_MW -> ctrlhands in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 35) + 2) 160 20 (loc "OS3D_0558") nil -> labelkeystore in let crEdCtrlTextLine winstr 180 ipos (iw - 270) 20 nil nil EDWIN_RESIZE_MW -> ctrlkeystorepath in let crEdCtrlButton winstr (iw - 85) ipos 35 20 "..." nil -> pickkeystorebtn in let crEdCtrlButton winstr (iw - 45) ipos 35 20 "+" nil -> newkeystorebtn in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0559") nil -> labelpass in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 nil ET_BORDER|ET_AHSCROLL|ET_TABFOCUS|ET_PASSWORD EDWIN_RESIZE_MW -> ctrlkeystorepass in let crEdCtrlCheck winstr 10 (set ipos = ipos + 25) (iw - 35) 20 (loc "OS3D_0561") EDWIN_RESIZE_MW -> ctrldeploy in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script (_checkpack getProjectSetting "keystorepath") nil ctrlhands ctrlkeystorepath ctrlkeystorepass ctrldeploy nil ctrlpkgname cbfun] -> p in ( set winMkApplet = winstr; setEdCtrlCheckState ctrlhands atoi (getProjectSettingDef "appVrHands" "0"); setEdCtrlTextLineEnable ctrlkeystorepath 0; setEdCtrlTextLineValue ctrlkeystorepath (let getPathFile getProjectSetting "keystorepath" nil -> [_ filename] in filename); setEdCtrlTextLineCbValidate ctrlkeystorepass mkfun3 @cbMkOculusMobileValidate p; setEdCtrlButtonCb pickkeystorebtn mkfun2 @cbBtnAndroidPickKeyStorePath p; setEdCtrlButtonCb newkeystorebtn mkfun2 @cbBtnAndroidCreateKeyStore p; setEdCtrlButtonCb ctrlok mkfun2 @cbMkOculusMobileOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkOculusMobileCancelBtn winstr; ); 0;; ///// Pico Mobile APP fun cbMkPicoDoneBtn(ctrlbtn, p)= let p -> [winstr pwinstr exportdir xmlpath projname arch mode cbfun] in ( dsEdWindow winstr; dsEdWindow pwinstr; set winMkApplet = nil; let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\Pico\\"::projname::nil -> fullpath in ( _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun cbMkPicoCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbDestroyPicoExportWin(winstr, pwinstr)= dsEdWindow2 pwinstr; 0;; fun cbMkPicoOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script keystorepath _ ctrlhands ctrlkeystorepath ctrlkeystorepass ctrldeploy _ ctrlpkgname cbfun] in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getEdCtrlCheckState ctrldeploy -> deploy in let getEdCtrlTextLineValue ctrlkeystorepass -> pass in let getEdCtrlTextLineValue ctrlpkgname -> pkgname in let "arm64-v8a" -> arch in let if (getEdCtrlCheckState ctrlhands) then 1 else 0 -> vrhands in let 5 -> mode in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/Pico/"::projname::nil) else (strcatn projdir::"/"::sExportDirectory::"/Pico/"::projname::nil) -> exportdir in ( setProjectSetting "appVrHands" if vrhands then "1" else "0"; if (!checkAndroidPkgName(pkgname)) then ( _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0586")::nil 0; 0; ) else ( setProjectSetting "appPkgName" strlowercase pkgname; let crEdModalDialogWindow _channel pwinstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./androidDeployerTools/scolbase" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in let ["openxr_loader_pico" "openxr_loader"]::nil -> ldepsrep in let apply_dep_replace_list ldeps ldepsrep -> ldeps in ( cleanDirectory exportdir; let copyAndroidFilesToExportDirectory exportdir lfiles ldeps ldepsrep lfts xmlpath projname keystorepath pass arch mode -> [signedapk output] in if (signedapk != nil) then ( if (!deploy) then nil else installAndroidAPK signedapk; setEdCtrlButtonCb ctrldone mkfun2 @cbMkPicoDoneBtn [winstr pwinstr exportdir xmlpath projname arch mode cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyPicoExportWin pwinstr; setEdWindowFocus winstr; 0; ) else ( dsEdWindow winstr; _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0560")::"\n\n"::output::nil 0; 0; ); ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); 0; ); ); 0;; fun cbMkPicoValidate(ctrl, val, p)= cbMkPicoOk nil p; 0;; fun mkPicoApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 170] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let getAndroidShortName projname -> shortname in let getProjectSettingDef "appPkgName" if ((getProjectSetting "authorCompany") != nil) then strcatn "com."::(getAndroidShortName (getProjectSetting "authorCompany"))::"."::shortname::nil else strcat "os3d.app." shortname -> pkgname in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0585") nil -> labelpkg in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 pkgname nil EDWIN_RESIZE_MW -> ctrlpkgname in //let crEdCtrlCheck winstr 10 (set ipos = ipos + 25) (iw - 35) 20 (loc "OS3D_0810") EDWIN_RESIZE_MW -> ctrlhands in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 35) + 2) 160 20 (loc "OS3D_0558") nil -> labelkeystore in let crEdCtrlTextLine winstr 180 ipos (iw - 270) 20 nil nil EDWIN_RESIZE_MW -> ctrlkeystorepath in let crEdCtrlButton winstr (iw - 85) ipos 35 20 "..." nil -> pickkeystorebtn in let crEdCtrlButton winstr (iw - 45) ipos 35 20 "+" nil -> newkeystorebtn in let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0559") nil -> labelpass in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 nil ET_BORDER|ET_AHSCROLL|ET_TABFOCUS|ET_PASSWORD EDWIN_RESIZE_MW -> ctrlkeystorepass in let crEdCtrlCheck winstr 10 (set ipos = ipos + 25) (iw - 35) 20 (loc "OS3D_0561") EDWIN_RESIZE_MW -> ctrldeploy in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script (_checkpack getProjectSetting "keystorepath") nil nil ctrlkeystorepath ctrlkeystorepass ctrldeploy nil ctrlpkgname cbfun] -> p in ( set winMkApplet = winstr; //setEdCtrlCheckState ctrlhands atoi (getProjectSettingDef "appVrHands" "0"); setEdCtrlTextLineEnable ctrlkeystorepath 0; setEdCtrlTextLineValue ctrlkeystorepath (let getPathFile getProjectSetting "keystorepath" nil -> [_ filename] in filename); setEdCtrlTextLineCbValidate ctrlkeystorepass mkfun3 @cbMkPicoValidate p; setEdCtrlButtonCb pickkeystorebtn mkfun2 @cbBtnAndroidPickKeyStorePath p; setEdCtrlButtonCb newkeystorebtn mkfun2 @cbBtnAndroidCreateKeyStore p; setEdCtrlButtonCb ctrlok mkfun2 @cbMkPicoOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkPicoCancelBtn winstr; ); 0;; ///// LOCAL WEB APP fun mkAppletCpLocalWebfiles(l, path)= if l == nil then nil else ( let getPathFile (hd l) "" -> [_ filename] in if !strcmpi "index.html" filename then nil else copyFileContent (hd l) (strcatn path::filename::nil); mkAppletCpLocalWebfiles (tl l) path; ); 0;; fun mkAppletLocalWeb(exportdir, projname, xmlpath, pakpath)= let _listoffiles strcat APPBASEDIR sMkAppletPath -> lwebfiles in let _checkpack (getProjectSetting "splashpath") -> psplash in let if (psplash == nil) then lwebfiles else (getProjectSetting "splashpath")::lwebfiles -> lwebfiles in let XMLload xmlpath -> xmlscenestr in let XMLgetMarkByValue xmlscenestr "environment" -> envmark in let XMLgetMarkByValueFromMarkSons envmark "colourBackground" -> backstr in let make_rgb (ftoi ((atof XMLgetParam backstr "b") *. 255.0)) (ftoi ((atof XMLgetParam backstr "g") *. 255.0)) (ftoi ((atof XMLgetParam backstr "r") *. 255.0)) -> bgcolor in ( mkAppletCpLocalWebfiles lwebfiles exportdir; let strreplace (strreplace pakpath " " "+") "/" "%2F" -> pakpath in let strcatn "%5fload+%22"::(strreplace (strreplace exportdir " " "+") "/" "%2F")::"os3dplayer%2Fos3dload%2Epkg%22%0amain+%22"::pakpath::"%22+%22"::(strreplace projname " " "+")::"%22+%22"::(getProjectSettingDef "defaultWidth" "1280")::"%22+%22"::(getProjectSettingDef "defaultHeight" "720")::"%22+0"::nil -> appurl in let getVoyagerVersionS -> svoyver in let _getpack _checkpack strcatn APPBASEDIR::sMkAppletPath::"index.html"::nil -> html in ( if (psplash == nil) then ( set html = strreplace html "$BGSPLASH" ""; ) else ( let getPathFile (_PtoScol psplash) "" -> [_ splashimg] in set html = strreplace html "$BGSPLASH" strcatn "style=\"background-image:url('"::splashimg::"'); background-repeat:no-repeat; background-position:center;\""::nil; ); set html = strreplace html "$TITLE" projname; set html = strreplace html "$BGCOLOR" (if bgcolor == 0 then "000000" else (itoh bgcolor)); set html = strreplace html "$SCOL_SITE_URL_OLD" appurl; set html = strreplace html "$SCOL_SITE_URL" appurl; set html = strreplace html "$WIN_32_PLUGIN_URL" "http://www.scolring.org/rsc/scol_plugin.exe"; set html = strreplace html "$MINIMUMSCOLVERSION" svoyver; set html = strreplace html "$WEBINTEGRATED" (itoa 2); set html = strreplace html "$WIDTH" (getProjectSettingDef "defaultWidth" "1280"); set html = strreplace html "$HEIGHT" (getProjectSettingDef "defaultHeight" "720"); _storepack html strcatn exportdir::"index.html"::nil; ); XMLclose xmlscenestr; let sizelist lwebfiles -> size in let nil -> ndata in let 0 -> i in ( while i < size do ( let nth_list lwebfiles i -> elem in let getPathFile elem "" -> [_ wname] in set ndata = (strcatn exportdir::wname::nil)::ndata; set i = i + 1; ); (strcat exportdir "index.html")::ndata; ); );; fun cbWebPakTrm(trm, wp)= let wp -> [tctrl l wfile cbComplete] in ( _deltimer trm; _freememory; //manage cancel if (winMkApplet == nil) then nil else mkWebPakAll tctrl l wfile cbComplete; ); 0;; fun mkWebPakAll(tctrl, l, wfile, cbComplete)= if (l == nil) then ( exec cbComplete with []; 0; ) else ( let l->[name nxt] in let getFileContent name -> content in ( let zip content -> ziped in let if (!strcmpi (substr name 0 (strlen APPBASEDIR)) APPBASEDIR) then strcat "APPBASEDIR" (substr name ((strlen APPBASEDIR) - 1) (strlen name)) else name -> mname in _appendpack strcatn "#******#"::mname::"|"::(_getlongname content "" "#")::"|"::(itoa (strlen ziped))::"|"::ziped::nil wfile; _freememory; setEdCtrlLabelValue tctrl strcatn "Pack "::name::nil; // use a timer to allow the garbage collector to free some memory in the loop _rfltimer _starttimer _channel 5 @cbWebPakTrm [tctrl nxt wfile cbComplete]; 0; ); ); 0;; fun cpLocalWebFiles(exportdir, l)= if (l == nil) then nil else ( let hd l -> file in let if (!strcmpi (substr file 0 (strlen APPBASEDIR)) APPBASEDIR) then (substr file ((strlen APPBASEDIR) - 1) (strlen file)) else file -> nfile in copyFileContent file strcat exportdir nfile; cpLocalWebFiles exportdir tl l; 0; );; fun cbWebPakComplete(p)= let p -> [exportdir lfiles xmlpath projname pakpath ctrldone labelport] in ( mkAppletLocalWeb exportdir projname xmlpath pakpath; cpLocalWebFiles exportdir lfiles; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); 0;; fun copyFilesToExportWebDirectory(exportdir, lfiles, resfiles, xmlpath, projname, ctrldone, labelport)= let getFileNameWithoutExt xmlpath -> fname in let strcatn exportdir::fname::".pak"::nil -> pakpath in let strcatn (mkDTime time)::"\n"::xmlpath::"\n"::nil -> ncontent in ( _storepack ncontent pakpath; mkWebPakAll labelport resfiles (_getmodifypack pakpath) mkfun1 @cbWebPakComplete [exportdir lfiles xmlpath projname pakpath ctrldone labelport]; ); 0;; fun cbMkStandAloneWebCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; set winMkApplet = nil; 0;; fun mkStandAloneWeb(fatherstr, projname, xmlpath, script)= let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/"::projname::"/"::nil) else (strcatn projdir::"/"::sExportDirectory::"/"::projname::"/"::nil) -> exportdir in ( let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0521") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 110) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in let crEdCtrlButton winstr ((iw /2) + 20) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; let mkAppletListOS3DFiles xmlpath -> lfiles in let getMkAppletXmlResources xmlpath nil -> [resfiles _ _] in ( cleanDirectory exportdir; copyFilesToExportWebDirectory exportdir lfiles resfiles xmlpath projname ctrldone labelport; ); setEdCtrlButtonCb ctrldone mkfun2 @cbMkStandAloneDoneBtn [winstr exportdir "" xmlpath projname nil]; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkStandAloneWebCancelBtn winstr; ); ); 0;; fun getShortName(name)= let strToWordList strreplace (strreplace name "_" "-") " " "-" -> lw in let "" -> nname in ( while (lw != nil) do ( //no number after a dot! let hd lw -> word in if ((atoi (substr word 0 1)) == nil) then set nname = strcatn nname::"."::word::nil else set nname = strcat nname word; set lw = tl lw; ); //do strlowercase on the copied string, this modify the original string otherwise strlowercase nname; );; //// Raspberry PI fun cbDestroyRpiExportWin(winstr, pwinstr)= dsEdWindow2 pwinstr; 0;; fun cbMkRpiDoneBtn(ctrlbtn, p)= let p -> [winstr exportdir xmlpath projname foldername cbfun] in ( dsEdWindow winstr; set winMkApplet = nil; let getShortName projname -> shortname in let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\RaspberryPi"::foldername::"\\"::shortname::nil -> fullpath in ( addLogMessage fullpath; _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun copyRpiFilesToExportDirectory(dir, lfiles, ldeps, xmlpath, fname, archconf)= let getShortName fname -> shortname in ( //copy scol base let getFilesFromDirRecursive "btdata" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "ogre_redist" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); copyFileContent "logo.bmp" strcatn dir::"/partition/"::"logo.bmp"::nil; //make usm.ini makeUsmIni dir "linux" "OpenGL" "2" "" "" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; copyFileContent (strcat "scol." archconf) strcatn dir::"/"::shortname::nil; while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/partition/"::file::nil; set lfiles = tl lfiles; ); let getProjectSetting "splashpath" -> psplash in if ((_checkpack psplash) == nil) then nil else copyFileContent psplash strcatn dir::"/"::APPBASEDIR::"os3dplayer/splash.png"::nil; //make script let _getpack _checkpack "README.txt.in" -> preadme in ( set preadme = strreplace preadme "@APP_NAME@" shortname; set preadme = strreplace preadme "@APP_DIR@" shortname; set preadme = strreplace preadme "@APP_DISPLAY_NAME@" fname; set preadme = strreplace preadme "@APP_VERSION@" getProjectVersion; set preadme = strreplace preadme "@APP_AUTHOR@" (getProjectSettingDef "authorName" "Undefined"); set preadme = strreplace preadme "@APP_URL@" (getProjectSettingDef "projectWebsite" "http://www.openspace3d.com"); set preadme = strreplace preadme "@APP_DESCRIPTION@" (getProjectSettingDef "projectDescription" fname); let _getpack _checkpack "make_package.sh.in" -> pscript in ( set pscript = strreplace pscript "@APP_NAME@" shortname; set pscript = strreplace pscript "@APP_DIR@" shortname; set pscript = strreplace pscript "@APP_DISPLAY_NAME@" shortname; set pscript = strreplace pscript "@APP_VERSION@" getProjectVersion; set pscript = strreplace pscript "@APP_AUTHOR@" (getProjectSettingDef "authorName" "Undefined"); set pscript = strreplace pscript "@APP_URL@" (getProjectSettingDef "projectWebsite" "http://www.openspace3d.com"); set pscript = strreplace pscript "@APP_DESCRIPTION@" oneLineTransform (addSlashes (getProjectSettingDef "projectDescription" fname)) " "; set pscript = strreplace pscript "@APP_README@" addSlashes preadme; _storepack pscript strcatn dir::"/make_package.sh"::nil; ); _storepack2 preadme strcatn dir::"/README.txt"::nil; ); //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/partition/locked/master.pkg"::nil; ); 0;; fun cbMkRpiCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbMkRpiOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script ctrlarch cbfun] in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getShortName projname -> shortname in let getSelectedEdCtrlSelectPos ctrlarch -> arch in let if (arch == 0) then "armv7" else "armv6" -> archname in let if (arch == 0) then "_2_3" else "_1_zero" -> foldername in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/RaspberryPi"::foldername::"/"::shortname::nil) else (strcatn projdir::"/"::sExportDirectory::"/RaspberryPi"::foldername::"/"::shortname::nil) -> exportdir in ( setProjectSetting "appRpiArch" itoa (getSelectedEdCtrlSelectPos ctrlarch); let crEdModalDialogWindow _channel pwinstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./RaspberryPi" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in ( cleanDirectory exportdir; copyRpiFilesToExportDirectory exportdir lfiles ldeps xmlpath projname archname; setEdCtrlButtonCb ctrldone mkfun2 @cbMkRpiDoneBtn [winstr exportdir xmlpath projname foldername cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyRpiExportWin pwinstr; setEdWindowFocus winstr; ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); ); 0;; fun mkRpiApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 90] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0575") nil -> labelarch in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlarch in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script ctrlarch cbfun] -> p in ( set winMkApplet = winstr; fillEdCtrlSelect ctrlarch "Raspberry pi 2/3 (armv7)"::"Raspberry pi 1/Zero (armv6)"::nil; let getProjectSettingDef "appRpiArch" "0" -> archselect in selectEdCtrlSelectByPos ctrlarch (atoi archselect); setEdCtrlButtonCb ctrlok mkfun2 @cbMkRpiOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkRpiCancelBtn winstr; ); 0;; //// Linux fun cbDestroyLinuxExportWin(winstr, pwinstr)= dsEdWindow2 pwinstr; 0;; fun cbMkLinuxDoneBtn(ctrlbtn, p)= let p -> [winstr exportdir xmlpath projname archname cbfun] in ( dsEdWindow winstr; set winMkApplet = nil; let getShortName projname -> shortname in let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\Linux"::archname::"\\"::shortname::nil -> fullpath in ( addLogMessage fullpath; _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun copyLinuxFilesToExportDirectory(dir, lfiles, ldeps, xmlpath, fname, archname)= let if !strcmp archname "32" then "i386" else "amd64" -> archconf in let getShortName fname -> shortname in let "" -> iconfile in ( //copy scole base let getFilesFromDirRecursive "btdata" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); let getFilesFromDirRecursive "ogre_redist" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContent file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); copyFileContent "logo.bmp" strcatn dir::"/partition/"::"logo.bmp"::nil; copyFileContentC (strcatn "libCg"::archname::".so"::nil) strcatn dir::"/libCg.so"::nil; copyFileContentC (strcatn "libCgGL"::archname::".so"::nil) strcatn dir::"/libCgGL.so"::nil; //make usm.ini makeUsmIni dir "linux" "OpenGL" "2" "" "" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; copyFileContent (strcat "scol." archconf) strcatn dir::"/"::shortname::nil; let getProjectSetting "iconpath" -> iconpath in let getFileExt getProjectSetting "iconpath" -> ext in let nil -> icon_src in if ((strcmpi ext "ico") && (set icon_src = G2DloadAlphaBmp _channel iconpath) != nil) then ( let _CRbitmap _channel 128 128 -> bmp in let _CRbitmap8 _channel 128 128 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon in ( set iconfile = strcatn shortname::".png"::nil; _BTSAVEalphaBitmap icon _getmodifypack strcatn dir::"/"::iconfile::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); 0; ) else ( if ((_checkpack iconpath) == nil) then nil else ( set iconfile = strcatn shortname::"."::ext::nil; copyFileContent iconpath strcatn dir::"/"::iconfile::nil; ); 0; ); while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/partition/"::file::nil; set lfiles = tl lfiles; ); let (getProjectSetting "splashpath") -> psplash in if ((_checkpack psplash) == nil) then nil else copyFileContent psplash strcatn dir::"/"::APPBASEDIR::"os3dplayer/splash.png"::nil; //make script let _getpack _checkpack "README.txt.in" -> preadme in ( set preadme = strreplace preadme "@APP_NAME@" shortname; set preadme = strreplace preadme "@APP_DIR@" shortname; set preadme = strreplace preadme "@APP_DISPLAY_NAME@" fname; set preadme = strreplace preadme "@APP_VERSION@" getProjectVersion; set preadme = strreplace preadme "@APP_AUTHOR@" (getProjectSettingDef "authorName" "Undefined"); set preadme = strreplace preadme "@APP_URL@" (getProjectSettingDef "projectWebsite" "http://www.openspace3d.com"); set preadme = strreplace preadme "@APP_DESCRIPTION@" (getProjectSettingDef "projectDescription" fname); let _getpack _checkpack "make_package.sh.in" -> pscript in ( set pscript = strreplace pscript "@APP_NAME@" shortname; set pscript = strreplace pscript "@APP_DIR@" shortname; set pscript = strreplace pscript "@APP_DISPLAY_NAME@" shortname; set pscript = strreplace pscript "@APP_VERSION@" getProjectVersion; set pscript = strreplace pscript "@APP_AUTHOR@" (getProjectSettingDef "authorName" "Undefined"); set pscript = strreplace pscript "@APP_URL@" (getProjectSettingDef "projectWebsite" "http://www.openspace3d.com"); set pscript = strreplace pscript "@APP_DESCRIPTION@" oneLineTransform (addSlashes (getProjectSettingDef "projectDescription" fname)) " "; set pscript = strreplace pscript "@APP_README@" addSlashes preadme; set pscript = strreplace pscript "@APP_ICON@" iconfile; set pscript = strreplace pscript "@APP_ARCH@" archconf; _storepack pscript strcatn dir::"/make_package.sh"::nil; ); _storepack2 preadme strcatn dir::"/README.txt"::nil; ); //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/partition/locked/master.pkg"::nil; ); 0;; fun cbMkLinuxCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbMkLinuxOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script ctrlarch cbfun] in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getSelectedEdCtrlSelectPos ctrlarch -> arch in let if (arch == 0) then "64" else "32" -> archname in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getShortName projname -> shortname in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/Linux"::archname::"/"::shortname::nil) else (strcatn projdir::"/"::sExportDirectory::"/Linux"::archname::"/"::shortname::nil) -> exportdir in ( setProjectSetting "appLinuxArch" itoa (getSelectedEdCtrlSelectPos ctrlarch); let crEdModalDialogWindow _channel pwinstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./Linux" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in ( cleanDirectory exportdir; copyLinuxFilesToExportDirectory exportdir lfiles ldeps xmlpath projname archname; setEdCtrlButtonCb ctrldone mkfun2 @cbMkLinuxDoneBtn [winstr exportdir xmlpath projname archname cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyLinuxExportWin pwinstr; setEdWindowFocus winstr; ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); ); 0;; fun mkLinuxApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 90] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0575") nil -> labelarch in let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlarch in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script ctrlarch cbfun] -> p in ( set winMkApplet = winstr; fillEdCtrlSelect ctrlarch "Linux64 (x86-64|amd64)"::"Linux32 (i686)"::nil; let getProjectSettingDef "appLinuxArch" "0" -> archselect in selectEdCtrlSelectByPos ctrlarch (atoi archselect); setEdCtrlButtonCb ctrlok mkfun2 @cbMkLinuxOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkLinuxCancelBtn winstr; ); 0;; //// MacOS / OSX fun cbDestroyMacOsExportWin(winstr, pwinstr)= 0;; fun cbMkMacOsDoneBtn(ctrlbtn, p)= let p -> [winstr exportdir xmlpath projname cbfun] in ( dsEdWindow winstr; set winMkApplet = nil; let getShortName projname -> shortname in let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\MacOS"::"\\"::shortname::nil -> fullpath in ( addLogMessage fullpath; _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun copyMacOsFilesToExportDirectory(dir, lfiles, ldeps, xmlpath, fname)= let getShortName fname -> shortname in ( //copy scole base let getFilesFromDirRecursive2 "scol.app/Contents/MacOS" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContentC file strcatn dir::"/"::shortname::".app/Contents/MacOS/"::(substr file (strlen "scol.app/Contents/MacOS") (strlen file))::nil; set lbase = tl lbase; ); copyFileContentC "scol.app/Contents/PkgInfo" strcatn dir::"/"::shortname::".app/Contents/PkgInfo"::nil; while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/"::shortname::".app/Contents/MacOS/partition/"::file::nil; set lfiles = tl lfiles; ); copyFileContent "logo.bmp" strcatn dir::"/"::shortname::".app/Contents/MacOS/partition/"::"logo.bmp"::nil; let getProjectSetting "splashpath" -> psplash in if ((_checkpack psplash) == nil) then nil else copyFileContent psplash strcatn dir::"/"::shortname::".app/Contents/MacOS/"::APPBASEDIR::"os3dplayer/splash.png"::nil; //make script let _getpack _checkpack "scol.app/Contents/info.plist.in" -> pinfoplist in ( set pinfoplist = strreplace pinfoplist "@APP_NAME@" strtoutf8 shortname; set pinfoplist = strreplace pinfoplist "@APP_DIR@" strtoutf8 shortname; set pinfoplist = strreplace pinfoplist "@APP_DISPLAY_NAME@" strtoutf8 fname; set pinfoplist = strreplace pinfoplist "@APP_VERSION@" strtoutf8 getProjectVersion; set pinfoplist = strreplace pinfoplist "@APP_AUTHOR@" strtoutf8 (getProjectSettingDef "authorName" "Undefined"); set pinfoplist = strreplace pinfoplist "@APP_URL@" strtoutf8 (getProjectSettingDef "projectWebsite" "http://www.openspace3d.com"); set pinfoplist = strreplace pinfoplist "@APP_DESCRIPTION@" strtoutf8 (getProjectSettingDef "projectDescription" fname); _storepack2 pinfoplist strcatn dir::"/"::shortname::".app/Contents/info.plist"::nil; ); let _checkpack getProjectSetting "iconpath" -> iconpath in if (iconpath == nil) then ( copyFileContentC "scol.app/Contents/Resources/icon.icns" strcatn dir::"/"::shortname::".app/Contents/Resources/"::shortname::".icns"::nil; ) else ( let G2DloadAlphaBmp _channel _PtoScol iconpath -> icon_src in ( // XHDPI ICON let _CRbitmap _channel 512 512 -> bmp in let _CRbitmap8 _channel 512 512 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_xhdpi in ( _BTSAVEalphaBitmap icon_xhdpi _getmodifypack strcatn dir::"/"::shortname::".app/Contents/MacOS/"::shortname::".png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap icon_src; ); let _getpack _checkpack "makeicon.sh.in" -> pmakeicon in ( set pmakeicon = strreplace pmakeicon "@APP_NAME@" shortname; _storepack2 pmakeicon strcat dir "/makeicon.sh"; ); let _getpack _checkpack "README.txt.in" -> preadme in ( set preadme = strreplace preadme "@APP_NAME@" shortname; set preadme = strreplace preadme "@APP_DIR@" shortname; set preadme = strreplace preadme "@APP_DISPLAY_NAME@" fname; set preadme = strreplace preadme "@APP_VERSION@" getProjectVersion; set preadme = strreplace preadme "@APP_AUTHOR@" (getProjectSettingDef "authorName" "Undefined"); set preadme = strreplace preadme "@APP_URL@" (getProjectSettingDef "projectWebsite" "http://www.openspace3d.com"); set preadme = strreplace preadme "@APP_DESCRIPTION@" (getProjectSettingDef "projectDescription" fname); _storepack2 preadme strcatn dir::"/README.txt"::nil; ); ); //make usm.ini makeUsmIni strcatn dir::"/"::shortname::".app/Contents/MacOS/"::nil "macOS" "OpenGL" "2" "" "" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/"::shortname::".app/Contents/MacOS/"::"/partition/locked/master.pkg"::nil; ); 0;; fun mkMacOsApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getShortName projname -> shortname in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/MacOS"::"/"::shortname::nil) else (strcatn projdir::"/"::sExportDirectory::"/MacOS"::"/"::shortname::nil) -> exportdir in ( let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./macos" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in ( cleanDirectory exportdir; copyMacOsFilesToExportDirectory exportdir lfiles ldeps xmlpath projname; setEdCtrlButtonCb ctrldone mkfun2 @cbMkMacOsDoneBtn [winstr exportdir xmlpath projname cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyMacOsExportWin fatherstr; setEdWindowFocus winstr; ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); ); 0;; //// IOS fun copyIosFilesToExportDirectory(dir, lfiles, ldeps, xmlpath, fname)= let getAndroidShortName fname -> shortname in ( //copy scol base let getFilesFromDirRecursive2 "scol/resources" -> lbase in while lbase != nil do ( let hd lbase -> file in copyFileContentC file strcatn dir::"/"::file::nil; set lbase = tl lbase; ); while lfiles != nil do ( let hd lfiles -> file in copyFileContent file strcatn dir::"/scol/resources/partition/"::file::nil; set lfiles = tl lfiles; ); //scol binary copyFileContentC "scol/scol" strcatn dir::"/scol/"::shortname::nil; copyFileContent "logo.bmp" strcatn dir::"/scol/resources/partition/"::"logo.bmp"::nil; let getProjectSetting "iconpath" -> iconpath in if ((_checkpack iconpath) == nil) then nil else ( let G2DloadAlphaBmp _channel iconpath -> icon_src in ( // 60 ICON let _CRbitmap _channel 60 60 -> bmp in let _CRbitmap8 _channel 60 60 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-60.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 120 ICON let _CRbitmap _channel 120 120 -> bmp in let _CRbitmap8 _channel 120 120 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-60@2x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 180 ICON let _CRbitmap _channel 180 180 -> bmp in let _CRbitmap8 _channel 180 180 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-60@3x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 76 ICON let _CRbitmap _channel 76 76 -> bmp in let _CRbitmap8 _channel 76 76 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-76~ipad.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 152 ICON let _CRbitmap _channel 152 152 -> bmp in let _CRbitmap8 _channel 152 152 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-76@2x~ipad.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 167 ICON let _CRbitmap _channel 167 167 -> bmp in let _CRbitmap8 _channel 167 167 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-83.5@2x~ipad.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 40 ICON let _CRbitmap _channel 40 40 -> bmp in let _CRbitmap8 _channel 40 40 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-Small-40.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 80 ICON let _CRbitmap _channel 80 80 -> bmp in let _CRbitmap8 _channel 80 80 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-Small-40@2x.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 120 ICON let _CRbitmap _channel 120 120 -> bmp in let _CRbitmap8 _channel 120 120 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-Small-40@3x.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 29 ICON let _CRbitmap _channel 29 29 -> bmp in let _CRbitmap8 _channel 29 29 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-Small.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 58 ICON let _CRbitmap _channel 58 58 -> bmp in let _CRbitmap8 _channel 58 58 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-Small@2x.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 87 ICON let _CRbitmap _channel 87 87 -> bmp in let _CRbitmap8 _channel 87 87 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp icon_src 2 -> icon_png in ( _BTSAVEalphaBitmap icon_png _getmodifypack strcatn dir::"/scol/resources/Icon-Small@3x.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap icon_src; ); ); let _checkpack (getProjectSetting "splashpath") -> psplash in let if (psplash == nil) then //let if !strcmpi (getProjectSettingDef "appOrientation" "landscape") "landscape" then 0 else 1 -> vert in //if (!vert) then _checkpack (strcatn APPBASEDIR::"os3dplayer/splash.png"::nil) //else // _checkpack (strcatn APPBASEDIR::"os3dplayer/splash_vert.png"::nil) else psplash -> splashpath in let G2DloadAlphaBmp _channel _PtoScol splashpath -> splash_src in ( // 2436x1125 Splash let _CRbitmap _channel 2436 1125 -> bmp in let _CRbitmap8 _channel 2436 1125 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-812h-Landscape@3x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 2208x1242 Splash let _CRbitmap _channel 2208 1242 -> bmp in let _CRbitmap8 _channel 2208 1242 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-736h-Landscape@3x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 1334x750 Splash let _CRbitmap _channel 1334 750 -> bmp in let _CRbitmap8 _channel 1334 750 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-667h-Landscape@2x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 1136x640 Splash let _CRbitmap _channel 1136 640 -> bmp in let _CRbitmap8 _channel 1136 640 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-568h-Landscape@2x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 1024x768 Splash let _CRbitmap _channel 1024 768 -> bmp in let _CRbitmap8 _channel 1024 768 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-Landscape~ipad.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 960x640 Splash let _CRbitmap _channel 960 640 -> bmp in let _CRbitmap8 _channel 960 640 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-Landscape@2x.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 480x320 Splash let _CRbitmap _channel 480 320 -> bmp in let _CRbitmap8 _channel 480 320 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-Landscape.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); //main splash let _GETalphaBitmapSize splash_src -> [aw ah] in let _CRbitmap _channel aw ah -> bmp in let _CRbitmap8 _channel aw ah -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/partition/"::APPBASEDIR::"os3dplayer/splash.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap splash_src; ); //portrait let _checkpack (getProjectSetting "splashpath") -> psplash in let if (psplash == nil) then _checkpack (strcatn APPBASEDIR::"os3dplayer/splash_vert.png"::nil) else psplash -> splashpath in let G2DloadAlphaBmp _channel _PtoScol splashpath -> splash_src in ( // 1125x2436 Splash let _CRbitmap _channel 1125 2436 -> bmp in let _CRbitmap8 _channel 1125 2436 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-812h@3x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 1242x2208 Splash let _CRbitmap _channel 1242 2208 -> bmp in let _CRbitmap8 _channel 1242 2208 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-414w-736h@3x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 750x1334 Splash let _CRbitmap _channel 750 1334 -> bmp in let _CRbitmap8 _channel 750 1334 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-375w-667h@2x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 640x1136 Splash let _CRbitmap _channel 640 1136 -> bmp in let _CRbitmap8 _channel 640 1136 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-568h@2x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 768x1024 Splash let _CRbitmap _channel 768 1024 -> bmp in let _CRbitmap8 _channel 768 1024 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d-Portrait~ipad.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 640x960 Splash let _CRbitmap _channel 640 960 -> bmp in let _CRbitmap8 _channel 640 960 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d@2x~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); // 640x960 Splash let _CRbitmap _channel 640 960 -> bmp in let _CRbitmap8 _channel 640 960 -> bmp8 in let _CRalphaBitmap _channel bmp bmp8 nil nil -> abmp in let _BTSCALEalphaBitmap abmp splash_src 2 -> splash_png in ( _BTSAVEalphaBitmap splash_png _getmodifypack strcatn dir::"/scol/resources/os3d~iphone.png"::nil; _DSbitmap bmp; _DSbitmap8 bmp8; _DSalphaBitmap abmp; ); _DSalphaBitmap splash_src; ); // add splash path in usm.ini for android splash managed in java //make usm.ini makeUsmIni strcat dir "/scol/resources" "ios" "OpenGLES2" "0" "" "" ldeps ("backgroundTask"::"no"::nil)::("splash"::(strcat APPBASEDIR "os3dplayer/splash.png")::nil)::nil; //make xcode project let _getpack _checkpack "scol.xcodeproj/project.pbxproj.in" -> xcodeprj in ( set xcodeprj = strreplace xcodeprj "@IOS_PKG_NAME@" getProjectSettingDef "appPkgName" (strcat "os3d.app." shortname); set xcodeprj = strreplace xcodeprj "@IOS_PRODUCT_NAME@" strtoutf8 fname; set xcodeprj = strreplace xcodeprj "@IOS_PRJ_NAME@" strtoutf8 shortname; set xcodeprj = strreplace xcodeprj "@IOS_AUTHOR@" strtoutf8 (getProjectSettingDef "authorName" "Undefined"); set xcodeprj = strreplace xcodeprj "@IOS_VERSION@" itoa (time + 100000000000); set xcodeprj = strreplace xcodeprj "@IOS_VERSION_NAME@" getProjectVersion; //set xcodeprj = strreplace xcodeprj "@IOS_ORIENTATION@" getProjectSettingDef "appOrientation" "landscape"; _storepack xcodeprj strcatn dir::"/"::shortname::".xcodeproj/project.pbxproj"::nil; ); let _getpack _checkpack "scol.xcodeproj/project.xcworkspace/contents.xcworkspacedata.in" -> xcodeprj in ( set xcodeprj = strreplace xcodeprj "@IOS_PRJ_NAME@" strtoutf8 shortname; _storepack xcodeprj strcatn dir::"/"::shortname::".xcodeproj/project.xcworkspace/contents.xcworkspacedata"::nil; ); let _getpack _checkpack "scol/Info.plist.in" -> xcodeprj in ( set xcodeprj = strreplace xcodeprj "@IOS_PRODUCT_NAME@" strtoutf8 fname; set xcodeprj = strreplace xcodeprj "@IOS_VERSION@" itoa (time + 100000000000); set xcodeprj = strreplace xcodeprj "@IOS_VERSION_NAME@" getProjectVersion; _storepack2 xcodeprj strcatn dir::"/scol/Info.plist"::nil; ); //make master.pkg let ("typeof"::"env_ref=Env;;"::nil):: ("defcom"::"Smain=main"::"S"::"S"::"S"::"S"::"I;;"::nil):: ("fun"::"multiress(res)="::nil):: ("if"::"res==nil"::"then"::nil):: ("0"::nil):: ("else"::nil):: ("let"::"res"::"->"::"[l"::"nxt]"::"in"::nil):: ("("::nil):: ("_setress"::"hd"::"l"::"hd"::"tl"::"l;"::nil):: ("multiress"::"nxt;"::nil):: (");;"::nil):: ("fun"::"main(p)="::nil):: ("set"::"env_ref=_envchannel"::"_channel;"::nil):: ("multiress"::"strextr"::"_loadressini;"::nil):: ("srand"::"time;"::nil):: ("_load"::(strcatn "\""::APPBASEDIR::"os3dplayer/os3dload.pkg\";"::nil)::nil):: ("_script"::"mkscript"::"Smain"::(strcatn "[\""::xmlpath::"\""::nil)::(strcatn "\""::fname::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultWidth" "1280")::"\""::nil)::(strcatn "\""::(getProjectSettingDef "defaultHeight" "720")::"\""::nil)::"0];"::nil):: ("0;;"::nil)::nil -> pmaster in _storepack (strbuild pmaster) strcatn dir::"/scol/resources/partition/locked/master.pkg"::nil; 0; );; fun cbMkIosDoneBtn(ctrlbtn, p)= let p -> [winstr pwinstr exportdir xmlpath projname cbfun] in ( dsEdWindow winstr; dsEdWindow pwinstr; set winMkApplet = nil; let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\IOS"::"\\"::projname::nil -> fullpath in ( _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun cbMkIosCancelBtn(ctrlbtn, winstr)= dsEdWindow winstr; 0;; fun cbDestroyIosExportWin(winstr, pwinstr)= dsEdWindow2 pwinstr; 0;; fun cbMkIosOk(ctrlbtn, p)= let p -> [pwinstr fatherstr projname xmlpath script ctrlorient ctrlpkgname cbfun] in let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let getSelectedEdCtrlSelectPos ctrlorient -> orientation in let getEdCtrlTextLineValue ctrlpkgname -> pkgname in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/IOS"::"/"::projname::nil) else (strcatn projdir::"/"::sExportDirectory::"/IOS"::"/"::projname::nil) -> exportdir in ( //set conf let if (orientation == 0) then "landscape" else if (orientation == 1) then "portrait" else if (orientation == 2) then "reverseLandscape" else "reversePortrait" -> orientmode in setProjectSetting "appOrientation" orientmode; if (!checkAndroidPkgName(pkgname)) then ( _DLGMessageBox _channel pwinstr.EDW_win (loc "OS3D_0155") strcatn (loc "OS3D_0586")::nil 0; 0; ) else ( setProjectSetting "appPkgName" strlowercase pkgname; let crEdModalDialogWindow _channel pwinstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; _addPartition "./Ios" 2; let mkStandAloneListFiles xmlpath -> [lfiles ldeps lfts] in ( cleanDirectory exportdir; copyIosFilesToExportDirectory exportdir lfiles ldeps xmlpath projname; setEdCtrlButtonCb ctrldone mkfun2 @cbMkIosDoneBtn [winstr pwinstr exportdir xmlpath projname cbfun]; setEdwindowCbDestroy winstr mkfun2 @cbDestroyIosExportWin pwinstr; setEdWindowFocus winstr; ); _removeLastPartition; setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); 0; ); ); 0;; fun mkIosApp(fatherstr, projname, xmlpath, script, cbfun)= _refreshExe; let _GETscreenSize -> [sw sh] in let [430 90] -> [iw ih] in let 10 -> ipos in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let getAndroidShortName projname -> shortname in let getProjectSettingDef "appPkgName" if ((getProjectSetting "authorCompany") != nil) then strcatn "com."::(getAndroidShortName (getProjectSetting "authorCompany"))::"."::shortname::nil else strcat "os3d.app." shortname -> pkgname in let crEdCtrlLabel winstr 10 (ipos + 2) 160 20 (loc "OS3D_0585") nil -> labelpkg in let crEdCtrlTextLine winstr 180 ipos (iw - 190) 20 pkgname nil EDWIN_RESIZE_MW -> ctrlpkgname in //let crEdCtrlLabel winstr 10 ((set ipos = ipos + 25) + 2) 160 20 (loc "OS3D_0582") nil -> labelorient in //let crEdCtrlSelect winstr 180 ipos (iw - 190) 120 EDWIN_RESIZE_MW -> ctrlorient in let crEdCtrlButton winstr 10 (ih - 30) 90 20 (loc "OS3D_0536") EDWIN_RESIZE_MW -> ctrlok in let crEdCtrlButton winstr (iw - 100) (ih - 30) 90 20 (loc "OS3D_0513") EDWIN_RESIZE_MW -> ctrlcancel in let [winstr fatherstr projname xmlpath script /*ctrlorient*/ nil ctrlpkgname cbfun] -> p in ( set winMkApplet = winstr; /* fillEdCtrlSelect ctrlorient (loc "OS3D_0583")::(loc "OS3D_0584")::nil; let if !strcmpi (getProjectSettingDef "appOrientation" "landscape") "landscape" then 0 else 1 -> opos in selectEdCtrlSelectByPos ctrlorient opos; */ setEdCtrlButtonCb ctrlok mkfun2 @cbMkIosOk p; setEdCtrlButtonCb ctrlcancel mkfun2 @cbMkIosCancelBtn winstr; ); 0;; //// OS3D PACK fun cbDestroyOS3DPakExportWin(winstr)= 0;; fun cbOS3DPakProjectPacked(p)= let p -> [labelport ctrldone exportdir] in ( setEdCtrlLabelValue labelport strcatn (loc "OS3D_0520")::exportdir::(loc "OS3D_0548")::nil; setEdCtrlButtonEnable ctrldone 1; ); 0;; fun cbMkOS3DPakDoneBtn(ctrlstr, p)= let p -> [winstr exportdir xmlpath projname cbfun] in ( dsEdWindow winstr; set winMkApplet = nil; let strcatn (getFileDirectory (_PtoS _checkpack xmlpath))::sExportDirectory::"\\OS3DPACK"::"\\"::projname::nil -> fullpath in ( _startExe "launch" "openExplorer" strcatn "\""::fullpath::"\""::nil; ); exec cbfun with []; ); 0;; fun cbOS3DPakTrm(trm, wp)= let wp -> [l wfile logp cbComplete] in ( _deltimer trm; _freememory; //manage cancel if (winMkApplet == nil) then nil else mkOS3DPakAll l wfile logp cbComplete; ); 0;; fun mkOS3DPakAll(l, wfile, logp, cbComplete)= if (l == nil) then ( _appendpack "\nDone!" logp; exec cbComplete with []; 0; ) else ( let l->[name nxt] in let let _FILEOpen _channel _checkpack name -> from in if (from == nil) then 0 else let _FILESize from -> size in (_FILEClose from; size;) -> filesize in if (filesize < iOS3DPackMaxZipBuffer) then ( if ((_checkpack name) == nil) then nil else ( let _fileSign _checkpack name -> signstr in let if (!strcmpi (substr name 0 (strlen APPBASEDIR)) APPBASEDIR) then strcat "APPBASEDIR" (substr name ((strlen APPBASEDIR) - 1) (strlen name)) else strcat "APPROOTDIR/" name -> mname in _appendpack strcatn "#******#"::mname::"|"::"!Z"::"|"::signstr::"|"::(itoa filesize)::"|"::nil wfile; let _FILEOpen _channel _checkpack name -> file in if (file == nil) then nil else ( while ((_FILETell file) < filesize) do _appendpack (_FILERead file 65534) wfile; _FILEClose file; ); _freememory; _appendpack strcatn "\n> Packed "::name::nil logp; ); // use a timer to allow the garbage collector to free some memory in the loop _rfltimer _starttimer _channel 5 @cbOS3DPakTrm [nxt wfile logp cbComplete]; 0; ) else ( if ((_checkpack name) == nil) then nil else let getFileContent name -> content in let 1 -> packed in ( if (content != nil) then nil else let getPathFile _PtoScol (_WtoP wfile) "" -> [path _] in let getPathFile name "" -> [_ fname] in ( _CopyFile (_checkpack name) (_getmodifypack strcatn path::"/"::fname::nil); _appendpack strcatn "\n> Copy "::name::" because the file is too big to be packed"::nil logp; set packed = 0; ); let if (content == nil) then "" else zip content -> ziped in let if (content == nil) then _fileSign _checkpack name else (_getlongname content "" "#") -> signstr in let if (!strcmpi (substr name 0 (strlen APPBASEDIR)) APPBASEDIR) then strcat "APPBASEDIR" (substr name ((strlen APPBASEDIR) - 1) (strlen name)) else strcat "APPROOTDIR/" name -> mname in _appendpack strcatn "#******#"::mname::"|"::"Z"::"|"::signstr::"|"::(itoa (strlen ziped))::"|"::ziped::nil wfile; _freememory; if (!packed) then nil else _appendpack strcatn "\n> Packed "::name::nil logp; ); // use a timer to allow the garbage collector to free some memory in the loop _rfltimer _starttimer _channel 5 @cbOS3DPakTrm [nxt wfile logp cbComplete]; 0; ); ); 0;; fun mkOS3DPakProject(lfiles, outpath, xmlpath, logpath, cbComplete)= let strcatn (mkDTime time)::"\n"::xmlpath::"\n"::nil -> ncontent in let _getmodifypack logpath -> logp in ( _appendpack "// Export OpenSpace3D project package //\n" logp; _appendpack ncontent logp; _storepack ncontent outpath; mkOS3DPakAll lfiles (_getmodifypack outpath) logp cbComplete; ); 0;; fun mkOS3DPack(fatherstr, projname, xmlpath, script, cbfun)= let getAndroidShortName projname -> shortname in let getProjectSettingDef "appPkgName" if ((getProjectSetting "authorCompany") != nil) then strcatn "com."::(getAndroidShortName (getProjectSetting "authorCompany"))::"."::shortname::nil else strcat "os3d.app." shortname -> pkgname in let getDirectoryWithoutLastSlash (getFileDirectory xmlpath) -> projdir in let if (projdir == nil) || (!strcmp projdir "") then (strcatn sExportDirectory::"/OS3DPACK"::"/"::projname::nil) else (strcatn projdir::"/"::sExportDirectory::"/OS3DPACK"::"/"::projname::nil) -> exportdir in let strlowercase strcatn exportdir::"/"::pkgname::".pkos"::nil -> pakpath in let strlowercase strcatn exportdir::"/"::pkgname::".log"::nil -> logpath in ( let _GETscreenSize -> [sw sh] in let [430 120] -> [iw ih] in let crEdModalDialogWindow _channel fatherstr ((sw / 2) - (iw / 2)) ((sh / 2) - (ih / 2)) iw ih WN_NOSCOL|WN_MENU nil (loc "OS3D_0556") -> winstr in let crEdCtrlLabelEx winstr 10 12 iw-20 50 (loc "OS3D_0524") ET_ALIGN_CENTER nil -> labelport in let crEdCtrlButton winstr ((iw /2) - 45) (ih - 30) 90 20 (loc "OS3D_0518") EDWIN_RESIZE_MW -> ctrldone in ( set winMkApplet = winstr; setEdCtrlButtonEnable ctrldone 0; let mkStandAloneProjectListFiles xmlpath -> [lfiles ldeps] in ( cleanDirectory exportdir; mkOS3DPakProject lfiles pakpath xmlpath logpath mkfun1 @cbOS3DPakProjectPacked [labelport ctrldone exportdir]; setEdCtrlButtonCb ctrldone mkfun2 @cbMkOS3DPakDoneBtn [winstr exportdir xmlpath projname cbfun]; setEdwindowCbDestroy winstr @cbDestroyOS3DPakExportWin; setEdWindowFocus winstr; ); ); ); 0;;