[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