tilis.csp

来自「c-smile 一个语法类似与JS 又有点像C++的 编译器」· CSP 代码 · 共 50 行

package tilis;

import xml;
import ftps;
//import https;

function main(conf_file_name) 
{
  var conf_file  = conf_file_name || "config.xml";
      
  try  {
    
    var file = new node(conf_file);
    
    if(!file.is_file) throw string.printf("%s - not found");
    var p = new xml::parser();
    var conf = p.parse(file.stream("rb")); 
    
    var conf_ftp = conf.child("ftp"); 
    if(!conf_ftp) throw "xml: 'ftp' tag not found";
   
    var conf_users = conf.child("users");   
    if(!conf_users) throw "xml: 'users' tag not found";
    var users_map = conf_users.elements("user","name");

    new thread(ftps::gatekeeper,conf_ftp,users_map);
    //new thread(http::gatekeeper,conf_http,users_map);
    
  } catch( e ) 
  {
    out.printf( "ERROR:%s.",e ); 
    return -1;
  }

  var r = thread::wait();
  if(is_int(r))
    {
      // got CTRL-C or main window closed, do shutdown...
      out.printf( "quiting "); 
      ftps::shutdown();
      while(ftps::active()) {
        thread::sleep(100);
        out.printf( "."); 
      }
      out.printf( " done."); 
    }
}