// Voyager Version file
var sVersionFile = "locked/etc/version.txt";;

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

// update url
var sTesturl = "http://www.google.com";;

// 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 scriptserver = "";;
var scriptuser = "_load \"locked/lib/stdlib.pkg\"\n_load \"locked/infocli.pkg\"\nmain";;


// default standar port (1200)
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;;


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 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";;

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

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

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