public void unwrap() { setHeaderObjects(StringWrapper.unwrap(wrappedHeaderObjects)); setLibs(StringWrapper.unwrap(wrappedLibs)); setVariables(StringWrapper.unwrap(wrappedVariables)); if (getClassPath() != null) { ((AntClassPath) getClassPath()).unwrap(); } if (getJre() != null) { ((AntJre) getJre()).unwrap(); } }
@Test public void postRequiredStringProperty() throws Exception { try { StringWrapper body = new StringWrapper(); body.setValue(null); client.getExplicit().postRequiredStringProperty(body); fail(); } catch (ServiceException ex) { Assert.assertEquals(IllegalArgumentException.class, ex.getCause().getClass()); Assert.assertTrue(ex.getMessage().contains("value is required")); } }
public void vizExportModule(Module module) { { VizInfo self = this; Logic.plLog( OntosaurusUtil.KWD_MEDIUM, Cons.cons( StringWrapper.wrapString("powerloom-viz: exporting module: "), Cons.cons(module, Stella.NIL))); { Object old$Module$000 = Stella.$MODULE$.get(); Object old$Context$000 = Stella.$CONTEXT$.get(); try { Native.setSpecial(Stella.$MODULE$, module); Native.setSpecial(Stella.$CONTEXT$, ((Module) (Stella.$MODULE$.get()))); self.vizExportConcepts(module); } finally { Stella.$CONTEXT$.set(old$Context$000); Stella.$MODULE$.set(old$Module$000); } } } }
/** * Simple default handler lookup implementation. Return the registered handler whose path is * identical to <code>path</code> or is the longest prefix of <code>path</code>. * * @param path * @return PropertyList */ public PropertyList lookupHandler(String path) { { HttpServer server = this; if (Http.$HTTP_SERVER_IMPLEMENTATION$ == null) { throw ((StellaException) (StellaException.newStellaException( "lookup-handler: no HTTP server implementation loaded") .fillInStackTrace())); } { PropertyList handler = ((PropertyList) (Http.$HTTP_HANDLER_REGISTRY$.lookup(StringWrapper.wrapString(path)))); String handlerpath = null; int handlerpathlength = 0; if (handler != null) { return (handler); } { StringWrapper p = null; PropertyList h = null; DictionaryIterator iter000 = ((DictionaryIterator) (Http.$HTTP_HANDLER_REGISTRY$.allocateIterator())); while (iter000.nextP()) { p = ((StringWrapper) (iter000.key)); h = ((PropertyList) (iter000.value)); if (Stella.startsWithP(path, p.wrapperValue, 0)) { if ((handler == null) || ((StringWrapper.unwrapString(p)).length() > handlerpathlength)) { handler = h; handlerpath = p.wrapperValue; handlerpathlength = handlerpath.length(); } } } } return (handler); } } }
public static void STARTUP_XML_SCHEMA_INSTANCE() { { Object OLD_$MODULE$_000 = Stella.$MODULE$.get(); Object OLD_$CONTEXT$_000 = Stella.$CONTEXT$.get(); try { Native.setSpecial( Stella.$MODULE$, Stella.getStellaModule("/STELLA/XML-OBJECTS/XSI", Stella.$STARTUP_TIME_PHASE$ > 1)); Native.setSpecial(Stella.$CONTEXT$, ((Module) (Stella.$MODULE$.get()))); if (Stella.currentStartupTimePhaseP(2)) { Xsi.SYM_XSI_STARTUP_XML_SCHEMA_INSTANCE = ((Symbol) (GeneralizedSymbol.internRigidSymbolWrtModule( "STARTUP-XML-SCHEMA-INSTANCE", null, 0))); } if (Stella.currentStartupTimePhaseP(6)) { Stella.finalizeClasses(); } if (Stella.currentStartupTimePhaseP(7)) { Stella.defineFunctionObject( "STARTUP-XML-SCHEMA-INSTANCE", "(DEFUN STARTUP-XML-SCHEMA-INSTANCE () :PUBLIC? TRUE)", Native.find_java_method( "edu.isi.webtools.objects.xmlschemainstance._StartupXmlSchemaInstance", "STARTUP_XML_SCHEMA_INSTANCE", new java.lang.Class[] {}), null); { MethodSlot function = Symbol.lookupFunction(Xsi.SYM_XSI_STARTUP_XML_SCHEMA_INSTANCE); KeyValueList.setDynamicSlotValue( function.dynamicSlots, edu.isi.webtools.http.Http.SYM_STELLA_METHOD_STARTUP_CLASSNAME, StringWrapper.wrapString("_StartupXmlSchemaInstance"), Stella.NULL_STRING_WRAPPER); } } if (Stella.currentStartupTimePhaseP(8)) { Stella.finalizeSlots(); Stella.cleanupUnfinalizedClasses(); } if (Stella.currentStartupTimePhaseP(9)) { Stella_Object.inModule( ((StringWrapper) (Stella_Object.copyConsTree(StringWrapper.wrapString("XSI"))))); XmlObjects.$NAMESPACE_PREFIX_URI_TABLE$.insertAt( StringWrapper.wrapString("XSI"), StringWrapper.wrapString("http://www.w3.org/2001/XMLSchema-instance")); XmlObjects.$NAMESPACE_URI_PREFIX_TABLE$.insertAt( StringWrapper.wrapString("http://www.w3.org/2001/XMLSchema-instance"), StringWrapper.wrapString("XSI")); } } finally { Stella.$CONTEXT$.set(OLD_$CONTEXT$_000); Stella.$MODULE$.set(OLD_$MODULE$_000); } } }
public byte[] serialize() { if (stringWrapperList.size() != 0) { int counter = 0; int dataLength = 0; // calculate serializedStringWrapperListLength for (StringWrapper stringWrapper : stringWrapperList) { byte[] serializedStringWrapper = stringWrapper.serialize(); byte[] stringWrapperLengthByteArray = DataLengthByteArrayMaker.getByteArray(serializedStringWrapper.length); dataLength += stringWrapperLengthByteArray.length + serializedStringWrapper.length; } byte[] serializedStringWrapperList = new byte[dataLength]; for (StringWrapper stringWrapper : stringWrapperList) { byte[] serializedStringWrapper = stringWrapper.serialize(); int serializedStringWrapperLength = serializedStringWrapper.length; byte[] stringWrapperLengthByteArray = DataLengthByteArrayMaker.getByteArray(serializedStringWrapperLength); System.arraycopy( stringWrapperLengthByteArray, 0, serializedStringWrapperList, counter, stringWrapperLengthByteArray.length); counter += stringWrapperLengthByteArray.length; System.arraycopy( serializedStringWrapper, 0, serializedStringWrapperList, counter, serializedStringWrapper.length); counter += serializedStringWrapper.length; } return serializedStringWrapperList; } return new byte[0]; }
public void deserialize(byte[] serializedStringWrapperList) { if (serializedStringWrapperList.length != 0) { int counter = 0; int serializedStringWrapperByteArrayLength = 0; while (true) { if (counter == serializedStringWrapperList.length) { break; } int firstLengthByte = serializedStringWrapperList[counter]; int numOfByteForLength = 1; if ((firstLengthByte & 0x80) == 0) { serializedStringWrapperByteArrayLength = serializedStringWrapperList[counter]; } else { counter++; numOfByteForLength = firstLengthByte & 0x0f; byte[] serializedStringWrapperLengthByteArray = new byte[numOfByteForLength]; int serializedDataWrapperLengthByteArrayCounter = 0; for (int i = counter; i < counter + numOfByteForLength; i++) { serializedStringWrapperLengthByteArray[serializedDataWrapperLengthByteArrayCounter++] = serializedStringWrapperList[i]; } serializedStringWrapperByteArrayLength = ByteArrayToInteger.getInt(serializedStringWrapperLengthByteArray); } counter += numOfByteForLength; byte[] stringWrapperByteArray = new byte[serializedStringWrapperByteArrayLength]; int stringWrapperByteArrayCounter = 0; for (int i = counter; i < counter + serializedStringWrapperByteArrayLength; i++) { stringWrapperByteArray[stringWrapperByteArrayCounter++] = serializedStringWrapperList[i]; } counter += serializedStringWrapperByteArrayLength; StringWrapper stringWrapper = new StringWrapper(); stringWrapper.deserialize(stringWrapperByteArray); stringWrapperList.add(stringWrapper); } } }
/** * Returns the date part of the string representation of <code>date</code> adjusted for <code> * timezone</code>. Format is YYYY-MMM-DD, where MMM is a three letter English abbreviation of the * month if <code>numericMonthP</code> is <code>false</code> and a two digit numeric value if * <code>numericMonthP</code> is <code>true</code>. The value <code>false</code> is recommended. * * @param timezone * @param numericMonthP * @return String */ public String calendarDateToDateString(double timezone, boolean numericMonthP) { { CalendarDate date = this; { int year = Stella.NULL_INTEGER; int month = Stella.NULL_INTEGER; int day = Stella.NULL_INTEGER; Keyword dow = null; { Object[] caller_MV_returnarray = new Object[3]; year = date.getCalendarDate(timezone, caller_MV_returnarray); month = ((int) (((IntegerWrapper) (caller_MV_returnarray[0])).wrapperValue)); day = ((int) (((IntegerWrapper) (caller_MV_returnarray[1])).wrapperValue)); dow = ((Keyword) (caller_MV_returnarray[2])); } dow = dow; { String yearString = ((year < 0) ? (Native.integerToString(0 - year) + "BC") : Native.integerToString(year)); String monthString = (numericMonthP ? Stella.formatWithPadding( Native.integerToString(month), 2, '0', Stella.KWD_RIGHT, false) : StringWrapper.unwrapString( ((StringWrapper) ((Stella.$MONTH_ABBREVIATION_VECTOR$.theArray)[month])))); return (yearString + "-" + monthString + "-" + Stella.formatWithPadding( Native.integerToString(day), 2, '0', Stella.KWD_RIGHT, false)); } } } }
public static void startupControlPanelScript() { { Object old$Module$000 = Stella.$MODULE$.get(); Object old$Context$000 = Stella.$CONTEXT$.get(); try { Native.setSpecial( Stella.$MODULE$, Stella.getStellaModule("/ONTOSAURUS", Stella.$STARTUP_TIME_PHASE$ > 1)); Native.setSpecial(Stella.$CONTEXT$, ((Module) (Stella.$MODULE$.get()))); if (Stella.currentStartupTimePhaseP(2)) { OntosaurusUtil.SYM_ONTOSAURUS_STARTUP_CONTROL_PANEL_SCRIPT = ((Symbol) (GeneralizedSymbol.internRigidSymbolWrtModule( "STARTUP-CONTROL-PANEL-SCRIPT", null, 0))); } if (Stella.currentStartupTimePhaseP(6)) { Stella.finalizeClasses(); } if (Stella.currentStartupTimePhaseP(7)) { Stella.defineFunctionObject( "WRITE-CONTROL-PANEL-SCRIPT", "(DEFUN WRITE-CONTROL-PANEL-SCRIPT ((STREAM NATIVE-OUTPUT-STREAM)))", Native.find_java_method( "edu.isi.ontosaurus.OntosaurusUtil", "writeControlPanelScript", new java.lang.Class[] {Native.find_java_class("java.io.PrintStream")}), null); Stella.defineFunctionObject( "STARTUP-CONTROL-PANEL-SCRIPT", "(DEFUN STARTUP-CONTROL-PANEL-SCRIPT () :PUBLIC? TRUE)", Native.find_java_method( "edu.isi.ontosaurus._StartupControlPanelScript", "startupControlPanelScript", new java.lang.Class[] {}), null); { MethodSlot function = Symbol.lookupFunction(OntosaurusUtil.SYM_ONTOSAURUS_STARTUP_CONTROL_PANEL_SCRIPT); KeyValueList.setDynamicSlotValue( function.dynamicSlots, OntosaurusUtil.SYM_STELLA_METHOD_STARTUP_CLASSNAME, StringWrapper.wrapString("_StartupControlPanelScript"), Stella.NULL_STRING_WRAPPER); } } if (Stella.currentStartupTimePhaseP(8)) { Stella.finalizeSlots(); Stella.cleanupUnfinalizedClasses(); } if (Stella.currentStartupTimePhaseP(9)) { Stella_Object.inModule( ((StringWrapper) (Stella_Object.copyConsTree(StringWrapper.wrapString("ONTOSAURUS"))))); } } finally { Stella.$CONTEXT$.set(old$Context$000); Stella.$MODULE$.set(old$Module$000); } } }
public static void startupHttpServerImpl() { { Object old$Module$000 = Stella.$MODULE$.get(); Object old$Context$000 = Stella.$CONTEXT$.get(); try { Native.setSpecial( Stella.$MODULE$, Stella.getStellaModule("/HTTP/TOMCAT", Stella.$STARTUP_TIME_PHASE$ > 1)); Native.setSpecial(Stella.$CONTEXT$, ((Module) (Stella.$MODULE$.get()))); if (Stella.currentStartupTimePhaseP(2)) { Tomcat.SGT_TOMCAT_HTTP_SERVER_TOMCAT = ((Surrogate) (GeneralizedSymbol.internRigidSymbolWrtModule("HTTP-SERVER-TOMCAT", null, 1))); Tomcat.KWD_OK = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("OK", null, 2))); Tomcat.SGT_TOMCAT_HTTP_EXCHANGE_TOMCAT = ((Surrogate) (GeneralizedSymbol.internRigidSymbolWrtModule("HTTP-EXCHANGE-TOMCAT", null, 1))); Tomcat.SYM_TOMCAT_RESPONSE_CODE = ((Symbol) (GeneralizedSymbol.internRigidSymbolWrtModule("RESPONSE-CODE", null, 0))); Tomcat.SYM_TOMCAT_HANDLER_OPTIONS = ((Symbol) (GeneralizedSymbol.internRigidSymbolWrtModule("HANDLER-OPTIONS", null, 0))); Tomcat.KWD_BLOCK = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("BLOCK", null, 2))); Tomcat.SGT_STELLA_PROPERTY_LIST = ((Surrogate) (GeneralizedSymbol.internRigidSymbolWrtModule( "PROPERTY-LIST", Stella.getStellaModule("/STELLA", true), 1))); Tomcat.KWD_PATH = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("PATH", null, 2))); Tomcat.KWD_HANDLER_TYPE = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("HANDLER-TYPE", null, 2))); Tomcat.KWD_ERROR = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("ERROR", null, 2))); Tomcat.KWD_HANDLER = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("HANDLER", null, 2))); Tomcat.KWD_FILE = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("FILE", null, 2))); Tomcat.KWD_DIRECTORY = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("DIRECTORY", null, 2))); Tomcat.KWD_CONTENT_TYPE = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("CONTENT-TYPE", null, 2))); Tomcat.KWD_HTML = ((Keyword) (GeneralizedSymbol.internRigidSymbolWrtModule("HTML", null, 2))); Tomcat.SYM_TOMCAT_STARTUP_HTTP_SERVER_IMPL = ((Symbol) (GeneralizedSymbol.internRigidSymbolWrtModule( "STARTUP-HTTP-SERVER-IMPL", null, 0))); Tomcat.SYM_STELLA_METHOD_STARTUP_CLASSNAME = ((Symbol) (GeneralizedSymbol.internRigidSymbolWrtModule( "METHOD-STARTUP-CLASSNAME", Stella.getStellaModule("/STELLA", true), 0))); } if (Stella.currentStartupTimePhaseP(5)) { { Stella_Class renamed_Class = Stella.defineClassFromStringifiedSource( "HTTP-SERVER-TOMCAT", "(DEFCLASS HTTP-SERVER-TOMCAT (HTTP-SERVER) :PUBLIC? TRUE)"); renamed_Class.classConstructorCode = Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "newHttpServerTomcat", new java.lang.Class[] {}); } Stella.defineClassFromStringifiedSource( "NATIVE-HTTP-SERVLET-REQUEST", "(DEFCLASS NATIVE-HTTP-SERVLET-REQUEST () :JAVA-NATIVE-TYPE \"javax.servlet.http.HttpServletRequest\")"); Stella.defineClassFromStringifiedSource( "NATIVE-HTTP-SERVLET-RESPONSE", "(DEFCLASS NATIVE-HTTP-SERVLET-RESPONSE () :JAVA-NATIVE-TYPE \"javax.servlet.http.HttpServletResponse\")"); { Stella_Class renamed_Class = Stella.defineClassFromStringifiedSource( "HTTP-EXCHANGE-TOMCAT", "(DEFCLASS HTTP-EXCHANGE-TOMCAT (HTTP-EXCHANGE) :SLOTS ((NATIVE-REQUEST :TYPE NATIVE-HTTP-SERVLET-REQUEST) (NATIVE-RESPONSE :TYPE NATIVE-HTTP-SERVLET-RESPONSE) (RESPONSE-CODE :TYPE INTEGER :INITIALLY (GET-HTTP-RESPONSE-CODE :OK NULL)) (REPLY-STREAM :TYPE NATIVE-OUTPUT-STREAM) (HANDLER-OPTIONS :TYPE PROPERTY-LIST)))"); renamed_Class.classConstructorCode = Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpExchangeTomcat", "newHttpExchangeTomcat", new java.lang.Class[] {}); renamed_Class.classSlotAccessorCode = Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpExchangeTomcat", "accessHttpExchangeTomcatSlotValue", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.tomcat.HttpExchangeTomcat"), Native.find_java_class("edu.isi.stella.Symbol"), Native.find_java_class("edu.isi.stella.Stella_Object"), java.lang.Boolean.TYPE }); } } if (Stella.currentStartupTimePhaseP(6)) { Stella.finalizeClasses(); } if (Stella.currentStartupTimePhaseP(7)) { Stella.defineMethodObject( "(DEFMETHOD (START-HTTP-SERVER-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (PORT INTEGER)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "startHttpServerImpl", new java.lang.Class[] {java.lang.Integer.TYPE}), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD STOP-HTTP-SERVER-IMPL ((SERVER HTTP-SERVER-TOMCAT)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "stopHttpServerImpl", new java.lang.Class[] {}), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-HEADER-VALUE-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE) (KEY KEYWORD)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getHeaderValueImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REPLY-HEADER-VALUE-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE) (KEY KEYWORD)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getReplyHeaderValueImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD SET-REPLY-HEADER-VALUE-IMPL ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE) (KEY KEYWORD) (VALUE STRING)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "setReplyHeaderValueImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword"), Native.find_java_class("java.lang.String") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-URI-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestUriImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-URI-QUERY-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestUriQueryImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-URI-PATH-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestUriPathImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-METHOD-IMPL KEYWORD) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestMethodImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-PROTOCOL-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestProtocolImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-BODY-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestBodyImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-LOCAL-ADDRESS-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestLocalAddressImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REQUEST-REMOTE-ADDRESS-IMPL STRING) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getRequestRemoteAddressImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-REPLY-STREAM-IMPL NATIVE-OUTPUT-STREAM) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getReplyStreamImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD SET-RESPONSE-CODE-IMPL ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE) (CODE KEYWORD)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "setResponseCodeImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange"), Native.find_java_class("edu.isi.stella.Keyword") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD PUBLISH-FILE-IMPL ((SERVER HTTP-SERVER-TOMCAT) (PATH STRING) (FILE STRING) (OPTIONS PROPERTY-LIST)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "publishFileImpl", new java.lang.Class[] { Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.String"), Native.find_java_class("edu.isi.stella.PropertyList") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD PUBLISH-DIRECTORY-IMPL ((SERVER HTTP-SERVER-TOMCAT) (PATH STRING) (DIRECTORY STRING) (OPTIONS PROPERTY-LIST)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "publishDirectoryImpl", new java.lang.Class[] { Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.String"), Native.find_java_class("edu.isi.stella.PropertyList") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD PUBLISH-HANDLER-IMPL ((SERVER HTTP-SERVER-TOMCAT) (PATH STRING) (HANDLER FUNCTION-CODE) (OPTIONS PROPERTY-LIST)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "publishHandlerImpl", new java.lang.Class[] { Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.reflect.Method"), Native.find_java_class("edu.isi.stella.PropertyList") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (GET-HANDLER-OPTIONS-IMPL PROPERTY-LIST) ((SERVER HTTP-SERVER-TOMCAT) (XCHG HTTP-EXCHANGE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "getHandlerOptionsImpl", new java.lang.Class[] { Native.find_java_class("edu.isi.webtools.http.HttpExchange") }), ((java.lang.reflect.Method) (null))); Stella.defineMethodObject( "(DEFMETHOD (SERVLET-HANDLE-REQUEST HTTP-EXCHANGE-TOMCAT) ((SERVER HTTP-SERVER-TOMCAT) (REQUEST NATIVE-HTTP-SERVLET-REQUEST) (RESPONSE NATIVE-HTTP-SERVLET-RESPONSE)))", Native.find_java_method( "edu.isi.webtools.http.tomcat.HttpServerTomcat", "servletHandleRequest", new java.lang.Class[] { Native.find_java_class("javax.servlet.http.HttpServletRequest"), Native.find_java_class("javax.servlet.http.HttpServletResponse") }), ((java.lang.reflect.Method) (null))); Stella.defineFunctionObject( "STARTUP-HTTP-SERVER-IMPL", "(DEFUN STARTUP-HTTP-SERVER-IMPL () :PUBLIC? TRUE)", Native.find_java_method( "edu.isi.webtools.http.tomcat._StartupHttpServerImpl", "startupHttpServerImpl", new java.lang.Class[] {}), null); { MethodSlot function = Symbol.lookupFunction(Tomcat.SYM_TOMCAT_STARTUP_HTTP_SERVER_IMPL); KeyValueList.setDynamicSlotValue( function.dynamicSlots, Tomcat.SYM_STELLA_METHOD_STARTUP_CLASSNAME, StringWrapper.wrapString("_StartupHttpServerImpl"), Stella.NULL_STRING_WRAPPER); } } if (Stella.currentStartupTimePhaseP(8)) { Stella.finalizeSlots(); Stella.cleanupUnfinalizedClasses(); } if (Stella.currentStartupTimePhaseP(9)) { Stella_Object.inModule( ((StringWrapper) (Stella_Object.copyConsTree(StringWrapper.wrapString("HTTP/TOMCAT"))))); if ((Http.$HTTP_SERVER_IMPLEMENTATION$ != null) && (!Stella_Object.isaP( Http.$HTTP_SERVER_IMPLEMENTATION$, Tomcat.SGT_TOMCAT_HTTP_SERVER_TOMCAT))) { throw ((StellaException) (StellaException.newStellaException( "Conflicting HTTP server implementation already loaded") .fillInStackTrace())); } else { Http.$HTTP_SERVER_IMPLEMENTATION$ = HttpServerTomcat.newHttpServerTomcat(); } } } finally { Stella.$CONTEXT$.set(old$Context$000); Stella.$MODULE$.set(old$Module$000); } } }
/** * Constructor for WaveletNode. Recursively builds the wavelet tree node and its subtrees. * * @param string - a string that that you want to build the wavelet tree node of * @param alphabet - Alphabet object containing alphabet information of the given string * @throws AlphabetException */ public WaveletNode(StringWrapper string, Alphabet alphabet) throws AlphabetException { Byte[] allCharacters = alphabet.getAllCharacters(); contentLenght = string.length(); int alphabetSize = alphabet.size(); /* * If the alphabet's size is equal to 2, the pivot is the second character. * Else, if alphabet's size is equal to 1, the pivot is that only character. * When you do this, it means you have built a leaf of the wavelet tree and you can return. */ if (alphabetSize <= 2) { if (alphabetSize == 2) pivot = allCharacters[1]; else pivot = allCharacters[0]; bitContent = new RRR(pivot, string); return; } /* * Find the middle of the string and put it in variable half. */ int totalNumberOfCharacters = 0; for (byte b : alphabet.getAllCharacters()) { totalNumberOfCharacters += alphabet.getOccurancesForCharacter(b); } int half = totalNumberOfCharacters / 2; /* * Finding the pivot. * Variable pivotIndex is an index of potential pivot in the alphabet's character array (which is * a sorted array of all the characters that input string contains). * The for loop iterates through the alpahabet's character array, adding to variable totalOccurencesSoFar * each of the potential pivot's occurrence. The loop breaks when the totalOccurencesSoFar reaches the * value of half of the input string length; therefore finding the optimal pivot considering probability * of it's occurrence in the string. */ int totalOccurencesSoFar = 0; int pivotIndex = half; for (pivotIndex = 0; totalOccurencesSoFar < half; pivotIndex++) { totalOccurencesSoFar += alphabet.getOccurancesForCharacter(allCharacters[pivotIndex]); } /* * The final check sees if found pivot is better pivot than the character that comes after it in the alphabet's * character array (since the for loop stops when totalOccurencesSoFar < half). */ if (pivotIndex > 1 && (string.length() - totalOccurencesSoFar) < (string.length() + alphabet.getOccurancesForCharacter(allCharacters[pivotIndex - 1]) - totalOccurencesSoFar)) { pivotIndex--; } /* * Building the RRR structure. */ this.pivot = allCharacters[pivotIndex]; bitContent = new RRR(pivot, string); /* * Building the contents of the child nodes. */ StringWrapper zeros = new StringWrapper(); StringWrapper ones = new StringWrapper(); int index1 = 0; int index2 = 0; int count = 0; for (byte b : alphabet.getAllCharacters()) { if (b == pivot) { break; } count += alphabet.getOccurancesForCharacter(b); } zeros.string = new byte[count]; ones.string = new byte[string.length() - count]; for (int i = 0; i < string.length(); i++) { if (string.charAt(i) < pivot) zeros.string[index1++] = string.charAt(i); else ones.string[index2++] = string.charAt(i); } string = null; System.gc(); Alphabet[] splittedAlphabets = alphabet.splitAlphabet(pivot); /* * Creating child nodes */ if (splittedAlphabets[0].size() > 1) left = new WaveletNode(zeros, splittedAlphabets[0]); zeros = null; System.gc(); if (splittedAlphabets[1].size() > 1) right = new WaveletNode(ones, splittedAlphabets[1]); ones = null; System.gc(); }
public static Stella_Object accessVizInfoSlotValue( VizInfo self, Symbol slotname, Stella_Object value, boolean setvalueP) { if (slotname == OntosaurusUtil.SYM_STELLA_STREAM) { if (setvalueP) { self.stream = ((OutputStream) (value)); } else { value = self.stream; } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_ALLOWED_OBJECTS) { if (setvalueP) { self.allowedObjects = ((HashSet) (value)); } else { value = self.allowedObjects; } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_SHOW_RELATIONSp) { if (setvalueP) { self.showRelationsP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper) (value))); } else { value = (self.showRelationsP ? Stella.TRUE_WRAPPER : Stella.FALSE_WRAPPER); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_SHOW_ATTRIBUTESp) { if (setvalueP) { self.showAttributesP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper) (value))); } else { value = (self.showAttributesP ? Stella.TRUE_WRAPPER : Stella.FALSE_WRAPPER); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_SHOW_RULESp) { if (setvalueP) { self.showRulesP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper) (value))); } else { value = (self.showRulesP ? Stella.TRUE_WRAPPER : Stella.FALSE_WRAPPER); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_ADD_TOPp) { if (setvalueP) { self.addTopP = BooleanWrapper.coerceWrappedBooleanToBoolean(((BooleanWrapper) (value))); } else { value = (self.addTopP ? Stella.TRUE_WRAPPER : Stella.FALSE_WRAPPER); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_NODE_COLOR) { if (setvalueP) { self.nodeColor = ((StringWrapper) (value)).wrapperValue; } else { value = StringWrapper.wrapString(self.nodeColor); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_RELATION_COLOR) { if (setvalueP) { self.relationColor = ((StringWrapper) (value)).wrapperValue; } else { value = StringWrapper.wrapString(self.relationColor); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_RELATION_STYLE) { if (setvalueP) { self.relationStyle = ((StringWrapper) (value)).wrapperValue; } else { value = StringWrapper.wrapString(self.relationStyle); } } else if (slotname == OntosaurusUtil.SYM_ONTOSAURUS_FONT_SIZE) { if (setvalueP) { self.fontSize = ((IntegerWrapper) (value)).wrapperValue; } else { value = IntegerWrapper.wrapInteger(self.fontSize); } } else { { OutputStringStream stream000 = OutputStringStream.newOutputStringStream(); stream000.nativeStream.print("`" + slotname + "' is not a valid case option"); throw ((StellaException) (StellaException.newStellaException(stream000.theStringReader()).fillInStackTrace())); } } return (value); }
@Test @Parameters({"wrapped , wrapped"}) public void convertsToCustomType(StringWrapper wrapper, String text) { assertThat(wrapper.getText()).isEqualTo(text); }
public static void startupCppTranslateFile() { { Object old$Module$000 = Stella.$MODULE$.get(); Object old$Context$000 = Stella.$CONTEXT$.get(); try { Native.setSpecial(Stella.$MODULE$, Stella.$STELLA_MODULE$); Native.setSpecial(Stella.$CONTEXT$, ((Module) (Stella.$MODULE$.get()))); if (Stella.currentStartupTimePhaseP(2)) { Stella.SYM_STELLA_AUXILIARY_VARIABLE = ((Symbol) (Stella.internRigidSymbolWrtModule("AUXILIARY-VARIABLE", null, 0))); Stella.SYM_STELLA_CPP_FUNCTION = ((Symbol) (Stella.internRigidSymbolWrtModule("CPP_FUNCTION", null, 0))); Stella.SYM_STELLA_CPP_DEFPRINT = ((Symbol) (Stella.internRigidSymbolWrtModule("CPP_DEFPRINT", null, 0))); Stella.KWD_UPPERCASE = ((Keyword) (Stella.internRigidSymbolWrtModule("UPPERCASE", null, 2))); Stella.SYM_STELLA_STARTUP_CPP_TRANSLATE_FILE = ((Symbol) (Stella.internRigidSymbolWrtModule("STARTUP-CPP-TRANSLATE-FILE", null, 0))); } if (Stella.currentStartupTimePhaseP(4)) { Stella.$CURRENT_STREAM$.setDefaultValue(Stella.STANDARD_OUTPUT); } if (Stella.currentStartupTimePhaseP(6)) { Stella.finalizeClasses(); } if (Stella.currentStartupTimePhaseP(7)) { Stella.defineFunctionObject( "CPPTRANS", "(DEFUN CPPTRANS ((STATEMENT OBJECT)) :COMMAND? TRUE :PUBLIC? TRUE :EVALUATE-ARGUMENTS? FALSE :DOCUMENTATION \"Translate `statement' to C++ and print the result.\")", Native.find_java_method( "edu.isi.stella.Stella_Object", "cpptrans", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.Stella_Object")}), null); Stella.defineFunctionObject( "CPP-MAKE-CODE-OUTPUT-FILE-NAME", "(DEFUN (CPP-MAKE-CODE-OUTPUT-FILE-NAME FILE-NAME) ((FILENAME FILE-NAME)))", Native.find_java_method( "edu.isi.stella.Stella", "cppMakeCodeOutputFileName", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-MAKE-HEADER-OUTPUT-FILE-NAME", "(DEFUN (CPP-MAKE-HEADER-OUTPUT-FILE-NAME FILE-NAME) ((FILENAME FILE-NAME)))", Native.find_java_method( "edu.isi.stella.Stella", "cppMakeHeaderOutputFileName", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-FILE-HEADER", "(DEFUN CPP-OUTPUT-FILE-HEADER ((STREAM OUTPUT-STREAM) (FILE FILE-NAME)))", Native.find_java_method( "edu.isi.stella.OutputStream", "cppOutputFileHeader", new java.lang.Class[] { Native.find_java_class("edu.isi.stella.OutputStream"), Native.find_java_class("java.lang.String") }), null); Stella.defineFunctionObject( "CPP-OUTPUT-INCLUDE-DIRECTIVE", "(DEFUN CPP-OUTPUT-INCLUDE-DIRECTIVE ((FILENAME FILE-NAME) (STRIPDIRECTORY? BOOLEAN)))", Native.find_java_method( "edu.isi.stella.Stella", "cppOutputIncludeDirective", new java.lang.Class[] { Native.find_java_class("java.lang.String"), java.lang.Boolean.TYPE }), null); Stella.defineFunctionObject( "CPP-STANDALONE-OUTPUT-IMPORT-DECLARATIONS", "(DEFUN CPP-STANDALONE-OUTPUT-IMPORT-DECLARATIONS ((HEADERFILENAME FILE-NAME)))", Native.find_java_method( "edu.isi.stella.Stella", "cppStandaloneOutputImportDeclarations", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-RELATIVIZE-HEADER-FILE", "(DEFUN (CPP-RELATIVIZE-HEADER-FILE FILE-NAME) ((HEADERFILE FILE-NAME) (SYSTEMNAME STRING)))", Native.find_java_method( "edu.isi.stella.Stella", "cppRelativizeHeaderFile", new java.lang.Class[] { Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.String") }), null); Stella.defineFunctionObject( "CPP-OUTPUT-IMPORT-DECLARATIONS", "(DEFUN CPP-OUTPUT-IMPORT-DECLARATIONS ((SYSTEMNAME STRING)))", Native.find_java_method( "edu.isi.stella.Stella", "cppOutputImportDeclarations", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-CLASS-HEAD-DECLARATIONS", "(DEFUN CPP-OUTPUT-CLASS-HEAD-DECLARATIONS ((CLASSES CONS)))", Native.find_java_method( "edu.isi.stella.Cons", "cppOutputClassHeadDeclarations", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.Cons")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-NAMESPACE-HEADER", "(DEFUN CPP-OUTPUT-NAMESPACE-HEADER ((MODULE MODULE)))", Native.find_java_method( "edu.isi.stella.Module", "cppOutputNamespaceHeader", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.Module")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-NAMESPACE-FOOTER", "(DEFUN CPP-OUTPUT-NAMESPACE-FOOTER ((MODULE MODULE)))", Native.find_java_method( "edu.isi.stella.Module", "cppOutputNamespaceFooter", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.Module")}), null); Stella.defineFunctionObject( "CPP-UNIT-DEFINES-MAIN?", "(DEFUN (CPP-UNIT-DEFINES-MAIN? BOOLEAN) ((UNIT TRANSLATION-UNIT)))", Native.find_java_method( "edu.isi.stella.TranslationUnit", "cppUnitDefinesMainP", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.TranslationUnit")}), null); Stella.defineFunctionObject( "CPP-YIELD-MAIN-FILE-NAME", "(DEFUN (CPP-YIELD-MAIN-FILE-NAME FILE-NAME) ())", Native.find_java_method( "edu.isi.stella.Stella", "cppYieldMainFileName", new java.lang.Class[] {}), null); Stella.defineFunctionObject( "CPP-OUTPUT-MAIN", "(DEFUN CPP-OUTPUT-MAIN ((UNIT TRANSLATION-UNIT)))", Native.find_java_method( "edu.isi.stella.TranslationUnit", "cppOutputMain", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.TranslationUnit")}), null); Stella.defineFunctionObject( "CPP-SORT-UNITS-FOR-HEADER-FILE", "(DEFUN (CPP-SORT-UNITS-FOR-HEADER-FILE (LIST OF (CONS OF TRANSLATION-UNIT))) ((FILEUNITS (LIST OF TRANSLATION-UNIT))))", Native.find_java_method( "edu.isi.stella.List", "cppSortUnitsForHeaderFile", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.List")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-NAMESPACE-CHANGE", "(DEFUN CPP-OUTPUT-NAMESPACE-CHANGE ((FROMNAMESPACE MODULE) (TONAMESPACE MODULE)))", Native.find_java_method( "edu.isi.stella.Module", "cppOutputNamespaceChange", new java.lang.Class[] { Native.find_java_class("edu.isi.stella.Module"), Native.find_java_class("edu.isi.stella.Module") }), null); Stella.defineFunctionObject( "CPP-OUTPUT-ALL-UNITS-TO-FILE", "(DEFUN CPP-OUTPUT-ALL-UNITS-TO-FILE ((FILENAME FILE-NAME)))", Native.find_java_method( "edu.isi.stella.Stella", "cppOutputAllUnitsToFile", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-TRANSLATE-FILE", "(DEFUN CPP-TRANSLATE-FILE ((FILENAME FILE-NAME)) :PUBLIC? TRUE)", Native.find_java_method( "edu.isi.stella.Stella", "cppTranslateFile", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-STANDALONE-TRANSLATE-FILE", "(DEFUN CPP-STANDALONE-TRANSLATE-FILE ((FILENAME FILE-NAME)))", Native.find_java_method( "edu.isi.stella.Stella", "cppStandaloneTranslateFile", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-TRANSLATE-SYSTEM", "(DEFUN CPP-TRANSLATE-SYSTEM ((SYSTEMNAME STRING)) :DOCUMENTATION \"Translate the system `systemName' to C++.\" :PUBLIC? TRUE)", Native.find_java_method( "edu.isi.stella.Stella", "cppTranslateSystem", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-TRANSLATE-WALKED-SYSTEM-UNITS", "(DEFUN CPP-TRANSLATE-WALKED-SYSTEM-UNITS ((SYSTEMUNITS SYSTEM-UNITS-ALIST)))", Native.find_java_method( "edu.isi.stella.KeyValueList", "cppTranslateWalkedSystemUnits", new java.lang.Class[] {Native.find_java_class("edu.isi.stella.KeyValueList")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-SYSTEM-SPECIFIC-FILES", "(DEFUN CPP-OUTPUT-SYSTEM-SPECIFIC-FILES ())", Native.find_java_method( "edu.isi.stella.Stella", "cppOutputSystemSpecificFiles", new java.lang.Class[] {}), null); Stella.defineFunctionObject( "CPP-YIELD-SYSTEM-HEADER-FILE-NAME", "(DEFUN (CPP-YIELD-SYSTEM-HEADER-FILE-NAME STRING) ((SYSTEMNAME STRING)))", Native.find_java_method( "edu.isi.stella.Stella", "cppYieldSystemHeaderFileName", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-YIELD-SYSTEM-HEADER-FILE-GUARD", "(DEFUN (CPP-YIELD-SYSTEM-HEADER-FILE-GUARD STRING) ((SYSTEMNAME STRING)))", Native.find_java_method( "edu.isi.stella.Stella", "cppYieldSystemHeaderFileGuard", new java.lang.Class[] {Native.find_java_class("java.lang.String")}), null); Stella.defineFunctionObject( "CPP-OUTPUT-SYSTEM-HEADER-FILE", "(DEFUN CPP-OUTPUT-SYSTEM-HEADER-FILE ())", Native.find_java_method( "edu.isi.stella.Stella", "cppOutputSystemHeaderFile", new java.lang.Class[] {}), null); Stella.defineFunctionObject( "CPP-YIELD-SYSTEMS-ROOT-DIRECTORY", "(DEFUN (CPP-YIELD-SYSTEMS-ROOT-DIRECTORY STRING) ())", Native.find_java_method( "edu.isi.stella.Stella", "cppYieldSystemsRootDirectory", new java.lang.Class[] {}), null); Stella.defineFunctionObject( "CPP-YIELD-STELLA-ROOT-DIRECTORY", "(DEFUN (CPP-YIELD-STELLA-ROOT-DIRECTORY STRING) ())", Native.find_java_method( "edu.isi.stella.Stella", "cppYieldStellaRootDirectory", new java.lang.Class[] {}), null); Stella.defineFunctionObject( "CPP-OUTPUT-SYSTEM-MAKEFILE", "(DEFUN CPP-OUTPUT-SYSTEM-MAKEFILE ())", Native.find_java_method( "edu.isi.stella.Stella", "cppOutputSystemMakefile", new java.lang.Class[] {}), null); Stella.defineFunctionObject( "SUBSTITUTE-TEMPLATE-VARIABLES-IN-STRING", "(DEFUN (SUBSTITUTE-TEMPLATE-VARIABLES-IN-STRING STRING) ((STRING STRING) (VARIABLES (KEY-VALUE-LIST OF STRING-WRAPPER STRING-WRAPPER))))", Native.find_java_method( "edu.isi.stella.Stella", "substituteTemplateVariablesInString", new java.lang.Class[] { Native.find_java_class("java.lang.String"), Native.find_java_class("edu.isi.stella.KeyValueList") }), null); Stella.defineFunctionObject( "SUBSTITUTE-TEMPLATE-VARIABLES-TO-STREAM", "(DEFUN SUBSTITUTE-TEMPLATE-VARIABLES-TO-STREAM ((TEMPLATESTREAM INPUT-STREAM) (OUTPUTSTREAM OUTPUT-STREAM) (VARIABLES (KEY-VALUE-LIST OF STRING-WRAPPER STRING-WRAPPER))))", Native.find_java_method( "edu.isi.stella.InputStream", "substituteTemplateVariablesToStream", new java.lang.Class[] { Native.find_java_class("edu.isi.stella.InputStream"), Native.find_java_class("edu.isi.stella.OutputStream"), Native.find_java_class("edu.isi.stella.KeyValueList") }), null); Stella.defineFunctionObject( "SUBSTITUTE-TEMPLATE-VARIABLES-TO-MAKEFILE", "(DEFUN SUBSTITUTE-TEMPLATE-VARIABLES-TO-MAKEFILE ((TEMPLATEFILE STRING) (OUTPUTFILE STRING) (VARIABLES (KEY-VALUE-LIST OF STRING-WRAPPER STRING-WRAPPER))))", Native.find_java_method( "edu.isi.stella.Stella", "substituteTemplateVariablesToMakefile", new java.lang.Class[] { Native.find_java_class("java.lang.String"), Native.find_java_class("java.lang.String"), Native.find_java_class("edu.isi.stella.KeyValueList") }), null); Stella.defineFunctionObject( "STARTUP-CPP-TRANSLATE-FILE", "(DEFUN STARTUP-CPP-TRANSLATE-FILE () :PUBLIC? TRUE)", Native.find_java_method( "edu.isi.stella._StartupCppTranslateFile", "startupCppTranslateFile", new java.lang.Class[] {}), null); { MethodSlot function = Symbol.lookupFunction(Stella.SYM_STELLA_STARTUP_CPP_TRANSLATE_FILE); KeyValueList.setDynamicSlotValue( function.dynamicSlots, Stella.SYM_STELLA_METHOD_STARTUP_CLASSNAME, StringWrapper.wrapString("_StartupCppTranslateFile"), Stella.NULL_STRING_WRAPPER); } } if (Stella.currentStartupTimePhaseP(8)) { Stella.finalizeSlots(); Stella.cleanupUnfinalizedClasses(); } if (Stella.currentStartupTimePhaseP(9)) { Stella.defineStellaGlobalVariableFromStringifiedSource( "(DEFSPECIAL *CURRENT-STREAM* OUTPUT-STREAM STANDARD-OUTPUT)"); Stella.defineStellaGlobalVariableFromStringifiedSource( "(DEFGLOBAL *CPP-TRANSLATED-FILE-SUFFIX* STRING \"\")"); Stella.defineStellaGlobalVariableFromStringifiedSource( "(DEFGLOBAL *MAKEFILE-TEMPLATE-VARIABLE-PREFIX* STRING \"#$\")"); } } finally { Stella.$CONTEXT$.set(old$Context$000); Stella.$MODULE$.set(old$Module$000); } } }