public static void startupHttpServer() {
    { Object old$Module$000 = Stella.$MODULE$.get();
      Object old$Context$000 = Stella.$CONTEXT$.get();

      try {
        Native.setSpecial(Stella.$MODULE$, Stella.getStellaModule("/HTTP", Stella.$STARTUP_TIME_PHASE$ > 1));
        Native.setSpecial(Stella.$CONTEXT$, ((Module)(Stella.$MODULE$.get())));
        if (Stella.currentStartupTimePhaseP(2)) {
          _StartupHttpServer.helpStartupHttpServer1();
        }
        if (Stella.currentStartupTimePhaseP(4)) {
          Http.$HTTP_RESPONSE_CODES$ = Cons.list$(Cons.cons(Cons.list$(Cons.cons(Http.KWD_OK, Cons.cons(IntegerWrapper.wrapInteger(200), Cons.cons(StringWrapper.wrapString("OK"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_REDIRECT, Cons.cons(IntegerWrapper.wrapInteger(301), Cons.cons(StringWrapper.wrapString("Moved Permanently"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_FORBIDDEN, Cons.cons(IntegerWrapper.wrapInteger(403), Cons.cons(StringWrapper.wrapString("Forbidden"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_NOT_FOUND, Cons.cons(IntegerWrapper.wrapInteger(404), Cons.cons(StringWrapper.wrapString("Not Found"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_BAD_REQUEST, Cons.cons(IntegerWrapper.wrapInteger(400), Cons.cons(StringWrapper.wrapString("Bad Request"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_INTERNAL_ERROR, Cons.cons(IntegerWrapper.wrapInteger(500), Cons.cons(StringWrapper.wrapString("Internal Server Error"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_NOT_IMPLEMENTED, Cons.cons(IntegerWrapper.wrapInteger(501), Cons.cons(StringWrapper.wrapString("Not Implemented"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Stella.NIL, Stella.NIL)))))))));
          Http.$HTTP_MIME_TYPES$ = Cons.list$(Cons.cons(Cons.list$(Cons.cons(Http.KWD_PLAIN_TEXT, Cons.cons(StringWrapper.wrapString("text/plain"), Cons.cons(StringWrapper.wrapString("txt"), Cons.cons(StringWrapper.wrapString("text"), Cons.cons(StringWrapper.wrapString("asc"), Cons.cons(Stella.NIL, Stella.NIL))))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_HTML, Cons.cons(StringWrapper.wrapString("text/html"), Cons.cons(StringWrapper.wrapString("htm"), Cons.cons(StringWrapper.wrapString("html"), Cons.cons(Stella.NIL, Stella.NIL)))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_XML, Cons.cons(StringWrapper.wrapString("text/xml"), Cons.cons(StringWrapper.wrapString("xml"), Cons.cons(StringWrapper.wrapString("rdf"), Cons.cons(StringWrapper.wrapString("owl"), Cons.cons(Stella.NIL, Stella.NIL))))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_BINARY, Cons.cons(StringWrapper.wrapString("application/octet-stream"), Cons.cons(StringWrapper.wrapString("zip"), Cons.cons(StringWrapper.wrapString("exe"), Cons.cons(StringWrapper.wrapString("class"), Cons.cons(Stella.NIL, Stella.NIL))))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_IMAGE_GIF, Cons.cons(StringWrapper.wrapString("image/gif"), Cons.cons(StringWrapper.wrapString("gif"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_IMAGE_JPG, Cons.cons(StringWrapper.wrapString("image/jpeg"), Cons.cons(StringWrapper.wrapString("jpg"), Cons.cons(StringWrapper.wrapString("jpeg"), Cons.cons(Stella.NIL, Stella.NIL)))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_IMAGE_PNG, Cons.cons(StringWrapper.wrapString("image/png"), Cons.cons(StringWrapper.wrapString("png"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_AUDIO_MPEG, Cons.cons(StringWrapper.wrapString("audio/mpeg"), Cons.cons(StringWrapper.wrapString("mp3"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_PDF, Cons.cons(StringWrapper.wrapString("application/pdf"), Cons.cons(StringWrapper.wrapString("pdf"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Cons.list$(Cons.cons(Http.KWD_MSWORD, Cons.cons(StringWrapper.wrapString("application/msword"), Cons.cons(StringWrapper.wrapString("doc"), Cons.cons(Stella.NIL, Stella.NIL))))), Cons.cons(Stella.NIL, Stella.NIL))))))))))));
          Http.$HTTP_DOCUMENT_ROOT$ = ((Http.$HTTP_DOCUMENT_ROOT$ != null) ? Http.$HTTP_DOCUMENT_ROOT$ : ((Stella.probeFileP("PL:htdocs;powerloom.html") ? Stella.translateLogicalPathname("PL:htdocs;") : Stella.translateLogicalPathname("PL:"))));
          Http.$HTTP_HANDLER_REGISTRY$ = KeyValueMap.newKeyValueMap();
          Http.$HTTP_SERVER_COPYRIGHT_TRAILER$ = Stella.$STELLA_VERSION_STRING$ + " HTTP Server" + "<BR>" + "Copyright 1996-" + Native.integerToString(((long)(CalendarDate.makeCurrentDateTime().getCalendarDate(Stella.getLocalTimeZone(), new Object[3])))) + " University of Southern California Information Sciences Institute";
        }
        if (Stella.currentStartupTimePhaseP(5)) {
          Stella.defineClassFromStringifiedSource("HTTP-SERVER", "(DEFCLASS HTTP-SERVER (STANDARD-OBJECT) :DOCUMENTATION \"Abstract class that will be implemented by specific server implementations\nand instantiated with a single instance used to dispatch all API methods.\" :ABSTRACT? TRUE :PUBLIC? TRUE)");
          Stella.defineClassFromStringifiedSource("HTTP-EXCHANGE", "(DEFCLASS HTTP-EXCHANGE (STANDARD-OBJECT) :DOCUMENTATION \"Abstract class that represents exchange objects that encapsulate all necessary\nstate needed by a http handler function to understand the request and generate the\nappropriate response.  This is mirrored somewhat after Sun's basic HTTP server\nimplementation in com.sun.net.httpserver.\" :ABSTRACT? TRUE :PUBLIC? TRUE)");
        }
        if (Stella.currentStartupTimePhaseP(6)) {
          Stella.finalizeClasses();
        }
        if (Stella.currentStartupTimePhaseP(7)) {
          _StartupHttpServer.helpStartupHttpServer2();
        }
        if (Stella.currentStartupTimePhaseP(8)) {
          Stella.finalizeSlots();
          Stella.cleanupUnfinalizedClasses();
        }
        if (Stella.currentStartupTimePhaseP(9)) {
          Stella_Object.inModule(((StringWrapper)(Stella_Object.copyConsTree(StringWrapper.wrapString("HTTP")))));
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *HTTP-SERVER-IMPLEMENTATION* HTTP-SERVER NULL :DOCUMENTATION \"Server instance used for method dispatch - not to be confused\nwith an actual native server object.\")");
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *DEFAULT-HTTP-SERVER-PORT* INTEGER 9090)");
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *HTTP-RESPONSE-CODES* (CONS OF CONS) (BQUOTE ((:OK 200 \"OK\") (:REDIRECT 301 \"Moved Permanently\") (:FORBIDDEN 403 \"Forbidden\") (:NOT-FOUND 404 \"Not Found\") (:BAD-REQUEST 400 \"Bad Request\") (:INTERNAL-ERROR 500 \"Internal Server Error\") (:NOT-IMPLEMENTED 501 \"Not Implemented\"))))");
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *HTTP-MIME-TYPES* (CONS OF CONS) (BQUOTE ((:PLAIN-TEXT \"text/plain\" \"txt\" \"text\" \"asc\") (:HTML \"text/html\" \"htm\" \"html\") (:XML \"text/xml\" \"xml\" \"rdf\" \"owl\") (:BINARY \"application/octet-stream\" \"zip\" \"exe\" \"class\") (:IMAGE-GIF \"image/gif\" \"gif\") (:IMAGE-JPG \"image/jpeg\" \"jpg\" \"jpeg\") (:IMAGE-PNG \"image/png\" \"png\") (:AUDIO-MPEG \"audio/mpeg\" \"mp3\") (:PDF \"application/pdf\" \"pdf\") (:MSWORD \"application/msword\" \"doc\"))))");
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *HTTP-DOCUMENT-ROOT* STRING (FIRST-DEFINED *HTTP-DOCUMENT-ROOT* (CHOOSE (PROBE-FILE? \"PL:htdocs;powerloom.html\") (TRANSLATE-LOGICAL-PATHNAME \"PL:htdocs;\") (TRANSLATE-LOGICAL-PATHNAME \"PL:\"))))");
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *HTTP-HANDLER-REGISTRY* (KEY-VALUE-MAP OF STRING-WRAPPER PROPERTY-LIST) (NEW KEY-VALUE-MAP))");
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *HTTP-SERVER-COPYRIGHT-TRAILER* STRING (CONCATENATE *STELLA-VERSION-STRING* \" HTTP Server\" \"<BR>\" \"Copyright 1996-\" (INTEGER-TO-STRING (GET-CALENDAR-DATE (MAKE-CURRENT-DATE-TIME) (GET-LOCAL-TIME-ZONE))) \" University of Southern California Information Sciences Institute\"))");
          Http.publishDirectory("/ploom/", Http.getHttpDocumentRoot(), Cons.cons(Http.KWD_DOCUMENTATION, Cons.cons(StringWrapper.wrapString("Top-level htdocs directory."), Stella.NIL)));
          Http.publishHandler("/ploom/load-system", Native.find_java_method("edu.isi.webtools.http.HttpExchange", "loadSystemHandler", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), Cons.cons(Http.KWD_CONTENT_TYPE, Cons.cons(StringWrapper.wrapString(Http.getHttpMimeType(Http.KWD_HTML, null)), Cons.cons(Http.KWD_DOCUMENTATION, Cons.cons(StringWrapper.wrapString("Triggers a load-system operation at the server for the argument system."), Stella.NIL)))));
          Stella.defineStellaGlobalVariableFromStringifiedSource("(DEFGLOBAL *TEST-HTTP-API-HANDLER-LAST-XCHG* HTTP-EXCHANGE NULL)");
          Http.publishHandler("/ploom/test-http-api", Native.find_java_method("edu.isi.webtools.http.HttpExchange", "testHttpApiHandler", new java.lang.Class [] {Native.find_java_class("edu.isi.webtools.http.HttpExchange")}), Cons.cons(Http.KWD_CONTENT_TYPE, Cons.cons(StringWrapper.wrapString(Http.getHttpMimeType(Http.KWD_HTML, null)), Cons.cons(Http.KWD_DOCUMENTATION, Cons.cons(StringWrapper.wrapString("Useful for comparing different HTTP API implementations."), Stella.NIL)))));
        }

      } finally {
        Stella.$CONTEXT$.set(old$Context$000);
        Stella.$MODULE$.set(old$Module$000);
      }
    }
  }