Package org.openquark.cal.services

Examples of org.openquark.cal.services.GemEntity

1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
         * @throws IOException
         * @see javax.swing.TransferHandler#importData(javax.swing.JComponent,
         *      java.awt.datatransfer.Transferable)
         */
        private boolean importGemEntity(JComponent c, Transferable t) throws UnsupportedFlavorException, IOException {
            GemEntity entity = (GemEntity)t.getTransferData(SingleGemEntityDataFlavor.getSingleGemEntityDataFlavor());

            AdvancedCALEditor editor = (AdvancedCALEditor)c;
            editor.getInputContext().endComposition();
            // TODO: If Gem Entities ever contain more than functional agents,
            // category needs to be updated
            SourceIdentifier.Category category = (entity.isDataConstructor()
                    ? SourceIdentifier.Category.DATA_CONSTRUCTOR
                    : SourceIdentifier.Category.TOP_LEVEL_FUNCTION_OR_CLASS_METHOD);
            editor.replaceSelection(" ");
            insertEditorQualification(editor, entity.getName(), category, userQualifiedIdentifiers, false);
            return true;

        }
View Full Code Here
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
           
            return;
        }
       
        // If this was a functional agent, then we need to update its gems on the table top.
        GemEntity entity = getPerspective().getWorkspace().getGemEntity(address.toFeatureName().toQualifiedName());
        FunctionalAgentMetadata metadata = (FunctionalAgentMetadata) NavAddressHelper.getMetadata(this, address.withAllStripped());
        ArgumentMetadata[] argMetadata = metadata.getArguments();
       
        for (final Gem gem : gemCutter.getTableTop().getGemGraph().getGems()) {
           
            if (gem instanceof FunctionalAgentGem) {
               
                GemEntity gemEntity = ((FunctionalAgentGem) gem).getGemEntity();
               
                if (gemEntity.equals(entity)) {

                    // We need to update the inputs of this gem
                    PartInput[] inputs = gem.getInputParts();
                   
                    for (int i = 0; i < inputs.length; i++) {
View Full Code Here
215
216
217
218
219
220
221
222
223
224
225
            Point oldLocation = displayedGemOriginals[i].getLocation();
            Point location = new Point(oldLocation.x - referenceOrigin.x, oldLocation.y - referenceOrigin.y);
          
            if (gem instanceof FunctionalAgentGem) {
                // get the SC behind this gem and produce a new one
                GemEntity gemEntity = ((FunctionalAgentGem)gem).getGemEntity();
                newDisplayedGems[i] = tableTop.createDisplayedFunctionalAgentGem(location, gemEntity);
               
            } else if (gem instanceof CodeGem) {
                 // Clone this codeGem and create a new DisplayedGem to associate with it
                 CodeGem clone = ((CodeGem)gem).makeCopy();
View Full Code Here
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
        ////
        /// Run checks on the specified entry points. Currently we only support functional agents with the signature [String]->()
        //
       
        // Check that the entry point exists.
        final GemEntity entryPointEntity = workspaceManager.getWorkspace().getGemEntity(entryPointName);
        if (entryPointEntity == null) {
            throw new InvalidConfigurationException(StandaloneJarBuilderMessages.getString("entryPointDoesNotExist", entryPointName.getQualifiedName()));
        }
       
        // Check that the entry point has the right type.
        final ModuleName entryPointModuleName = entryPointName.getModuleName();
        final TypeExpr entryPointType = entryPointEntity.getTypeExpr();
       
        final TypeExpr requiredType = workspaceManager.getTypeChecker().getTypeFromString("[Prelude.String] -> ()", entryPointModuleName, null);
       
        if (!TypeExpr.canPatternMatch(entryPointType, requiredType, workspaceManager.getModuleTypeInfo(entryPointModuleName))) {
            throw new InvalidConfigurationException(StandaloneJarBuilderMessages.getString("incompatibleType", entryPointName.getQualifiedName(), entryPointType.toString(), requiredType.toString()));
View Full Code Here
964
965
966
967
968
969
970
971
972
973
974
               
                if (navigatorOwner != null) {
   
                    final NavAddress address;
                    if (node instanceof GemTreeNode) {
                        GemEntity gemEntity = (GemEntity) node.getUserObject();
                        address = NavAddress.getAddress(gemEntity);
                        navigatorOwner.displayMetadata(address, false);
                           
                    } else if (node instanceof GemDrawer) {
                        final GemDrawer gemDrawer = (GemDrawer) node;
View Full Code Here
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
                newPath = new TreePath(tempNewPath);
             
            // Leaf nodes are reconstructed therefore need to compare the user objects to find the correct path.
            } else if (lastPathComponent instanceof GemTreeNode) {
              
                GemEntity lastNodeObj = (GemEntity)((GemTreeNode) lastPathComponent).getUserObject();

                if (!((BrowserTreeModel)getModel()).getShowPublicGemsOnly() || lastNodeObj.getScope().isPublic()){

                    // Finding the new tree node for the gem entity
                    GemTreeNode child = getNodeFromEntity(parentNode, lastNodeObj);
                    if (child != null){  // for the case of a search node, the child can become null
                        newPath = new TreePath(child.getPath());
View Full Code Here
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
     * @return the child if the child's gem entity is public.
     * Otherwise null.
     */
    private TreePath getPublicGemTreeNodePath(TreeNode parentNode, GemTreeNode oldGemTreeNode) {

        GemEntity childUserObject = (GemEntity)oldGemTreeNode.getUserObject();
                 
        if (childUserObject.getScope().isPublic()) {
            GemTreeNode sibling = getNodeFromEntity(parentNode, childUserObject);
            return new TreePath(sibling.getPath());
        }
        return null;
    }
View Full Code Here
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
            BrowserTreeNode node = (BrowserTreeNode) path.getLastPathComponent();
            
            if (node instanceof GemTreeNode && node.isLeaf ()) {
                BrowserTreeModel browserTreeModel = (BrowserTreeModel) getModel();
                ScopedEntityNamingPolicy namingPolicy = new UnqualifiedUnlessAmbiguous(browserTreeModel.getPerspective().getWorkingModuleTypeInfo());
                GemEntity gemEntity = (GemEntity)node.getUserObject(); 
                return ToolTipHelpers.getEntityToolTip(gemEntity, namingPolicy, this);
               
            } else if (node instanceof GemDrawer) {
               
                BrowserTreeModel browserTreeModel = (BrowserTreeModel)getModel();
View Full Code Here
274
275
276
277
278
279
280
281
282
283
284
       
            // For each path, check it's a supercombinator and add to the string
            //   Note: (for now) we don't add sc's that aren't visible..
            for (final TreePath treePath : paths) {
                // Get the fully qualified name of the supercombinator represented by this path
                GemEntity gemEntity = getEntityFromPath(treePath);
       
                // If this is non-null, emit the name
                if (gemEntity != null && ((BrowserTreeModel)getModel()).isVisibleGem(gemEntity)) {           
                    // Add the supercombinator
                    selectedGems.add(gemEntity);
View Full Code Here
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
           
            // Go thru the paths and see which nodes were dragged
            for (int i = 0; i < paths.length && nodes[1] == -1; i++) {

                // Get the entity represented by this path
                GemEntity gemEntity = getEntityFromPath(paths[i]);
       
                // If the sc is non-null see if it is a data constructor or just a regular sc.
                if (gemEntity != null) {
                    boolean isConstructor = gemEntity.isDataConstructor();
                    gemCount++;
                   
                    if (nodes[0] == -1) {
                        // We have found our first node so remember the details
                        nodes[0] = i;
View Full Code Here
TOP

Related Classes of org.openquark.cal.services.GemEntity

  • org.openquark.cal.compiler.TypeExpr_Test
  • org.openquark.cal.DrawTest
  • org.openquark.cal.internal.machine.lecc.StandaloneJarBuilder
  • org.openquark.cal.metadata.MetadataManager
  • org.openquark.gems.client.Autoburn_Test
  • org.openquark.gems.client.browser.BrowserTree
  • org.openquark.gems.client.browser.BrowserTree$DragAndDropHandler
  • org.openquark.gems.client.browser.BrowserTreeActions
  • org.openquark.gems.client.browser.BrowserTreeCellRenderer
  • org.openquark.gems.client.browser.BrowserTreeModel
    • Copyright © 2018 www.massapicom. All rights reserved.
    All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.