Changeset 3551

Show
Ignore:
Timestamp:
05/17/11 10:16:58 (3 years ago)
Author:
vdebuen
Message:

Refs #1207

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • tolp/trunk/tol/stdlib/general/grammars/_text.tol

    r3495 r3551  
    11721172////////////////////////////////////////////////////////////////////////////// 
    11731173{ 
    1174   WriteLn("[GetUrlContents.tcl.uri]Downloading from \""+url+"\" ..."); 
    1175   Text tcl_helper = " 
    1176 package require uri 
    1177  
    1178 proc ::get_url_contens { url } { 
    1179  
    1180   array set uri_info [ uri::split $url ] 
    1181   if { $uri_info(scheme) eq \"http\" } { 
    1182     set url_content [ uri::geturl $url ] 
    1183     set ${url_content}(body) 
    1184   } elseif { $uri_info(scheme) eq \"ftp\" } { 
    1185     uri::geturl $url 
    1186   } 
    1187 }"; 
    1188    
     1174  Write("[GetUrlContents.tcl.uri] Downloading from \""+url+"\" ... "); 
     1175  Text tcl_helper =  
     1176    "package require uri\n"+ 
     1177    "\n"+ 
     1178    "proc ::get_url_contens { url } {\n"+ 
     1179    "\n"+ 
     1180    "  array set uri_info [ uri::split $url ]\n"+ 
     1181    "  if { $uri_info(scheme) eq \"http\" } {\n"+ 
     1182    "    set url_content [ uri::geturl $url ]\n"+ 
     1183    "    set ${url_content}(body)\n"+ 
     1184    "  } elseif { $uri_info(scheme) eq \"ftp\" } {\n"+ 
     1185    "    uri::geturl $url\n"+ 
     1186    "  }\n"+ 
     1187    "}";   
    11891188  Set result0 = Tcl_Eval(tcl_helper); 
    1190   Text If(result0["status"], Text { 
    1191        
    1192       Set result = Tcl_Eval("::get_url_contens " + url); 
    1193       Text If(result["status"], Text result["result"], 
    1194         { 
    1195           WriteLn(result["result"], "W"); 
    1196           Text "" 
    1197         }) 
     1189  Text If(result0["status"],   
     1190  { 
     1191    Set result = Tcl_Eval("::get_url_contens " + url); 
     1192    Text If(result["status"],  
     1193    { 
     1194      WriteLn("OK"); 
     1195      Text result["result"] 
    11981196    }, 
    11991197    { 
    1200       WriteLn(result0["result"], "W"); 
     1198      WriteLn("FAIL"); 
     1199      WriteLn(result["result"], "W"); 
    12011200      Text "" 
    12021201    }) 
     1202  }, 
     1203  { 
     1204    WriteLn("FAIL"); 
     1205    WriteLn(result0["result"], "W"); 
     1206    Text "" 
     1207  }) 
    12031208}; 
    12041209