#!/usr/bin/tclsh
package require fileutil
set tmpaths [::tcl::tm::path list]
foreach tmpath $tmpaths {
if {[file exists $tmpath] && [file isdirectory $tmpath]} {
foreach file [fileutil::find $tmpath {string match -nocase *.tm}] {
puts $file
}
}
}
+ # OpenJDK 9 Linux (server JVM)
+
+ F=lib/libjava.so
+ if test "x$ac_java_jvm_jni_lib_flags" = "x" ; then
+ AC_MSG_LOG([Looking for $ac_java_jvm_dir/$F], 1)
+ if test -f $ac_java_jvm_dir/$F ; then
+ AC_MSG_LOG([Found $ac_java_jvm_dir/$F], 1)
+
+ D=`dirname $ac_java_jvm_dir/$F`
+ ac_java_jvm_jni_lib_runtime_path=$D
+ ac_java_jvm_jni_lib_flags="-L$D -ljava -lverify"
+
+ D=$ac_java_jvm_dir/lib/server
+ ac_java_jvm_jni_lib_runtime_path="${ac_java_jvm_jni_lib_runtime_path}:$D"
+ ac_java_jvm_jni_lib_flags="$ac_java_jvm_jni_lib_flags -L$D -ljvm"
+ fi
+ fi
+
+ # OpenJDK 9 Linux (server JVM)
+
+ F=lib/libjava.so
+ if test "x$ac_java_jvm_jni_lib_flags" = "x" ; then
+
+ echo Looking for $ac_java_jvm_dir/$F >&5
+
+
+ if test -f $ac_java_jvm_dir/$F ; then
+
+ echo Found $ac_java_jvm_dir/$F >&5
+
+
+
+ D=`dirname $ac_java_jvm_dir/$F`
+ ac_java_jvm_jni_lib_runtime_path=$D
+ ac_java_jvm_jni_lib_flags="-L$D -ljava -lverify"
+
+ D=$ac_java_jvm_dir/lib/server
+ ac_java_jvm_jni_lib_runtime_path="${ac_java_jvm_jni_lib_runtime_path}:$D"
+ ac_java_jvm_jni_lib_flags="$ac_java_jvm_jni_lib_flags -L$D -ljvm"
+ fi
+ fi
+
BuildRequires: java-1_8_0-openjdk-devel
BuildRequires: java-9-openjdk-devel
sudo zypper install tcl-dbif
::tcl::tm::path list
::tcl::tm::path add /usr/share/tcl/dbif1.0
if {![package vsatisfies [package provide Tcl] 8.4]} {return}
# Recognizers
package ifneeded fileutil::magic::filetype 1.0.2 [list source [file join $dir filetypes.tcl]]
package ifneeded fileutil::magic::mimetype 1.0.2 [list source [file join $dir mimetypes.tcl]]
# Runtime
package ifneeded fileutil::magic::rt 1.0 [list source [file join $dir rtcore.tcl]]
# Compiler packages
package ifneeded fileutil::magic::cgen 1.0 [list source [file join $dir cgen.tcl]]
package ifneeded fileutil::magic::cfront 1.0 [list source [file join $dir cfront.tcl]]
if {![package vsatisfies [package provide Tcl] 8.6]} {return}
# Recognizers
package ifneeded fileutil::magic::filetype 1.2.0 [list source [file join $dir filetypes.tcl]]
# Runtime
package ifneeded fileutil::magic::rt 1.2.0 [list source [file join $dir rtcore.tcl]]
# Compiler packages
package ifneeded fileutil::magic::cgen 1.2.0 [list source [file join $dir cgen.tcl]]
package ifneeded fileutil::magic::cfront 1.2.0 [list source [file join $dir cfront.tcl]]
puts -nonewline "Please input a number: "
flush stdout
gets stdin number
if {$number <= 0 || $number >= 10} {
puts "The range is 1 - 9."
exit
}
set max [expr pow(10, $number)]
set result [list]
puts "\nNow get the result:"
puts "==========="
puts "Start"
puts "==========="
puts [time {
set re {1.*1|2.*2|3.*3|4.*4|5.*5|6.*6|7.*7|8.*8|9.*9|0.*0}
for {set i 1} {$i < $max} {incr i} {
if {[regexp $re $i] != 1} {
lappend result $i
}
}
} 1]
puts "\n"
puts [join $result ", "]
puts "\n==========="
puts "End"
puts "==========="
package require regex_rez
puts -nonewline "Please input a number: "
flush stdout
gets stdin number
if {$number <= 0 || $number >= 10} {
puts "The range is 1 - 9."
exit
}
set max [expr pow(10, $number)]
set result [list]
puts "\nNow get the result:"
puts "==========="
puts "Start"
puts "==========="
puts [time {
set re [regex::re2 create {1.*1|2.*2|3.*3|4.*4|5.*5|6.*6|7.*7|8.*8|9.*9|0.*0}]
for {set i 1} {$i < $max} {incr i} {
if {[$re partialmatch $i] != 1} {
lappend result $i
}
}
} 1]
puts "\n"
puts [join $result ", "]
$re close
puts "\n==========="
puts "End"
puts "==========="