/*
 * Scol Voyager
 * 
 * Author : The Scol Team : http://www.scolring.org/
 * 
 * This file is a part of the Scol Voyager
 * 
 * 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
 * 
 * For others informations, please contact us from http://www.scolring.org/
 *
 */

/*
 * Update 2014 12, 16 : S.BISARO ($IRI) : new tree files
 * 
 */
 
// Voyager Version file
var sVersionFile = "lib/locked/etc/version.txt";;

// Devellopper mode
var iDevMode = 0;;

// set to 1 for debug mode
var voyagerDebugMode = 0;;

// update url
var sTesturl = "http://www.google.com/";;
var sUpdateUrl = "https://www.openspace3d.com/nscolver.php";;
var sStatsUrl = "https://www.scolring.org/voyagerstats/scolstats.php";;
var sUpdateFile = "update/setup.exe";;

// Http server header
var http_header="HTTP/1.0 200 OK\13\10Server: SCOL HTTP server\13\10Content-Type: text/html\13\10\13\10";;
var http_headerb="HTTP/1.0 200 OK\13\10Server: SCOL HTTP server\13\10Content-Type: application/x-unknown\13\10\13\10";;


// communication channel
typeof chnComm = Chn;;

// voyager channel
typeof chn0 = Chn;;


// var for minimum version needed for a scol app
var versionuser = 0;;

// list of available language for the voyager
typeof languages = [[S S] r1];;

var AutoStartDelay = 5000;;

//var packsusers = ["locked/lib/stdlib.pkg" "" ""]::["locked/infocli.pkg" "" ""]::nil;;
var packsusers = ["lib/std/stdlib.pkg" "" ""]::["lib/std/tab.pkg" "" ""]::["lib/locked/infocli.pkg" "" ""]::nil;;
var scriptserver = "";;
//var scriptuser = "_load \"locked/lib/stdlib.pkg\"\n_load \"locked/infocli.pkg\"\nmain";;
var scriptuser = "_load \"lib/std/stdlib.pkg\"\n_load \"lib/std/tab.pkg\"\n_load \"lib/locked/infocli.pkg\"\nmain";;


// default standar port (1200), defined in the VM
var port=0;;

var rights=-1;;

// external comm
defcom show = show;;
defcom Cservice  =service S S;;
defcom Cservis = servis S S;;
defcom CforceClose = forceClose ;;
defcom Cgoto=goto S;;
defcom maincom=main S I S;;

// default font
typeof font = ObjFont;;

/*taskIcon*/
typeof icon = ObjIcon;;
typeof bmpVoyagerIcon = ObjBitmap;;


var sVoyagerIconPath="lib/locked/voyager/img/icon.bmp";;
var sVoyagerUnixIconPath="lib/locked/voyager/img/icon64.bmp";;

struct Script =
  [
    nameScript:S,
    clearScript:S,
    rightsScript:I,
    sizeScript:I,
    sonsScript:[Script r1]
  ] mkScript;;
  
struct Run = 
  [
    nameRun:S,
    canalRun:Chn,
    scriptRun:Script,
    pubRun:[[S I I] r1],
    tag:I,
    runnum:I
  ] mkRun;;
  
typeof current = Run;;

typedef Link = urlLink [S S] | scriptLink [S S];;

var currunnum = 0;;

typeof back = [S r1];; /*history*/

typeof customs=[Script r1];;
typeof running=[Run r1];;

typeof contmenu=ObjMenu;;

typeof  getservhttp = fun[HTTPcon S] S;;
typeof  getservdirect = fun[S] I;;
typeof  getservis = fun[S] I;;
typeof  cbpublic = fun[S I] I;;
typeof  cbpublichttp = fun[S I] I;;
typeof  cbkilled = fun[Run I] I;;


var numb=0;;
var nbapps=0;;

var portdef=80;;
var pendingreq=0;;

var h4 = "0000";;
var iSetup = 0;;

fun itoh4(i)= let itoh i -> s in strcat substr h4 0 4-strlen s s;;

proto _contact = fun [u0 S] I;;
proto createmenus = fun[] I;;
proto _logfile = fun[[S r1]] I;;
proto launch=fun[Timer [Script r1]] I;;

proto showSetup = fun[I] I;;
proto startreq=fun[I S I S I I] I;;

proto cbGetUrlError = fun [S] I;;
proto showAddressBar = fun [S] I;;