Example #1
0
 @Test
 public void testParseLiteralArray() {
   final ArrayLiteralNode _node;
   _node =
       ((ArrayLiteralNode)
           Parser.factory
               .source_("#(#foo foo \'foo\' 1 (a b c) #( a b c) ((x)) () #[1 2 3])")
               .parseExpression());
   assertTrue(
       st.gravel.support.jvm.ObjectExtensions.equals_(_node.factory(), ArrayLiteralNode.factory));
   assertEquals(
       (String) "#(#foo #foo \'foo\' 1 #(#a #b #c) #(#a #b #c) #(#(#x)) #() #[1 2 3])",
       (String) _node.prettySourceString());
   assertTrue(st.gravel.support.jvm.IntegerExtensions.equals_(_node.value().length, 9));
 }
Example #2
0
  @Override
  public Reference superclassReference() {
    final st.gravel.core.Symbol[] _path;
    if (_superclassPath == null) {
      return null;
    }
    _path =
        st.gravel.support.jvm.ArrayExtensions.collect_(
            st.gravel.support.jvm.StringExtensions.tokensBasedOn_(_superclassPath, '.'),
            ((st.gravel.support.jvm.Block1<st.gravel.core.Symbol, String>)
                (new st.gravel.support.jvm.Block1<st.gravel.core.Symbol, String>() {

                  @Override
                  public st.gravel.core.Symbol value_(final String _str) {
                    return (st.gravel.core.Symbol) st.gravel.core.Symbol.value(_str);
                  }
                })));
    if (st.gravel.support.jvm.IntegerExtensions.equals_(_path.length, 1)) {
      return AbsoluteReference.factory.path_(
          st.gravel.support.jvm.ArrayExtensions.copyWith_(_namespace, _path[0]));
    }
    return AbsoluteReference.factory.path_(_path);
  }