[libinline-java-perl] 243/398: false start

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:09 UTC 2015


This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit 2819ed10f16880448ae6e034bebfe026ff35c7b8
Author: patrick_leb <>
Date:   Thu Nov 20 02:16:47 2003 +0000

    false start
---
 Java/sources/InlineJavaThreadMonitor.java | 61 -------------------------------
 1 file changed, 61 deletions(-)

diff --git a/Java/sources/InlineJavaThreadMonitor.java b/Java/sources/InlineJavaThreadMonitor.java
deleted file mode 100644
index 9992994..0000000
--- a/Java/sources/InlineJavaThreadMonitor.java
+++ /dev/null
@@ -1,61 +0,0 @@
-package org.perl.inline.java ;
-
-import java.util.* ;
-
-
-class InlineJavaThreadMonitor {
-	static ThreadGroup root = null ;
-	static {
-		ThreadGroup tg = Thread.currentThread().getThreadGroup() ;
-		while (tg != null){
-			tg = tg.getParent() ;
-		}
-		root = tg ;
-	}
-
-	private Thread active_threads = null ;
-
-
-	InlineJavaThreadMonitor(){
-		active_threads = GetActiveThreads() ;
-	}
-
-
-	private Thread[] GetActiveThreads(){
-		int size_est = root.activeCount() * 2 ;
-		Thread list[] = new Thread[size_est] ;
-
-		int size = root.enumerate(list) ;
-		Thread ret[] = new Thread[size] ;
-		for (int i = 0 ; i < size ; i++){
-			ret[i] = list[i] ;
-		}
-	
-		return ret ;	
-	}
-
-
-	public Thread[] GetNewThreads(){
-		Thread current_threads[] = GetActiveThreads() ;
-		int nb_new = current_threads.length - active_threads.length ;
-		if (nb_new > 0){
-			Thread ret[] = new Thread[nb_new] ;
-			int idx = 0 ;
-			for (int i = 0 ; i < current_threads.length ; i++){
-				boolean found = false ;
-				for (int j = 0 ; j < active_threads.length ; j++){
-					if (active_threads[j] = current_threads[i]){
-						found = true ;
-						break ;
-					}
-				}
-				if (! found){
-					ret[idx] = current_threads[i] ;
-					idx++ ;
-				}
-		}
-		else{
-			return new Thread [] {} ;
-		}
-	}
-}

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git



More information about the Pkg-perl-cvs-commits mailing list