home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Webmidas / XMLDOM.JS < prev    next >
Encoding:
JavaScript  |  1999-08-11  |  9.1 KB  |  401 lines
  1. //Copyright Inprise Corporation 1999, all rights reserved, to be used with Borlands Midas-technology only, 
  2. //unless special permission has been given.
  3. var xmldom_vers="1.0";
  4.  
  5. function item(i) {return this[i];}
  6. Array.prototype.item=item;
  7.  
  8. var ParseErr=0;
  9.  
  10. function Document(str)
  11. {
  12. this.borland=1;
  13. this.nodeType=9;
  14. this.parentNode=null;
  15. this.ownerDocument=this;
  16. this.childNodes=new Array();
  17. this.attributes=new Array();
  18. this.removeChild=removeChild;
  19. this.appendChild=appendChild;
  20. this.cloneNode=cloneNode;
  21.  
  22. this.doctype=null;
  23. this.documentElement=null;
  24. this.createElement=createElement;
  25. this.createDocumentFragment=createDocumentFragment;
  26. this.createTextNode=createTextNode;
  27. this.createComment=createComment;
  28. this.createCDATASection=createCDATASection;
  29. this.createProcessingInstruction=createProcessingInstruction;
  30. this.createAttribute=createAttribute;
  31. this.loadXML=loadXML;
  32. if (str) {this.loadXML(str);if (ParseErr) return null;}
  33. return this;
  34. }
  35.  
  36. function createElement(n) {return new Element(this,n);}
  37. function createDocumentFragment() {var df=new Element(this,"");df.nodeType=11;return df;}
  38. function createTextNode(v) {return new CharData(this,v);}
  39. function createComment(d) {var co=new CharData(this,d);co.nodeType=8;return co;}
  40. function createCDATASection(v) {var dat=new CharData(this,v);dat.nodeType=4;return dat;}
  41. function createProcessingInstruction(t,d) {var pro=new CharData(this,d);pro.nodeType=7;pro.target=t;return pro;}
  42.  
  43. function createAttribute(n) {return new Attr(n, 0);}
  44.  
  45. function loadXML(str)
  46. {
  47. ParseErr=0;
  48. ReadDoc(this,str,this.childNodes);this.documentElement=this.childNodes[0];
  49. }
  50.  
  51. function Element(doc,n)
  52. {
  53. this.tagName=n;
  54. this.parentNode=null;
  55. this.ownerDocument=doc;
  56. this.childNodes=new Array();
  57. }
  58.  
  59. new Element(null,0);
  60. Element.prototype.nodeType=1;
  61. Element.prototype.removeChild=removeChild;
  62. Element.prototype.appendChild=appendChild;
  63. Element.prototype.cloneNode=cloneNode;
  64. Element.prototype.setAttribute=setAttribute;
  65. Element.prototype.getAttribute=getAttribute;
  66. Element.prototype.removeAttribute=function(n){this.setAttribute(n,null);}
  67. Element.prototype.attributes=null;
  68. Element.prototype.xmlstr=function(){return XmlStr(this,0,1);}
  69. Element.prototype.parsed=0;
  70.  
  71. function CharData(doc,d)
  72. {
  73. this.parentNode=null;
  74. this.ownerDocument=doc;
  75. this.data=d;
  76. }
  77.  
  78. new CharData(null,0);
  79. CharData.prototype.nodeType=3;
  80.  
  81. function appendChild(p){this.childNodes[this.childNodes.length]=p;}
  82. function removeChild(p)
  83. {
  84. var i,cnt;
  85. cnt= this.childNodes.length;
  86. for(i=0;i<cnt;i++)
  87.  if(this.childNodes[i]==p)
  88.  {
  89.   var j;
  90.   for(j=i+1;j<cnt;j++){this.childNodes[j-1]=this.childNodes[j];}
  91.   this.childNodes[cnt-1]=null;
  92.   this.childNodes.length=cnt-1;
  93.   break;
  94.  }
  95. }
  96.  
  97. function cloneNode(deep)
  98. {
  99. var str=XmlStr(this,0,deep);
  100. var a=new Array();
  101. ReadDoc(this.ownerDocument,str,a);
  102. return a[0];
  103. }
  104.  
  105. function setAttribute(n,v)
  106. {
  107. if(this.attributes!=null&&this.parsed==0){this.attributes=ReadAttrs(this.attributes);this.parsed=1;}
  108. else
  109. if(this.attributes==null){this.attributes=new Array();this.attributes["item"]=null;this.parsed=1;}
  110. this.attributes[n]=v; return;
  111. }
  112.  
  113.  
  114. function getAttribute(n)
  115. {
  116. if(this.attributes==null) return null;
  117. if(this.parsed==0){this.attributes=ReadAttrs(this.attributes);this.parsed=1;}
  118. return this.attributes[n];
  119. }
  120.  
  121. function Attr(n,v) {this.name=n; this.value=v;}
  122.  
  123. function ReadDoc(d,str,c)
  124. {
  125. str=ReadHeader(d,str);
  126. ReadNodes(d,str,null,c);
  127. return ;
  128. }
  129.  
  130. function ReadHeader(d,str)
  131. {
  132. var iBeg=str.indexOf("<");
  133. if(str.substring(iBeg,iBeg+5)=="<?xml")
  134. {
  135.  var iEnd=str.indexOf("?>");
  136.  str=str.substring(str.indexOf("<",iEnd+2),str.length);
  137. }
  138. else
  139. if(iBeg) str=str.substring(iBeg,str.length);
  140. return str;
  141. }
  142.  
  143. function ReadNodes(d,str,p,c)
  144. {
  145. str=ReadWhChar(str);
  146. while(str.length!=0&&ParseErr==0)
  147. {
  148. if(str.charAt(0)=="<")
  149. {
  150.  if(str.charAt(1)=='/')
  151.  {
  152.   var iEnd=str.indexOf(">");
  153.   if(p && iEnd !=-1)
  154.   {
  155.    var Tag=TrimStr(str.substring(2,iEnd));
  156.    if(Tag==p.tagName){str=str.substring(iEnd+1,str.length);return str;}
  157.    if(ParseErr==0){alert("XML-parse error . Expected : "+Tag+"  ,found : "+p.tagName);ParseErr=1;}
  158.    else{str.length=0; return str;}
  159.   }
  160.   else ParseErr=1;
  161.  }
  162.  else
  163.  {
  164.   if(str.charAt(1)=='?'){str=ReadPI(d,str,p,c);}
  165.   else
  166.   {
  167.    if(str.charAt(1)=='!')
  168.    {
  169.     if(str.substring(1,4)=="!--"){str=ReadComment(d,str,p,c);}
  170.     else
  171.     {
  172.      if(str.substring(1,9)=="![CDATA["){str=ReadCData(d,str,p,c);}
  173.      else ParseErr=1;
  174.     }
  175.    }
  176.    else str=ReadElement(d,str,p,c);
  177.   }
  178.  }
  179. }
  180. else str=ReadText(d,str,p,c);
  181. str=ReadWhChar(str);
  182. }
  183. return str;
  184. }
  185.  
  186. function AttrPos(str)
  187. {
  188. var i=str.indexOf("=");
  189. if(i==-1) return 0;
  190. while(str.charAt(i)!=' '&&i>0) i--;
  191. return i;
  192. }
  193.  
  194. function ReadText(d,str,p,c)
  195. {
  196. var iBeg=str.indexOf("<");
  197. var node=null;
  198.  
  199. if(iBeg==-1)
  200. { 
  201.  node=d.createTextNode(ToText(str));
  202.  str="";
  203. }
  204. else
  205. {
  206.  node=d.createTextNode(ToText(str.substring(0,iBeg)));
  207.  str=str.substring(iBeg,str.length);
  208. }
  209. if(p) node.parentNode=p;
  210. c[c.length]=node;
  211. return str;
  212. }
  213.  
  214. function ReadElement(d,str,p,c)
  215. {
  216. var iEnd=str.indexOf(">");
  217. var bEmpty=(str.charAt(iEnd-1)=='/'); 
  218. if(bEmpty) iEnd-=1;
  219. var Tag=str.substring(1,iEnd);
  220. var iBegA=AttrPos(Tag); 
  221.  
  222. var Attrs;
  223. var Name;
  224. if(iBegA){Name=Tag.substring(0,iBegA);Attrs=Tag.substring(iBegA+1,Tag.length);}
  225. else{Name=Tag;Attrs=null;}
  226.  
  227. var el=d.createElement(TrimStr(Name));
  228. el.attributes=Attrs;
  229.  
  230. if(!bEmpty){str=str.substring(iEnd+1,str.length);str=ReadNodes(d,str,el,el.childNodes);}
  231. else{str=str.substring(iEnd+2,str.length);}
  232. el.parentNode=p;
  233. c[c.length]=el;
  234. return str;
  235. }
  236.  
  237. function ReadPI(d,str,p,c)
  238. {
  239. var iEnd=str.indexOf("?>");
  240. var iEndT=str.indexOf(" ");
  241. var t=str.substring(2,iEndT);
  242. var pi=str.substring(iEndT+1,iEnd);
  243. var node=d.createProcessingInstruction(t,pi);
  244. node.parentNode=p;
  245. c[c.length]=node; 
  246. str=str.substring(iEnd+2,str.length);
  247. return str;
  248. }
  249.  
  250. function ReadComment(d,str,p,c)
  251. {
  252. var iEnd=str.indexOf("-->");
  253. var com=str.substring(4,iEnd);
  254. var node=d.createComment(com);
  255. node.parentNode=p;
  256. c[c.length]=node; 
  257. str=str.substring(iEnd+3,str.length);
  258. return str;
  259. }
  260.  
  261. function ReadCData(d,str,p,c)
  262. {
  263. var iEnd=str.indexOf("]]>");
  264. var dat=str.substring(9,iEnd);
  265. var node=d.createCDATASection(dat);
  266. node.parentNode=p;
  267. c[c.length]=node; 
  268. str=str.substring(iEnd+3,str.length);
  269. return str;
  270. }
  271.  
  272. function ReadWhChar(s)
  273. {
  274. var i=0;
  275. while(isWhChar(s.charAt(i))) i++;
  276. if(i!=0) return s.substring(i,s.length);
  277. return s;
  278. }
  279.  
  280. function ReadAttrs(str)
  281. {
  282. var attrs=new Array();
  283. attrs["item"]=null;
  284. while(str.length)
  285. {
  286. var iName=str.indexOf("=");
  287. if(iName==-1) return attrs;
  288. var Name=TrimStr(str.substring(0,iName));
  289. var Val;
  290. var iVal1=str.indexOf("\"");
  291. if(iVal1==-1) return attrs;
  292. var iVal2=str.indexOf("\"",iVal1+1);
  293. if(iVal2==-1) return attrs;
  294. Val=str.substring(iVal1+1,iVal2); 
  295. attrs[Name]=ToText(Val);
  296. str=str.substring(iVal2+1,str.length);
  297. }
  298. return attrs;
  299. }
  300.  
  301. function TrimStr(str)
  302. {
  303. if(str.indexOf(" ")==-1&&str.indexOf("\t")==-1&&str.indexOf("\r")==-1&&str.indexOf("\n")==-1) return str;
  304. var iBeg=0,iEnd=str.length;
  305. while(iBeg<iEnd&&isWhChar(str.charAt(iBeg))) iBeg++;
  306. while(iEnd>iBeg&&isWhChar(str.charAt(iEnd-1))) iEnd--;//Note -1!
  307. if(iBeg==0&&iEnd==str.length) return str;
  308. return str.substring(iBeg,iEnd);
  309. }
  310.  
  311. function isWhChar(ch){if(ch==' '||ch=='\t'||ch=='\r'||ch=='\n')return 1;return 0;}
  312.  
  313. function ToText(str)
  314. {
  315. if(str.indexOf("&")==-1) return str;
  316. var s=new Array();
  317. str+=" ";//Netscape4 bug
  318. s=str.split("<");
  319. str=s.join("<");
  320. s=str.split(">");
  321. str=s.join(">");
  322. s=str.split(""");
  323. str=s.join("\"");
  324. s=str.split("'");
  325. str=s.join("\'");
  326. s=str.split("&");
  327. str=s.join("&");
  328. s=str.split(" ");
  329. str=s.join("\t");
  330.  
  331. s=str.split(" ");
  332. str=s.join("\r\n");
  333. //single new-lines:
  334. s=str.split(" ");
  335. str=s.join("\r\n");
  336. s=str.split(" ");
  337. str=s.join("\r");
  338. s=str.split("\");
  339. str=s.join("\\");
  340. return str.substring(0,str.length-1);
  341. }
  342.  
  343. function FrText(str)
  344. {
  345. var s=new Array();
  346. str=str+" ";//Netscape4 bug !
  347. s=str.split("&");
  348. str=s.join("&");
  349. s=str.split("<");
  350. str=s.join("<");
  351. s=str.split(">");
  352.  
  353. str=s.join(">");
  354. s=str.split("\"");
  355. str=s.join(""");
  356. s=str.split("\'");
  357. str=s.join("'");
  358.  
  359. s=str.split("\\");
  360. str=s.join("\");
  361. s=str.split("\t");
  362. str=s.join(" ");
  363. s=str.split("\n");
  364. str=s.join(" ");
  365. s=str.split("\r");
  366. str=s.join(" ");
  367. return str=str.substring(-1,str.length-1);
  368. }
  369.  
  370. function XmlStr(node,i,deep)
  371. {
  372. var s="";
  373. if(node.nodeType==8){s+=node.data;return s;}
  374. var num=node.childNodes.length;
  375. var empty="";
  376. if(num==0) empty="/";
  377. var tagname=node.tagName;
  378. s+="<"+tagname;
  379. node.getAttribute("a");
  380. var attrs=node.attributes;
  381. if(attrs!=null)
  382. for(var a in attrs){var v=attrs[a];if(v!=null) s+=" "+a+"=\""+FrText(v)+"\"";}
  383. s+=empty+">";
  384. if(num>0)
  385. {
  386.  if(num==1&&node.childNodes.item(0).nodeType==3){s+=FrText(node.childNodes.item(0).data);}
  387.  else
  388.  {var j;
  389.   for(j=0;j<num;j++)
  390.   {
  391.    var child=node.childNodes.item(j);
  392.    if(child.nodeType!=12)
  393.     if(deep>0) s+= XmlStr(child,i+1,deep);
  394.   }
  395.  }
  396.  s+="</"+tagname+">";
  397. }
  398. return s;
  399. }
  400.  
  401.