Program.pas

namespace XsdParser.Net;

uses
  proholz.xsdparser;

type
  Program = class
  public

    class method Main(args: array of String): Int32;
    begin
      // add your own code here
      writeLn('The magic happens here.');
      var filename :=
      if Environment.OS = OperatingSystem.Windows then
      'X:/BTL/btlx_11.xsd'.ToPlatformPathFromUnixPath
      else '/Volumes/HD2/BTL/btlx_11.xsd'.ToPlatformPathFromUnixPath;
     // var filename := '/Volumes/HD2/BTL/x3d-3.3.xsd';
      var Xsd := new  XsdParser(filename);

      if Xsd.getUnsolvedReferences.Count > 0 then
      begin
        writeLn('There are unsolved References:');
        for each item in Xsd.getUnsolvedReferences do  begin
          writeLn(item.getUnsolvedReference.getRef);
        end;
      end
      else
       writeLn('All solved');


      writeLn('solved : ');

      for each item in Xsd.getResultXsdSchemas do  begin
       writeLn($" File: {item.getfilename()} Target: {item.getTargetNamespace}");
       for each name in item.getNamespaces() do
         writeLn(name.Key);
        for each ele in item.getElements do begin
          case ele.getElement.GetType of
            typeOf(XsdElement) : writeLn($' {XsdElement(ele.getElement).getName} XSD Element');
            typeOf(XsdSimpleType) : writeLn($'   {XsdSimpleType(ele.getElement).getName} XSD Simple');
            typeOf(XsdComplexType) : writeLn($'   {XsdComplexType(ele.getElement).getName} XSD Complex');
          end;

        //  writeLn(ele.getElement.ToString);
       end;
        //if item.getChildrenComplexTypes.Any and false then begin
       //writeLn('Complextypes');
       //for each child in item.getChildrenComplexTypes do begin
        //writeLn($"    {child.getRawName}");
       //end;
       //end;


      end;

    end;

  end;

end.