PSI sics-cvs-psi-2008-10-02

alias.c

@@ -212,3 +212,22 @@
      }
      return 1;
   }
+/*-------------------------------------------------------------------------------*/
+int LocateAliasAction(SConnection *pCon, SicsInterp *pSics, 
+                         void *pData, int argc, char *argv[]){
+	char *aliases = NULL;
+	
+	if(argc < 2){
+		SCWrite(pCon,"ERROR: missing argument aliasname for locating aliases",eError);
+		return 0;
+	}
+	
+	strtolower(argv[1]);
+	aliases = FindAliases(pSics,argv[1]);
+	if(aliases == NULL){
+		SCWrite(pCon,"NONE", eValue);
+	} else {
+		SCPrintf(pCon,eValue,"%s = %s",argv[1], aliases);
+	}
+	return 1;
+}