gtkwave-gtk3-3.3.125/ 0000775 0001750 0001750 00000000000 15047725113 013516 5 ustar bybell bybell gtkwave-gtk3-3.3.125/distro_from_svn.sh 0000775 0001750 0001750 00000000635 15047725112 017275 0 ustar bybell bybell #!/bin/sh
echo "Cleaning out SVN directories..."
find . | grep '\.svn' | tac | awk '{print "rm -rf "$0}' | sh
echo "Making distribution tarball from SVN directory..."
cd ../
cat ./gtkwave3-gtk3/configure.ac | grep AC_INIT | awk '{print $2}' | sed 's/,//' | \
awk '{print "mv gtkwave3-gtk3 gtkwave-gtk3-"$0" ; tar cvf gtkwave-gtk3-"$0".tar gtkwave-gtk3-"$0" ; gzip -9 gtkwave-gtk3-"$0".tar"}' | sh
echo "Done!"
gtkwave-gtk3-3.3.125/depcomp 0000775 0001750 0001750 00000055703 15047725112 015104 0 ustar bybell bybell #! /bin/sh
# depcomp - compile a program generating dependencies as side-effects
scriptversion=2012-10-18.11; # UTC
# Copyright (C) 1999-2013 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see .
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that program.
# Originally written by Alexandre Oliva .
case $1 in
'')
echo "$0: No command. Try '$0 --help' for more information." 1>&2
exit 1;
;;
-h | --h*)
cat <<\EOF
Usage: depcomp [--help] [--version] PROGRAM [ARGS]
Run PROGRAMS ARGS to compile a file, generating dependencies
as side-effects.
Environment variables:
depmode Dependency tracking mode.
source Source file read by 'PROGRAMS ARGS'.
object Object file output by 'PROGRAMS ARGS'.
DEPDIR directory where to store dependencies.
depfile Dependency file to output.
tmpdepfile Temporary file to use when outputting dependencies.
libtool Whether libtool is used (yes/no).
Report bugs to .
EOF
exit $?
;;
-v | --v*)
echo "depcomp $scriptversion"
exit $?
;;
esac
# Get the directory component of the given path, and save it in the
# global variables '$dir'. Note that this directory component will
# be either empty or ending with a '/' character. This is deliberate.
set_dir_from ()
{
case $1 in
*/*) dir=`echo "$1" | sed -e 's|/[^/]*$|/|'`;;
*) dir=;;
esac
}
# Get the suffix-stripped basename of the given path, and save it the
# global variable '$base'.
set_base_from ()
{
base=`echo "$1" | sed -e 's|^.*/||' -e 's/\.[^.]*$//'`
}
# If no dependency file was actually created by the compiler invocation,
# we still have to create a dummy depfile, to avoid errors with the
# Makefile "include basename.Plo" scheme.
make_dummy_depfile ()
{
echo "#dummy" > "$depfile"
}
# Factor out some common post-processing of the generated depfile.
# Requires the auxiliary global variable '$tmpdepfile' to be set.
aix_post_process_depfile ()
{
# If the compiler actually managed to produce a dependency file,
# post-process it.
if test -f "$tmpdepfile"; then
# Each line is of the form 'foo.o: dependency.h'.
# Do two passes, one to just change these to
# $object: dependency.h
# and one to simply output
# dependency.h:
# which is needed to avoid the deleted-header problem.
{ sed -e "s,^.*\.[$lower]*:,$object:," < "$tmpdepfile"
sed -e "s,^.*\.[$lower]*:[$tab ]*,," -e 's,$,:,' < "$tmpdepfile"
} > "$depfile"
rm -f "$tmpdepfile"
else
make_dummy_depfile
fi
}
# A tabulation character.
tab=' '
# A newline character.
nl='
'
# Character ranges might be problematic outside the C locale.
# These definitions help.
upper=ABCDEFGHIJKLMNOPQRSTUVWXYZ
lower=abcdefghijklmnopqrstuvwxyz
digits=0123456789
alpha=${upper}${lower}
if test -z "$depmode" || test -z "$source" || test -z "$object"; then
echo "depcomp: Variables source, object and depmode must be set" 1>&2
exit 1
fi
# Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po.
depfile=${depfile-`echo "$object" |
sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`}
tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`}
rm -f "$tmpdepfile"
# Avoid interferences from the environment.
gccflag= dashmflag=
# Some modes work just like other modes, but use different flags. We
# parameterize here, but still list the modes in the big case below,
# to make depend.m4 easier to write. Note that we *cannot* use a case
# here, because this file can only contain one case statement.
if test "$depmode" = hp; then
# HP compiler uses -M and no extra arg.
gccflag=-M
depmode=gcc
fi
if test "$depmode" = dashXmstdout; then
# This is just like dashmstdout with a different argument.
dashmflag=-xM
depmode=dashmstdout
fi
cygpath_u="cygpath -u -f -"
if test "$depmode" = msvcmsys; then
# This is just like msvisualcpp but w/o cygpath translation.
# Just convert the backslash-escaped backslashes to single forward
# slashes to satisfy depend.m4
cygpath_u='sed s,\\\\,/,g'
depmode=msvisualcpp
fi
if test "$depmode" = msvc7msys; then
# This is just like msvc7 but w/o cygpath translation.
# Just convert the backslash-escaped backslashes to single forward
# slashes to satisfy depend.m4
cygpath_u='sed s,\\\\,/,g'
depmode=msvc7
fi
if test "$depmode" = xlc; then
# IBM C/C++ Compilers xlc/xlC can output gcc-like dependency information.
gccflag=-qmakedep=gcc,-MF
depmode=gcc
fi
case "$depmode" in
gcc3)
## gcc 3 implements dependency tracking that does exactly what
## we want. Yay! Note: for some reason libtool 1.4 doesn't like
## it if -MD -MP comes after the -MF stuff. Hmm.
## Unfortunately, FreeBSD c89 acceptance of flags depends upon
## the command line argument order; so add the flags where they
## appear in depend2.am. Note that the slowdown incurred here
## affects only configure: in makefiles, %FASTDEP% shortcuts this.
for arg
do
case $arg in
-c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;;
*) set fnord "$@" "$arg" ;;
esac
shift # fnord
shift # $arg
done
"$@"
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile"
exit $stat
fi
mv "$tmpdepfile" "$depfile"
;;
gcc)
## Note that this doesn't just cater to obsosete pre-3.x GCC compilers.
## but also to in-use compilers like IMB xlc/xlC and the HP C compiler.
## (see the conditional assignment to $gccflag above).
## There are various ways to get dependency output from gcc. Here's
## why we pick this rather obscure method:
## - Don't want to use -MD because we'd like the dependencies to end
## up in a subdir. Having to rename by hand is ugly.
## (We might end up doing this anyway to support other compilers.)
## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like
## -MM, not -M (despite what the docs say). Also, it might not be
## supported by the other compilers which use the 'gcc' depmode.
## - Using -M directly means running the compiler twice (even worse
## than renaming).
if test -z "$gccflag"; then
gccflag=-MD,
fi
"$@" -Wp,"$gccflag$tmpdepfile"
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile"
exit $stat
fi
rm -f "$depfile"
echo "$object : \\" > "$depfile"
# The second -e expression handles DOS-style file names with drive
# letters.
sed -e 's/^[^:]*: / /' \
-e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile"
## This next piece of magic avoids the "deleted header file" problem.
## The problem is that when a header file which appears in a .P file
## is deleted, the dependency causes make to die (because there is
## typically no way to rebuild the header). We avoid this by adding
## dummy dependencies for each header file. Too bad gcc doesn't do
## this for us directly.
## Some versions of gcc put a space before the ':'. On the theory
## that the space means something, we add a space to the output as
## well. hp depmode also adds that space, but also prefixes the VPATH
## to the object. Take care to not repeat it in the output.
## Some versions of the HPUX 10.20 sed can't process this invocation
## correctly. Breaking it into two sed invocations is a workaround.
tr ' ' "$nl" < "$tmpdepfile" \
| sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \
| sed -e 's/$/ :/' >> "$depfile"
rm -f "$tmpdepfile"
;;
hp)
# This case exists only to let depend.m4 do its work. It works by
# looking at the text of this script. This case will never be run,
# since it is checked for above.
exit 1
;;
sgi)
if test "$libtool" = yes; then
"$@" "-Wp,-MDupdate,$tmpdepfile"
else
"$@" -MDupdate "$tmpdepfile"
fi
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile"
exit $stat
fi
rm -f "$depfile"
if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files
echo "$object : \\" > "$depfile"
# Clip off the initial element (the dependent). Don't try to be
# clever and replace this with sed code, as IRIX sed won't handle
# lines with more than a fixed number of characters (4096 in
# IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines;
# the IRIX cc adds comments like '#:fec' to the end of the
# dependency line.
tr ' ' "$nl" < "$tmpdepfile" \
| sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' \
| tr "$nl" ' ' >> "$depfile"
echo >> "$depfile"
# The second pass generates a dummy entry for each header file.
tr ' ' "$nl" < "$tmpdepfile" \
| sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \
>> "$depfile"
else
make_dummy_depfile
fi
rm -f "$tmpdepfile"
;;
xlc)
# This case exists only to let depend.m4 do its work. It works by
# looking at the text of this script. This case will never be run,
# since it is checked for above.
exit 1
;;
aix)
# The C for AIX Compiler uses -M and outputs the dependencies
# in a .u file. In older versions, this file always lives in the
# current directory. Also, the AIX compiler puts '$object:' at the
# start of each line; $object doesn't have directory information.
# Version 6 uses the directory in both cases.
set_dir_from "$object"
set_base_from "$object"
if test "$libtool" = yes; then
tmpdepfile1=$dir$base.u
tmpdepfile2=$base.u
tmpdepfile3=$dir.libs/$base.u
"$@" -Wc,-M
else
tmpdepfile1=$dir$base.u
tmpdepfile2=$dir$base.u
tmpdepfile3=$dir$base.u
"$@" -M
fi
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
exit $stat
fi
for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
do
test -f "$tmpdepfile" && break
done
aix_post_process_depfile
;;
tcc)
# tcc (Tiny C Compiler) understand '-MD -MF file' since version 0.9.26
# FIXME: That version still under development at the moment of writing.
# Make that this statement remains true also for stable, released
# versions.
# It will wrap lines (doesn't matter whether long or short) with a
# trailing '\', as in:
#
# foo.o : \
# foo.c \
# foo.h \
#
# It will put a trailing '\' even on the last line, and will use leading
# spaces rather than leading tabs (at least since its commit 0394caf7
# "Emit spaces for -MD").
"$@" -MD -MF "$tmpdepfile"
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile"
exit $stat
fi
rm -f "$depfile"
# Each non-empty line is of the form 'foo.o : \' or ' dep.h \'.
# We have to change lines of the first kind to '$object: \'.
sed -e "s|.*:|$object :|" < "$tmpdepfile" > "$depfile"
# And for each line of the second kind, we have to emit a 'dep.h:'
# dummy dependency, to avoid the deleted-header problem.
sed -n -e 's|^ *\(.*\) *\\$|\1:|p' < "$tmpdepfile" >> "$depfile"
rm -f "$tmpdepfile"
;;
## The order of this option in the case statement is important, since the
## shell code in configure will try each of these formats in the order
## listed in this file. A plain '-MD' option would be understood by many
## compilers, so we must ensure this comes after the gcc and icc options.
pgcc)
# Portland's C compiler understands '-MD'.
# Will always output deps to 'file.d' where file is the root name of the
# source file under compilation, even if file resides in a subdirectory.
# The object file name does not affect the name of the '.d' file.
# pgcc 10.2 will output
# foo.o: sub/foo.c sub/foo.h
# and will wrap long lines using '\' :
# foo.o: sub/foo.c ... \
# sub/foo.h ... \
# ...
set_dir_from "$object"
# Use the source, not the object, to determine the base name, since
# that's sadly what pgcc will do too.
set_base_from "$source"
tmpdepfile=$base.d
# For projects that build the same source file twice into different object
# files, the pgcc approach of using the *source* file root name can cause
# problems in parallel builds. Use a locking strategy to avoid stomping on
# the same $tmpdepfile.
lockdir=$base.d-lock
trap "
echo '$0: caught signal, cleaning up...' >&2
rmdir '$lockdir'
exit 1
" 1 2 13 15
numtries=100
i=$numtries
while test $i -gt 0; do
# mkdir is a portable test-and-set.
if mkdir "$lockdir" 2>/dev/null; then
# This process acquired the lock.
"$@" -MD
stat=$?
# Release the lock.
rmdir "$lockdir"
break
else
# If the lock is being held by a different process, wait
# until the winning process is done or we timeout.
while test -d "$lockdir" && test $i -gt 0; do
sleep 1
i=`expr $i - 1`
done
fi
i=`expr $i - 1`
done
trap - 1 2 13 15
if test $i -le 0; then
echo "$0: failed to acquire lock after $numtries attempts" >&2
echo "$0: check lockdir '$lockdir'" >&2
exit 1
fi
if test $stat -ne 0; then
rm -f "$tmpdepfile"
exit $stat
fi
rm -f "$depfile"
# Each line is of the form `foo.o: dependent.h',
# or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'.
# Do two passes, one to just change these to
# `$object: dependent.h' and one to simply `dependent.h:'.
sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile"
# Some versions of the HPUX 10.20 sed can't process this invocation
# correctly. Breaking it into two sed invocations is a workaround.
sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" \
| sed -e 's/$/ :/' >> "$depfile"
rm -f "$tmpdepfile"
;;
hp2)
# The "hp" stanza above does not work with aCC (C++) and HP's ia64
# compilers, which have integrated preprocessors. The correct option
# to use with these is +Maked; it writes dependencies to a file named
# 'foo.d', which lands next to the object file, wherever that
# happens to be.
# Much of this is similar to the tru64 case; see comments there.
set_dir_from "$object"
set_base_from "$object"
if test "$libtool" = yes; then
tmpdepfile1=$dir$base.d
tmpdepfile2=$dir.libs/$base.d
"$@" -Wc,+Maked
else
tmpdepfile1=$dir$base.d
tmpdepfile2=$dir$base.d
"$@" +Maked
fi
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile1" "$tmpdepfile2"
exit $stat
fi
for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2"
do
test -f "$tmpdepfile" && break
done
if test -f "$tmpdepfile"; then
sed -e "s,^.*\.[$lower]*:,$object:," "$tmpdepfile" > "$depfile"
# Add 'dependent.h:' lines.
sed -ne '2,${
s/^ *//
s/ \\*$//
s/$/:/
p
}' "$tmpdepfile" >> "$depfile"
else
make_dummy_depfile
fi
rm -f "$tmpdepfile" "$tmpdepfile2"
;;
tru64)
# The Tru64 compiler uses -MD to generate dependencies as a side
# effect. 'cc -MD -o foo.o ...' puts the dependencies into 'foo.o.d'.
# At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put
# dependencies in 'foo.d' instead, so we check for that too.
# Subdirectories are respected.
set_dir_from "$object"
set_base_from "$object"
if test "$libtool" = yes; then
# Libtool generates 2 separate objects for the 2 libraries. These
# two compilations output dependencies in $dir.libs/$base.o.d and
# in $dir$base.o.d. We have to check for both files, because
# one of the two compilations can be disabled. We should prefer
# $dir$base.o.d over $dir.libs/$base.o.d because the latter is
# automatically cleaned when .libs/ is deleted, while ignoring
# the former would cause a distcleancheck panic.
tmpdepfile1=$dir$base.o.d # libtool 1.5
tmpdepfile2=$dir.libs/$base.o.d # Likewise.
tmpdepfile3=$dir.libs/$base.d # Compaq CCC V6.2-504
"$@" -Wc,-MD
else
tmpdepfile1=$dir$base.d
tmpdepfile2=$dir$base.d
tmpdepfile3=$dir$base.d
"$@" -MD
fi
stat=$?
if test $stat -ne 0; then
rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
exit $stat
fi
for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
do
test -f "$tmpdepfile" && break
done
# Same post-processing that is required for AIX mode.
aix_post_process_depfile
;;
msvc7)
if test "$libtool" = yes; then
showIncludes=-Wc,-showIncludes
else
showIncludes=-showIncludes
fi
"$@" $showIncludes > "$tmpdepfile"
stat=$?
grep -v '^Note: including file: ' "$tmpdepfile"
if test $stat -ne 0; then
rm -f "$tmpdepfile"
exit $stat
fi
rm -f "$depfile"
echo "$object : \\" > "$depfile"
# The first sed program below extracts the file names and escapes
# backslashes for cygpath. The second sed program outputs the file
# name when reading, but also accumulates all include files in the
# hold buffer in order to output them again at the end. This only
# works with sed implementations that can handle large buffers.
sed < "$tmpdepfile" -n '
/^Note: including file: *\(.*\)/ {
s//\1/
s/\\/\\\\/g
p
}' | $cygpath_u | sort -u | sed -n '
s/ /\\ /g
s/\(.*\)/'"$tab"'\1 \\/p
s/.\(.*\) \\/\1:/
H
$ {
s/.*/'"$tab"'/
G
p
}' >> "$depfile"
rm -f "$tmpdepfile"
;;
msvc7msys)
# This case exists only to let depend.m4 do its work. It works by
# looking at the text of this script. This case will never be run,
# since it is checked for above.
exit 1
;;
#nosideeffect)
# This comment above is used by automake to tell side-effect
# dependency tracking mechanisms from slower ones.
dashmstdout)
# Important note: in order to support this mode, a compiler *must*
# always write the preprocessed file to stdout, regardless of -o.
"$@" || exit $?
# Remove the call to Libtool.
if test "$libtool" = yes; then
while test "X$1" != 'X--mode=compile'; do
shift
done
shift
fi
# Remove '-o $object'.
IFS=" "
for arg
do
case $arg in
-o)
shift
;;
$object)
shift
;;
*)
set fnord "$@" "$arg"
shift # fnord
shift # $arg
;;
esac
done
test -z "$dashmflag" && dashmflag=-M
# Require at least two characters before searching for ':'
# in the target name. This is to cope with DOS-style filenames:
# a dependency such as 'c:/foo/bar' could be seen as target 'c' otherwise.
"$@" $dashmflag |
sed "s|^[$tab ]*[^:$tab ][^:][^:]*:[$tab ]*|$object: |" > "$tmpdepfile"
rm -f "$depfile"
cat < "$tmpdepfile" > "$depfile"
# Some versions of the HPUX 10.20 sed can't process this sed invocation
# correctly. Breaking it into two sed invocations is a workaround.
tr ' ' "$nl" < "$tmpdepfile" \
| sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \
| sed -e 's/$/ :/' >> "$depfile"
rm -f "$tmpdepfile"
;;
dashXmstdout)
# This case only exists to satisfy depend.m4. It is never actually
# run, as this mode is specially recognized in the preamble.
exit 1
;;
makedepend)
"$@" || exit $?
# Remove any Libtool call
if test "$libtool" = yes; then
while test "X$1" != 'X--mode=compile'; do
shift
done
shift
fi
# X makedepend
shift
cleared=no eat=no
for arg
do
case $cleared in
no)
set ""; shift
cleared=yes ;;
esac
if test $eat = yes; then
eat=no
continue
fi
case "$arg" in
-D*|-I*)
set fnord "$@" "$arg"; shift ;;
# Strip any option that makedepend may not understand. Remove
# the object too, otherwise makedepend will parse it as a source file.
-arch)
eat=yes ;;
-*|$object)
;;
*)
set fnord "$@" "$arg"; shift ;;
esac
done
obj_suffix=`echo "$object" | sed 's/^.*\././'`
touch "$tmpdepfile"
${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@"
rm -f "$depfile"
# makedepend may prepend the VPATH from the source file name to the object.
# No need to regex-escape $object, excess matching of '.' is harmless.
sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile"
# Some versions of the HPUX 10.20 sed can't process the last invocation
# correctly. Breaking it into two sed invocations is a workaround.
sed '1,2d' "$tmpdepfile" \
| tr ' ' "$nl" \
| sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' \
| sed -e 's/$/ :/' >> "$depfile"
rm -f "$tmpdepfile" "$tmpdepfile".bak
;;
cpp)
# Important note: in order to support this mode, a compiler *must*
# always write the preprocessed file to stdout.
"$@" || exit $?
# Remove the call to Libtool.
if test "$libtool" = yes; then
while test "X$1" != 'X--mode=compile'; do
shift
done
shift
fi
# Remove '-o $object'.
IFS=" "
for arg
do
case $arg in
-o)
shift
;;
$object)
shift
;;
*)
set fnord "$@" "$arg"
shift # fnord
shift # $arg
;;
esac
done
"$@" -E \
| sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \
-e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \
| sed '$ s: \\$::' > "$tmpdepfile"
rm -f "$depfile"
echo "$object : \\" > "$depfile"
cat < "$tmpdepfile" >> "$depfile"
sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile"
rm -f "$tmpdepfile"
;;
msvisualcpp)
# Important note: in order to support this mode, a compiler *must*
# always write the preprocessed file to stdout.
"$@" || exit $?
# Remove the call to Libtool.
if test "$libtool" = yes; then
while test "X$1" != 'X--mode=compile'; do
shift
done
shift
fi
IFS=" "
for arg
do
case "$arg" in
-o)
shift
;;
$object)
shift
;;
"-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI")
set fnord "$@"
shift
shift
;;
*)
set fnord "$@" "$arg"
shift
shift
;;
esac
done
"$@" -E 2>/dev/null |
sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile"
rm -f "$depfile"
echo "$object : \\" > "$depfile"
sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::'"$tab"'\1 \\:p' >> "$depfile"
echo "$tab" >> "$depfile"
sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile"
rm -f "$tmpdepfile"
;;
msvcmsys)
# This case exists only to let depend.m4 do its work. It works by
# looking at the text of this script. This case will never be run,
# since it is checked for above.
exit 1
;;
none)
exec "$@"
;;
*)
echo "Unknown depmode $depmode" 1>&2
exit 1
;;
esac
exit 0
# Local Variables:
# mode: shell-script
# sh-indentation: 2
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "scriptversion="
# time-stamp-format: "%:y-%02m-%02d.%02H"
# time-stamp-time-zone: "UTC"
# time-stamp-end: "; # UTC"
# End:
gtkwave-gtk3-3.3.125/src/ 0000775 0001750 0001750 00000000000 15047725113 014305 5 ustar bybell bybell gtkwave-gtk3-3.3.125/src/wavewindow.h 0000664 0001750 0001750 00000002343 15047725112 016651 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_WAVEWINDOW_H
#define WAVE_WAVEWINDOW_H
void button_press_release_common(void);
void UpdateSigValue(Trptr t);
void MaxSignalLength(void);
void MaxSignalLength_2(char dirty_kick); /* used to resize but not fully recalculate like MaxSignalLength() */
void RenderSigs(int trtarget, int update_waves);
int RenderSig(Trptr t, int i, int dobackground);
void populateBuffer(Trptr t, char *altname, char* buf);
void calczoom(double z0);
void make_sigarea_gcs(GtkWidget *widget);
void force_screengrab_gcs(void);
void force_normal_gcs(void);
gint wavearea_configure_event(GtkWidget *widget, GdkEventConfigure *event);
void XXX_gdk_draw_line(cairo_t *cr, wave_rgb_t gc, gint _x1, gint _y1, gint _x2, gint _y2);
void XXX_gdk_draw_rectangle(cairo_t *cr, wave_rgb_t gc, gboolean filled, gint _x1, gint _y1, gint _w, gint _h);
#ifdef WAVE_GTK3_SIZE_ALLOCATE_WORKAROUND_WAVE_VSLIDER
void service_vslider(GtkWidget *text, gpointer data);
#endif
#endif
gtkwave-gtk3-3.3.125/src/getopt.c 0000664 0001750 0001750 00000103466 15047725112 015764 0 ustar bybell bybell /* Getopt for GNU.
NOTE: getopt is now part of the C library, so if you don't know what
"Keep this file name-space clean" means, talk to drepper@gnu.org
before changing it!
Copyright (C) 1987,88,89,90,91,92,93,94,95,96,98,99,2000,2001,2002
Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street - Suite 500, Boston,
MA 02110-1335, USA */
/* This tells Alpha OSF/1 not to define a getopt prototype in .
Ditto for AIX 3.2 and . */
#ifndef _NO_PROTO
# define _NO_PROTO
#endif
#if 0
#define HAVE_CONFIG_H /* needed for Wine */
#endif
#ifdef HAVE_CONFIG_H
# include
#endif
#ifdef HAVE_GETOPT_LONG
#define ELIDE_CODE
#endif
#if !defined __STDC__ || !__STDC__
/* This is a separate conditional since some stdc systems
reject `defined (const)'. */
# ifndef const
# define const
# endif
#endif
#include
/* Comment out all this code if we are using the GNU C Library, and are not
actually compiling the library itself. This code is part of the GNU C
Library, but also included in many other GNU distributions. Compiling
and linking in this code is a waste when using the GNU C library
(especially if it is a shared library). Rather than having every GNU
program understand `configure --with-gnu-libc' and omit the object files,
it is simpler to just do this in the source for each such file. */
#define GETOPT_INTERFACE_VERSION 2
#if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2
# include
# if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
# define ELIDE_CODE
# endif
#endif
#ifndef ELIDE_CODE
/* This needs to come after some library #include
to get __GNU_LIBRARY__ defined. */
#ifdef __GNU_LIBRARY__
/* Don't include stdlib.h for non-GNU C libraries because some of them
contain conflicting prototypes for getopt. */
# include
# include
#endif /* GNU C library. */
#ifdef VMS
# include
# if HAVE_STRING_H - 0
# include
# endif
#endif
#ifndef _
/* This is for other GNU distributions with internationalized messages. */
# if (HAVE_LIBINTL_H && ENABLE_NLS) || defined _LIBC
# include
# ifndef _
# define _(msgid) gettext (msgid)
# endif
# else
# define _(msgid) (msgid)
# endif
# if defined _LIBC && defined USE_IN_LIBIO
# include
# endif
#endif
#ifndef attribute_hidden
# define attribute_hidden
#endif
/* This version of `getopt' appears to the caller like standard Unix `getopt'
but it behaves differently for the user, since it allows the user
to intersperse the options with the other arguments.
As `getopt' works, it permutes the elements of ARGV so that,
when it is done, all the options precede everything else. Thus
all application programs are extended to handle flexible argument order.
Setting the environment variable POSIXLY_CORRECT disables permutation.
Then the behavior is completely standard.
GNU application programs can use a third alternative mode in which
they can distinguish the relative order of options and other arguments. */
#include "gnu-getopt.h"
/* For communication from `getopt' to the caller.
When `getopt' finds an option that takes an argument,
the argument value is returned here.
Also, when `ordering' is RETURN_IN_ORDER,
each non-option ARGV-element is returned here. */
char *optarg;
/* Index in ARGV of the next element to be scanned.
This is used for communication to and from the caller
and for communication between successive calls to `getopt'.
On entry to `getopt', zero means this is the first call; initialize.
When `getopt' returns -1, this is the index of the first of the
non-option elements that the caller should itself scan.
Otherwise, `optind' communicates from one call to the next
how much of ARGV has been scanned so far. */
/* 1003.2 says this must be 1 before any call. */
int optind = 1;
/* Formerly, initialization of getopt depended on optind==0, which
causes problems with re-calling getopt as programs generally don't
know that. */
int __getopt_initialized attribute_hidden;
/* The next char to be scanned in the option-element
in which the last option character we returned was found.
This allows us to pick up the scan where we left off.
If this is zero, or a null string, it means resume the scan
by advancing to the next ARGV-element. */
static char *nextchar;
/* Callers store zero here to inhibit the error message
for unrecognized options. */
int opterr = 1;
/* Set to an option character which was unrecognized.
This must be initialized on some systems to avoid linking in the
system's own getopt implementation. */
int optopt = '?';
/* Describe how to deal with options that follow non-option ARGV-elements.
If the caller did not specify anything,
the default is REQUIRE_ORDER if the environment variable
POSIXLY_CORRECT is defined, PERMUTE otherwise.
REQUIRE_ORDER means don't recognize them as options;
stop option processing when the first non-option is seen.
This is what Unix does.
This mode of operation is selected by either setting the environment
variable POSIXLY_CORRECT, or using `+' as the first character
of the list of option characters.
PERMUTE is the default. We permute the contents of ARGV as we scan,
so that eventually all the non-options are at the end. This allows options
to be given in any order, even with programs that were not written to
expect this.
RETURN_IN_ORDER is an option available to programs that were written
to expect options and other ARGV-elements in any order and that care about
the ordering of the two. We describe each non-option ARGV-element
as if it were the argument of an option with character code 1.
Using `-' as the first character of the list of option characters
selects this mode of operation.
The special argument `--' forces an end of option-scanning regardless
of the value of `ordering'. In the case of RETURN_IN_ORDER, only
`--' can cause `getopt' to return -1 with `optind' != ARGC. */
static enum
{
REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER
} ordering;
/* Value of POSIXLY_CORRECT environment variable. */
static char *posixly_correct;
#ifdef __GNU_LIBRARY__
/* We want to avoid inclusion of string.h with non-GNU libraries
because there are many ways it can cause trouble.
On some systems, it contains special magic macros that don't work
in GCC. */
# include
# define my_index strchr
#else
# if HAVE_STRING_H
# include
# else
# include
# endif
/* Avoid depending on library functions or files
whose names are inconsistent. */
#ifndef getenv
extern char *getenv ();
#endif
static char *
my_index (str, chr)
const char *str;
int chr;
{
while (*str)
{
if (*str == chr)
return (char *) str;
str++;
}
return 0;
}
/* If using GCC, we can safely declare strlen this way.
If not using GCC, it is ok not to declare it. */
#ifdef __GNUC__
/* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h.
That was relevant to code that was here before. */
# if (!defined __STDC__ || !__STDC__) && !defined strlen
/* gcc with -traditional declares the built-in strlen to return int,
and has done so at least since version 2.4.5. -- rms. */
extern int strlen (const char *);
# endif /* not __STDC__ */
#endif /* __GNUC__ */
#endif /* not __GNU_LIBRARY__ */
/* Handle permutation of arguments. */
/* Describe the part of ARGV that contains non-options that have
been skipped. `first_nonopt' is the index in ARGV of the first of them;
`last_nonopt' is the index after the last of them. */
static int first_nonopt;
static int last_nonopt;
#ifdef _LIBC
/* Stored original parameters.
XXX This is no good solution. We should rather copy the args so
that we can compare them later. But we must not use malloc(3). */
extern int __libc_argc;
extern char **__libc_argv;
/* Bash 2.0 gives us an environment variable containing flags
indicating ARGV elements that should not be considered arguments. */
# ifdef USE_NONOPTION_FLAGS
/* Defined in getopt_init.c */
extern char *__getopt_nonoption_flags;
static int nonoption_flags_max_len;
static int nonoption_flags_len;
# endif
# ifdef USE_NONOPTION_FLAGS
# define SWAP_FLAGS(ch1, ch2) \
if (nonoption_flags_len > 0) \
{ \
char __tmp = __getopt_nonoption_flags[ch1]; \
__getopt_nonoption_flags[ch1] = __getopt_nonoption_flags[ch2]; \
__getopt_nonoption_flags[ch2] = __tmp; \
}
# else
# define SWAP_FLAGS(ch1, ch2)
# endif
#else /* !_LIBC */
# define SWAP_FLAGS(ch1, ch2)
#endif /* _LIBC */
/* Exchange two adjacent subsequences of ARGV.
One subsequence is elements [first_nonopt,last_nonopt)
which contains all the non-options that have been skipped so far.
The other is elements [last_nonopt,optind), which contains all
the options processed since those non-options were skipped.
`first_nonopt' and `last_nonopt' are relocated so that they describe
the new indices of the non-options in ARGV after they are moved. */
#if defined __STDC__ && __STDC__
static void exchange (char **);
#endif
static void
exchange (argv)
char **argv;
{
int bottom = first_nonopt;
int middle = last_nonopt;
int top = optind;
char *tem;
/* Exchange the shorter segment with the far end of the longer segment.
That puts the shorter segment into the right place.
It leaves the longer segment in the right place overall,
but it consists of two parts that need to be swapped next. */
#if defined _LIBC && defined USE_NONOPTION_FLAGS
/* First make sure the handling of the `__getopt_nonoption_flags'
string can work normally. Our top argument must be in the range
of the string. */
if (nonoption_flags_len > 0 && top >= nonoption_flags_max_len)
{
/* We must extend the array. The user plays games with us and
presents new arguments. */
char *new_str = malloc (top + 1);
if (new_str == NULL)
nonoption_flags_len = nonoption_flags_max_len = 0;
else
{
memset (__mempcpy (new_str, __getopt_nonoption_flags,
nonoption_flags_max_len),
'\0', top + 1 - nonoption_flags_max_len);
nonoption_flags_max_len = top + 1;
__getopt_nonoption_flags = new_str;
}
}
#endif
while (top > middle && middle > bottom)
{
if (top - middle > middle - bottom)
{
/* Bottom segment is the short one. */
int len = middle - bottom;
register int i;
/* Swap it with the top part of the top segment. */
for (i = 0; i < len; i++)
{
tem = argv[bottom + i];
argv[bottom + i] = argv[top - (middle - bottom) + i];
argv[top - (middle - bottom) + i] = tem;
SWAP_FLAGS (bottom + i, top - (middle - bottom) + i);
}
/* Exclude the moved bottom segment from further swapping. */
top -= len;
}
else
{
/* Top segment is the short one. */
int len = top - middle;
register int i;
/* Swap it with the bottom part of the bottom segment. */
for (i = 0; i < len; i++)
{
tem = argv[bottom + i];
argv[bottom + i] = argv[middle + i];
argv[middle + i] = tem;
SWAP_FLAGS (bottom + i, middle + i);
}
/* Exclude the moved top segment from further swapping. */
bottom += len;
}
}
/* Update records for the slots the non-options now occupy. */
first_nonopt += (optind - last_nonopt);
last_nonopt = optind;
}
/* Initialize the internal data when the first call is made. */
#if defined __STDC__ && __STDC__
static const char *_getopt_initialize (int, char *const *, const char *);
#endif
static const char *
_getopt_initialize (argc, argv, optstring)
int argc;
char *const *argv;
const char *optstring;
{
/* Start processing options with ARGV-element 1 (since ARGV-element 0
is the program name); the sequence of previously skipped
non-option ARGV-elements is empty. */
first_nonopt = last_nonopt = optind;
nextchar = NULL;
posixly_correct = getenv ("POSIXLY_CORRECT");
/* Determine how to handle the ordering of options and nonoptions. */
if (optstring[0] == '-')
{
ordering = RETURN_IN_ORDER;
++optstring;
}
else if (optstring[0] == '+')
{
ordering = REQUIRE_ORDER;
++optstring;
}
else if (posixly_correct != NULL)
ordering = REQUIRE_ORDER;
else
ordering = PERMUTE;
#if defined _LIBC && defined USE_NONOPTION_FLAGS
if (posixly_correct == NULL
&& argc == __libc_argc && argv == __libc_argv)
{
if (nonoption_flags_max_len == 0)
{
if (__getopt_nonoption_flags == NULL
|| __getopt_nonoption_flags[0] == '\0')
nonoption_flags_max_len = -1;
else
{
const char *orig_str = __getopt_nonoption_flags;
int len = nonoption_flags_max_len = strlen (orig_str);
if (nonoption_flags_max_len < argc)
nonoption_flags_max_len = argc;
__getopt_nonoption_flags =
(char *) malloc (nonoption_flags_max_len);
if (__getopt_nonoption_flags == NULL)
nonoption_flags_max_len = -1;
else
memset (__mempcpy (__getopt_nonoption_flags, orig_str, len),
'\0', nonoption_flags_max_len - len);
}
}
nonoption_flags_len = nonoption_flags_max_len;
}
else
nonoption_flags_len = 0;
#endif
return optstring;
}
/* Scan elements of ARGV (whose length is ARGC) for option characters
given in OPTSTRING.
If an element of ARGV starts with '-', and is not exactly "-" or "--",
then it is an option element. The characters of this element
(aside from the initial '-') are option characters. If `getopt'
is called repeatedly, it returns successively each of the option characters
from each of the option elements.
If `getopt' finds another option character, it returns that character,
updating `optind' and `nextchar' so that the next call to `getopt' can
resume the scan with the following option character or ARGV-element.
If there are no more option characters, `getopt' returns -1.
Then `optind' is the index in ARGV of the first ARGV-element
that is not an option. (The ARGV-elements have been permuted
so that those that are not options now come last.)
OPTSTRING is a string containing the legitimate option characters.
If an option character is seen that is not listed in OPTSTRING,
return '?' after printing an error message. If you set `opterr' to
zero, the error message is suppressed but we still return '?'.
If a char in OPTSTRING is followed by a colon, that means it wants an arg,
so the following text in the same ARGV-element, or the text of the following
ARGV-element, is returned in `optarg'. Two colons mean an option that
wants an optional arg; if there is text in the current ARGV-element,
it is returned in `optarg', otherwise `optarg' is set to zero.
If OPTSTRING starts with `-' or `+', it requests different methods of
handling the non-option ARGV-elements.
See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
Long-named options begin with `--' instead of `-'.
Their names may be abbreviated as long as the abbreviation is unique
or is an exact match for some defined option. If they have an
argument, it follows the option name in the same ARGV-element, separated
from the option name by a `=', or else the in next ARGV-element.
When `getopt' finds a long-named option, it returns 0 if that option's
`flag' field is nonzero, the value of the option's `val' field
if the `flag' field is zero.
The elements of ARGV aren't really const, because we permute them.
But we pretend they're const in the prototype to be compatible
with other systems.
LONGOPTS is a vector of `struct option' terminated by an
element containing a name which is zero.
LONGIND returns the index in LONGOPT of the long-named option found.
It is only valid when a long-named option has been found by the most
recent call.
If LONG_ONLY is nonzero, '-' as well as '--' can introduce
long-named options. */
int
_getopt_internal (argc, argv, optstring, longopts, longind, long_only)
int argc;
char *const *argv;
const char *optstring;
const struct option *longopts;
int *longind;
int long_only;
{
int print_errors = opterr;
if (optstring[0] == ':')
print_errors = 0;
if (argc < 1)
return -1;
optarg = NULL;
if (optind == 0 || !__getopt_initialized)
{
if (optind == 0)
optind = 1; /* Don't scan ARGV[0], the program name. */
optstring = _getopt_initialize (argc, argv, optstring);
__getopt_initialized = 1;
}
/* Test whether ARGV[optind] points to a non-option argument.
Either it does not have option syntax, or there is an environment flag
from the shell indicating it is not an option. The later information
is only used when the used in the GNU libc. */
#if defined _LIBC && defined USE_NONOPTION_FLAGS
# define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \
|| (optind < nonoption_flags_len \
&& __getopt_nonoption_flags[optind] == '1'))
#else
# define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0')
#endif
if (nextchar == NULL || *nextchar == '\0')
{
/* Advance to the next ARGV-element. */
/* Give FIRST_NONOPT & LAST_NONOPT rational values if OPTIND has been
moved back by the user (who may also have changed the arguments). */
if (last_nonopt > optind)
last_nonopt = optind;
if (first_nonopt > optind)
first_nonopt = optind;
if (ordering == PERMUTE)
{
/* If we have just processed some options following some non-options,
exchange them so that the options come first. */
if (first_nonopt != last_nonopt && last_nonopt != optind)
exchange ((char **) argv);
else if (last_nonopt != optind)
first_nonopt = optind;
/* Skip any additional non-options
and extend the range of non-options previously skipped. */
while (optind < argc && NONOPTION_P)
optind++;
last_nonopt = optind;
}
/* The special ARGV-element `--' means premature end of options.
Skip it like a null option,
then exchange with previous non-options as if it were an option,
then skip everything else like a non-option. */
if (optind != argc && !strcmp (argv[optind], "--"))
{
optind++;
if (first_nonopt != last_nonopt && last_nonopt != optind)
exchange ((char **) argv);
else if (first_nonopt == last_nonopt)
first_nonopt = optind;
last_nonopt = argc;
optind = argc;
}
/* If we have done all the ARGV-elements, stop the scan
and back over any non-options that we skipped and permuted. */
if (optind == argc)
{
/* Set the next-arg-index to point at the non-options
that we previously skipped, so the caller will digest them. */
if (first_nonopt != last_nonopt)
optind = first_nonopt;
return -1;
}
/* If we have come to a non-option and did not permute it,
either stop the scan or describe it to the caller and pass it by. */
if (NONOPTION_P)
{
if (ordering == REQUIRE_ORDER)
return -1;
optarg = argv[optind++];
return 1;
}
/* We have found another option-ARGV-element.
Skip the initial punctuation. */
nextchar = (argv[optind] + 1
+ (longopts != NULL && argv[optind][1] == '-'));
}
/* Decode the current option-ARGV-element. */
/* Check whether the ARGV-element is a long option.
If long_only and the ARGV-element has the form "-f", where f is
a valid short option, don't consider it an abbreviated form of
a long option that starts with f. Otherwise there would be no
way to give the -f short option.
On the other hand, if there's a long option "fubar" and
the ARGV-element is "-fu", do consider that an abbreviation of
the long option, just like "--fu", and not "-f" with arg "u".
This distinction seems to be the most useful approach. */
if (longopts != NULL
&& (argv[optind][1] == '-'
|| (long_only && (argv[optind][2] || !my_index (optstring, argv[optind][1])))))
{
char *nameend;
const struct option *p;
const struct option *pfound = NULL;
int exact = 0;
int ambig = 0;
int indfound = -1;
int option_index;
for (nameend = nextchar; *nameend && *nameend != '='; nameend++)
/* Do nothing. */ ;
/* Test all long options for either exact match
or abbreviated matches. */
for (p = longopts, option_index = 0; p->name; p++, option_index++)
if (!strncmp (p->name, nextchar, nameend - nextchar))
{
if ((unsigned int) (nameend - nextchar)
== (unsigned int) strlen (p->name))
{
/* Exact match found. */
pfound = p;
indfound = option_index;
exact = 1;
break;
}
else if (pfound == NULL)
{
/* First nonexact match found. */
pfound = p;
indfound = option_index;
}
else if (long_only
|| pfound->has_arg != p->has_arg
|| pfound->flag != p->flag
|| pfound->val != p->val)
/* Second or later nonexact match found. */
ambig = 1;
}
if (ambig && !exact)
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf, _("%s: option `%s' is ambiguous\n"),
argv[0], argv[optind]) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr, _("%s: option `%s' is ambiguous\n"),
argv[0], argv[optind]);
#endif
}
nextchar += strlen (nextchar);
optind++;
optopt = 0;
return '?';
}
if (pfound != NULL)
{
option_index = indfound;
optind++;
if (*nameend)
{
/* Don't test has_arg with >, because some C compilers don't
allow it to be used on enums. */
if (pfound->has_arg)
optarg = nameend + 1;
else
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
int n;
#endif
if (argv[optind - 1][1] == '-')
{
/* --option */
#if defined _LIBC && defined USE_IN_LIBIO
n = __asprintf (&buf, _("\
%s: option `--%s' doesn't allow an argument\n"),
argv[0], pfound->name);
#else
fprintf (stderr, _("\
%s: option `--%s' doesn't allow an argument\n"),
argv[0], pfound->name);
#endif
}
else
{
/* +option or -option */
#if defined _LIBC && defined USE_IN_LIBIO
n = __asprintf (&buf, _("\
%s: option `%c%s' doesn't allow an argument\n"),
argv[0], argv[optind - 1][0],
pfound->name);
#else
fprintf (stderr, _("\
%s: option `%c%s' doesn't allow an argument\n"),
argv[0], argv[optind - 1][0], pfound->name);
#endif
}
#if defined _LIBC && defined USE_IN_LIBIO
if (n >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#endif
}
nextchar += strlen (nextchar);
optopt = pfound->val;
return '?';
}
}
else if (pfound->has_arg == 1)
{
if (optind < argc)
optarg = argv[optind++];
else
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf, _("\
%s: option `%s' requires an argument\n"),
argv[0], argv[optind - 1]) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr,
_("%s: option `%s' requires an argument\n"),
argv[0], argv[optind - 1]);
#endif
}
nextchar += strlen (nextchar);
optopt = pfound->val;
return optstring[0] == ':' ? ':' : '?';
}
}
nextchar += strlen (nextchar);
if (longind != NULL)
*longind = option_index;
if (pfound->flag)
{
*(pfound->flag) = pfound->val;
return 0;
}
return pfound->val;
}
/* Can't find it as a long option. If this is not getopt_long_only,
or the option starts with '--' or is not a valid short
option, then it's an error.
Otherwise interpret it as a short option. */
if (!long_only || argv[optind][1] == '-'
|| my_index (optstring, *nextchar) == NULL)
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
int n;
#endif
if (argv[optind][1] == '-')
{
/* --option */
#if defined _LIBC && defined USE_IN_LIBIO
n = __asprintf (&buf, _("%s: unrecognized option `--%s'\n"),
argv[0], nextchar);
#else
fprintf (stderr, _("%s: unrecognized option `--%s'\n"),
argv[0], nextchar);
#endif
}
else
{
/* +option or -option */
#if defined _LIBC && defined USE_IN_LIBIO
n = __asprintf (&buf, _("%s: unrecognized option `%c%s'\n"),
argv[0], argv[optind][0], nextchar);
#else
fprintf (stderr, _("%s: unrecognized option `%c%s'\n"),
argv[0], argv[optind][0], nextchar);
#endif
}
#if defined _LIBC && defined USE_IN_LIBIO
if (n >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#endif
}
nextchar = (char *) "";
optind++;
optopt = 0;
return '?';
}
}
/* Look at and handle the next short option-character. */
{
char c = *nextchar++;
char *temp = my_index (optstring, c);
/* Increment `optind' when we start to process its last character. */
if (*nextchar == '\0')
++optind;
if (temp == NULL || c == ':')
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
int n;
#endif
if (posixly_correct)
{
/* 1003.2 specifies the format of this message. */
#if defined _LIBC && defined USE_IN_LIBIO
n = __asprintf (&buf, _("%s: illegal option -- %c\n"),
argv[0], c);
#else
fprintf (stderr, _("%s: illegal option -- %c\n"), argv[0], c);
#endif
}
else
{
#if defined _LIBC && defined USE_IN_LIBIO
n = __asprintf (&buf, _("%s: invalid option -- %c\n"),
argv[0], c);
#else
fprintf (stderr, _("%s: invalid option -- %c\n"), argv[0], c);
#endif
}
#if defined _LIBC && defined USE_IN_LIBIO
if (n >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#endif
}
optopt = c;
return '?';
}
/* Convenience. Treat POSIX -W foo same as long option --foo */
if (temp[0] == 'W' && temp[1] == ';')
{
char *nameend;
const struct option *p;
const struct option *pfound = NULL;
int exact = 0;
int ambig = 0;
int indfound = 0;
int option_index;
/* This is an option that requires an argument. */
if (*nextchar != '\0')
{
optarg = nextchar;
/* If we end this ARGV-element by taking the rest as an arg,
we must advance to the next element now. */
optind++;
}
else if (optind == argc)
{
if (print_errors)
{
/* 1003.2 specifies the format of this message. */
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf,
_("%s: option requires an argument -- %c\n"),
argv[0], c) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr, _("%s: option requires an argument -- %c\n"),
argv[0], c);
#endif
}
optopt = c;
if (optstring[0] == ':')
c = ':';
else
c = '?';
return c;
}
else
/* We already incremented `optind' once;
increment it again when taking next ARGV-elt as argument. */
optarg = argv[optind++];
/* optarg is now the argument, see if it's in the
table of longopts. */
for (nextchar = nameend = optarg; *nameend && *nameend != '='; nameend++)
/* Do nothing. */ ;
/* Test all long options for either exact match
or abbreviated matches. */
for (p = longopts, option_index = 0; p->name; p++, option_index++)
if (!strncmp (p->name, nextchar, nameend - nextchar))
{
if ((unsigned int) (nameend - nextchar) == strlen (p->name))
{
/* Exact match found. */
pfound = p;
indfound = option_index;
exact = 1;
break;
}
else if (pfound == NULL)
{
/* First nonexact match found. */
pfound = p;
indfound = option_index;
}
else
/* Second or later nonexact match found. */
ambig = 1;
}
if (ambig && !exact)
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf, _("%s: option `-W %s' is ambiguous\n"),
argv[0], argv[optind]) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr, _("%s: option `-W %s' is ambiguous\n"),
argv[0], argv[optind]);
#endif
}
nextchar += strlen (nextchar);
optind++;
return '?';
}
if (pfound != NULL)
{
option_index = indfound;
if (*nameend)
{
/* Don't test has_arg with >, because some C compilers don't
allow it to be used on enums. */
if (pfound->has_arg)
optarg = nameend + 1;
else
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf, _("\
%s: option `-W %s' doesn't allow an argument\n"),
argv[0], pfound->name) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr, _("\
%s: option `-W %s' doesn't allow an argument\n"),
argv[0], pfound->name);
#endif
}
nextchar += strlen (nextchar);
return '?';
}
}
else if (pfound->has_arg == 1)
{
if (optind < argc)
optarg = argv[optind++];
else
{
if (print_errors)
{
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf, _("\
%s: option `%s' requires an argument\n"),
argv[0], argv[optind - 1]) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr,
_("%s: option `%s' requires an argument\n"),
argv[0], argv[optind - 1]);
#endif
}
nextchar += strlen (nextchar);
return optstring[0] == ':' ? ':' : '?';
}
}
nextchar += strlen (nextchar);
if (longind != NULL)
*longind = option_index;
if (pfound->flag)
{
*(pfound->flag) = pfound->val;
return 0;
}
return pfound->val;
}
nextchar = NULL;
return 'W'; /* Let the application handle it. */
}
if (temp[1] == ':')
{
if (temp[2] == ':')
{
/* This is an option that accepts an argument optionally. */
if (*nextchar != '\0')
{
optarg = nextchar;
optind++;
}
else
optarg = NULL;
nextchar = NULL;
}
else
{
/* This is an option that requires an argument. */
if (*nextchar != '\0')
{
optarg = nextchar;
/* If we end this ARGV-element by taking the rest as an arg,
we must advance to the next element now. */
optind++;
}
else if (optind == argc)
{
if (print_errors)
{
/* 1003.2 specifies the format of this message. */
#if defined _LIBC && defined USE_IN_LIBIO
char *buf;
if (__asprintf (&buf, _("\
%s: option requires an argument -- %c\n"),
argv[0], c) >= 0)
{
if (_IO_fwide (stderr, 0) > 0)
__fwprintf (stderr, L"%s", buf);
else
fputs (buf, stderr);
free (buf);
}
#else
fprintf (stderr,
_("%s: option requires an argument -- %c\n"),
argv[0], c);
#endif
}
optopt = c;
if (optstring[0] == ':')
c = ':';
else
c = '?';
}
else
/* We already incremented `optind' once;
increment it again when taking next ARGV-elt as argument. */
optarg = argv[optind++];
nextchar = NULL;
}
}
return c;
}
}
int
getopt (argc, argv, optstring)
int argc;
char *const *argv;
const char *optstring;
{
return _getopt_internal (argc, argv, optstring,
(const struct option *) 0,
(int *) 0,
0);
}
#endif /* Not ELIDE_CODE. */
#ifdef TEST
/* Compile with -DTEST to make an executable for use in testing
the above definition of `getopt'. */
int
main (argc, argv)
int argc;
char **argv;
{
int c;
int digit_optind = 0;
while (1)
{
int this_option_optind = optind ? optind : 1;
c = getopt (argc, argv, "abc:d:0123456789");
if (c == -1)
break;
switch (c)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
if (digit_optind != 0 && digit_optind != this_option_optind)
printf ("digits occur in two different argv-elements.\n");
digit_optind = this_option_optind;
printf ("option %c\n", c);
break;
case 'a':
printf ("option a\n");
break;
case 'b':
printf ("option b\n");
break;
case 'c':
printf ("option c with value `%s'\n", optarg);
break;
case '?':
break;
default:
printf ("?? getopt returned character code 0%o ??\n", c);
}
}
if (optind < argc)
{
printf ("non-option ARGV-elements: ");
while (optind < argc)
printf ("%s ", argv[optind++]);
printf ("\n");
}
exit (0);
}
#endif /* TEST */
gtkwave-gtk3-3.3.125/src/savefile.h 0000664 0001750 0001750 00000003247 15047725112 016261 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2012-2013.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#include
#ifdef MAC_INTEGRATION
#include
#endif
#ifndef __WAVE_SAVEFILE_H__
#define __WAVE_SAVEFILE_H__
/* These should eventually have error values */
void write_save_helper(const char *savnam, FILE *file);
int read_save_helper(char *wname, char **dumpfile, char **savefile, off_t *dumpsiz, time_t *dumptim, int *opt_vcd); /* -1 = error, 0+ = number of lines read */
char *append_array_row(nptr n);
int parsewavline(char *w, char *alias, int depth);
int parsewavline_lx2(char *w, char *alias, int depth);
char *find_dumpfile(char *orig_save, char *orig_dump, char *this_save);
#ifdef MAC_INTEGRATION
gboolean deal_with_finder_open(GtkosxApplication *app, gchar *path, gpointer user_data);
gboolean deal_with_termination(GtkosxApplication *app, gpointer user_data);
#endif
gboolean deal_with_rpc_open(const gchar *path, gpointer user_data);
gboolean deal_with_rpc_open_2(const gchar *path, gpointer user_data, gboolean is_save_file);
gboolean process_finder_names_queued(void);
char *process_finder_extract_queued_name(void);
gboolean process_finder_name_integration(void);
void read_save_helper_relative_init(char *wname);
int suffix_check(const char *s, const char *sfx);
char *extract_dumpname_from_save_file(char *lcname, gboolean *modified, int *opt_vcd);
char *get_relative_adjusted_name(char *sfn, char *dfn, char *lcname);
#endif
gtkwave-gtk3-3.3.125/src/twinwave.c 0000664 0001750 0001750 00000026136 15047725112 016324 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2006-2018.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include
#include
#include
#ifdef __MINGW32__
#include
#undef MINGW_USE_XID
#else
#if GTK_CHECK_VERSION(3,0,0)
#include
#endif
#if GTK_CHECK_VERSION(3,22,26)
#if !defined(MAC_INTEGRATION) && defined(GDK_WINDOWING_WAYLAND)
#include
#endif
#endif
#endif
#include "wave_locale.h"
#include
#include
#include
#include "debug.h"
static int use_embedded = 1;
static int twinwayland = 0;
#define XXX_GTK_OBJECT(x) x
static int plug_removed(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
static int cnt = 2;
fprintf(stderr, "GtkPlug removed\n");
cnt--;
if(cnt==0)
{
fprintf(stderr, "No GtkPlugs left, exiting.\n");
exit(0);
}
return(FALSE); /* TRUE would keep xsocket open */
}
int quit_callback (GtkWidget *widget, gpointer data)
{
(void)widget;
fprintf(stderr,"%s\n", (char *)data);
exit(0);
return(FALSE);
}
int main(int argc, char **argv)
{
struct gtkwave_dual_ipc_t *dual_ctx;
char buf[257], buf2[257];
int shmid;
GtkWidget *mainwindow;
int i;
int split_point = -1;
#ifdef __MINGW32__
char mapName[65];
HANDLE hMapFile;
#endif
#ifndef __MINGW32__
GtkWidget *xsocket[2] = { NULL, NULL };
GtkWidget *main_vbox, *vpan;
#endif
WAVE_LOCALE_FIX
if(!gtk_init_check(&argc, &argv))
{
printf("Could not initialize GTK! Is DISPLAY env var/xhost set?\n\n");
exit(255);
}
#ifdef __CYGWIN__
fprintf(stderr, "TWINWAVE| If the viewer crashes with a Bad system call error,\n");
fprintf(stderr, "TWINWAVE| make sure that Cygserver is enabled.\n");
#endif
for(i=0;i=0)
{
struct shmid_ds ds;
dual_ctx = shmat(shmid, NULL, 0);
if(dual_ctx)
{
memset(dual_ctx, 0, 2 * sizeof(struct gtkwave_dual_ipc_t));
memcpy(&dual_ctx[0].matchword, DUAL_MATCHWORD, 4);
memcpy(&dual_ctx[1].matchword, DUAL_MATCHWORD, 4);
#ifdef __linux__
shmctl(shmid, IPC_RMID, &ds); /* mark for destroy */
#endif
if(fork())
{
if(fork())
{
struct timeval tv;
for(;;)
{
tv.tv_sec = 0;
tv.tv_usec = 1000000 / 5;
select(0, NULL, NULL, NULL, &tv);
while (gtk_events_pending()) gtk_main_iteration();
if((!dual_ctx[0].viewer_is_initialized)&&(dual_ctx[1].viewer_is_initialized))
{
gtk_window_set_title(GTK_WINDOW(mainwindow), "TwinWave Waiting on Viewer #1");
}
else
if((dual_ctx[0].viewer_is_initialized)&&(!dual_ctx[1].viewer_is_initialized))
{
gtk_window_set_title(GTK_WINDOW(mainwindow), "TwinWave Waiting on Viewer #2");
}
else
if((dual_ctx[0].viewer_is_initialized)&&(dual_ctx[1].viewer_is_initialized))
{
gtk_window_set_title(GTK_WINDOW(mainwindow), "TwinWave");
break;
}
}
#ifndef __linux__
while (gtk_events_pending()) gtk_main_iteration();
sleep(2);
shmctl(shmid, IPC_RMID, &ds); /* mark for destroy */
#endif
if(use_embedded)
{
gtk_main();
}
}
else
{
int n_items = split_point + 5;
char **arglist = calloc(n_items, sizeof(char *));
sprintf(buf, "0+%08X", shmid);
if(use_embedded)
{
#if defined(__GTK_SOCKET_H__) && defined(GDK_WINDOWING_X11)
#ifdef MAC_INTEGRATION
sprintf(buf2, "%x", gtk_socket_get_id (GTK_SOCKET(xsocket[0])));
#else
sprintf(buf2, "%lx", (long)gtk_socket_get_id (GTK_SOCKET(xsocket[0])));
#endif
#endif
}
else
{
sprintf(buf2, "%x", 0);
}
arglist[0] = "gtkwave";
arglist[1] = "-D";
arglist[2] = buf;
arglist[3] = "-X";
arglist[4] = buf2;
for(i=1;i
""
Open File
Opens file for a given RPC ID. Example: gsettings set com.geda.gtkwave open 0,/pub/systema_packed.fst
""
Quit
Quits viewer for a given RPC ID and return code. Example: gsettings set com.geda.gtkwave quit 0,255
""
Write Save File
Writes save file. Example: gsettings set com.geda.gtkwave writesave 0,/tmp/this.gtkw
gsettings set com.geda.gtkwave writesave 0,+
""
Reloads
Reloads file for a given RPC ID. Example: gsettings set com.geda.gtkwave reload 0
""
Zoom Full
Zoom Full for a given RPC ID. Example: gsettings set com.geda.gtkwave zoom-full 0
""
Move To Time
Moves to a given time for a given RPC ID. Example: gsettings set com.geda.gtkwave move-to-time 0,123ns
gsettings set com.geda.gtkwave move-to-time 0,A
""
Zoom Size
Sets zoom size for a given RPC ID. Example: gsettings set com.geda.gtkwave zoom-size 0,-4.6
""
Dumpfile name
Indicates current dumpfile name.
""
Savefile name
Indicates current savefile name.
""
rcfile name
Indicates current rcfile name.
""
pwd
Indicates pwd.
"0"
Optimized VCD usage.
Value indicates VCD file is optimized.
""
Image grab
Indicates image grab filename.
gtkwave-gtk3-3.3.125/src/tcl_np.c 0000664 0001750 0001750 00000050215 15047725112 015732 0 ustar bybell bybell /*
* Copyright (c) 2003-2005 Active State Corporation.
* See the file LICENSE.TXT for information on usage and redistribution
* and for a DISCLAIMER OF ALL WARRANTIES.
*/
#include
#include "globals.h"
#include
#include
#include
#include
#include "debug.h"
#include "tcl_np.h"
#include "tcl_helper.h"
#if !defined __MINGW32__ && !defined _MSC_VER
#include
#include
#endif
#ifdef HAVE_LIBTCL
/* ======== Np... Begin */
#ifndef LIB_RUNTIME_DIR
# define LIB_RUNTIME_DIR ""
#endif
# define XP_UNIX 1
/*
* Default directory in which to look for Tcl libraries. The
* symbol is defined by Makefile.
*/
static char defaultLibraryDir[sizeof(LIB_RUNTIME_DIR)+200] = LIB_RUNTIME_DIR;
#ifdef WIN32
/* #include "shlwapi.h" */
# ifndef TCL_LIB_FILE
# define TCL_LIB_FILE "tcl85.dll"
# endif
/*
* Reference to ourselves
*/
static HINSTANCE nptclInst = NULL;
/*
*----------------------------------------------------------------------
*
* NpLoadLibrary --
*
*
* Results:
* None.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
/* me :: path to the current executable */
extern int NpLoadLibrary(HMODULE *tclHandle, char *dllName, int dllNameSize,
char *me) {
char *envdll, libname[MAX_PATH];
HMODULE handle = (HMODULE) NULL;
char path[MAX_PATH], *p ;
/* #include */
/* #include */
if( !GetModuleFileName(NULL, path, MAX_PATH) ) {
printf("GetModuleFileName() failed\n") ;
} else {
if((p = strrchr(path,'\\'))) {
*(++p) = '\0' ;
sprintf(libname, "%s\\tcl%d%d.dll", path, TCL_MAJOR_VERSION,
TCL_MINOR_VERSION) ;
NpLog("Attempt to load from executable directory '%s'\n", libname) ;
if(!(handle = LoadLibrary(libname))) {
sprintf(libname, "%s..\\lib\\tcl%d%d.dll", path, TCL_MAJOR_VERSION,
TCL_MINOR_VERSION) ;
NpLog("Attempt to load from relative lib directory '%s'\n", libname) ;
handle = LoadLibrary(libname) ;
}
}
}
/*
* Try a user-supplied Tcl dll to start with.
*/
if(!handle) {
envdll = getenv("TCL_PLUGIN_DLL");
if (envdll != NULL) {
NpLog("Attempt to load Tcl dll (TCL_PLUGIN_DLL) '%s'\n", envdll);
handle = LoadLibrary(envdll);
if (handle) {
memcpy(libname, envdll, MAX_PATH);
}
}
}
if (!handle) {
/*
* Try based on full path.
*/
snprintf(libname, MAX_PATH, "%stcl%d%d.dll", defaultLibraryDir,
TCL_MAJOR_VERSION, TCL_MINOR_VERSION);
NpLog("Attempt to load Tcl dll (default) '%s'\n", libname);
handle = LoadLibrary(libname);
}
if (!handle) {
/*
* Try based on anywhere in the path.
*/
snprintf(libname, MAX_PATH, "tcl%d%d.dll", TCL_MAJOR_VERSION,
TCL_MINOR_VERSION);
NpLog("Attempt to load Tcl dll (libpath) '%s'\n", libname);
handle = LoadLibrary(libname);
}
if (!handle) {
/*
* Try based on ActiveTcl registry entry
*/
char path[MAX_PATH], vers[MAX_PATH];
DWORD result, size = MAX_PATH;
HKEY regKey;
# define TCL_REG_DIR_KEY "Software\\ActiveState\\ActiveTcl"
result = RegOpenKeyEx(HKEY_LOCAL_MACHINE, TCL_REG_DIR_KEY, 0,
KEY_READ, ®Key);
if (result != ERROR_SUCCESS) {
NpLog("Could not access registry \"HKLM\\%s\"\n", TCL_REG_DIR_KEY);
result = RegOpenKeyEx(HKEY_CURRENT_USER, TCL_REG_DIR_KEY, 0,
KEY_READ, ®Key);
if (result != ERROR_SUCCESS) {
NpLog("Could not access registry \"HKCU\\%s\"\n", TCL_REG_DIR_KEY);
return TCL_ERROR;
}
}
result = RegQueryValueEx(regKey, "CurrentVersion", NULL, NULL,
vers, &size);
RegCloseKey(regKey);
if (result != ERROR_SUCCESS) {
NpLog("Could not access registry \"%s\" CurrentVersion\n",
TCL_REG_DIR_KEY);
return TCL_ERROR;
}
snprintf(path, MAX_PATH, "%s\\%s", TCL_REG_DIR_KEY, vers);
result = RegOpenKeyEx(HKEY_LOCAL_MACHINE, path, 0, KEY_READ, ®Key);
if (result != ERROR_SUCCESS) {
NpLog("Could not access registry \"%s\"\n", path);
return TCL_ERROR;
}
size = MAX_PATH;
result = RegQueryValueEx(regKey, NULL, NULL, NULL, path, &size);
RegCloseKey(regKey);
if (result != ERROR_SUCCESS) {
NpLog("Could not access registry \"%s\" Default\n", TCL_REG_DIR_KEY);
return TCL_ERROR;
}
NpLog("Found current Tcl installation at \"%s\"\n", path);
snprintf(libname, MAX_PATH, "%s\\bin\\tcl%d%d.dll", path,
TCL_MAJOR_VERSION, TCL_MINOR_VERSION);
NpLog("Attempt to load Tcl dll (registry) '%s'\n", libname);
handle = LoadLibrary(libname);
}
if (!handle) {
NpLog("NpLoadLibrary: could not find dll '%s'\n", libname);
return TCL_ERROR;
}
*tclHandle = handle;
if (dllNameSize > 0) {
/*
* Use GetModuleFileName to ensure that we have a fully-qualified
* path, no matter which route above succeeded.
*/
if (!GetModuleFileNameA(handle, dllName, dllNameSize)) {
int length;
char *msgPtr;
DWORD code = GetLastError();
length = FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM
| FORMAT_MESSAGE_ALLOCATE_BUFFER, NULL, code,
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
(char *) &msgPtr, 0, NULL);
NpLog3("GetModuleFileNameA ERROR: %d (%s)\n", code, ((length == 0) ? "unknown error" : msgPtr));
if (length > 0) {
LocalFree(msgPtr);
}
}
}
return TCL_OK;
}
/*
* DLL entry point
*/
BOOL WINAPI DllMain(HINSTANCE hDLL, DWORD dwReason, LPVOID lpReserved) {
switch (dwReason) {
case DLL_PROCESS_ATTACH:
nptclInst = hDLL;
break;
case DLL_PROCESS_DETACH:
nptclInst = NULL;
break;
}
return TRUE;
}
#else
/* !WIN32 */
# include
# ifndef TCL_LIB_FILE
# define TCL_LIB_FILE "libtcl" TCL_VERSION SHLIB_SUFFIX
# endif
# ifndef TCL_KIT_DLL
# define TCL_KIT_DLL "tclplugin" SHLIB_SUFFIX
# endif
/*
* In some systems, like SunOS 4.1.3, the RTLD_NOW flag isn't defined
* and this argument to dlopen must always be 1. The RTLD_GLOBAL
* flag is needed on some systems (e.g. SCO and UnixWare) but doesn't
* exist on others; if it doesn't exist, set it to 0 so it has no effect.
*/
/*
*----------------------------------------------------------------------
* NpMyDirectoryPath --
*
* Results:
* Full directory path to the current executable or NULL
*----------------------------------------------------------------------
*/
char *NpMyDirectoryPath(char *path, int path_max_len) {
int length;
char *p ;
length = readlink("/proc/self/exe", path, path_max_len);
if ((length < 0) || (length >= path_max_len)) {
fprintf(stderr, "Error while looking for executable path.\n");
path = NULL ;
} else {
path[length] = '\0'; /* Strip '@' off the end. */
}
if(path) {
if((p = strrchr(path, '/')))
*p = '\0' ;
else
path = NULL ;
}
return path ;
}
# ifndef RTLD_NOW
# define RTLD_NOW 1
# endif
# ifndef RTLD_GLOBAL
# define RTLD_GLOBAL 0
# endif
/*
*----------------------------------------------------------------------
*
* NpLoadLibrary --
*
*
* Results:
* None.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
EXTERN int NpLoadLibrary(HMODULE *tclHandle, char *dllName, int dllNameSize,
char *me) {
char *envdll, libname[MAX_PATH + 128];
HMODULE handle = (HMODULE) NULL;
char path[MAX_PATH], *p ;
*tclHandle = NULL;
if(me)
strcpy(path, me) ;
if(me && (p = strrchr(path,'/'))) {
*(++p) = '\0' ;
sprintf(libname, "%s%s", path, TCL_LIB_FILE) ;
NpLog("Attempt to load from executable directory '%s'\n", libname) ;
if(!(handle = dlopen(libname, RTLD_NOW | RTLD_GLOBAL))) {
sprintf(libname, "%s../lib/%s", path, TCL_LIB_FILE) ;
NpLog("Attempt to load from relative lib directory '%s'\n", libname) ;
handle = dlopen(libname, RTLD_NOW | RTLD_GLOBAL) ;
}
} else {
handle = NULL ;
}
/*
* Try a user-supplied Tcl dll to start with.
*/
if(!handle) {
envdll = getenv("TCL_PLUGIN_DLL");
if (envdll != NULL) {
NpLog("Attempt to load Tcl dll (TCL_PLUGIN_DLL) '%s'\n", envdll);
handle = dlopen(envdll, RTLD_NOW | RTLD_GLOBAL);
if (handle) {
memcpy(libname, envdll, MAX_PATH);
}
}
}
if (!handle) {
/*
* Try based on full path.
*/
snprintf(libname, MAX_PATH, "%s%s", defaultLibraryDir, TCL_LIB_FILE);
NpLog("Attempt to load Tcl dll (default) '%s'\n", libname);
handle = dlopen(libname, RTLD_NOW | RTLD_GLOBAL);
}
if (!handle) {
/*
* Try based on anywhere in the path.
*/
strncpy(libname, TCL_LIB_FILE, MAX_PATH);
NpLog("Attempt to load Tcl dll (libpath) '%s'\n", libname);
handle = dlopen(libname, RTLD_NOW | RTLD_GLOBAL);
}
if (!handle) {
/*
* Try different versions anywhere in the path.
*/
char *pos;
pos = strstr(libname, "tcl")+4;
if (*pos == '.') {
pos++;
}
*pos = '9'; /* count down from '8' to '4'*/
while (!handle && (--*pos > '3')) {
NpLog("Attempt to load Tcl dll (default_ver) '%s'\n", libname);
handle = dlopen(libname, RTLD_NOW | RTLD_GLOBAL);
}
}
if (!handle) {
NpPlatformMsg("Failed to load Tcl dll!", "NpCreateMainInterp");
return TCL_ERROR;
}
*tclHandle = handle;
if (dllNameSize > 0) {
# ifdef HAVE_DLADDR
/*
* Use dladdr if possible to get the real libname we are loading.
* Grab any symbol - we just need one for reverse mapping
*/
int (* tcl_Init)(Tcl_Interp *) =
(int (*)(Tcl_Interp *)) dlsym(handle, "Tcl_Init");
Dl_info info;
if (tcl_Init && dladdr(tcl_Init, &info)) {
NpLog3("using dladdr '%s' => '%s'\n", libname, info.dli_fname);
snprintf(dllName, dllNameSize, "%s", info.dli_fname); /* format arg was missing */
} else
# endif
snprintf(dllName, dllNameSize, "%s", libname); /* format arg was missing */
}
return TCL_OK;
}
#endif
/* !WIN32 */
/* **** Cinterp */
/*
* Static variables in this file:
*/
static char dllName[MAX_PATH] = "";
#if defined(WIN32) || defined(USE_TCL_STUBS)
static HMODULE tclHandle = NULL; /* should be the same in any thread */
static int tclHandleCnt = 0; /* only close on last count */
static int (* tcl_createThread)(Tcl_ThreadId *, Tcl_ThreadCreateProc,
ClientData, int, int) = NULL;
#endif
static Tcl_Interp * (* tcl_createInterp)(void) = NULL;
#if TCL_MAJOR_VERSION < 9
static void (* tcl_findExecutable)(const char *) = NULL;
#else
static const char * (* tcl_findExecutable)(const char *) = NULL;
#endif
/*
* We want the Tcl_InitStubs func static to ourselves - before Tcl
* is loaded dynamically and possibly changes it.
*/
#ifdef USE_TCL_STUBS
static const char *(* tcl_initStubs)(Tcl_Interp *, const char *, int)
= Tcl_InitStubs;
#endif
/*
* We possibly have per-thread interpreters, as well as one constant, global
* main intepreter. The main interpreter runs from NP_Initialize to
* NP_Shutdown. tsd interps are used for each instance, but the main
* interpreter will be used if it is in the same thread.
*
* XXX [hobbs]: While we have made some efforts to allow for multi-thread
* safety, this is not currently in use. Firefox (up to 1.5) runs all plugin
* instances in one thread, and we have requested the same from the
* accompanying pluginhostctrl ActiveX control. The threading bits here are
* mostly functional, but require marshalling via a master thread to guarantee
* fully thread-safe operation.
*/
typedef struct ThreadSpecificData {
Tcl_Interp *interp;
} ThreadSpecificData;
static Tcl_ThreadDataKey dataKey;
static Tcl_Interp *mainInterp = NULL;
/*
*----------------------------------------------------------------------
*
* NpInitInterp --
*
* Initializes a main or instance interpreter.
*
* Results:
* A standard Tcl error code.
*
* Side effects:
* Initializes the interp.
*
*----------------------------------------------------------------------
*/
int NpInitInterp(Tcl_Interp *interp, int install_tk) {
Tcl_Preserve((ClientData) interp);
/*
* Set sharedlib in interp while we are here. This will be used to
* base the location of the default pluginX.Y package in the stardll
* usage scenario.
*/
if (Tcl_SetVar2(interp, "plugin", "sharedlib", dllName, TCL_GLOBAL_ONLY)
== NULL) {
NpPlatformMsg("Failed to set plugin(sharedlib)!", "NpInitInterp");
return TCL_ERROR;
}
/*
* The plugin doesn't directly call Tk C APIs - it's all managed at
* the Tcl level, so we can just pkg req Tk here instead of calling
* Tk_InitStubs.
*/
if (TCL_OK != Tcl_Init(interp)) {
const char *msg = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
fprintf(stderr, "GTKWAVE | Tcl_Init error: %s\n", msg) ;
exit(EXIT_FAILURE);
}
if (install_tk) {
NpLog("Tcl_PkgRequire(\"Tk\", \"%s\", 0)\n", TK_VERSION);
if (1 && Tcl_PkgRequire(interp, "Tk", TK_VERSION, 0) == NULL) {
const char *msg = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
NpPlatformMsg(msg, "NpInitInterp Tcl_PkgRequire(Tk)");
NpPlatformMsg("Failed to create initialize Tk", "NpInitInterp");
return TCL_ERROR;
}
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* NpCreateMainInterp --
*
* Create the main interpreter.
*
* Results:
* The pointer to the main interpreter.
*
* Side effects:
* Will panic if called twice. (Must call DestroyMainInterp in between)
*
*----------------------------------------------------------------------
*/
Tcl_Interp *NpCreateMainInterp(char *me, int install_tk) {
(void)me;
ThreadSpecificData *tsdPtr;
Tcl_Interp *interp;
#ifdef USE_TCL_STUBS
/*
* Determine the libname and version number dynamically
*/
if (tclHandle == NULL) {
/*
* First see if some other part didn't already load Tcl.
*/
/* DLSYM(tclHandle, "Tcl_CreateInterp", Tcl_Interp * (*)(), tcl_createInterp); */
if ((tcl_createInterp == NULL)
&& (NpLoadLibrary(&tclHandle, dllName, MAX_PATH, me) != TCL_OK)) {
NpPlatformMsg("Failed to load Tcl dll!", "NpCreateMainInterp");
return NULL;
}
NpLog("NpCreateMainInterp: Using dll '%s'\n", dllName);
tclHandleCnt++;
DLSYM(tclHandle, "Tcl_CreateInterp", Tcl_Interp * (*)(),
tcl_createInterp);
if (tcl_createInterp == NULL) {
#ifndef WIN32
char *error = dlerror();
if (error != NULL) {
NpPlatformMsg(error, "NpCreateMainInterp");
}
#endif
return NULL;
}
DLSYM(tclHandle, "Tcl_CreateThread",
int (*)(Tcl_ThreadId *, Tcl_ThreadCreateProc, ClientData, int, int),
tcl_createThread);
#if TCL_MAJOR_VERSION < 9
DLSYM(tclHandle, "Tcl_FindExecutable", void (*)(const char *),
tcl_findExecutable);
#else
DLSYM(tclHandle, "Tcl_FindExecutable", const char * (*)(const char *),
tcl_findExecutable);
#endif
} else {
tclHandleCnt++;
}
#else
tcl_createInterp = Tcl_CreateInterp;
tcl_findExecutable = Tcl_FindExecutable;
#endif
if (dllName[0] == '\0') {
#ifdef WIN32
GetModuleFileNameA((HINSTANCE) tclHandle, dllName, MAX_PATH);
#elif defined(HAVE_DLADDR)
Dl_info info;
if (dladdr(tcl_createInterp, &info)) {
NpLog3("NpCreateMainInterp: using dladdr '%s' => '%s'\n", dllName, info.dli_fname);
snprintf(dllName, MAX_PATH, info.dli_fname);
}
#endif
}
NpLog("Tcl_FindExecutable(%s)\n", dllName);
tcl_findExecutable((dllName[0] == '\0') ? NULL : dllName);
/*
* We do not operate in a fully threaded environment. The ActiveX
* control is set for pure single-apartment threading and Firefox runs
* that way by default. Otherwise we would have to create a thread for
* the main/master and marshall calls through it.
* Tcl_CreateThread(&tid, ThreadCreateProc, clientData,
* TCL_THREAD_STACK_DEFAULT, TCL_THREAD_JOINABLE);
*/
interp = tcl_createInterp();
if (interp == (Tcl_Interp *) NULL) {
NpPlatformMsg("Failed to create main interpreter!",
"NpCreateMainInterp");
return NULL;
}
/*
* Until Tcl_InitStubs is called, we cannot make any Tcl API
* calls without grabbing them by symbol out of the dll.
* This will be Tcl_PkgRequire for non-stubs builds.
*/
#ifdef USE_TCL_STUBS
NpLog("Tcl_InitStubs(%p)\n", (void *)interp);
if (tcl_initStubs(interp, TCL_VERSION, 0) == NULL) {
NpPlatformMsg("Failed to create initialize Tcl stubs!",
"NpCreateMainInterp");
return NULL;
}
#endif
/*
* From now until shutdown we need this interp alive, hence we
* preserve it here and release it at NpDestroyInterp time.
*/
tsdPtr = TCL_TSD_INIT(&dataKey);
tsdPtr->interp = interp;
mainInterp = interp;
if (NpInitInterp(interp, install_tk) != TCL_OK) {
return NULL;
}
return interp;
}
/*
*----------------------------------------------------------------------
*
* NpGetMainInterp --
*
* Gets the main interpreter. It must exist or we panic.
*
* Results:
* The main interpreter.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
Tcl_Interp *NpGetMainInterp() {
if (mainInterp == NULL) {
NpPanic("BUG: Main interpreter does not exist");
}
return mainInterp;
}
/*
*----------------------------------------------------------------------
*
* NpDestroyMainInterp --
*
* Destroys the main interpreter and performs cleanup actions.
*
* Results:
* None.
*
* Side effects:
* Destroys the main interpreter and unloads Tcl.
*
*----------------------------------------------------------------------
*/
void NpDestroyMainInterp() {
/*
* We are not going to use the main interpreter after this point
* because this may be the last call from the browser.
* Could possibly do this as a ThreadExitHandler, but that seems to
* have race/order issues for reload in Firefox.
*/
if (mainInterp) {
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
NpLog("Tcl_DeleteInterp(%p) MAIN\n", (void *)mainInterp);
Tcl_DeleteInterp(mainInterp);
Tcl_Release((ClientData) mainInterp);
tsdPtr->interp = mainInterp = (Tcl_Interp *) NULL;
}
/*
* We are done using Tcl, so call Tcl_Finalize to get it to unload
* cleanly. With stubs, we need to handle dll finalization.
*/
#ifdef USE_TCL_STUBS
tclHandleCnt--;
if (tclHandle && tclHandleCnt <= 0) {
Tcl_Finalize();
dlclose(tclHandle);
tclHandle = NULL;
} else {
Tcl_ExitThread(0);
}
#else
Tcl_Finalize();
#endif
}
/*
*----------------------------------------------------------------------
*
* NpGetInstanceInterp --
*
* Gets an instance interpreter. If one doesn't exist, make a new one.
*
* Results:
* The main interpreter.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
Tcl_Interp *NpGetInstanceInterp(int install_tk) {
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
Tcl_Interp *interp;
if (tsdPtr->interp != NULL) {
NpLog("NpGetInstanceInterp - use main interp %p\n", (void *)tsdPtr->interp);
return tsdPtr->interp;
}
interp = Tcl_CreateInterp();
NpLog("NpGetInstanceInterp - create interp %p\n", (void *)interp);
if (NpInitInterp(interp, install_tk) != TCL_OK) {
NpLog("NpGetInstanceInterp: NpInitInterp(%p) != TCL_OK\n", (void *)interp);
return NULL;
}
/*
* We rely on NpInit to inform the user if initialization failed.
*/
#ifdef nodef
if (NpInit(interp) != TCL_OK) {
NpLog("NpGetInstanceInterp: NpInit(%p) != TCL_OK\n", (void *)interp);
return NULL;
}
#endif
return interp;
}
/*
*----------------------------------------------------------------------
*
* NpDestroyInstanceInterp --
*
* Destroys an instance interpreter and performs cleanup actions.
*
* Results:
* None.
*
* Side effects:
* Destroys the main interpreter and unloads Tcl.
*
*----------------------------------------------------------------------
*/
void NpDestroyInstanceInterp(Tcl_Interp *interp) {
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
if (tsdPtr->interp == interp) {
NpLog("NpDestroyInstanceInterp(%p) - using main interp\n", (void *)interp);
return;
}
NpLog("Tcl_DeleteInterp(%p) INSTANCE\n", (void *)interp);
Tcl_DeleteInterp(interp);
Tcl_Release((ClientData) interp);
}
/* ======== Np... End */
#else
static void dummy_compilation_unit(void)
{
}
#endif
gtkwave-gtk3-3.3.125/src/timeentry.c 0000664 0001750 0001750 00000012724 15047725112 016476 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2016
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "globals.h"
#include
#include "gtk23compat.h"
#include "symbol.h"
#include "debug.h"
void update_endcap_times_for_partial_vcd(void)
{
char str[40];
if(GLOBALS->from_entry)
{
reformat_time(str, GLOBALS->tims.first + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(GLOBALS->from_entry),str);
gtkwavetcl_setvar(WAVE_TCLCB_FROM_ENTRY_UPDATED, str, WAVE_TCLCB_FROM_ENTRY_UPDATED_FLAGS);
}
if(GLOBALS->to_entry)
{
reformat_time(str, GLOBALS->tims.last + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(GLOBALS->to_entry),str);
gtkwavetcl_setvar(WAVE_TCLCB_TO_ENTRY_UPDATED, str, WAVE_TCLCB_TO_ENTRY_UPDATED_FLAGS);
}
}
void time_update(void)
{
DEBUG(printf("Timeentry Configure Event\n"));
calczoom(GLOBALS->tims.zoom);
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed");
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed");
}
void from_entry_callback(GtkWidget *widget, GtkWidget *entry)
{
(void)widget;
G_CONST_RETURN gchar *entry_text;
TimeType newlo;
char fromstr[40];
entry_text=gtk_entry_get_text(GTK_ENTRY(entry));
entry_text = entry_text ? entry_text : "";
DEBUG(printf("From Entry contents: %s\n",entry_text));
newlo=unformat_time(entry_text, GLOBALS->time_dimension);
newlo -= GLOBALS->global_time_offset;
if(newlomin_time)
{
newlo=GLOBALS->min_time;
}
if(newlo<(GLOBALS->tims.last))
{
GLOBALS->tims.first=newlo;
if(GLOBALS->tims.starttims.first) GLOBALS->tims.timecache=GLOBALS->tims.start=GLOBALS->tims.first;
reformat_time(fromstr, GLOBALS->tims.first + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(entry),fromstr);
time_update();
gtkwavetcl_setvar(WAVE_TCLCB_FROM_ENTRY_UPDATED, fromstr, WAVE_TCLCB_FROM_ENTRY_UPDATED_FLAGS);
return;
}
else
{
reformat_time(fromstr, GLOBALS->tims.first + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(entry),fromstr);
gtkwavetcl_setvar(WAVE_TCLCB_FROM_ENTRY_UPDATED, fromstr, WAVE_TCLCB_FROM_ENTRY_UPDATED_FLAGS);
return;
}
}
void to_entry_callback(GtkWidget *widget, GtkWidget *entry)
{
(void)widget;
G_CONST_RETURN gchar *entry_text;
TimeType newhi;
char tostr[40];
entry_text=gtk_entry_get_text(GTK_ENTRY(entry));
entry_text = entry_text ? entry_text : "";
DEBUG(printf("To Entry contents: %s\n",entry_text));
newhi=unformat_time(entry_text, GLOBALS->time_dimension);
newhi -= GLOBALS->global_time_offset;
if((newhi>GLOBALS->max_time) || (!strlen(entry_text))) /* null string makes max time */
{
newhi=GLOBALS->max_time;
}
if(newhi>(GLOBALS->tims.first))
{
GLOBALS->tims.last=newhi;
reformat_time(tostr, GLOBALS->tims.last + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(entry),tostr);
time_update();
gtkwavetcl_setvar(WAVE_TCLCB_TO_ENTRY_UPDATED, tostr, WAVE_TCLCB_TO_ENTRY_UPDATED_FLAGS);
return;
}
else
{
reformat_time(tostr, GLOBALS->tims.last + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(entry),tostr);
gtkwavetcl_setvar(WAVE_TCLCB_TO_ENTRY_UPDATED, tostr, WAVE_TCLCB_TO_ENTRY_UPDATED_FLAGS);
return;
}
}
/* Create an entry box */
GtkWidget *
create_entry_box(void)
{
GtkWidget *label, *label2;
GtkWidget *box, *box2;
GtkWidget *mainbox;
char fromstr[32], tostr[32];
label=gtk_label_new("From:");
GLOBALS->from_entry=X_gtk_entry_new_with_max_length(40);
reformat_time(fromstr, GLOBALS->min_time + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(GLOBALS->from_entry),fromstr);
g_signal_connect (XXX_GTK_OBJECT (GLOBALS->from_entry), "activate",G_CALLBACK (from_entry_callback), GLOBALS->from_entry);
box=XXX_gtk_hbox_new(FALSE, 0);
gtk_box_pack_start(GTK_BOX(box), label, TRUE, TRUE, 0);
gtk_widget_show(label);
gtk_box_pack_start(GTK_BOX(box), GLOBALS->from_entry, TRUE, TRUE, 0);
gtk_widget_set_size_request(GTK_WIDGET(GLOBALS->from_entry), 90, 22);
gtk_tooltips_set_tip_2(GLOBALS->from_entry, "Scroll Lower Bound (use MX for named marker X)");
gtk_widget_show(GLOBALS->from_entry);
label2=gtk_label_new("To:");
GLOBALS->to_entry=X_gtk_entry_new_with_max_length(40);
reformat_time(tostr, GLOBALS->max_time + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(GLOBALS->to_entry),tostr);
g_signal_connect (XXX_GTK_OBJECT (GLOBALS->to_entry), "activate",G_CALLBACK (to_entry_callback), GLOBALS->to_entry);
box2=XXX_gtk_hbox_new(FALSE, 0);
gtk_box_pack_start(GTK_BOX(box2), label2, TRUE, TRUE, 0);
gtk_widget_show(label2);
gtk_box_pack_start(GTK_BOX(box2), GLOBALS->to_entry, TRUE, TRUE, 0);
gtk_widget_set_size_request(GTK_WIDGET(GLOBALS->to_entry), 90, 22);
gtk_tooltips_set_tip_2(GLOBALS->to_entry, "Scroll Upper Bound (use MX for named marker X)");
gtk_widget_show(GLOBALS->to_entry);
if(!GLOBALS->use_toolbutton_interface)
{
mainbox=XXX_gtk_vbox_new(FALSE, 0);
}
else
{
mainbox=XXX_gtk_hbox_new(FALSE, 0);
}
gtk_box_pack_start(GTK_BOX(mainbox), box, TRUE, FALSE, 1);
gtk_widget_show(box);
gtk_box_pack_start(GTK_BOX(mainbox), box2, TRUE, FALSE, 1);
gtk_widget_show(box2);
return(mainbox);
}
gtkwave-gtk3-3.3.125/src/tree_component.c 0000664 0001750 0001750 00000005530 15047725112 017474 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2011.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "globals.h"
#include "tree_component.h"
#ifdef _WAVE_HAVE_JUDY
/* Judy version */
void iter_through_comp_name_table(void)
{
Pvoid_t PJArray = GLOBALS->comp_name_judy;
PPvoid_t PPValue;
if(GLOBALS->comp_name_judy)
{
char *mem = malloc_2(GLOBALS->comp_name_total_stringmem);
char **idx = GLOBALS->comp_name_idx = calloc_2(GLOBALS->comp_name_serial, sizeof(char *));
char *Index = calloc_2(GLOBALS->comp_name_longest + 1, sizeof(char));
char *pnt = mem;
for (PPValue = JudySLFirst (PJArray, (uint8_t *)Index, PJE0);
PPValue != (PPvoid_t) NULL;
PPValue = JudySLNext (PJArray, (uint8_t *)Index, PJE0))
{
int slen = strlen(Index);
memcpy(pnt, Index, slen+1);
idx[(*(char **)PPValue) - ((char *)NULL)] = pnt;
pnt += (slen + 1);
}
free_2(Index);
JudySLFreeArray(&GLOBALS->comp_name_judy, PJE0);
GLOBALS->comp_name_judy = NULL;
}
}
int add_to_comp_name_table(const char *s, int slen)
{
PPvoid_t PPValue = JudySLGet(GLOBALS->comp_name_judy, (uint8_t *)s, PJE0);
if(PPValue)
{
return((*(char **)PPValue) - ((char *)NULL) + 1);
}
GLOBALS->comp_name_total_stringmem += (slen + 1);
if(slen > GLOBALS->comp_name_longest)
{
GLOBALS->comp_name_longest = slen;
}
PPValue = JudySLIns(&GLOBALS->comp_name_judy, (uint8_t *)s, PJE0);
*((char **)PPValue) = ((char *)NULL) + GLOBALS->comp_name_serial;
return(++GLOBALS->comp_name_serial); /* always nonzero */
}
#else
/* JRB alternate (not as memory efficient initially) */
void iter_through_comp_name_table(void)
{
if(GLOBALS->comp_name_jrb)
{
char *mem = malloc_2(GLOBALS->comp_name_total_stringmem);
char **idx = GLOBALS->comp_name_idx = calloc_2(GLOBALS->comp_name_serial, sizeof(char *));
char *Index;
char *pnt = mem;
JRB node;
jrb_traverse(node, GLOBALS->comp_name_jrb)
{
Index = node->key.s;
int slen = strlen(Index);
memcpy(pnt, Index, slen+1);
free_2(Index);
idx[node->val.i] = pnt;
pnt += (slen + 1);
}
jrb_free_tree(GLOBALS->comp_name_jrb);
GLOBALS->comp_name_jrb = NULL;
}
}
int add_to_comp_name_table(const char *s, int slen)
{
JRB str;
Jval jv;
if(!GLOBALS->comp_name_jrb) { GLOBALS->comp_name_jrb = make_jrb(); }
str = jrb_find_str(GLOBALS->comp_name_jrb, s);
if(str)
{
return(str->val.i + 1);
}
GLOBALS->comp_name_total_stringmem += (slen + 1);
if(slen > GLOBALS->comp_name_longest)
{
GLOBALS->comp_name_longest = slen;
}
jv.i = GLOBALS->comp_name_serial;
jrb_insert_str(GLOBALS->comp_name_jrb, strdup_2(s), jv);
return(++GLOBALS->comp_name_serial); /* always nonzero */
}
#endif
gtkwave-gtk3-3.3.125/src/wavealloca.h 0000664 0001750 0001750 00000002627 15047725112 016602 0 ustar bybell bybell /*
* Copyright (c) 1999 Tony Bybell.
*
* Permission is hereby granted, free of charge, to any person obtaining a
* copy of this software and associated documentation files (the "Software"),
* to deal in the Software without restriction, including without limitation
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
* and/or sell copies of the Software, and to permit persons to whom the
* Software is furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
* DEALINGS IN THE SOFTWARE.
*
* SPDX-License-Identifier: MIT
*/
#ifndef WAVE_ALLOCA_H
#define WAVE_ALLOCA_H
#include
#ifdef HAVE_ALLOCA_H
#include
#elif defined(__GNUC__)
#ifndef __MINGW32__
#ifndef alloca
#define alloca __builtin_alloca
#endif
#else
#include
#endif
#endif
#define wave_alloca alloca
#endif
gtkwave-gtk3-3.3.125/src/vzt.c 0000664 0001750 0001750 00000056060 15047725112 015302 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2003-2012.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "globals.h"
#include
#include "vzt.h"
#include "lx2.h"
#include
#include
#include
#include
#include "symbol.h"
#include "vcd.h"
#include "lxt.h"
#include "lxt2_read.h"
#include "vzt_read.h"
#include "debug.h"
#include "busy.h"
#include "hierpack.h"
/*
* mainline
*/
TimeType vzt_main(char *fname, char *skip_start, char *skip_end)
{
int i;
struct Node *n;
struct symbol *s, *prevsymroot=NULL, *prevsym=NULL;
signed char scale;
unsigned int numalias = 0;
struct symbol *sym_block = NULL;
struct Node *node_block = NULL;
char **f_name = NULL;
GLOBALS->vzt_vzt_c_1 = vzt_rd_init_smp(fname, GLOBALS->num_cpus);
if(!GLOBALS->vzt_vzt_c_1)
{
return(LLDescriptor(0)); /* look at GLOBALS->vzt_vzt_c_1 in caller for success status... */
}
/* SPLASH */ splash_create();
vzt_rd_process_blocks_linearly(GLOBALS->vzt_vzt_c_1, 1);
/* vzt_rd_set_max_block_mem_usage(vzt, 0); */
scale=(signed char)vzt_rd_get_timescale(GLOBALS->vzt_vzt_c_1);
exponent_to_time_scale(scale);
GLOBALS->global_time_offset = vzt_rd_get_timezero(GLOBALS->vzt_vzt_c_1);
GLOBALS->numfacs=vzt_rd_get_num_facs(GLOBALS->vzt_vzt_c_1);
GLOBALS->mvlfacs_vzt_c_3=(struct fac *)calloc_2(GLOBALS->numfacs,sizeof(struct fac));
f_name = calloc_2(F_NAME_MODULUS+1,sizeof(char *));
GLOBALS->vzt_table_vzt_c_1=(struct lx2_entry *)calloc_2(GLOBALS->numfacs, sizeof(struct lx2_entry));
sym_block = (struct symbol *)calloc_2(GLOBALS->numfacs, sizeof(struct symbol));
node_block=(struct Node *)calloc_2(GLOBALS->numfacs,sizeof(struct Node));
for(i=0;inumfacs;i++)
{
GLOBALS->mvlfacs_vzt_c_3[i].node_alias=vzt_rd_get_fac_rows(GLOBALS->vzt_vzt_c_1, i);
node_block[i].msi=vzt_rd_get_fac_msb(GLOBALS->vzt_vzt_c_1, i);
node_block[i].lsi=vzt_rd_get_fac_lsb(GLOBALS->vzt_vzt_c_1, i);
GLOBALS->mvlfacs_vzt_c_3[i].flags=vzt_rd_get_fac_flags(GLOBALS->vzt_vzt_c_1, i);
GLOBALS->mvlfacs_vzt_c_3[i].len=vzt_rd_get_fac_len(GLOBALS->vzt_vzt_c_1, i);
}
fprintf(stderr, VZT_RDLOAD"Finished building %d facs.\n", GLOBALS->numfacs);
/* SPLASH */ splash_sync(1, 5);
GLOBALS->first_cycle_vzt_c_3 = (TimeType) vzt_rd_get_start_time(GLOBALS->vzt_vzt_c_1) * GLOBALS->time_scale;
GLOBALS->last_cycle_vzt_c_3 = (TimeType) vzt_rd_get_end_time(GLOBALS->vzt_vzt_c_1) * GLOBALS->time_scale;
GLOBALS->total_cycles_vzt_c_3 = GLOBALS->last_cycle_vzt_c_3 - GLOBALS->first_cycle_vzt_c_3 + 1;
/* do your stuff here..all useful info has been initialized by now */
if(!GLOBALS->hier_was_explicitly_set) /* set default hierarchy split char */
{
GLOBALS->hier_delimeter='.';
}
if(GLOBALS->numfacs)
{
char *fnam = vzt_rd_get_facname(GLOBALS->vzt_vzt_c_1, 0);
int flen = strlen(fnam);
f_name[0]=malloc_2(flen+1);
strcpy(f_name[0], fnam);
}
for(i=0;inumfacs;i++)
{
char buf[65537];
char *str;
struct fac *f;
if(i!=(GLOBALS->numfacs-1))
{
char *fnam = vzt_rd_get_facname(GLOBALS->vzt_vzt_c_1, i+1);
int flen = strlen(fnam);
f_name[(i+1)&F_NAME_MODULUS]=malloc_2(flen+1);
strcpy(f_name[(i+1)&F_NAME_MODULUS], fnam);
}
if(i>1)
{
free_2(f_name[(i-2)&F_NAME_MODULUS]);
f_name[(i-2)&F_NAME_MODULUS] = NULL;
}
if(GLOBALS->mvlfacs_vzt_c_3[i].flags&VZT_RD_SYM_F_ALIAS)
{
int alias = GLOBALS->mvlfacs_vzt_c_3[i].node_alias;
f=GLOBALS->mvlfacs_vzt_c_3+alias;
while(f->flags&VZT_RD_SYM_F_ALIAS)
{
f=GLOBALS->mvlfacs_vzt_c_3+f->node_alias;
}
numalias++;
}
else
{
f=GLOBALS->mvlfacs_vzt_c_3+i;
}
if((f->len>1)&& (!(f->flags&(VZT_RD_SYM_F_INTEGER|VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING))) )
{
int len=sprintf(buf, "%s[%d:%d]", f_name[(i)&F_NAME_MODULUS],node_block[i].msi, node_block[i].lsi);
str=malloc_2(len+1);
if(!GLOBALS->alt_hier_delimeter)
{
strcpy(str, buf);
}
else
{
strcpy_vcdalt(str, buf, GLOBALS->alt_hier_delimeter);
}
s=&sym_block[i];
symadd_name_exists_sym_exists(s,str,0);
prevsymroot = prevsym = NULL;
}
else
{
int gatecmp = (f->len==1) && (!(f->flags&(VZT_RD_SYM_F_INTEGER|VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING))) && (node_block[i].msi!=-1) && (node_block[i].lsi!=-1);
int revcmp = gatecmp && (i) && (!strcmp(f_name[(i)&F_NAME_MODULUS], f_name[(i-1)&F_NAME_MODULUS]));
if(gatecmp)
{
int len = sprintf(buf, "%s[%d]", f_name[(i)&F_NAME_MODULUS],node_block[i].msi);
str=malloc_2(len+1);
if(!GLOBALS->alt_hier_delimeter)
{
strcpy(str, buf);
}
else
{
strcpy_vcdalt(str, buf, GLOBALS->alt_hier_delimeter);
}
s=&sym_block[i];
symadd_name_exists_sym_exists(s,str,0);
if((prevsym)&&(revcmp)&&(!strchr(f_name[(i)&F_NAME_MODULUS], '\\'))) /* allow chaining for search functions.. */
{
prevsym->vec_root = prevsymroot;
prevsym->vec_chain = s;
s->vec_root = prevsymroot;
prevsym = s;
}
else
{
prevsymroot = prevsym = s;
}
}
else
{
str=malloc_2(strlen(f_name[(i)&F_NAME_MODULUS])+1);
if(!GLOBALS->alt_hier_delimeter)
{
strcpy(str, f_name[(i)&F_NAME_MODULUS]);
}
else
{
strcpy_vcdalt(str, f_name[(i)&F_NAME_MODULUS], GLOBALS->alt_hier_delimeter);
}
s=&sym_block[i];
symadd_name_exists_sym_exists(s,str,0);
prevsymroot = prevsym = NULL;
if(f->flags&VZT_RD_SYM_F_INTEGER)
{
node_block[i].msi=31;
node_block[i].lsi=0;
GLOBALS->mvlfacs_vzt_c_3[i].len=32;
}
}
}
n=&node_block[i];
n->nname=s->name;
n->mv.mvlfac = GLOBALS->mvlfacs_vzt_c_3+i;
GLOBALS->mvlfacs_vzt_c_3[i].working_node = n;
if((f->len>1)||(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING)))
{
n->extvals = 1;
}
n->head.time=-1; /* mark 1st node as negative time */
n->head.v.h_val=AN_X;
s->n=n;
}
for(i=0;i<=F_NAME_MODULUS;i++)
{
if(f_name[(i)&F_NAME_MODULUS])
{
free_2(f_name[(i)&F_NAME_MODULUS]);
f_name[(i)&F_NAME_MODULUS] = NULL;
}
}
free_2(f_name); f_name = NULL;
/* SPLASH */ splash_sync(2, 5);
GLOBALS->facs=(struct symbol **)malloc_2(GLOBALS->numfacs*sizeof(struct symbol *));
if(GLOBALS->fast_tree_sort)
{
for(i=0;inumfacs;i++)
{
int len;
GLOBALS->facs[i]=&sym_block[i];
if((len=strlen(GLOBALS->facs[i]->name))>GLOBALS->longestname) GLOBALS->longestname=len;
}
if(numalias)
{
int idx_lft = 0;
int idx_lftmax = GLOBALS->numfacs - numalias;
int idx_rgh = GLOBALS->numfacs - numalias;
struct symbol **facs_merge=(struct symbol **)malloc_2(GLOBALS->numfacs*sizeof(struct symbol *));
fprintf(stderr, VZT_RDLOAD"Merging in %d aliases.\n", numalias);
for(i=0;inumfacs;i++) /* fix possible tail appended aliases by remerging in partial one pass merge sort */
{
if(strcmp(GLOBALS->facs[idx_lft]->name, GLOBALS->facs[idx_rgh]->name) <= 0)
{
facs_merge[i] = GLOBALS->facs[idx_lft++];
if(idx_lft == idx_lftmax)
{
for(i++;inumfacs;i++)
{
facs_merge[i] = GLOBALS->facs[idx_rgh++];
}
}
}
else
{
facs_merge[i] = GLOBALS->facs[idx_rgh++];
if(idx_rgh == GLOBALS->numfacs)
{
for(i++;inumfacs;i++)
{
facs_merge[i] = GLOBALS->facs[idx_lft++];
}
}
}
}
free_2(GLOBALS->facs); GLOBALS->facs = facs_merge;
}
/* SPLASH */ splash_sync(3, 5);
fprintf(stderr, VZT_RDLOAD"Building facility hierarchy tree.\n");
init_tree();
for(i=0;inumfacs;i++)
{
int esc = 0;
char *subst = GLOBALS->facs[i]->name;
char ch;
while((ch=(*subst)))
{
if(ch==GLOBALS->hier_delimeter) { if(esc) *subst = VCDNAM_ESCAPE; }
else if(ch=='\\') { esc = 1; GLOBALS->escaped_names_found_vcd_c_1 = 1; }
subst++;
}
build_tree_from_name(GLOBALS->facs[i]->name, i);
}
/* SPLASH */ splash_sync(4, 5);
if(GLOBALS->escaped_names_found_vcd_c_1)
{
for(i=0;inumfacs;i++)
{
char *subst, ch;
subst=GLOBALS->facs[i]->name;
while((ch=(*subst)))
{
if(ch==VCDNAM_ESCAPE) { *subst=GLOBALS->hier_delimeter; } /* restore back to normal */
subst++;
}
}
}
treegraft(&GLOBALS->treeroot);
fprintf(stderr, VZT_RDLOAD"Sorting facility hierarchy tree.\n");
treesort(GLOBALS->treeroot, NULL);
/* SPLASH */ splash_sync(5, 5);
order_facs_from_treesort(GLOBALS->treeroot, &GLOBALS->facs);
if(GLOBALS->escaped_names_found_vcd_c_1)
{
treenamefix(GLOBALS->treeroot);
}
GLOBALS->facs_are_sorted=1;
}
else
{
for(i=0;inumfacs;i++)
{
char *subst, ch;
int len;
int esc = 0;
GLOBALS->facs[i]=&sym_block[i];
if((len=strlen(subst=GLOBALS->facs[i]->name))>GLOBALS->longestname) GLOBALS->longestname=len;
while((ch=(*subst)))
{
#ifdef WAVE_HIERFIX
if(ch==GLOBALS->hier_delimeter) { *subst=(!esc) ? VCDNAM_HIERSORT : VCDNAM_ESCAPE; } /* forces sort at hier boundaries */
#else
if((ch==GLOBALS->hier_delimeter)&&(esc)) { *subst = VCDNAM_ESCAPE; } /* forces sort at hier boundaries */
#endif
else if(ch=='\\') { esc = 1; GLOBALS->escaped_names_found_vcd_c_1 = 1; }
subst++;
}
}
/* SPLASH */ splash_sync(3, 5);
fprintf(stderr, VZT_RDLOAD"Sorting facilities at hierarchy boundaries.\n");
wave_heapsort(GLOBALS->facs,GLOBALS->numfacs);
#ifdef WAVE_HIERFIX
for(i=0;inumfacs;i++)
{
char *subst, ch;
subst=GLOBALS->facs[i]->name;
while((ch=(*subst)))
{
if(ch==VCDNAM_HIERSORT) { *subst=GLOBALS->hier_delimeter; } /* restore back to normal */
subst++;
}
}
#endif
GLOBALS->facs_are_sorted=1;
/* SPLASH */ splash_sync(4, 5);
fprintf(stderr, VZT_RDLOAD"Building facility hierarchy tree.\n");
init_tree();
for(i=0;inumfacs;i++)
{
char *nf = GLOBALS->facs[i]->name;
build_tree_from_name(nf, i);
}
/* SPLASH */ splash_sync(5, 5);
if(GLOBALS->escaped_names_found_vcd_c_1)
{
for(i=0;inumfacs;i++)
{
char *subst, ch;
subst=GLOBALS->facs[i]->name;
while((ch=(*subst)))
{
if(ch==VCDNAM_ESCAPE) { *subst=GLOBALS->hier_delimeter; } /* restore back to normal */
subst++;
}
}
}
treegraft(&GLOBALS->treeroot);
treesort(GLOBALS->treeroot, NULL);
if(GLOBALS->escaped_names_found_vcd_c_1)
{
treenamefix(GLOBALS->treeroot);
}
}
GLOBALS->min_time = GLOBALS->first_cycle_vzt_c_3; GLOBALS->max_time=GLOBALS->last_cycle_vzt_c_3;
GLOBALS->is_lx2 = LXT2_IS_VZT;
if(skip_start || skip_end)
{
TimeType b_start, b_end;
if(!skip_start) b_start = GLOBALS->min_time; else b_start = unformat_time(skip_start, GLOBALS->time_dimension);
if(!skip_end) b_end = GLOBALS->max_time; else b_end = unformat_time(skip_end, GLOBALS->time_dimension);
if(b_startmin_time) b_start = GLOBALS->min_time;
else if(b_start>GLOBALS->max_time) b_start = GLOBALS->max_time;
if(b_endmin_time) b_end = GLOBALS->min_time;
else if(b_end>GLOBALS->max_time) b_end = GLOBALS->max_time;
if(b_start > b_end)
{
TimeType tmp_time = b_start;
b_start = b_end;
b_end = tmp_time;
}
if(!vzt_rd_limit_time_range(GLOBALS->vzt_vzt_c_1, b_start, b_end))
{
fprintf(stderr, VZT_RDLOAD"--begin/--end options yield zero blocks, ignoring.\n");
vzt_rd_unlimit_time_range(GLOBALS->vzt_vzt_c_1);
}
else
{
GLOBALS->min_time = b_start;
GLOBALS->max_time = b_end;
}
}
/* SPLASH */ splash_finalize();
return(GLOBALS->max_time);
}
/*
* vzt callback (only does bits for now)
*/
static void vzt_callback(struct vzt_rd_trace **lt, lxtint64_t *tim, lxtint32_t *facidx, char **value)
{
(void)lt;
struct HistEnt *htemp = histent_calloc();
struct lx2_entry *l2e = GLOBALS->vzt_table_vzt_c_1+(*facidx);
struct fac *f = GLOBALS->mvlfacs_vzt_c_3+(*facidx);
GLOBALS->busycnt_vzt_c_2++;
if(GLOBALS->busycnt_vzt_c_2==WAVE_BUSY_ITER)
{
busy_window_refresh();
GLOBALS->busycnt_vzt_c_2 = 0;
}
/* fprintf(stderr, "%lld %d %s\n", *tim, *facidx, *value); */
if(!(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING)))
{
if(f->len>1)
{
htemp->v.h_vector = (char *)malloc_2(f->len);
memcpy(htemp->v.h_vector, *value, f->len);
}
else
{
switch(**value)
{
case '0': htemp->v.h_val = AN_0; break;
case '1': htemp->v.h_val = AN_1; break;
case 'Z':
case 'z': htemp->v.h_val = AN_Z; break;
default: htemp->v.h_val = AN_X; break;
}
}
}
else if(f->flags&VZT_RD_SYM_F_DOUBLE)
{
#ifdef WAVE_HAS_H_DOUBLE
sscanf(*value, "%lg", &htemp->v.h_double);
#else
double *d = malloc_2(sizeof(double));
sscanf(*value, "%lg", d);
htemp->v.h_vector = (char *)d;
#endif
htemp->flags = HIST_REAL;
}
else /* string */
{
char *s = malloc_2(strlen(*value)+1);
strcpy(s, *value);
htemp->v.h_vector = s;
htemp->flags = HIST_REAL|HIST_STRING;
}
htemp->time = (*tim) * (GLOBALS->time_scale);
if(l2e->histent_head)
{
l2e->histent_curr->next = htemp;
l2e->histent_curr = htemp;
}
else
{
l2e->histent_head = l2e->histent_curr = htemp;
}
l2e->numtrans++;
}
/*
* this is the black magic that handles aliased signals...
*/
static void vzt_resolver(nptr np, nptr resolve)
{
np->extvals = resolve->extvals;
np->msi = resolve->msi;
np->lsi = resolve->lsi;
memcpy(&np->head, &resolve->head, sizeof(struct HistEnt));
np->curr = resolve->curr;
np->harray = resolve->harray;
np->numhist = resolve->numhist;
np->mv.mvlfac=NULL;
}
/*
* actually import a vzt trace but don't do it if it's already been imported
*/
void import_vzt_trace(nptr np)
{
struct HistEnt *htemp, *histent_tail;
int len, i;
struct fac *f;
int txidx;
nptr nold = np;
if(!(f=np->mv.mvlfac)) return; /* already imported */
txidx = f - GLOBALS->mvlfacs_vzt_c_3;
if(np->mv.mvlfac->flags&VZT_RD_SYM_F_ALIAS)
{
txidx = vzt_rd_get_alias_root(GLOBALS->vzt_vzt_c_1, txidx);
np = GLOBALS->mvlfacs_vzt_c_3[txidx].working_node;
if(!(f=np->mv.mvlfac))
{
vzt_resolver(nold, np);
return; /* already imported */
}
}
fprintf(stderr, "Import: %s\n", np->nname);
/* new stuff */
len = np->mv.mvlfac->len;
if(f->node_alias <= 1) /* sorry, arrays not supported, but vzt doesn't support them yet either */
{
vzt_rd_set_fac_process_mask(GLOBALS->vzt_vzt_c_1, txidx);
vzt_rd_iter_blocks(GLOBALS->vzt_vzt_c_1, vzt_callback, NULL);
vzt_rd_clr_fac_process_mask(GLOBALS->vzt_vzt_c_1, txidx);
}
histent_tail = htemp = histent_calloc();
if(len>1)
{
htemp->v.h_vector = (char *)malloc_2(len);
for(i=0;iv.h_vector[i] = AN_Z;
}
else
{
htemp->v.h_val = AN_Z; /* z */
}
htemp->time = MAX_HISTENT_TIME;
htemp = histent_calloc();
if(len>1)
{
htemp->v.h_vector = (char *)malloc_2(len);
for(i=0;iv.h_vector[i] = AN_X;
}
else
{
htemp->v.h_val = AN_X; /* x */
}
htemp->time = MAX_HISTENT_TIME-1;
htemp->next = histent_tail;
if(GLOBALS->vzt_table_vzt_c_1[txidx].histent_curr)
{
GLOBALS->vzt_table_vzt_c_1[txidx].histent_curr->next = htemp;
htemp = GLOBALS->vzt_table_vzt_c_1[txidx].histent_head;
}
if(!(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING)))
{
if(len>1)
{
np->head.v.h_vector = (char *)malloc_2(len);
for(i=0;ihead.v.h_vector[i] = AN_X;
}
else
{
np->head.v.h_val = AN_X; /* x */
}
}
else
{
np->head.flags = HIST_REAL;
if(f->flags&VZT_RD_SYM_F_STRING) np->head.flags |= HIST_STRING;
}
{
struct HistEnt *htemp2 = histent_calloc();
htemp2->time = -1;
if(len>1)
{
htemp2->v.h_vector = htemp->v.h_vector;
}
else
{
htemp2->v.h_val = htemp->v.h_val;
}
htemp2->next = htemp;
htemp = htemp2;
GLOBALS->vzt_table_vzt_c_1[txidx].numtrans++;
}
np->head.time = -2;
np->head.next = htemp;
np->numhist=GLOBALS->vzt_table_vzt_c_1[txidx].numtrans +2 /*endcap*/ +1 /*frontcap*/;
memset(GLOBALS->vzt_table_vzt_c_1+txidx, 0, sizeof(struct lx2_entry)); /* zero it out */
np->curr = histent_tail;
np->mv.mvlfac = NULL; /* it's imported and cached so we can forget it's an mvlfac now */
if(nold!=np)
{
vzt_resolver(nold, np);
}
}
/*
* pre-import many traces at once so function above doesn't have to iterate...
*/
void vzt_set_fac_process_mask(nptr np)
{
struct fac *f;
int txidx;
if(!(f=np->mv.mvlfac)) return; /* already imported */
txidx = f-GLOBALS->mvlfacs_vzt_c_3;
if(np->mv.mvlfac->flags&VZT_RD_SYM_F_ALIAS)
{
txidx = vzt_rd_get_alias_root(GLOBALS->vzt_vzt_c_1, txidx);
np = GLOBALS->mvlfacs_vzt_c_3[txidx].working_node;
if(!(np->mv.mvlfac)) return; /* already imported */
}
if(np->mv.mvlfac->node_alias <= 1) /* sorry, arrays not supported, but vzt doesn't support them yet either */
{
vzt_rd_set_fac_process_mask(GLOBALS->vzt_vzt_c_1, txidx);
GLOBALS->vzt_table_vzt_c_1[txidx].np = np;
}
}
void vzt_import_masked(void)
{
int txidx, i, cnt;
cnt = 0;
for(txidx=0;txidxnumfacs;txidx++)
{
if(vzt_rd_get_fac_process_mask(GLOBALS->vzt_vzt_c_1, txidx))
{
cnt++;
}
}
if(!cnt) return;
if(cnt>100)
{
fprintf(stderr, VZT_RDLOAD"Extracting %d traces\n", cnt);
}
set_window_busy(NULL);
vzt_rd_iter_blocks(GLOBALS->vzt_vzt_c_1, vzt_callback, NULL);
set_window_idle(NULL);
for(txidx=0;txidxnumfacs;txidx++)
{
if(vzt_rd_get_fac_process_mask(GLOBALS->vzt_vzt_c_1, txidx))
{
struct HistEnt *htemp, *histent_tail;
struct fac *f = GLOBALS->mvlfacs_vzt_c_3+txidx;
int len = f->len;
nptr np = GLOBALS->vzt_table_vzt_c_1[txidx].np;
histent_tail = htemp = histent_calloc();
if(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING))
{
htemp->v.h_vector = strdup_2((f->flags&VZT_RD_SYM_F_DOUBLE) ? "NaN" : "UNDEF");
htemp->flags = HIST_REAL;
if(f->flags&VZT_RD_SYM_F_STRING) htemp->flags |= HIST_STRING;
}
else
{
if(len>1)
{
htemp->v.h_vector = (char *)malloc_2(len);
for(i=0;iv.h_vector[i] = AN_Z;
}
else
{
htemp->v.h_val = AN_Z; /* z */
}
}
htemp->time = MAX_HISTENT_TIME;
htemp = histent_calloc();
if(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING))
{
htemp->v.h_vector = strdup_2((f->flags&VZT_RD_SYM_F_DOUBLE) ? "NaN" : "UNDEF");
htemp->flags = HIST_REAL;
if(f->flags&VZT_RD_SYM_F_STRING) htemp->flags |= HIST_STRING;
}
else
{
if(len>1)
{
htemp->v.h_vector = (char *)malloc_2(len);
for(i=0;iv.h_vector[i] = AN_X;
}
else
{
htemp->v.h_val = AN_X; /* x */
}
}
htemp->time = MAX_HISTENT_TIME-1;
htemp->next = histent_tail;
if(GLOBALS->vzt_table_vzt_c_1[txidx].histent_curr)
{
GLOBALS->vzt_table_vzt_c_1[txidx].histent_curr->next = htemp;
htemp = GLOBALS->vzt_table_vzt_c_1[txidx].histent_head;
}
if(!(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING)))
{
if(len>1)
{
np->head.v.h_vector = (char *)malloc_2(len);
for(i=0;ihead.v.h_vector[i] = AN_X;
}
else
{
np->head.v.h_val = AN_X; /* x */
}
}
else
{
np->head.flags = HIST_REAL;
if(f->flags&VZT_RD_SYM_F_STRING) np->head.flags |= HIST_STRING;
np->head.v.h_vector = strdup_2((f->flags&VZT_RD_SYM_F_DOUBLE) ? "NaN" : "UNDEF");
}
{
struct HistEnt *htemp2 = histent_calloc();
htemp2->time = -1;
if(f->flags&(VZT_RD_SYM_F_DOUBLE|VZT_RD_SYM_F_STRING))
{
htemp2->v.h_vector = strdup_2((f->flags&VZT_RD_SYM_F_DOUBLE) ? "NaN" : "UNDEF");
htemp2->flags = HIST_REAL;
if(f->flags&VZT_RD_SYM_F_STRING) htemp2->flags |= HIST_STRING;
}
else
{
if(len>1)
{
htemp2->v.h_vector = htemp->v.h_vector;
}
else
{
htemp2->v.h_val = htemp->v.h_val;
}
}
htemp2->next = htemp;
htemp = htemp2;
GLOBALS->vzt_table_vzt_c_1[txidx].numtrans++;
}
np->head.time = -2;
np->head.next = htemp;
np->numhist=GLOBALS->vzt_table_vzt_c_1[txidx].numtrans +2 /*endcap*/ +1 /*frontcap*/;
memset(GLOBALS->vzt_table_vzt_c_1+txidx, 0, sizeof(struct lx2_entry)); /* zero it out */
np->curr = histent_tail;
np->mv.mvlfac = NULL; /* it's imported and cached so we can forget it's an mvlfac now */
vzt_rd_clr_fac_process_mask(GLOBALS->vzt_vzt_c_1, txidx);
}
}
}
gtkwave-gtk3-3.3.125/src/status.c 0000664 0001750 0001750 00000010313 15047725112 015771 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2008
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#include
#include
#include "symbol.h"
#include "lxt2_read.h"
#include "lx2.h"
/* Add some text to our text widget - this is a callback that is invoked
when our window is realized. We could also force our window to be
realized with gtk_widget_realize, but it would have to be part of
a hierarchy first */
void status_text(char *str)
{
if(!GLOBALS->quiet_checkmenu) /* when gtkwave_mlist_t check menuitems are being initialized */
{
int len = strlen(str);
char ch = len ? str[len-1] : 0;
if(GLOBALS->text_status_c_2)
{
gtk_text_buffer_insert (gtk_text_view_get_buffer(GTK_TEXT_VIEW (GLOBALS->text_status_c_2)), &GLOBALS->iter_status_c_3, str, -1);
GtkTextMark *mark = gtk_text_buffer_get_mark (gtk_text_view_get_buffer(GTK_TEXT_VIEW (GLOBALS->text_status_c_2)), "end");
gtk_text_view_scroll_mark_onscreen (GTK_TEXT_VIEW (GLOBALS->text_status_c_2), GTK_TEXT_MARK(mark));
}
else
{
fprintf(stderr, "GTKWAVE | %s%s", str, (ch=='\n') ? "" : "\n");
}
{
char *stemp = wave_alloca(len+1);
strcpy(stemp, str);
if(ch == '\n')
{
stemp[len-1] = 0;
}
gtkwavetcl_setvar(WAVE_TCLCB_STATUS_TEXT, stemp, WAVE_TCLCB_STATUS_TEXT_FLAGS);
}
}
}
void
realize_text (GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
char buf[128];
if(GLOBALS->is_vcd)
{
if(GLOBALS->partial_vcd)
{
status_text("VCD loading interactively.\n");
}
else
{
status_text("VCD loaded successfully.\n");
}
}
else
if(GLOBALS->is_lxt)
{
status_text("LXT loaded successfully.\n");
}
else
if(GLOBALS->is_ghw)
{
status_text("GHW loaded successfully.\n");
}
else
if(GLOBALS->is_lx2)
{
switch(GLOBALS->is_lx2)
{
case LXT2_IS_LXT2: status_text("LXT2 loaded successfully.\n"); break;
case LXT2_IS_AET2: status_text("AET2 loaded successfully.\n"); break;
case LXT2_IS_VZT: status_text("VZT loaded successfully.\n"); break;
case LXT2_IS_VLIST: status_text("VCD loaded successfully.\n"); break;
case LXT2_IS_FSDB: status_text("FSDB loaded successfully.\n"); break;
}
}
sprintf(buf,"[%d] facilities found.\n",GLOBALS->numfacs);
status_text(buf);
if((GLOBALS->is_vcd)||(GLOBALS->is_ghw))
{
if(!GLOBALS->partial_vcd)
{
sprintf(buf,"[%d] regions found.\n",GLOBALS->regions);
status_text(buf);
}
}
else
{
if(GLOBALS->is_lx2 == LXT2_IS_VLIST)
{
sprintf(buf,"Regions formed on demand.\n");
}
else
{
sprintf(buf,"Regions loaded on demand.\n");
}
status_text(buf);
}
}
/* Create a scrolled text area that displays a "message" */
GtkWidget *
create_text (void)
{
GtkWidget *sw;
GtkTextIter iter;
/* Create a table to hold the text widget and scrollbars */
sw = gtk_scrolled_window_new (NULL, NULL);
/* Put a text widget in the upper left hand corner. Note the use of
* GTK_SHRINK in the y direction */
GLOBALS->text_status_c_2 = gtk_text_view_new ();
gtk_text_view_set_editable (GTK_TEXT_VIEW(GLOBALS->text_status_c_2), FALSE);
gtk_text_buffer_get_start_iter (gtk_text_view_get_buffer(GTK_TEXT_VIEW (GLOBALS->text_status_c_2)), &GLOBALS->iter_status_c_3);
GLOBALS->bold_tag_status_c_3 = gtk_text_buffer_create_tag (gtk_text_view_get_buffer(GTK_TEXT_VIEW (GLOBALS->text_status_c_2)), "bold",
"weight", PANGO_WEIGHT_BOLD, NULL);
gtk_text_buffer_get_end_iter (gtk_text_view_get_buffer(GTK_TEXT_VIEW (GLOBALS->text_status_c_2)), &iter);
gtk_text_buffer_create_mark (gtk_text_view_get_buffer(GTK_TEXT_VIEW (GLOBALS->text_status_c_2)), "end", &iter, FALSE);
gtk_container_add (GTK_CONTAINER (sw),
GLOBALS->text_status_c_2);
gtk_widget_set_size_request(GTK_WIDGET(GLOBALS->text_status_c_2), 100, 50);
gtk_widget_show (GLOBALS->text_status_c_2);
/* Add a handler to put a message in the text widget when it is realized */
g_signal_connect (XXX_GTK_OBJECT (GLOBALS->text_status_c_2), "realize", G_CALLBACK (realize_text), NULL);
gtk_tooltips_set_tip_2(GLOBALS->text_status_c_2, "Status Window");
return(sw);
}
gtkwave-gtk3-3.3.125/src/globals.c 0000664 0001750 0001750 00000275764 15047725112 016120 0 ustar bybell bybell /*
* Copyright (c) Kermin Elliott Fleming 2007-2017.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#include "analyzer.h"
#include "bsearch.h"
#include "busy.h"
#include "clipping.h"
#include "color.h"
#include "currenttime.h"
#include "debug.h"
#include "fgetdynamic.h"
#include "ghw.h"
#include "globals.h"
#include "gnu-getopt.h"
#include "gnu_regex.h"
#include "gtk23compat.h"
#include "lx2.h"
#include "lxt.h"
#include "main.h"
#include "menu.h"
#include "pipeio.h"
#include "pixmaps.h"
#include "print.h"
#include "ptranslate.h"
#include "ttranslate.h"
#include "rc.h"
#include "regex_wave.h"
#include "strace.h"
#include "symbol.h"
#include "translate.h"
#include "tree.h"
#include "vcd.h"
#include "vcd_saver.h"
#include "vlist.h"
#include "vzt.h"
#include "wavealloca.h"
#include "lxt2_read.h"
#include "vzt_read.h"
#include "fst.h"
#include "hierpack.h"
#include "fsdb_wrapper_api.h"
#ifdef __MINGW32__
#define sleep(x) Sleep(x * 1000)
#endif
#if !defined __MINGW32__
#include
#include
#else
#include
#include
#endif
struct Global *GLOBALS = NULL;
/* make this const so if we try to write to it we coredump */
static const struct Global globals_base_values =
{
/*
* ae2.c
*/
#ifdef AET2_IS_PRESENT
#ifdef AET2_ALIASDB_IS_PRESENT
NULL, /* adb_alias_stream_file */
0, /* adb */
0, /* adb_max_terms */
NULL, /* adb_terms */
NULL, /* adb_aliases */
NULL, /* adb_num_terms */
NULL, /* adb_idx_first */
NULL, /* adb_idx_last */
NULL, /* adb_alloc_pool_base */
0, /* adb_alloc_idx */
#endif
0, /* ae2_num_facs */
0, /* ae2_num_aliases */
0, /* ae2_num_sections */
NULL, /* ae2_lx2_table */
NULL, /* ae2_f */
NULL, /* ae2 */
NULL, /* ae2_fr */
LLDescriptor(0), /* ae2_start_limit_cyc */
LLDescriptor(0), /* ae2_end_limit_cyc */
NULL, /* ae2_process_mask */
#endif
LLDescriptor(0), /* ae2_start_cyc */
LLDescriptor(0), /* ae2_end_cyc */
NULL, /* ae2_time_xlate */
0, /* disable_ae2_alias */
/*
* analyzer.c
*/
TR_RJUSTIFY, /* default_flags 5 */
0, /* default_fpshift */
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0, 0.0}, /* tims 6 */
{0, 0, NULL, NULL, NULL, NULL, 0, NULL, NULL, 0}, /* traces 9 */
0, /* hier_max_level 8 */
0, /* hier_max_level_shadow */
0, /* timestart_from_savefile */
0, /* timestart_from_savefile_valid */
0, /* group_depth */
0, /* hier_ignore_escapes */
/*
* baseconvert.c
*/
0, /* color_active_in_filter 9 */
/*
* bsearch.c
*/
LLDescriptor(0), /* shift_timebase 10 */
LLDescriptor(0), /* shift_timebase_default_for_add 11 */
0, /* max_compare_time_tc_bsearch_c_1 12 */
0, /* max_compare_pos_tc_bsearch_c_1 13 */
0, /* max_compare_time_bsearch_c_1 14 */
0, /* max_compare_pos_bsearch_c_1 15 */
0, /* max_compare_index 16 */
0, /* vmax_compare_time_bsearch_c_1 17 */
0, /* vmax_compare_pos_bsearch_c_1 18 */
0, /* vmax_compare_index 19 */
0, /* maxlen_trunc 20 */
0, /* maxlen_trunc_pos_bsearch_c_1 21 */
0, /* trunc_asciibase_bsearch_c_1 22 */
/*
* busy.c
*/
NULL, /* busycursor_busy_c_1 23 */
0, /* busy_busy_c_1 24 */
/*
* color.c
*/
0, /* keep_xz_colors */
-1, /* color_back 25 */
-1, /* color_baseline 26 */
-1, /* color_grid 27 */
-1, /* color_grid2 27 */
-1, /* color_high 28 */
-1, /* color_low 29 */
-1, /* color_mark 30 */
-1, /* color_mid 31 */
-1, /* color_time 32 */
-1, /* color_timeb 33 */
-1, /* color_trans 34 */
-1, /* color_umark 35 */
-1, /* color_value 36 */
-1, /* color_vbox 37 */
-1, /* color_vtrans 38 */
-1, /* color_x 39 */
-1, /* color_xfill 40 */
-1, /* color_0 41 */
-1, /* color_1 42 */
-1, /* color_ufill 43 */
-1, /* color_u 44 */
-1, /* color_wfill 45 */
-1, /* color_w 46 */
-1, /* color_dashfill 47 */
-1, /* color_dash 48 */
-1, /* color_white 49 */
-1, /* color_black 50 */
-1, /* color_ltgray 51 */
-1, /* color_normal 52 */
-1, /* color_mdgray 53 */
-1, /* color_dkgray 54 */
-1, /* color_dkblue 55 */
-1, /* color_brkred */
-1, /* color_ltblue */
-1, /* color_gmstrd */
-1, /* color_highfill */
-1, /* color_1fill */
/*
* currenttime.c
*/
LLDescriptor(0), /* global_time_offset */
0, /* is_vcd 56 */
0, /* partial_vcd */
1, /* use_maxtime_display 57 */
0, /* use_frequency_delta 58 */
NULL, /* max_or_marker_label_currenttime_c_1 59 */
NULL, /* base_or_curtime_label_currenttime_c_1 60 */
0, /* cached_currenttimeval_currenttime_c_1 61 */
0, /* currenttime 62 */
0, /* max_time 63 */
-1, /* min_time 64 */
~0, /* display_grid 65 */
0, /* fullscreen */
1, /* show_toolbar */
NULL, /* time_mainbox */
1, /* time_scale 66 */
'n', /* time_dimension 67 */
0, /* scale_to_time_dimension */
0, /* maxtimewid_currenttime_c_1 69 */
0, /* curtimewid_currenttime_c_1 70 */
0, /* maxtext_currenttime_c_1 71 */
0, /* curtext_currenttime_c_1 72 */
1, /* time_trunc_val_currenttime_c_1 76 */
0, /* use_full_precision 77 */
/*
* debug.c
*/
NULL, /* alloc2_chain */
0, /* outstanding */
NULL, /* atoi_cont_ptr 78 */
0, /* disable_tooltips 79 */
/*
* entry.c
*/
NULL, /* entrybox_text 82 */
/*
* extload.c
*/
0, /* extload_ffr_import_count */
NULL, /* extload_ffr_ctx */
NULL, /* extload */
NULL, /* extload_idcodes */
NULL, /* extload_inv_idcodes */
#if !defined __MINGW32__
0, /* extload_lastmod */
0, /* extload_already_errored */
#endif
NULL, /* extload_namecache */
NULL, /* extload_namecache_max */
NULL, /* extload_namecache_lens */
NULL, /* extload_namecache_patched */
NULL, /* extload_sym_block */
NULL, /* extload_node_block */
NULL, /* extload_xc */
NULL, /* extload_prevsymroot */
NULL, /* extload_prevsym */
NULL, /* extload_npar */
0, /* extload_i */
0, /* extload_hlen */
0, /* extload_vt_prev */
0, /* extload_vd_prev */
0, /* f_name_build_buf_len */
NULL, /* f_name_build_buf */
0, /* extload_max_tree */
0, /* extload_curr_tree */
/*
* fetchbuttons.c
*/
100, /* fetchwindow 84 */
/*
* fgetdynamic.c
*/
0, /* fgetmalloc_len 85 */
/*
* file.c
*/
NULL, /* pFileChoose */
NULL, /* pFileChooseFilterName */
NULL, /* pPatternSpec */
0, /* fs_file_c_1 86 */
NULL, /* fileselbox_text 87 */
0, /* filesel_ok 88 */
0, /* cleanup_file_c_2 89 */
0, /* bad_cleanup_file_c1 */
/*
* fonts.c
*/
NULL, /* fontname_signals 90 */
NULL, /* fontname_waves 91 */
NULL, /* fonts_screen */
NULL, /* fonts_context */
NULL, /* fonts_layout */
1, /* use_pango_fonts */
/*
* fst.c
*/
NULL, /* fst_fst_c_1 */
NULL, /* fst_scope_name */
0, /* fst_scope_name_len */
0, /* first_cycle_fst_c_3 */
0, /* last_cycle_fst_c_3 */
0, /* total_cycles_fst_c_3 */
NULL, /* fst_table_fst_c_1 */
NULL, /* mvlfacs_fst_c_3 */
NULL, /* mvlfacs_fst_alias */
NULL, /* mvlfacs_fst_rvs_alias */
0, /* fst_maxhandle */
0, /* busycnt_fst_c_2 */
NULL, /* double_curr_fst */
NULL, /* double_fini_fst */
0, /* nonimplicit_direction_encountered */
0, /* supplemental_datatypes_encountered */
0, /* supplemental_vartypes_encountered */
0, /* is_vhdl_component_format */
NULL, /* subvar_jrb */
0, /* subvar_jrb_count */
NULL, /* subvar_pnt */
0, /* fst_filetype */
0, /* subvar_jrb_count_locked */
0, /* stem_file_idx */
0, /* stem_line_number */
NULL, /* stem_path_string_table */
NULL, /* stem_struct_base */
NULL, /* istem_struct_base */
0, /* stem_path_string_table_siz */
0, /* stem_path_string_table_alloc */
0, /* stem_struct_base_siz */
0, /* stem_struct_base_siz_alloc */
0, /* istem_struct_base_siz */
0, /* istem_struct_base_siz_alloc */
0, /* stem_valid */
0, /* istem_valid */
NULL, /* fst_synclock_str */
NULL, /* synclock_jrb */
NULL, /* xl_enum_filter */
0, /* num_xl_enum_filter */
0, /* queued_xl_enum_filter */
NULL, /* enum_nptrs_jrb */
/*
* ghw.c
*/
0, /* nxp_ghw_c_1 93 */
0, /* nbr_sigs_ghw_c_1 */
0, /* sym_which_ghw_c_1 95 */
NULL, /* gwt_ghw_c_1 96 */
NULL, /* gwt_corr_ghw_c_1 97 */
1, /* xlat_1164_ghw_c_1 98 */
0, /* is_ghw 99 */
NULL, /* asbuf */
0, /* nbr_sig_ref_ghw_c_1 101 */
0, /* num_glitches_ghw_c_1 102 */
0, /* num_glitch_regions_ghw_c_1 */
0, /* fac_name_ghw_c_1 104 */
0, /* fac_name_len_ghw_c_1 105 */
0, /* fac_name_max_ghw_c_1 106 */
0, /* last_fac_ghw_c_1 107 */
0, /* warned_ghw_c_1 108 */
/*
* globals.c
*/
NULL, /* dead_context */
NULL, /* gtk_context_bridge_ptr */
/*
* help.c
*/
0, /* helpbox_is_active 110 */
0, /* text_help_c_1 111 */
{NULL, NULL, 0, 0, 0, 0, 0, 0, NULL, NULL, 0, 0, 0, NULL}, /* iter_help_c_1 113 */
0, /* bold_tag_help_c_1 114 */
0, /* window_help_c_2 115 */
/*
* hierpack.c
*/
NULL, /* hp_buf */
NULL, /* hp_offs */
0, /* hp_prev */
0, /* hp_buf_siz */
NULL, /* fmem_buf */
0, /* fmem_buf_siz */
0, /* fmem_buf_offs */
0, /* fmem_uncompressed_siz */
0, /* disable_auto_comphier */
/*
* hiersearch.c
*/
1, /* hier_grouping 116 */
0, /* window_hiersearch_c_3 117 */
0, /* entry_main_hiersearch_c_1 118 */
0, /* bundle_direction_hiersearch_c_1 120 */
0, /* cleanup_hiersearch_c_3 121 */
0, /* num_rows_hiersearch_c_1 122 */
0, /* selected_rows_hiersearch_c_1 123 */
0, /* window1_hiersearch_c_1 124 */
0, /* entry_hiersearch_c_2 125 */
NULL, /* entrybox_text_local_hiersearch_c_1 126 */
NULL, /* cleanup_e_hiersearch_c_1 127 */
NULL, /* h_selectedtree_hiersearch_c_1 128 */
NULL, /* current_tree_hiersearch_c_1 129 */
NULL, /* treechain_hiersearch_c_1 130 */
0, /* is_active_hiersearch_c_1 131 */
NULL, /*sig_store_hiersearch */
NULL, /*sig_selection_hiersearch */
#ifdef WAVE_GTK3_HIERSEARCH_DEBOUNCE
0, /* h_debounce */
#endif
/*
* logfile.c
*/
NULL, /* logfiles */
NULL, /* fontname_logfile 133 */
{NULL, NULL, 0, 0, 0, 0, 0, 0, NULL, NULL, 0, 0, 0, NULL}, /* iter_logfile_c_2 135 */
NULL, /* bold_tag_logfile_c_2 136 */
NULL, /* mono_tag_logfile_c_1 137 */
NULL, /* size_tag_logfile_c_1 138 */
/*
* lx2.c
*/
LXT2_IS_INACTIVE, /* is_lx2 139 */
NULL, /* lx2_lx2_c_1 140 */
0, /* first_cycle_lx2_c_1 141 */
0, /* last_cycle */
0, /* total_cycles */
NULL, /* lx2_table_lx2_c_1 142 */
NULL, /* mvlfacs_lx2_c_1 143 */
0, /* busycnt_lx2_c_1 144 */
/*
* lxt.c
*/
NULL, /* mm_lxt_mmap_addr */
0, /* mm_lxt_mmap_len */
#if defined __MINGW32__
NULL, /* HANDLE hIn */
NULL, /* HANDLE hInMap */
NULL, /* char *win_fname = NULL; */
#endif
0, /* fpos_lxt_c_1 145 */
0, /* is_lxt 146 */
0, /* lxt_clock_compress_to_z 147 */
NULL, /* mm_lxt_c_1 148 */
NULL, /* mmcache_lxt_c_1 */
0, /* version_lxt_c_1 149 */
NULL, /* mvlfacs_lxt_c_2 150 */
0, /* first_cycle_lxt_c_2 151 */
0, /* last_cycle */
0, /* total_cycles */
0, /* maxchange_lxt_c_1 152 */
0, /* maxindex */
0, /* f_len_lxt_c_1 153 */
NULL, /* positional_information_lxt_c_1 154 */
NULL, /* time_information 155 */
0, /* change_field_offset_lxt_c_1 156 */
0, /* facname_offset_lxt_c_1 157 */
0, /* facgeometry_offset_lxt_c_1 158 */
0, /* time_table_offset_lxt_c_1 159 */
0, /* time_table_offset64_lxt_c_1 160 */
0, /* sync_table_offset_lxt_c_1 161 */
0, /* initial_value_offset_lxt_c_1 162 */
0, /* timescale_offset_lxt_c_1 163 */
0, /* double_test_offset_lxt_c_1 164 */
0, /* zdictionary_offset_lxt_c_1 165 */
0, /* zfacname_predec_size_lxt_c_1 166 */
0, /* zfacname_size_lxt_c_1 167 */
0, /* zfacgeometry_size_lxt_c_1 168 */
0, /* zsync_table_size_lxt_c_1 169 */
0, /* ztime_table_size_lxt_c_1 170 */
0, /* zchg_predec_size_lxt_c_1 171 */
0, /* zchg_size_lxt_c_1 172 */
0, /* zdictionary_predec_size_lxt_c_1 173 */
AN_X, /* initial_value_lxt_c_1 174 */
0, /* dict_num_entries_lxt_c_1 175 */
0, /* dict_string_mem_required_lxt_c_1 176 */
0, /* dict_16_offset_lxt_c_1 177 */
0, /* dict_24_offset_lxt_c_1 178 */
0, /* dict_32_offset_lxt_c_1 179 */
0, /* dict_width_lxt_c_1 180 */
NULL, /* dict_string_mem_array_lxt_c_1 181 */
0, /* exclude_offset_lxt_c_1 182 */
0, /* lxt_timezero_offset */
NULL, /* lt_buf_lxt_c_1 183 */
0, /* lt_len_lxt_c_1 184 */
-1, /* fd_lxt_c_1 185 */
{0,0,0,0,0,0,0,0}, /* double_mask_lxt_c_1 186 */
0, /* double_is_native_lxt_c_1 187 */
0, /* max_compare_time_tc_lxt_c_2 189 */
0, /* max_compare_pos_tc_lxt_c_2 */
NULL, /* resolve_lxt_alias_to */
NULL, /* lastchange */
/*
* main.c
*/
1, /* is_gtkw_save_file */
0, /* dumpfile_is_modified */
NULL, /* missing_file_toolbar */
NULL, /* argvlist */
#if defined(HAVE_LIBTCL)
NULL, /* interp */
#endif
NULL, /* repscript_name */
500, /* repscript_period */
NULL, /* tcl_init_cmd */
0, /* tcl_running */
0, /* block_xy_update */
NULL, /* winname */
0, /* num_notebook_pages */
1, /* num_notebook_pages_cumulative */
0, /* context_tabposition */
0, /* this_context_page */
0, /* second_page_created */
NULL, /* contexts */
NULL, /* notebook */
NULL, /* loaded_file_name */
NULL, /* unoptimized_vcd_file_name */
NULL, /* skip_start */
NULL, /* skip_end */
MISSING_FILE, /* loaded_file_type */
0, /* is_optimized_stdin_vcd */
NULL, /* whoami 190 */
NULL, /* logfile 191 */
NULL, /* stems_name 192 */
WAVE_ANNO_NONE, /* stems_type 193 */
NULL, /* aet_name 194 */
NULL, /* anno_ctx 195 */
NULL, /* dual_ctx 196 */
0, /* dual_id 197 */
0, /* dual_attach_id_main_c_1 198 */
0, /* dual_race_lock 199 */
NULL, /* mainwindow 200 */
NULL, /* signalwindow 201 */
NULL, /* wavewindow 202 */
NULL, /* toppanedwindow 203 */
NULL, /* panedwindow */
0, /* toppanedwindow_size_cache */
0, /* panedwindow_size_cache */
0, /* vpanedwindow_size_cache */
NULL, /* sstpane 204 */
NULL, /* expanderwindow 205 */
0, /* disable_window_manager 206 */
0, /* disable_empty_gui */
1, /* paned_pack_semantics 207 */
0, /* zoom_was_explicitly_set 208 */
1000, /* initial_window_x 209 */
600, /* initial_window_y */
-1, /* initial_window_width */
-1, /* initial_window_height 210 */
0, /* xy_ignore_main_c_1 211 */
0, /* optimize_vcd 212 */
1, /* num_cpus 213 */
-1, /* initial_window_xpos 214 */
-1, /* initial_window_ypos 214 */
0, /* initial_window_set_valid 215 */
-1, /* initial_window_xpos_set 216 */
-1, /* initial_window_ypos_set */
0, /* initial_window_get_valid 217 */
-1, /* initial_window_xpos_get 218 */
-1, /* initial_window_ypos_get 218 */
0, /* xpos_delta 219 */
0, /* ypos_delta 219 */
0, /* use_scrollbar_only 220 */
0, /* force_toolbars 221 */
0, /* hide_sst 222 */
1, /* sst_expanded 223 */
0, /* socket_xid 224 */
0, /* disable_menus 225 */
NULL, /* ftext_main_main_c_1 226 */
1, /* use_toolbutton_interface */
/*
* markerbox.c
*/
NULL, /* window_markerbox_c_4 231 */
{0}, /* entries_markerbox_c_1 232 */
NULL, /* cleanup_markerbox_c_4 233 */
0, /* dirty_markerbox_c_1 234 */
{0}, /* shadow_markers_markerbox_c_1 235 */
{NULL}, /* marker_names */
{NULL}, /* shadow_marker_names */
/*
* menu.c
*/
NULL, /* cutcopylist */
0, /* enable_fast_exit 236 */
0, /* quiet_checkmenu */
NULL, /* wave_script_args 237 */
0, /* ignore_savefile_pane_pos */
0, /* ignore_savefile_pos 238 */
0, /* ignore_savefile_size 239 */
NULL, /* regexp_string_menu_c_1 242 */
NULL, /* trace_to_alias_menu_c_1 243 */
NULL, /* showchangeall_menu_c_1 244 */
NULL, /* filesel_newviewer_menu_c_1 245 */
NULL, /* filesel_logfile_menu_c_1 246 */
NULL, /* filesel_scriptfile_menu */
NULL, /* filesel_writesave 247 */
NULL, /* filesel_imagegrab */
0, /* save_success_menu_c_1 248 */
NULL, /* filesel_vcd_writesave 249 */
NULL, /* filesel_lxt_writesave 250 */
NULL, /* filesel_tim_writesave */
0, /* lock_menu_c_1 251 */
0, /* lock_menu_c_2 252 */
NULL, /* buf_menu_c_1 253 128 */
NULL, /* signal_popup_menu */
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
NULL, /* header_bar */
NULL, /* main_popup_menu */
NULL, /* main_popup_menu_button */
NULL, /* top_table */
#endif
NULL, /* sst_signal_popup_menu */
/*
* mouseover.c
*/
1, /* disable_mouseover 254 */
0, /* clipboard_mouseover */
NULL, /* mouseover_mouseover_c_1 255 */
NULL, /* mo_area_mouseover_c_1 256 */
0, /* mo_width_mouseover_c_1 260 */
0, /* mo_height_mouseover_c_1 260 */
NULL, /* surface_mo_pixmap_mouseover_c_1 */
NULL, /* cr_mo_pixmap_mouseover_c_1 */
{0.0,0.0,0.0,0.0}, /* rgb_mo_dk_gray_mouseover_c_1 */
{0.0,0.0,0.0,0.0}, /* mo_black_mouseover_c_1 */
/*
* pagebuttons.c
*/
1.0, /* page_divisor 261 */
/*
* pixmaps.c
*/
NULL, /* redo_pixbuf */
NULL, /* larrow_pixbuf */
NULL, /* rarrow_pixbuf */
NULL, /* zoomin_pixbuf */
NULL, /* zoomout_pixbuf */
NULL, /* zoomfit_pixbuf */
NULL, /* zoomundo_pixbuf */
NULL, /* zoom_larrow_pixbuf */
NULL, /* zoom_rarrow_pixbuf */
NULL, /* prev_page_pixbuf */
NULL, /* next_page_pixbuf */
NULL, /* wave_info_pixbuf */
NULL, /* wave_alert_pixbuf */
NULL, /* hiericon_module_pixbuf */
NULL, /* hiericon_task_pixbuf */
NULL, /* hiericon_function_pixbuf */
NULL, /* hiericon_begin_pixbuf */
NULL, /* hiericon_fork_pixbuf */
NULL, /* hiericon_interface_pixbuf */
NULL, /* hiericon_svpackage_pixbuf */
NULL, /* hiericon_program_pixbuf */
NULL, /* hiericon_class_pixbuf */
NULL, /* hiericon_record_pixbuf */
NULL, /* hiericon_generate_pixbuf */
NULL, /* hiericon_design_pixbuf */
NULL, /* hiericon_block_pixbuf */
NULL, /* hiericon_generateif_pixbuf */
NULL, /* hiericon_generatefor_pixbuf */
NULL, /* hiericon_instance_pixbuf */
NULL, /* hiericon_package_pixbuf */
NULL, /* hiericon_signal_pixbuf */
NULL, /* hiericon_portin_pixbuf */
NULL, /* hiericon_portout_pixbuf */
NULL, /* hiericon_portinout_pixbuf */
NULL, /* hiericon_buffer_pixbuf */
NULL, /* hiericon_linkage_pixbuf */
/*
* print.c
*/
72, /* inch_print_c_1 298 */
1.0, /* ps_chwidth_print_c_1 299 */
0, /* ybound_print_c_1 300 */
0, /* pr_signal_fill_width_print_c_1 301 */
0, /* ps_nummaxchars_print_c_1 302 */
1, /* ps_fullpage 303 */
66, /* ps_maxveclen 304 */
0, /* liney_max 305 */
/*
* ptranslate.c
*/
0, /* current_translate_proc 308 */
0, /* current_filter_ptranslate_c_1 309 */
0, /* num_proc_filters 310 */
NULL, /* procsel_filter 311 */
NULL, /* proc_filter 312 */
0, /* is_active_ptranslate_c_2 313 */
NULL, /* fcurr_ptranslate_c_1 314 */
NULL, /* window_ptranslate_c_5 315 */
NULL, /* sig_store_ptranslate; */
NULL, /* sig_selection_ptranslate */
/*
* rc.c
*/
0, /* rc_line_no 318 */
1, /* possibly_use_rc_defaults 319 */
NULL, /* editor_string */
/*
* regex.c
*/
NULL, /* preg_regex_c_1 321 */
NULL, /* regex_ok_regex_c_1 322 */
/*
* renderopt.c
*/
#ifdef WAVE_GTK_UNIX_PRINT
NULL, /* gprs */
NULL, /* gps */
NULL, /* gp_tfn */
#endif
0, /* is_active_renderopt_c_3 323 */
0, /* window_renderopt_c_6 324 */
NULL, /* filesel_print_pdf_renderopt_c_1 */
NULL, /* filesel_print_ps_renderopt_c_1 325 */
NULL, /* filesel_print_mif_renderopt_c_1 326 */
{0,0,0,0}, /* target_mutex_renderopt_c_1 328 */
{0,0,0,0,0}, /* page_mutex_renderopt_c_1 330 */
{0,0,0}, /* render_mutex_renderopt_c_1 332 */
0, /* page_size_type_renderopt_c_1 333 */
/*
* savefile.c
*/
NULL, /* sfn */
NULL, /* lcname */
/*
* search.c
*/
{NULL,NULL,NULL,NULL,NULL}, /* menuitem_search */
NULL, /* window1_search_c_2 340 */
NULL, /* entry_a_search_c_1 341 */
NULL, /* entrybox_text_local_search_c_2 342 */
NULL, /* cleanup_e_search_c_2 343 */
NULL, /* pdata 344 */
0, /* is_active_search_c_4 345 */
0, /* is_insert_running_search_c_1 346 */
0, /* is_replace_running_search_c_1 347 */
0, /* is_append_running_search_c_1 348 */
0, /* is_searching_running_search_c_1 349 */
{0,0,0,0,0}, /* regex_mutex_search_c_1 352 */
0, /* regex_which_search_c_1 353 */
NULL, /* window_search_c_7 354 */
NULL, /* entry_search_c_3 355 */
NULL, /* searchbox_text_search_c_1 358 */
0, /* bundle_direction_search_c_2 359 */
NULL, /* cleanup_search_c_5 360 */
0, /* num_rows_search_c_2 361 */
0, /* selected_rows_search_c_2 362 */
NULL, /* sig_store_search */
NULL, /* sig_selection_search */
NULL, /* sig_view_search */
/*
* signalwindow.c
*/
NULL, /* signalarea 369 */
NULL, /* signalfont 370 */
NULL, /* surface_signalpixmap */
NULL, /* cr_signalpixmap */
#if defined(WAVE_ALLOW_QUARTZ_FLUSH_WORKAROUND) || defined(WAVE_ALLOW_GTK3_VSLIDER_WORKAROUND)
0, /* force_hide_show */
#endif
0, /* max_signal_name_pixel_width 372 */
0, /* signal_pixmap_width 373 */
0, /* signal_fill_width 374 */
0, /* old_signal_fill_width 375 */
0, /* old_signal_fill_height */
1, /* right_align_active */
1, /* fontheight 376 */
0, /* dnd_state 377 */
0, /* dnd_cursor_timer */
NULL, /* hscroll_signalwindow_c_1 378 */
NULL, /* signal_hslider 379 */
0, /* cachedhiflag_signalwindow_c_1 380 */
-1, /* cachedwhich_signalwindow_c_1 381 */
NULL, /* cachedtrace 382 */
NULL, /* shift_click_trace 383 */
0, /* trtarget_signalwindow_c_1 384 */
NULL, /* starting_unshifted_trace */
0, /* standard_trace_dnd_degate */
0, /* use_standard_trace_select */
1, /* use_standard_clicking */
0, /* std_collapse_pressed */
0, /* std_dnd_tgt_on_signalarea */
0, /* std_dnd_tgt_on_wavearea */
0, /* signalarea_has_focus */
NULL, /* signalarea_event_box */
0, /* keypress_handler_id */
0, /* cached_mouseover_x */
0, /* cached_mouseover_y */
0, /* mouseover_counter */
0, /* button2_debounce_flag */
0, /* dragzoom_threshold */
#ifdef WAVE_GTK3_SIZE_ALLOCATE_WORKAROUND_WAVE_VSLIDER
0.0, /* wave_vslider_page_size */
0.0, /* wave_vslider_page_increment */
0.0, /* wave_vslider_step_increment */
0.0, /* wave_vslider_lower */
0.0, /* wave_vslider_upper */
0.0, /* wave_vslider_value */
0, /* wave_vslider_valid */
#endif
/*
* simplereq.c
*/
NULL, /* window_simplereq_c_9 385 */
NULL, /* cleanup 386 */
/*
* splash.c
*/
0, /* splash_is_loading */
0, /* splash_fix_win_title */
1, /* splash_disable 387 */
NULL, /* splash_splash_c_1 391 */
NULL, /* darea_splash_c_1 392 */
NULL, /* gt_splash_c_1 393 */
0, /* timeout_tag 394 */
0, /* load_complete_splash_c_1 395 */
2, /* cnt_splash_c_1 396 */
0, /* prev_bar_x_splash_c_1 397 */
NULL, /* wave_splash_pixbuf */
/*
* status.c
*/
NULL, /* text_status_c_2 398 */
{NULL, NULL, 0, 0, 0, 0, 0, 0, NULL, NULL, 0, 0, 0, NULL}, /* iter_status_c_3 400 */
NULL, /* bold_tag_status_c_3 401 */
/*
* strace.c
*/
NULL, /* strace_ctx (defined in strace.h for multiple strace sessions) */
{
{NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,{0,0,0,0,0,0},{0,0,0,0,0,0},0,0,0,0,0,0,0}, /* strace_windows[0] */
{NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,{0,0,0,0,0,0},{0,0,0,0,0,0},0,0,0,0,0,0,0}
}, /* strace_windows[1] */
#if WAVE_NUM_STRACE_WINDOWS != 2
#error the number of strace windows as defined in strace.h does not match globals.c!
#endif
0, /* strace_current_window */
1, /* strace_repeat_count */
/*
* symbol.c
*/
#ifdef _WAVE_HAVE_JUDY
NULL, /* sym_judy */
NULL, /* s_selected */
#endif
NULL, /* sym_hash 424 */
NULL, /* facs 425 */
0, /* facs_are_sorted 426 */
0, /* facs_have_symbols_state_machine */
0, /* numfacs 427 */
0, /* regions 428 */
0, /* longestname 429 */
NULL, /* firstnode 430 */
NULL, /* curnode 431 */
0, /* hashcache 432 */
/*
* tcl_commands.c
*/
NULL, /* previous_braced_tcl_string */
/*
* tcl_helper.c
*/
0, /* in_tcl_callback */
/*
* timeentry.c
*/
NULL, /* from_entry 433 */
NULL, /* to_entry */
/*
* translate.c
*/
0, /* current_translate_file 434 */
0, /* current_filter_translate_c_2 435 */
0, /* num_file_filters 436 */
NULL, /* filesel_filter 437 */
NULL, /* xl_file_filter 438 */
0, /* is_active_translate_c_5 439 */
NULL, /* fcurr_translate_c_2 440 */
NULL, /* window_translate_c_11 441 */
NULL, /* sig_store_translate; */
NULL, /* sig_selection_translate */
/*
* tree.c
*/
#ifdef _WAVE_HAVE_JUDY
NULL, /* sym_tree */
NULL, /* sym_tree_addresses */
#endif
NULL, /* treeroot 443 */
NULL, /* mod_tree_parent */
NULL, /* module_tree_c_1 444 */
0, /* module_len_tree_c_1 445 */
NULL, /* terminals_tchain_tree_c_1 446 */
'.', /* hier_delimeter 447 */
0, /* hier_was_explicitly_set 448 */
0x00, /* alt_hier_delimeter 449 */
1, /* fast_tree_sort 450 */
NULL, /* facs2_tree_c_1 451 */
0, /* facs2_pos_tree_c_1 452 */
NULL, /* talloc_pool_base */
0, /* talloc_idx */
NULL, /* sst_exclude_filename */
0, /* exclhiermask */
NULL, /* exclcompname */
NULL, /* exclinstname */
/*
* tree_component.c
*/
#ifdef _WAVE_HAVE_JUDY
NULL, /* comp_name_judy */
#else
NULL, /* comp_name_jrb */
#endif
NULL, /* comp_name_idx */
0, /* comp_name_serial */
0, /* comp_name_total_stringmem */
0, /* comp_name_longest */
/*
* treesearch_gtk1.c
*/
NULL, /* GtkWidget *window1_treesearch_gtk1_c; */
NULL, /* GtkWidget *entry_a_treesearch_gtk1_c; */
NULL, /* char *entrybox_text_local_treesearch_gtk1_c; */
NULL, /* void (*cleanup_e_treesearch_gtk1_c)(); */
NULL, /* struct tree *selectedtree_treesearch_gtk1_c; */
0, /* int is_active_treesearch_gtk1_c; */
NULL, /* GtkWidget *window_treesearch_gtk1_c; */
NULL, /* GtkWidget *tree_treesearch_gtk1_c; */
0, /* char bundle_direction_treesearch_gtk1_c; */
NULL, /* void (*cleanup_treesearch_gtk1_c)(); */
/*
* treesearch_gtk2.c
*/
#ifdef MAC_INTEGRATION
NULL, /* dnd_helper_quartz */
#endif
NULL, /* treeopen_chain_head */
NULL, /* treeopen_chain_curr */
0, /* tree_dnd_begin */
0, /* tree_dnd_requested */
1, /* do_dynamic_treefilter */
NULL, /* treesearch_gtk2_window_vbox */
NULL, /* selected_hierarchy_name */
NULL, /* selected_sig_name */
NULL, /* gtk2_tree_frame */
NULL, /* filter_entry */
NULL, /* open_tree_nodes */
0, /* autoname_bundles 453 */
NULL, /* window1_treesearch_gtk2_c_3 454 */
NULL, /* entry_a_treesearch_gtk2_c_2 455 */
NULL, /* entrybox_text_local_treesearch_gtk2_c_3 456 */
NULL, /* cleanup_e_treesearch_gtk2_c_3 457 */
NULL, /* sig_root_treesearch_gtk2_c_1 458 */
NULL, /* sst_sig_root_treesearch_gtk2_c_1 */
NULL, /* filter_str_treesearch_gtk2_c_1 459 */
ND_DIR_UNSPECIFIED, /* filter_typ_treesearch_gtk2_c_1 */
0, /* filter_typ_polarity_treesearch_gtk2_c_1 */
0, /* filter_matlen_treesearch_gtk2_c_1 */
0, /* filter_noregex_treesearch_gtk2_c_1 */
NULL, /* sig_store_treesearch_gtk2_c_1 460 */
NULL, /* sig_selection_treesearch_gtk2_c_1 461 */
0, /* is_active_treesearch_gtk2_c_6 462 */
NULL, /* afl_treesearch_gtk2_c_1 464 */
NULL, /* window_treesearch_gtk2_c_12 465 */
NULL, /* cleanup_treesearch_gtk2_c_8 468 */
0, /* pre_import_treesearch_gtk2_c_1 469 */
{0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,0}, /* tcache_treesearch_gtk2_c_2 470 */
0, /* dnd_tgt_on_signalarea_treesearch_gtk2_c_1 471 */
0, /* dnd_tgt_on_wavearea_treesearch_gtk2_c_1 */
NULL, /* dnd_sigview */
NULL, /* sst_vpaned */
0, /* fetchlow */
0, /* fetchhigh */
NULL, /* treestore_main */
NULL, /* treeview_main */
SST_ACTION_INSERT, /* sst_dbl_action_type */
/*
* ttranslate.c
*/
0, /* current_translate_ttrans */
0, /* current_filter_ttranslate_c_1 */
0, /* num_ttrans_filters */
NULL, /* ttranssel_filter */
NULL, /* ttrans_filter */
0, /* is_active_ttranslate_c_2 */
NULL, /* fcurr_ttranslate_c_1 */
NULL, /* window_ttranslate_c_5 */
NULL, /* ttranslate_args */
NULL, /* sig_store_ttranslate; */
NULL, /* sig_selection_ttranslate */
/*
* vcd.c
*/
0, /* do_hier_compress */
NULL, /* prev_hier_uncompressed_name */
NULL, /* vcd_jmp_buf */
-1, /* vcd_warning_filesize 472 */
1, /* autocoalesce 473 */
0, /* autocoalesce_reversal */
0, /* mti_realparam_fix */
-1, /* vcd_explicit_zero_subscripts 474 */
0, /* convert_to_reals 475 */
1, /* atomic_vectors 476 */
0, /* make_vcd_save_file 477 */
0, /* vcd_preserve_glitches 478 */
0, /* vcd_preserve_glitches_real */
NULL, /* vcd_save_handle 479 */
NULL, /* vcd_handle_vcd_c_1 480 */
0, /* vcd_is_compressed_vcd_c_1 481 */
0, /* vcdbyteno_vcd_c_1 482 */
0, /* error_count_vcd_c_1 483 */
0, /* header_over_vcd_c_1 484 */
0, /* dumping_off_vcd_c_1 485 */
-1, /* start_time_vcd_c_1 486 */
-1, /* end_time_vcd_c_1 487 */
-1, /* current_time_vcd_c_1 488 */
0, /* num_glitches_vcd_c_2 489 */
0, /* num_glitch_regions_vcd_c_2 490 */
{0, 0}, /* vcd_hier_delimeter 491 */
NULL, /* pv_vcd_c_1 492 */
NULL, /* rootv_vcd_c_1 */
NULL, /* vcdbuf_vcd_c_1 493 */
NULL, /* vst */
NULL, /* vend */
0, /* escaped_names_found_vcd_c_1 494 */
NULL, /* slistroot 495 */
NULL, /* slistcurr */
NULL, /* slisthier 496 */
0, /* slisthier_len 497x */
1024, /* T_MAX_STR_vcd_c_1 499 */
NULL, /* yytext_vcd_c_1 500 */
0, /* yylen_vcd_c_1 501 */
0, /* yylen_cache */
NULL, /* vcdsymroot_vcd_c_1 502 */
NULL, /* vcdsymcurr */
NULL, /* sorted_vcd_c_1 503 */
NULL, /* indexed_vcd_c_1 504 */
0, /* numsyms_vcd_c_1 505 */
NULL, /* he_curr_vcd_c_1 506 */
NULL, /* he_fini */
~0, /* vcd_minid_vcd_c_1 508 */
0, /* vcd_maxid_vcd_c_1 509 */
0, /* err_vcd_c_1 510 */
0, /* vcd_fsiz_vcd_c_1 511 */
NULL, /* varsplit_vcd_c_1 512 */
NULL, /* varsplitcurr */
0, /* var_prevch_vcd_c_1 513 */
0, /* vcd_already_backtracked */
/*
* vcd_partial.c
*/
0, /* vcdbyteno_vcd_partial_c_2 516 */
0, /* error_count_vcd_partial_c_2 517 */
0, /* header_over_vcd_partial_c_2 518 */
0, /* dumping_off_vcd_partial_c_2 519 */
-1, /* start_time_vcd_partial_c_2 520 */
-1, /* end_time_vcd_partial_c_2 521 */
-1, /* current_time_vcd_partial_c_2 522 */
0, /* num_glitches_vcd_partial_c_3 523 */
0, /* num_glitch_regions_vcd_partial_c_3 524 */
NULL, /* pv_vcd_partial_c_2 525 */
NULL, /* rootv */
NULL, /* vcdbuf_vcd_partial_c_2 526 */
NULL, /* vst */
NULL, /* vend */
NULL, /* consume_ptr_vcd_partial_c_1 527 */
NULL, /* buf_vcd_partial_c_2 528 */
100000, /* consume_countdown_vcd_partial_c_1 529 */
1024, /* T_MAX_STR_vcd_partial_c_2 531 */
NULL, /* yytext_vcd_partial_c_2 532 */
0, /* yylen_vcd_partial_c_2 533 */
0, /* yylen_cache */
NULL, /* vcdsymroot_vcd_partial_c_2 534 */
NULL, /* vcdsymcurr */
NULL, /* sorted_vcd_partial_c_2 535 */
NULL, /* indexed_vcd_partial_c_2 536 */
0, /* numsyms_vcd_partial_c_2 538 */
~0, /* vcd_minid_vcd_partial_c_2 540 */
0, /* vcd_maxid_vcd_partial_c_2 541 */
0, /* err_vcd_partial_c_2 542 */
NULL, /* varsplit_vcd_partial_c_2 543 */
NULL, /* vsplitcurr */
0, /* var_prevch_vcd_partial_c_2 544 */
0, /* timeset_vcd_partial_c_1 547 */
/*
* vcd_recoder.c
*/
NULL, /* time_vlist_vcd_recoder_c_1 548 */
NULL, /* time_vlist_vcd_recoder_write */
NULL, /* fastload_depacked */
NULL, /* fastload_current */
0, /* time_vlist_count_vcd_recoder_c_1 549 */
NULL, /* vcd_handle_vcd_recoder_c_2 550 */
0, /* vcd_is_compressed_vcd_recoder_c_2 551 */
VCD_FSL_NONE, /* use_fastload */
0, /* vcdbyteno_vcd_recoder_c_3 552 */
0, /* error_count_vcd_recoder_c_3 553 */
0, /* header_over_vcd_recoder_c_3 554 */
0, /* dumping_off_vcd_recoder_c_3 555 */
-1, /* start_time_vcd_recoder_c_3 556 */
-1, /* end_time_vcd_recoder_c_3 557 */
-1, /* current_time_vcd_recoder_c_3 558 */
0, /* num_glitches_vcd_recoder_c_4 559 */
0, /* num_glitch_regions_vcd_recoder_c_4 560 */
NULL, /* pv_vcd_recoder_c_3 561 */
NULL, /* rootv */
NULL, /* vcdbuf_vcd_recoder_c_3 562 */
NULL, /* vst */
NULL, /* vend */
1024, /* T_MAX_STR_vcd_recoder_c_3 564 */
NULL, /* yytext_vcd_recoder_c_3 565 */
0, /* yylen_vcd_recoder_c_3 566 */
0, /* yylen_cache */
NULL, /* vcdsymroot_vcd_recoder_c_3 567 */
NULL, /* vcdsymcurr */
NULL, /* sorted_vcd_recoder_c_3 568 */
NULL, /* indexed_vcd_recoder_c_3 569 */
0, /* numsyms_vcd_recoder_c_3 570 */
~0, /* vcd_minid_vcd_recoder_c_3 571 */
0, /* vcd_maxid_vcd_recoder_c_3 572 */
0, /* err_vcd_recoder_c_3 573 */
0, /* vcd_fsiz_vcd_recoder_c_2 574 */
NULL, /* varsplit_vcd_recoder_c_3 575 */
NULL, /* vsplitcurr */
0, /* var_prevch_vcd_recoder_c_3 576 */
0, /* vcd_hash_max */
0, /* vcd_hash_kill */
/*
* vcd_saver.c
*/
NULL, /* f_vcd_saver_c_1 579 */
{0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0}, /* buf_vcd_saver_c_3 580 */
NULL, /* hp_vcd_saver_c_1 581 */
NULL, /* nhold_vcd_saver_c_1 582 */
/*
* vlist.c
*/
0, /* vlist_spill_to_disk */
0, /* vlist_prepack */
NULL, /* vlist_handle */
0, /* vlist_bytes_written */
4, /* vlist_compression_depth 583 */
/*
* vzt.c
*/
NULL, /* vzt_vzt_c_1 584 */
0, /* first_cycle_vzt_c_3 585 */
0, /* last_cycle */
0, /* total_cycles */
NULL, /* vzt_table_vzt_c_1 586 */
NULL, /* mvlfacs_vzt_c_3 587 */
0, /* busycnt_vzt_c_2 588 */
/*
* wavewindow.c
*/
0, /* highlight_wavewindow */
1, /* alt_wheel_mode */
0, /* use_scrollwheel_as_y */
#ifdef WAVE_ALLOW_SLIDER_ZOOM
0, /* enable_slider_zoom */
#endif
0, /* m1x_wavewindow_c_1 589 */
0, /* m2x_wavewindow_c_1 */
0, /* black_and_white */
1, /* signalwindow_width_dirty 590 */
1, /* enable_ghost_marker 591 */
1, /* enable_horiz_grid 592 */
1, /* enable_vert_grid 593 */
0, /* use_big_fonts 594 */
0, /* use_nonprop_fonts */
~0, /* do_resize_signals 595 */
~0, /* first_unsized_signals */
0, /* initial_signal_window_width */
0, /* constant_marker_update 596 */
0, /* use_roundcaps 597 */
~0, /* show_base 598 */
~0, /* wave_scrolling 599 */
4, /* vector_padding 600 */
0, /* in_button_press_wavewindow_c_1 601 */
0, /* left_justify_sigs 602 */
0, /* zoom_pow10_snap 603 */
0, /* zoom_dyn */
0, /* zoom_dyne */
0, /* cursor_snap 604 */
-1.0, /* old_wvalue 605 */
NULL, /* blackout_regions 606 */
0, /* zoom 607 */
1, /* scale */
1, /* nsperframe */
1, /* pixelsperframe 608 */
1.0, /* hashstep 609 */
-1, /* prevtim_wavewindow_c_1 610 */
1.0, /* pxns 611 */
1.0, /* nspx */
2.0, /* zoombase 612 */
NULL, /* topmost_trace 613 */
1, /* waveheight 614 */
0, /* wavecrosspiece */
1, /* wavewidth 615 */
NULL, /* wavefont 616 */
NULL, /* wavefont_smaller 617 */
NULL, /* wavearea 618 */
NULL, /* vscroll_wavewindow_c_1 619 */
NULL, /* hscroll_wavewindow_c_2 620 */
NULL, /* wave_vslider2 622 */
NULL, /* wave_vslider 622 */
NULL, /* wave_hslider */
{0}, /* named_markers 623 */
-1, /* named_marker_lock_idx */
0, /* made_gc_contexts_wavewindow_c_1 624 */
0, /* which_t_color */
0, /* made_sgc_contexts_wavewindow_c_1 649 */
0, /* fill_in_smaller_rgb_areas_wavewindow_c_1 659 */
-1, /* prev_markertime */
20, /* analog_redraw_skip_count */
0, /* str_wid_x */
0, /* str_wid_width */
0, /* str_wid_bigw */
0, /* str_wid_state */
0, /* str_wid_slider */
0, /* str_wid_height */
0, /* ruler_origin */
0, /* ruler_step */
0, /* fill_waveform */
0, /* lz_removal */
NULL, /* surface_wavepixmap_wavewindow_c_1 */
NULL, /* cr_wavepixmap_wavewindow_c_1 */
{0.0,0.0,0.0,0.0}, /* rgb_gc_white */
{0.0,0.0,0.0,0.0}, /* rgb_gc_black */
RGB_WAVE_RAINBOW_INITIALIZER, /* rgb_gc_rainbow */
{{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0}}, /* rgb_gc */
{{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0},{0.0,0.0,0.0,0.0}}, /* rgb_gccache */
1.0, /* cr_line_width */
0.5, /* cairo_050_offset */
#ifdef WAVE_ALLOW_GTK3_GESTURE_EVENT
0.0, /* wavearea_gesture_initial_zoom */
#ifdef WAVE_GTK3_GESTURE_ZOOM_IS_1D
1.0, /* wavearea_gesture_initial_zoom_x_distance */
0, /* wavearea_gesture_initial_x1tim */
#endif
NULL, /* wavearea_gesture_swipe */
NULL, /* swipe_init_time */
0, /* swipe_init_start */
0.0, /* wavearea_gesture_swipe_velocity_x */
0, /* wavearea_drag_start_x */
0, /* wavearea_drag_start_y */
0, /* wavearea_drag_active */
#endif
-1, /* use_gestures */
FALSE, /*use_dark */
FALSE, /*save_on_exit */
#ifdef GDK_WINDOWING_WAYLAND
0, /* wayland_marker_timer_hack */
#endif
/*
* zoombuttons.c
*/
1, /* do_zoom_center 660 */
0, /* do_initial_zoom_fit 661 */
0, /* do_initial_zoom_fit_used */
};
/*
* prototypes (because of struct Global header recursion issues
*/
void *calloc_2_into_context(struct Global *g, size_t nmemb, size_t size);
/*
* context manipulation functions
*/
struct Global *initialize_globals(void)
{
struct Global *g = calloc(1,sizeof(struct Global)); /* allocate viewer context */
memcpy(g, &globals_base_values, sizeof(struct Global)); /* fill in the blanks */
g->gtk_context_bridge_ptr = calloc(1, sizeof(struct Global *));
*(g->gtk_context_bridge_ptr) = g;
g->buf_menu_c_1 = calloc_2_into_context(g, 1, 65537); /* do remaining mallocs into new ctx */
g->regexp_string_menu_c_1 = calloc_2_into_context(g, 1, 129);
g->regex_ok_regex_c_1 = calloc_2_into_context(g, WAVE_REGEX_TOTAL, sizeof(int));
g->preg_regex_c_1 = calloc_2_into_context(g, WAVE_REGEX_TOTAL, sizeof(regex_t));
g->strace_ctx = &g->strace_windows[0]; /* arbitrarily point to first one */
return(g); /* what to do with ctx is at discretion of caller */
}
void strcpy2_into_new_context(struct Global *g, char **newstrref, char **oldstrref)
{
char *o = *oldstrref;
char *n;
if(o) /* only allocate + copy string if nonnull pointer */
{
n = calloc_2_into_context(g, 1, strlen(o) + 1);
strcpy(n, o);
*newstrref = n;
}
}
/*
* widget destruction functions
*/
static void widget_ungrab_destroy(GtkWidget **wp)
{
if(*wp)
{
wave_gtk_grab_remove(*wp);
gtk_widget_destroy(*wp);
*wp = NULL;
}
}
static void widget_only_destroy(GtkWidget **wp)
{
if(*wp)
{
gtk_widget_destroy(*wp);
*wp = NULL;
}
}
/*
* setjump to avoid -Wclobbered issues
*/
static int handle_setjmp(void)
{
struct Global *setjmp_globals;
int load_was_success = 0;
GLOBALS->vcd_jmp_buf = calloc(1, sizeof(jmp_buf));
setjmp_globals = calloc(1,sizeof(struct Global)); /* allocate yet another copy of viewer context */
memcpy(setjmp_globals, GLOBALS, sizeof(struct Global)); /* clone */
GLOBALS->alloc2_chain = NULL; /* will merge this in after load if successful */
GLOBALS->outstanding = 0; /* zero out count of chunks in this ctx */
if(!setjmp(*(GLOBALS->vcd_jmp_buf))) /* loader exception handling */
{
switch(GLOBALS->loaded_file_type) /* on fail, longjmp called in these loaders */
{
case LXT_FILE: lxt_main(GLOBALS->loaded_file_name); break;
case VCD_FILE: vcd_main(GLOBALS->loaded_file_name); break;
case VCD_RECODER_FILE: vcd_recoder_main(GLOBALS->loaded_file_name); break;
default: break;
}
#ifdef _WAVE_HAVE_JUDY
{
Pvoid_t PJArray = (Pvoid_t)setjmp_globals->alloc2_chain;
int rcValue;
Word_t Index;
Index = 0;
for (rcValue = Judy1First(PJArray, &Index, PJE0); rcValue != 0; rcValue = Judy1Next(PJArray, &Index, PJE0))
{
Judy1Set ((Pvoid_t)&GLOBALS->alloc2_chain, Index, PJE0);
}
GLOBALS->outstanding += setjmp_globals->outstanding;
Judy1FreeArray(&PJArray, PJE0);
}
#else
{
void **t, **t2;
t = (void **)setjmp_globals->alloc2_chain;
while(t)
{
t2 = (void **) *(t+1);
if(t2)
{
t = t2;
}
else
{
*(t+1) = GLOBALS->alloc2_chain;
if(GLOBALS->alloc2_chain)
{
t2 = (void **)GLOBALS->alloc2_chain;
*(t2+0) = t;
}
GLOBALS->alloc2_chain = setjmp_globals->alloc2_chain;
GLOBALS->outstanding += setjmp_globals->outstanding;
break;
}
}
}
#endif
free(GLOBALS->vcd_jmp_buf); GLOBALS->vcd_jmp_buf = NULL;
free(setjmp_globals); setjmp_globals = NULL;
load_was_success = 1;
}
else
{
free(GLOBALS->vcd_jmp_buf); GLOBALS->vcd_jmp_buf = NULL;
if(GLOBALS->vcd_handle_vcd_c_1)
{
if(GLOBALS->vcd_is_compressed_vcd_c_1)
{
pclose(GLOBALS->vcd_handle_vcd_c_1);
GLOBALS->vcd_handle_vcd_c_1 = NULL;
}
else
{
fclose(GLOBALS->vcd_handle_vcd_c_1);
GLOBALS->vcd_handle_vcd_c_1 = NULL;
}
}
if(GLOBALS->vcd_handle_vcd_recoder_c_2)
{
if(GLOBALS->vcd_is_compressed_vcd_recoder_c_2)
{
pclose(GLOBALS->vcd_handle_vcd_recoder_c_2);
GLOBALS->vcd_handle_vcd_recoder_c_2 = NULL;
}
else
{
fclose(GLOBALS->vcd_handle_vcd_recoder_c_2);
GLOBALS->vcd_handle_vcd_recoder_c_2 = NULL;
}
}
if(GLOBALS->vlist_handle) { fclose(GLOBALS->vlist_handle); GLOBALS->vlist_handle = NULL; }
if(GLOBALS->mm_lxt_mmap_addr)
{
munmap(GLOBALS->mm_lxt_mmap_addr, GLOBALS->mm_lxt_mmap_len);
GLOBALS->mm_lxt_mmap_addr = NULL;
}
free_outstanding(); /* free anything allocated in loader ctx */
memcpy(GLOBALS, setjmp_globals, sizeof(struct Global)); /* copy over old ctx */
free(setjmp_globals); /* remove cached old ctx */
/* now try again, jump through recovery sequence below */
}
return(load_was_success);
}
/*
* reload from old into the new context
*/
void reload_into_new_context_2(void)
{
FILE *statefile;
struct Global *new_globals;
/* gint tree_frame_x = -1; */ /* scan-build */
gint tree_frame_y = -1;
gdouble tree_vadj_value = 0.0;
gdouble tree_hadj_value = 0.0;
gdouble treeview_vadj_value = 0.0;
gdouble treeview_hadj_value = 0.0;
int fix_from_time = 0, fix_to_time = 0;
TimeType from_time = LLDescriptor(0), to_time = LLDescriptor(0);
char timestr[32];
struct stringchain_t *hier_head = NULL, *hier_curr = NULL;
int load_was_success = 0;
int reload_fail_delay = 1;
char *save_tmpfilename = NULL;
char *reload_tmpfilename = NULL;
int fd_dummy = -1;
int s_ctx_iter;
/* save these in case we decide to write out the rc file later as a user option */
char cached_ignore_savefile_pane_pos = GLOBALS->ignore_savefile_pane_pos;
char cached_ignore_savefile_pos = GLOBALS->ignore_savefile_pos;
char cached_ignore_savefile_size = GLOBALS->ignore_savefile_size;
char cached_splash_disable = GLOBALS->splash_disable;
if((GLOBALS->loaded_file_type == MISSING_FILE)||(GLOBALS->is_optimized_stdin_vcd))
{
fprintf(stderr, "GTKWAVE | Nothing to reload!\n");
return;
}
logbox_reload();
/* kill any pending splash screens (e.g., from Tcl "wish") */
splash_button_press_event(NULL, NULL);
/* fix problem where ungrab doesn't occur if button pressed + simultaneous reload accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1)
{
XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME);
}
/* let all GTK/X events spin through in order to keep menus from freezing open during reload */
#ifndef MAC_INTEGRATION
if(GLOBALS->text_status_c_2)
{
wave_gtk_grab_add(GLOBALS->text_status_c_2); /* grab focus to a known widget with no real side effects */
gtkwave_main_iteration(); /* spin on GTK event loop */
wave_gtk_grab_remove(GLOBALS->text_status_c_2); /* ungrab focus */
}
#endif
printf("GTKWAVE | Reloading waveform...\n");
gtkwavetcl_setvar(WAVE_TCLCB_RELOAD_BEGIN, GLOBALS->loaded_file_name, WAVE_TCLCB_RELOAD_BEGIN_FLAGS);
/* Save state to file */
save_tmpfilename = tmpnam_2(NULL, &fd_dummy);
statefile = save_tmpfilename ? fopen(save_tmpfilename,"wb") : NULL;
if(statefile == NULL) {
fprintf(stderr, "Failed to create temp file required for file reload.\n");
if(save_tmpfilename) { perror("Why"); free_2(save_tmpfilename); }
gtkwavetcl_setvar_nonblocking(WAVE_TCLCB_ERROR,"reload failed",WAVE_TCLCB_ERROR_FLAGS);
return;
}
if(fd_dummy >=0) close(fd_dummy);
write_save_helper(save_tmpfilename, statefile);
fclose(statefile);
reload_tmpfilename = strdup(save_tmpfilename);
free_2(save_tmpfilename);
/* save off size of tree frame if active */
if(GLOBALS->gtk2_tree_frame)
{
/* upper tree */
GtkAdjustment *vadj = XXX_gtk_tree_view_get_vadjustment(XXX_GTK_TREE_VIEW(GLOBALS->treeview_main));
GtkAdjustment *hadj = XXX_gtk_tree_view_get_hadjustment(XXX_GTK_TREE_VIEW(GLOBALS->treeview_main));
if(vadj) tree_vadj_value = gtk_adjustment_get_value(vadj);
if(hadj) tree_hadj_value = gtk_adjustment_get_value(hadj);
GtkAllocation allocation;
gtk_widget_get_allocation(GLOBALS->gtk2_tree_frame, &allocation);
/* tree_frame_x = allocation.width; */ /* scan-build */
tree_frame_y = allocation.height;
/* lower signal set */
vadj = XXX_gtk_tree_view_get_vadjustment(XXX_GTK_TREE_VIEW(GLOBALS->dnd_sigview));
hadj = XXX_gtk_tree_view_get_hadjustment(XXX_GTK_TREE_VIEW(GLOBALS->dnd_sigview));
if(vadj) treeview_vadj_value = gtk_adjustment_get_value(vadj);
if(hadj) treeview_hadj_value = gtk_adjustment_get_value(hadj);
}
/* Kill any open processes */
remove_all_proc_filters();
remove_all_ttrans_filters();
/* Instantiate new global status */
new_globals = initialize_globals();
free(new_globals->gtk_context_bridge_ptr); /* don't need this one as we're copying over the old one... */
new_globals->gtk_context_bridge_ptr = GLOBALS->gtk_context_bridge_ptr;
/* SMP */
new_globals->num_cpus = GLOBALS->num_cpus;
/* tcl interpreter */
#if defined(HAVE_LIBTCL)
new_globals->interp = GLOBALS->interp;
#endif
/* lxt.c */
if(GLOBALS->fd_lxt_c_1 >= 0)
{
close(GLOBALS->fd_lxt_c_1);
GLOBALS->fd_lxt_c_1 = -1;
}
/* Marker positions */
memcpy(new_globals->named_markers, GLOBALS->named_markers, sizeof(GLOBALS->named_markers));
new_globals->named_marker_lock_idx = GLOBALS->named_marker_lock_idx;
/* notebook page flipping */
new_globals->num_notebook_pages = GLOBALS->num_notebook_pages;
new_globals->num_notebook_pages_cumulative = GLOBALS->num_notebook_pages_cumulative;
new_globals->this_context_page = GLOBALS->this_context_page;
new_globals->contexts = GLOBALS->contexts; /* this value is a *** chameleon! malloc'd region is outside debug.c control! */
new_globals->notebook = GLOBALS->notebook;
new_globals->second_page_created = GLOBALS->second_page_created;
(*new_globals->contexts)[new_globals->this_context_page] = new_globals;
new_globals->dead_context = GLOBALS->dead_context; /* this value is a ** chameleon! malloc'd region is outside debug.c control! */
/* to cut down on temporary visual noise from incorrect zoom factor on reload */
new_globals->pixelsperframe = GLOBALS->pixelsperframe;
new_globals->nsperframe = GLOBALS->nsperframe;
new_globals->pxns = GLOBALS->pxns;
new_globals->nspx = GLOBALS->nspx;
new_globals->nspx = GLOBALS->nspx;
new_globals->zoom = GLOBALS->zoom;
/* Default colors, X contexts, pixmaps, drawables, etc from signalwindow.c and wavewindow.c */
new_globals->possibly_use_rc_defaults = GLOBALS->possibly_use_rc_defaults;
new_globals->signalarea_event_box = GLOBALS->signalarea_event_box;
new_globals->keypress_handler_id = GLOBALS->keypress_handler_id;
new_globals->signalarea = GLOBALS->signalarea;
new_globals->wavearea = GLOBALS->wavearea;
#ifdef WAVE_ALLOW_GTK3_GESTURE_EVENT
new_globals->wavearea_gesture_swipe = GLOBALS->wavearea_gesture_swipe;
#endif
new_globals->surface_signalpixmap = GLOBALS->surface_signalpixmap;
new_globals->cr_signalpixmap = GLOBALS->cr_signalpixmap;
new_globals->wave_splash_pixbuf = GLOBALS->wave_splash_pixbuf;
new_globals->hscroll_signalwindow_c_1 = GLOBALS->hscroll_signalwindow_c_1; /* only was used for obsolete XXX_resize_sstpane_y_hack_for_gtk3() */
new_globals->black_and_white = GLOBALS->black_and_white;
new_globals->made_sgc_contexts_wavewindow_c_1 = GLOBALS->made_sgc_contexts_wavewindow_c_1;
new_globals->made_gc_contexts_wavewindow_c_1 = GLOBALS->made_gc_contexts_wavewindow_c_1;
new_globals->surface_wavepixmap_wavewindow_c_1 = GLOBALS->surface_wavepixmap_wavewindow_c_1;
new_globals->cr_wavepixmap_wavewindow_c_1 = GLOBALS->cr_wavepixmap_wavewindow_c_1;
new_globals->rgb_gc_white = GLOBALS->rgb_gc_white;
new_globals->rgb_gc_black = GLOBALS->rgb_gc_black;
memcpy(&new_globals->rgb_gc, &GLOBALS->rgb_gc, sizeof(struct wave_rgbmaster_t));
memcpy(&new_globals->rgb_gccache, &GLOBALS->rgb_gccache, sizeof(struct wave_rgbmaster_t));
memcpy(&new_globals->rgb_gc_rainbow, &GLOBALS->rgb_gc_rainbow, 2 * WAVE_NUM_RAINBOW * sizeof(wave_rgb_t));
new_globals->mainwindow = GLOBALS->mainwindow;
new_globals->signalwindow = GLOBALS->signalwindow;
new_globals->wavewindow = GLOBALS->wavewindow;
new_globals->toppanedwindow = GLOBALS->toppanedwindow;
new_globals->panedwindow = GLOBALS->panedwindow;
new_globals->sstpane = GLOBALS->sstpane;
new_globals->sst_vpaned = GLOBALS->sst_vpaned;
new_globals->expanderwindow = GLOBALS->expanderwindow;
new_globals->signal_hslider = GLOBALS->signal_hslider;
new_globals->wave_vslider = GLOBALS->wave_vslider;
new_globals->wave_hslider = GLOBALS->wave_hslider;
new_globals->hscroll_wavewindow_c_2 = GLOBALS->hscroll_wavewindow_c_2;
new_globals->max_or_marker_label_currenttime_c_1 = GLOBALS->max_or_marker_label_currenttime_c_1;
new_globals->maxtext_currenttime_c_1 = (char *) calloc_2_into_context(new_globals,1,40);
memcpy(new_globals->maxtext_currenttime_c_1, GLOBALS->maxtext_currenttime_c_1,40);
new_globals->maxtimewid_currenttime_c_1 = GLOBALS->maxtimewid_currenttime_c_1;
new_globals->curtext_currenttime_c_1 = (char *) calloc_2_into_context(new_globals,1,40);
memcpy(new_globals->curtext_currenttime_c_1, GLOBALS->curtext_currenttime_c_1, 40);
new_globals->base_or_curtime_label_currenttime_c_1 = GLOBALS->base_or_curtime_label_currenttime_c_1;
new_globals->curtimewid_currenttime_c_1 = GLOBALS->curtimewid_currenttime_c_1;
new_globals->from_entry = GLOBALS->from_entry;
new_globals->to_entry = GLOBALS->to_entry;
new_globals->fontheight = GLOBALS->fontheight;
new_globals->wavecrosspiece = GLOBALS->wavecrosspiece;
new_globals->signalfont = calloc_2_into_context(new_globals, 1, sizeof(struct font_engine_font_t));
memcpy(new_globals->signalfont, GLOBALS->signalfont, sizeof(struct font_engine_font_t));
new_globals->wavefont = calloc_2_into_context(new_globals, 1, sizeof(struct font_engine_font_t));
memcpy(new_globals->wavefont, GLOBALS->wavefont, sizeof(struct font_engine_font_t));
new_globals->wavefont_smaller = calloc_2_into_context(new_globals, 1, sizeof(struct font_engine_font_t));
memcpy(new_globals->wavefont_smaller, GLOBALS->wavefont_smaller, sizeof(struct font_engine_font_t));
new_globals->fonts_screen = GLOBALS->fonts_screen;
new_globals->fonts_context = GLOBALS->fonts_context;
new_globals->fonts_layout = GLOBALS->fonts_layout;
new_globals->use_pango_fonts = GLOBALS->use_pango_fonts;
new_globals->ruler_origin = GLOBALS->ruler_origin;
new_globals->ruler_step = GLOBALS->ruler_step;
/* busy.c */
new_globals->busycursor_busy_c_1 = GLOBALS->busycursor_busy_c_1;
new_globals->busy_busy_c_1 = GLOBALS->busy_busy_c_1;
/* pixmaps.c */
new_globals->redo_pixbuf = GLOBALS->redo_pixbuf;
new_globals->larrow_pixbuf = GLOBALS->larrow_pixbuf;
new_globals->rarrow_pixbuf = GLOBALS->rarrow_pixbuf;
new_globals->zoomin_pixbuf = GLOBALS->zoomin_pixbuf;
new_globals->zoomout_pixbuf = GLOBALS->zoomout_pixbuf;
new_globals->zoomfit_pixbuf = GLOBALS->zoomfit_pixbuf;
new_globals->zoomundo_pixbuf = GLOBALS->zoomundo_pixbuf;
new_globals->zoom_larrow_pixbuf = GLOBALS->zoom_larrow_pixbuf;
new_globals->zoom_rarrow_pixbuf = GLOBALS->zoom_rarrow_pixbuf;
new_globals->prev_page_pixbuf = GLOBALS->prev_page_pixbuf;
new_globals->next_page_pixbuf = GLOBALS->next_page_pixbuf;
new_globals->wave_info_pixbuf = GLOBALS->wave_info_pixbuf;
new_globals->wave_alert_pixbuf = GLOBALS->wave_alert_pixbuf;
clone_icon_pointers_across_contexts(new_globals, GLOBALS);
/* rc.c */
new_globals->scale_to_time_dimension = GLOBALS->scale_to_time_dimension;
new_globals->zoom_dyn = GLOBALS->zoom_dyn;
new_globals->zoom_dyne = GLOBALS->zoom_dyne;
new_globals->use_scrollwheel_as_y = GLOBALS->use_scrollwheel_as_y;
#ifdef WAVE_ALLOW_SLIDER_ZOOM
new_globals->enable_slider_zoom = GLOBALS->enable_slider_zoom;
#endif
new_globals->context_tabposition = GLOBALS->context_tabposition;
new_globals->use_standard_clicking = GLOBALS->use_standard_clicking;
new_globals->dragzoom_threshold = GLOBALS->dragzoom_threshold;
new_globals->cr_line_width = GLOBALS->cr_line_width;
new_globals->cairo_050_offset = GLOBALS->cairo_050_offset;
new_globals->ignore_savefile_pane_pos = 1; /* to keep window from resizing/jumping */
new_globals->ignore_savefile_pos = 1; /* to keep window from resizing/jumping */
new_globals->ignore_savefile_size = 1; /* to keep window from resizing/jumping */
new_globals->color_back = GLOBALS->color_back;
new_globals->color_baseline = GLOBALS->color_baseline;
new_globals->color_grid = GLOBALS->color_grid;
new_globals->color_grid2 = GLOBALS->color_grid2;
new_globals->color_high = GLOBALS->color_high;
new_globals->color_highfill = GLOBALS->color_highfill;
new_globals->color_low = GLOBALS->color_low;
new_globals->color_1 = GLOBALS->color_1;
new_globals->color_1fill = GLOBALS->color_1fill;
new_globals->color_0 = GLOBALS->color_0;
new_globals->color_mark = GLOBALS->color_mark;
new_globals->color_mid = GLOBALS->color_mid;
new_globals->color_time = GLOBALS->color_time;
new_globals->color_timeb = GLOBALS->color_timeb;
new_globals->color_trans = GLOBALS->color_trans;
new_globals->color_umark = GLOBALS->color_umark;
new_globals->color_value = GLOBALS->color_value;
new_globals->color_vbox = GLOBALS->color_vbox;
new_globals->color_vtrans = GLOBALS->color_vtrans;
new_globals->color_x = GLOBALS->color_x;
new_globals->color_xfill = GLOBALS->color_xfill;
new_globals->color_u = GLOBALS->color_u;
new_globals->color_ufill = GLOBALS->color_ufill;
new_globals->color_w = GLOBALS->color_w;
new_globals->color_wfill = GLOBALS->color_wfill;
new_globals->color_dash = GLOBALS->color_dash;
new_globals->color_dashfill = GLOBALS->color_dashfill;
new_globals->color_white = GLOBALS->color_white;
new_globals->color_black = GLOBALS->color_black;
new_globals->color_ltgray = GLOBALS->color_ltgray;
new_globals->color_normal = GLOBALS->color_normal;
new_globals->color_mdgray = GLOBALS->color_mdgray;
new_globals->color_dkgray = GLOBALS->color_dkgray;
new_globals->color_dkblue = GLOBALS->color_dkblue;
new_globals->color_brkred = GLOBALS->color_brkred;
new_globals->color_ltblue = GLOBALS->color_ltblue;
new_globals->color_gmstrd = GLOBALS->color_gmstrd;
new_globals->atomic_vectors = GLOBALS->atomic_vectors;
new_globals->autoname_bundles = GLOBALS->autoname_bundles;
new_globals->autocoalesce = GLOBALS->autocoalesce;
new_globals->autocoalesce_reversal = GLOBALS->autocoalesce_reversal;
new_globals->mti_realparam_fix = GLOBALS->mti_realparam_fix;
new_globals->constant_marker_update = GLOBALS->constant_marker_update;
new_globals->convert_to_reals = GLOBALS->convert_to_reals;
new_globals->disable_mouseover = GLOBALS->disable_mouseover;
new_globals->clipboard_mouseover = GLOBALS->clipboard_mouseover;
new_globals->keep_xz_colors = GLOBALS->keep_xz_colors;
new_globals->disable_tooltips = GLOBALS->disable_tooltips;
new_globals->do_hier_compress = GLOBALS->do_hier_compress;
new_globals->disable_auto_comphier = GLOBALS->disable_auto_comphier;
new_globals->do_initial_zoom_fit = GLOBALS->do_initial_zoom_fit;
new_globals->do_initial_zoom_fit_used = GLOBALS->do_initial_zoom_fit_used;
new_globals->do_resize_signals = GLOBALS->do_resize_signals;
new_globals->alt_wheel_mode = GLOBALS->alt_wheel_mode;
new_globals->initial_signal_window_width = GLOBALS->initial_signal_window_width;
new_globals->enable_fast_exit = GLOBALS->enable_fast_exit;
new_globals->enable_ghost_marker = GLOBALS->enable_ghost_marker;
new_globals->enable_horiz_grid = GLOBALS->enable_horiz_grid;
new_globals->make_vcd_save_file = GLOBALS->make_vcd_save_file;
new_globals->enable_vert_grid = GLOBALS->enable_vert_grid;
new_globals->force_toolbars = GLOBALS->force_toolbars;
new_globals->hide_sst = GLOBALS->hide_sst;
new_globals->sst_expanded = GLOBALS->sst_expanded;
new_globals->hier_grouping = GLOBALS->hier_grouping;
new_globals->hier_max_level = GLOBALS->hier_max_level;
new_globals->hier_max_level_shadow = GLOBALS->hier_max_level_shadow;
new_globals->paned_pack_semantics = GLOBALS->paned_pack_semantics;
new_globals->left_justify_sigs = GLOBALS->left_justify_sigs;
new_globals->lxt_clock_compress_to_z = GLOBALS->lxt_clock_compress_to_z;
new_globals->extload_max_tree = GLOBALS->extload_max_tree;
new_globals->ps_maxveclen = GLOBALS->ps_maxveclen;
new_globals->show_base = GLOBALS->show_base;
new_globals->display_grid = GLOBALS->display_grid;
new_globals->fullscreen = GLOBALS->fullscreen;
new_globals->show_toolbar = GLOBALS->show_toolbar;
new_globals->time_mainbox = GLOBALS->time_mainbox;
new_globals->highlight_wavewindow = GLOBALS->highlight_wavewindow;
new_globals->fill_waveform = GLOBALS->fill_waveform;
new_globals->lz_removal = GLOBALS->lz_removal;
new_globals->use_standard_trace_select = GLOBALS->use_standard_trace_select;
new_globals->use_big_fonts = GLOBALS->use_big_fonts;
new_globals->use_full_precision = GLOBALS->use_full_precision;
new_globals->use_frequency_delta = GLOBALS->use_frequency_delta;
new_globals->use_maxtime_display = GLOBALS->use_maxtime_display;
new_globals->use_nonprop_fonts = GLOBALS->use_nonprop_fonts;
new_globals->use_roundcaps = GLOBALS->use_roundcaps;
new_globals->use_scrollbar_only = GLOBALS->use_scrollbar_only;
new_globals->vcd_explicit_zero_subscripts = GLOBALS->vcd_explicit_zero_subscripts;
new_globals->vcd_preserve_glitches = GLOBALS->vcd_preserve_glitches;
new_globals->vcd_preserve_glitches_real = GLOBALS->vcd_preserve_glitches_real;
new_globals->vcd_warning_filesize = GLOBALS->vcd_warning_filesize;
new_globals->vector_padding = GLOBALS->vector_padding;
new_globals->vlist_prepack = GLOBALS->vlist_prepack;
new_globals->vlist_spill_to_disk = GLOBALS->vlist_spill_to_disk;
new_globals->vlist_compression_depth = GLOBALS->vlist_compression_depth;
new_globals->wave_scrolling = GLOBALS->wave_scrolling;
new_globals->do_zoom_center = GLOBALS->do_zoom_center;
new_globals->zoom_pow10_snap = GLOBALS->zoom_pow10_snap;
new_globals->alt_hier_delimeter = GLOBALS->alt_hier_delimeter;
new_globals->cursor_snap = GLOBALS->cursor_snap;
new_globals->hier_delimeter = GLOBALS->hier_delimeter;
new_globals->hier_was_explicitly_set = GLOBALS->hier_was_explicitly_set;
new_globals->page_divisor = GLOBALS->page_divisor;
new_globals->ps_maxveclen = GLOBALS->ps_maxveclen;
new_globals->vector_padding = GLOBALS->vector_padding;
new_globals->zoombase = GLOBALS->zoombase;
new_globals->disable_ae2_alias = GLOBALS->disable_ae2_alias;
new_globals->hier_ignore_escapes = GLOBALS->hier_ignore_escapes;
new_globals->splash_disable = 1; /* to disable splash for reload */
new_globals->strace_repeat_count = GLOBALS->strace_repeat_count; /* for edgebuttons and also strace */
new_globals->logfiles = GLOBALS->logfiles; /* this value is a ** chameleon! malloc'd region is outside debug.c control! */
new_globals->sst_dbl_action_type = GLOBALS->sst_dbl_action_type;
new_globals->use_gestures = GLOBALS->use_gestures;
new_globals->use_dark = GLOBALS->use_dark;
new_globals->save_on_exit = GLOBALS->save_on_exit;
strcpy2_into_new_context(new_globals, &new_globals->argvlist, &GLOBALS->argvlist);
strcpy2_into_new_context(new_globals, &new_globals->editor_name, &GLOBALS->editor_name);
strcpy2_into_new_context(new_globals, &new_globals->fontname_logfile, &GLOBALS->fontname_logfile);
strcpy2_into_new_context(new_globals, &new_globals->fontname_signals, &GLOBALS->fontname_signals);
strcpy2_into_new_context(new_globals, &new_globals->fontname_waves, &GLOBALS->fontname_waves);
strcpy2_into_new_context(new_globals, &new_globals->cutcopylist, &GLOBALS->cutcopylist);
strcpy2_into_new_context(new_globals, &new_globals->tcl_init_cmd, &GLOBALS->tcl_init_cmd);
strcpy2_into_new_context(new_globals, &new_globals->repscript_name, &GLOBALS->repscript_name);
new_globals->repscript_period = GLOBALS->repscript_period;
strcpy2_into_new_context(new_globals, &new_globals->pFileChooseFilterName, &GLOBALS->pFileChooseFilterName);
/* search.c */
new_globals->regex_which_search_c_1 = GLOBALS->regex_which_search_c_1; /* preserve search type */
/* ttranslate.c */
strcpy2_into_new_context(new_globals, &new_globals->ttranslate_args, &GLOBALS->ttranslate_args);
/* vlist.c */
if(GLOBALS->vlist_handle)
{
vlist_kill_spillfile();
new_globals->use_fastload = (GLOBALS->use_fastload != VCD_FSL_NONE) ? VCD_FSL_WRITE : VCD_FSL_NONE;
}
/* lxt2.c / vzt.c / ae2.c */
strcpy2_into_new_context(new_globals, &new_globals->skip_start, &GLOBALS->skip_start);
strcpy2_into_new_context(new_globals, &new_globals->skip_end, &GLOBALS->skip_end);
/* main.c */
new_globals->missing_file_toolbar = GLOBALS->missing_file_toolbar;
new_globals->is_gtkw_save_file = GLOBALS->is_gtkw_save_file;
new_globals->use_toolbutton_interface = GLOBALS->use_toolbutton_interface;
new_globals->optimize_vcd = GLOBALS->optimize_vcd;
strcpy2_into_new_context(new_globals, &new_globals->winname, &GLOBALS->winname); /* for page swapping */
/* menu.c */
new_globals->wave_script_args = GLOBALS->wave_script_args;
strcpy2_into_new_context(new_globals, &new_globals->filesel_writesave, &GLOBALS->filesel_writesave);
new_globals->save_success_menu_c_1 = GLOBALS->save_success_menu_c_1;
new_globals->signal_popup_menu = GLOBALS->signal_popup_menu;
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
new_globals->main_popup_menu = GLOBALS->main_popup_menu;
new_globals->main_popup_menu_button = GLOBALS->main_popup_menu_button;
new_globals->header_bar = GLOBALS->header_bar;
new_globals->top_table = GLOBALS->top_table;
#endif
new_globals->sst_signal_popup_menu = GLOBALS->sst_signal_popup_menu;
strcpy2_into_new_context(new_globals, &new_globals->filesel_vcd_writesave, &GLOBALS->filesel_vcd_writesave);
strcpy2_into_new_context(new_globals, &new_globals->filesel_lxt_writesave, &GLOBALS->filesel_lxt_writesave);
strcpy2_into_new_context(new_globals, &new_globals->filesel_tim_writesave, &GLOBALS->filesel_tim_writesave);
strcpy2_into_new_context(new_globals, &new_globals->stems_name, &GLOBALS->stems_name); /* remaining fileselbox() vars not handled elsewhere */
strcpy2_into_new_context(new_globals, &new_globals->filesel_logfile_menu_c_1, &GLOBALS->filesel_logfile_menu_c_1);
strcpy2_into_new_context(new_globals, &new_globals->filesel_scriptfile_menu, &GLOBALS->filesel_scriptfile_menu);
strcpy2_into_new_context(new_globals, &new_globals->fcurr_ttranslate_c_1, &GLOBALS->fcurr_ttranslate_c_1);
strcpy2_into_new_context(new_globals, &new_globals->fcurr_ptranslate_c_1, &GLOBALS->fcurr_ptranslate_c_1);
strcpy2_into_new_context(new_globals, &new_globals->fcurr_translate_c_2, &GLOBALS->fcurr_translate_c_2);
strcpy2_into_new_context(new_globals, &new_globals->filesel_imagegrab, &GLOBALS->filesel_imagegrab);
/* renderopt.c */
#ifdef WAVE_GTK_UNIX_PRINT
new_globals->gprs = GLOBALS->gprs;
new_globals->gps = GLOBALS->gps;
#endif
/* status.c */
new_globals->text_status_c_2 = GLOBALS->text_status_c_2;
memcpy(&new_globals->iter_status_c_3, &GLOBALS->iter_status_c_3, sizeof(GtkTextIter));
/* treesearch_gtk2.c */
new_globals->do_dynamic_treefilter = GLOBALS->do_dynamic_treefilter;
new_globals->treesearch_gtk2_window_vbox = GLOBALS->treesearch_gtk2_window_vbox;
new_globals->window_treesearch_gtk2_c_12 = GLOBALS->window_treesearch_gtk2_c_12;
new_globals->dnd_sigview = GLOBALS->dnd_sigview;
strcpy2_into_new_context(new_globals, &new_globals->filter_str_treesearch_gtk2_c_1, &GLOBALS->filter_str_treesearch_gtk2_c_1);
strcpy2_into_new_context(new_globals, &new_globals->selected_hierarchy_name, &GLOBALS->selected_hierarchy_name);
new_globals->filter_typ_treesearch_gtk2_c_1 = GLOBALS->filter_typ_treesearch_gtk2_c_1;
new_globals->filter_matlen_treesearch_gtk2_c_1 = GLOBALS->filter_matlen_treesearch_gtk2_c_1;
new_globals->filter_noregex_treesearch_gtk2_c_1 = GLOBALS->filter_noregex_treesearch_gtk2_c_1;
strcpy2_into_new_context(new_globals, &new_globals->sst_exclude_filename, &GLOBALS->sst_exclude_filename);
if(GLOBALS->exclcompname)
{
jrb_free_tree(GLOBALS->exclcompname); /* strings get freed by automatic _2 mechanism */
GLOBALS->exclcompname = NULL;
}
if(GLOBALS->exclinstname)
{
jrb_free_tree(GLOBALS->exclinstname); /* strings get freed by automatic _2 mechanism */
GLOBALS->exclinstname = NULL;
}
/* timeentry.c */
new_globals->from_entry = GLOBALS->from_entry;
new_globals->to_entry = GLOBALS->to_entry;
if(GLOBALS->tims.first != GLOBALS->min_time)
{
fix_from_time = 1;
from_time = GLOBALS->tims.first;
}
if(GLOBALS->tims.last != GLOBALS->max_time)
{
fix_to_time = 1;
to_time = GLOBALS->tims.last;
}
/* twinwave stuff */
new_globals->dual_attach_id_main_c_1 = GLOBALS->dual_attach_id_main_c_1;
new_globals->dual_id = GLOBALS->dual_id;
new_globals->socket_xid = GLOBALS->socket_xid;
new_globals->dual_ctx = GLOBALS->dual_ctx;
/* Times struct */
memcpy(&(new_globals->tims), &(GLOBALS->tims), sizeof(Times));
/* File name and type */
new_globals->loaded_file_type = GLOBALS->loaded_file_type;
strcpy2_into_new_context(new_globals, &new_globals->loaded_file_name, &GLOBALS->loaded_file_name);
if(new_globals->optimize_vcd) {
strcpy2_into_new_context(new_globals, &new_globals->unoptimized_vcd_file_name, &GLOBALS->unoptimized_vcd_file_name);
}
/* fst.c, though might be others later */
if(GLOBALS->subvar_jrb)
{
jrb_free_tree(GLOBALS->subvar_jrb);
GLOBALS->subvar_jrb = NULL;
GLOBALS->subvar_jrb_count = 0;
}
if(GLOBALS->synclock_jrb)
{
jrb_free_tree(GLOBALS->synclock_jrb);
GLOBALS->synclock_jrb = NULL;
}
if(GLOBALS->enum_nptrs_jrb)
{
jrb_free_tree(GLOBALS->enum_nptrs_jrb);
GLOBALS->enum_nptrs_jrb = NULL;
}
#ifdef _WAVE_HAVE_JUDY
if(GLOBALS->num_xl_enum_filter)
{
int ie;
for(ie=0;ienum_xl_enum_filter;ie++)
{
JudyHSFreeArray(&GLOBALS->xl_enum_filter[ie], NULL);
}
GLOBALS->num_xl_enum_filter = 0;
}
#endif
/* deallocate any loader-related stuff */
switch(GLOBALS->loaded_file_type) {
case LXT_FILE:
if(GLOBALS->mm_lxt_mmap_addr)
{
munmap(GLOBALS->mm_lxt_mmap_addr, GLOBALS->mm_lxt_mmap_len);
}
break;
case LX2_FILE: lxt2_rd_close(GLOBALS->lx2_lx2_c_1); break;
case VZT_FILE: vzt_rd_close(GLOBALS->vzt_vzt_c_1); break;
case FST_FILE: fstReaderClose(GLOBALS->fst_fst_c_1); GLOBALS->fst_fst_c_1 = NULL; break;
case AE2_FILE:
#ifdef AET2_IS_PRESENT
#ifdef AET2_ALIASDB_IS_PRESENT
if(GLOBALS->adb) { adb_close_db(GLOBALS->adb); GLOBALS->adb = 0; }
/* if(GLOBALS->m_alias_stream_file) { fclose(GLOBALS->m_alias_stream_file); GLOBALS->m_alias_stream_file = NULL; } */
ae2_read_end(GLOBALS->ae2); fclose(GLOBALS->ae2_f);
#endif
#endif
break;
#ifdef EXTLOAD_SUFFIX
case EXTLOAD_FILE:
if(GLOBALS->extload_ffr_ctx)
{
#ifdef WAVE_FSDB_READER_IS_PRESENT
fsdbReaderClose(GLOBALS->extload_ffr_ctx);
#endif
GLOBALS->extload_ffr_ctx = NULL;
}
break;
#endif
case MISSING_FILE:
case DUMPLESS_FILE:
case GHW_FILE:
case VCD_FILE:
case VCD_RECODER_FILE:
default:
/* do nothing */ break;
}
/* window destruction (of windows that aren't the parent window) */
kill_stems_browser(); /* for now, need to rework the stems browser dumpfile access routines to support this properly */
new_globals->stems_type = GLOBALS->stems_type;
strcpy2_into_new_context(new_globals, &new_globals->aet_name, &GLOBALS->aet_name);
/* remaining windows which are completely destroyed and haven't migrated over */
widget_only_destroy(&GLOBALS->window_ptranslate_c_5); /* ptranslate.c */
WAVE_STRACE_ITERATOR(s_ctx_iter)
{
GLOBALS->strace_ctx = &GLOBALS->strace_windows[GLOBALS->strace_current_window = s_ctx_iter];
widget_only_destroy(&GLOBALS->strace_ctx->window_strace_c_10); /* strace.c */
}
widget_only_destroy(&GLOBALS->window_translate_c_11); /* translate.c */
widget_only_destroy(&GLOBALS->window_treesearch_gtk1_c); /* treesearch_gtk1.c */
widget_only_destroy(&GLOBALS->window_help_c_2); /* help.c : reload is gated off during help so this should never execute */
/* windows which in theory should never destroy as they will have grab focus which means reload will not be called */
widget_ungrab_destroy(&GLOBALS->window1_hiersearch_c_1); /* hiersearch.c */
widget_ungrab_destroy(&GLOBALS->window_markerbox_c_4); /* markerbox.c */
widget_ungrab_destroy(&GLOBALS->window1_search_c_2); /* search.c */
widget_ungrab_destroy(&GLOBALS->window_simplereq_c_9); /* simplereq.c */
widget_ungrab_destroy(&GLOBALS->window1_treesearch_gtk1_c); /* treesearch_gtk1.c */
widget_ungrab_destroy(&GLOBALS->window1_treesearch_gtk2_c_3); /* treesearch_gtk2.c */
/* supported migration of window contexts... */
if(GLOBALS->window_hiersearch_c_3)
{
struct treechain *tc = GLOBALS->treechain_hiersearch_c_1;
while(tc)
{
char *tclname;
if(!hier_curr)
{
hier_head = hier_curr = calloc_2_into_context(new_globals,1,sizeof(struct stringchain_t));
}
else
{
hier_curr->next = calloc_2_into_context(new_globals,1,sizeof(struct stringchain_t));
hier_curr = hier_curr->next;
}
tclname = &tc->label->name[0];
strcpy2_into_new_context(new_globals, &hier_curr->name, &tclname);
tc = tc->next;
}
new_globals->window_hiersearch_c_3 = GLOBALS->window_hiersearch_c_3;
new_globals->entry_main_hiersearch_c_1 = GLOBALS->entry_main_hiersearch_c_1;
new_globals->sig_store_hiersearch = GLOBALS->sig_store_hiersearch;
new_globals->sig_selection_hiersearch = GLOBALS->sig_selection_hiersearch;
new_globals->bundle_direction_hiersearch_c_1 = GLOBALS->bundle_direction_hiersearch_c_1;
new_globals->cleanup_hiersearch_c_3 = GLOBALS->cleanup_hiersearch_c_3;
new_globals->is_active_hiersearch_c_1 = GLOBALS->is_active_hiersearch_c_1;
}
if(GLOBALS->mouseover_mouseover_c_1) /* mouseover regenerates as the pointer moves so no real context lost */
{
gtk_widget_destroy(GLOBALS->mouseover_mouseover_c_1); GLOBALS->mouseover_mouseover_c_1 = NULL;
if(GLOBALS->cr_mo_pixmap_mouseover_c_1) { cairo_destroy(GLOBALS->cr_mo_pixmap_mouseover_c_1); GLOBALS->cr_mo_pixmap_mouseover_c_1 = NULL; }
if(GLOBALS->surface_mo_pixmap_mouseover_c_1) { cairo_surface_destroy(GLOBALS->surface_mo_pixmap_mouseover_c_1); GLOBALS->surface_mo_pixmap_mouseover_c_1 = NULL; }
}
if(GLOBALS->window_renderopt_c_6)
{
new_globals->is_active_renderopt_c_3 = GLOBALS->is_active_renderopt_c_3;
new_globals->window_renderopt_c_6 = GLOBALS->window_renderopt_c_6;
memcpy(new_globals->target_mutex_renderopt_c_1, GLOBALS->target_mutex_renderopt_c_1, sizeof(GLOBALS->target_mutex_renderopt_c_1));
memcpy(new_globals->page_mutex_renderopt_c_1, GLOBALS->page_mutex_renderopt_c_1, sizeof(GLOBALS->page_mutex_renderopt_c_1));
memcpy(new_globals->render_mutex_renderopt_c_1, GLOBALS->render_mutex_renderopt_c_1, sizeof(GLOBALS->render_mutex_renderopt_c_1));
strcpy2_into_new_context(new_globals, &new_globals->filesel_print_pdf_renderopt_c_1, &GLOBALS->filesel_print_pdf_renderopt_c_1);
strcpy2_into_new_context(new_globals, &new_globals->filesel_print_ps_renderopt_c_1, &GLOBALS->filesel_print_ps_renderopt_c_1);
strcpy2_into_new_context(new_globals, &new_globals->filesel_print_mif_renderopt_c_1, &GLOBALS->filesel_print_mif_renderopt_c_1);
new_globals->page_size_type_renderopt_c_1 = GLOBALS->page_size_type_renderopt_c_1;
}
if(GLOBALS->window_search_c_7)
{
int i;
new_globals->pdata = calloc_2_into_context(new_globals, 1, sizeof(SearchProgressData));
memcpy(new_globals->pdata, GLOBALS->pdata, sizeof(SearchProgressData));
new_globals->is_active_search_c_4 = GLOBALS->is_active_search_c_4;
new_globals->regex_which_search_c_1 = GLOBALS->regex_which_search_c_1;
new_globals->window_search_c_7 = GLOBALS->window_search_c_7;
new_globals->entry_search_c_3 = GLOBALS->entry_search_c_3;
new_globals->sig_store_search = GLOBALS->sig_store_search;
new_globals->sig_selection_search = GLOBALS->sig_selection_search;
new_globals->sig_view_search = GLOBALS->sig_view_search;
strcpy2_into_new_context(new_globals, &new_globals->searchbox_text_search_c_1, &GLOBALS->searchbox_text_search_c_1);
for(i=0;i<5;i++)
{
new_globals->menuitem_search[i] = GLOBALS->menuitem_search[i];
new_globals->regex_mutex_search_c_1[i] = GLOBALS->regex_mutex_search_c_1[i];
}
}
#ifdef WAVE_ALLOW_GTK3_GESTURE_EVENT
if(GLOBALS->swipe_init_time)
{
g_date_time_unref(GLOBALS->swipe_init_time);
GLOBALS->swipe_init_time = NULL;
}
#endif
/* erase any old tabbed contexts if they exist... */
dead_context_sweep();
/* let any destructors finalize on GLOBALS dereferences... (commented out for now) */
/* gtkwave_main_iteration(); */
/* Free the old context */
free_outstanding();
/* Free the old globals struct, memsetting it to zero in the hope of forcing crashes. */
memset(GLOBALS, 0, sizeof(struct Global));
free(GLOBALS);
GLOBALS = NULL; /* valgrind fix */
/* Set the GLOBALS pointer to the newly allocated struct. */
set_GLOBALS(new_globals);
*(GLOBALS->gtk_context_bridge_ptr) = GLOBALS;
init_filetrans_data();
init_proctrans_data();
init_ttrans_data();
/* load_all_fonts(); */
sst_exclusion_loader();
/* attempt to reload file and recover on loader errors until successful */
for(;;)
{
set_window_busy(NULL);
/* Check to see if we need to reload a vcd file */
#if !defined __MINGW32__
if(GLOBALS->optimize_vcd)
{
optimize_vcd_file();
}
#endif
/* Load new file from disk, no reload on partial vcd or vcd from stdin. */
switch(GLOBALS->loaded_file_type)
{
#ifdef EXTLOAD_SUFFIX
case EXTLOAD_FILE:
extload_main(GLOBALS->loaded_file_name, GLOBALS->skip_start, GLOBALS->skip_end);
load_was_success = (GLOBALS->extload != NULL) && (!GLOBALS->extload_already_errored);
GLOBALS->extload_already_errored = 0;
GLOBALS->extload_lastmod = 0;
break;
#endif
case LX2_FILE:
lx2_main(GLOBALS->loaded_file_name,GLOBALS->skip_start,GLOBALS->skip_end);
load_was_success = (GLOBALS->lx2_lx2_c_1 != NULL);
break;
case VZT_FILE:
vzt_main(GLOBALS->loaded_file_name,GLOBALS->skip_start,GLOBALS->skip_end);
load_was_success = (GLOBALS->vzt_vzt_c_1 != NULL);
break;
case FST_FILE:
fst_main(GLOBALS->loaded_file_name,GLOBALS->skip_start,GLOBALS->skip_end);
load_was_success = (GLOBALS->fst_fst_c_1 != NULL);
break;
case AE2_FILE:
#ifdef AET2_IS_PRESENT
ae2_main(GLOBALS->loaded_file_name,GLOBALS->skip_start,GLOBALS->skip_end);
load_was_success = (GLOBALS->ae2 != NULL);
#else
load_was_success = 0; /* never executes as AE2_FILE won't be set */
#endif
break;
case GHW_FILE:
load_was_success = (ghw_main(GLOBALS->loaded_file_name) != 0);
break;
case LXT_FILE:
case VCD_FILE:
case VCD_RECODER_FILE:
load_was_success = handle_setjmp();
break;
default:
break;
}
set_window_idle(NULL);
if(load_was_success)
{
break;
}
else
{
/* recovery sequence */
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
if(GLOBALS->header_bar)
{
char recbuf[128];
sprintf(recbuf, "Reload failure, reattempt in %d second%s...", reload_fail_delay, (reload_fail_delay==1) ? "" : "s");
gtk_header_bar_set_subtitle(GTK_HEADER_BAR(GLOBALS->header_bar), recbuf);
g_usleep(30000);
}
#endif
set_window_busy(NULL);
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
if(!GLOBALS->header_bar)
#endif
{
printf("GTKWAVE | Reload failure, reattempt in %d second%s...\n", reload_fail_delay, (reload_fail_delay==1) ? "" : "s");
fflush(stdout);
}
sleep(reload_fail_delay);
switch(reload_fail_delay)
{
case 1: reload_fail_delay = 2; break;
case 2: reload_fail_delay = 5; break;
case 5: reload_fail_delay = 10; break;
case 10: reload_fail_delay = 30; break;
case 30: reload_fail_delay = 10; break; /* recycle back so message changes if header bar */
default: break;
}
set_window_idle(NULL);
}
}
/* deallocate the symbol hash table */
sym_hash_destroy(GLOBALS);
/* Setup timings we probably need to redraw here */
GLOBALS->tims.last=GLOBALS->max_time;
GLOBALS->tims.first=GLOBALS->min_time;
if(fix_from_time)
{
if((from_time >= GLOBALS->min_time) && (from_time <= GLOBALS->max_time))
{
GLOBALS->tims.first = from_time;
}
}
if(fix_to_time)
{
if((to_time >= GLOBALS->min_time) && (to_time <= GLOBALS->max_time) && (to_time > GLOBALS->tims.first))
{
GLOBALS->tims.last = to_time;
}
}
if(GLOBALS->tims.start < GLOBALS->tims.first) { GLOBALS->tims.start = GLOBALS->tims.first; }
if(GLOBALS->tims.end > GLOBALS->tims.last) { GLOBALS->tims.end = GLOBALS->tims.last; }
if(GLOBALS->tims.marker < GLOBALS->tims.first) { GLOBALS->tims.marker = GLOBALS->tims.first; }
if(GLOBALS->tims.marker > GLOBALS->tims.last) { GLOBALS->tims.marker = GLOBALS->tims.last; }
if(GLOBALS->tims.prevmarker < GLOBALS->tims.first) { GLOBALS->tims.prevmarker = GLOBALS->tims.first; }
if(GLOBALS->tims.prevmarker > GLOBALS->tims.last) { GLOBALS->tims.prevmarker = GLOBALS->tims.last; }
if(GLOBALS->tims.laststart < GLOBALS->tims.first) { GLOBALS->tims.laststart = GLOBALS->tims.first; }
if(GLOBALS->tims.laststart > GLOBALS->tims.last) { GLOBALS->tims.laststart = GLOBALS->tims.last; }
reformat_time(timestr, GLOBALS->tims.first + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(GLOBALS->from_entry),timestr);
reformat_time(timestr, GLOBALS->tims.last + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_entry_set_text(GTK_ENTRY(GLOBALS->to_entry),timestr);
/* Change SST - if it exists */
/* XXX need to destroy/free the old tree widgets. */
if(!GLOBALS->hide_sst) {
gint pane_pos = gtk_paned_get_position(GLOBALS->sst_vpaned);
gtk_widget_hide(GLOBALS->expanderwindow);
gtk_container_remove(GTK_CONTAINER(GLOBALS->expanderwindow), GLOBALS->sstpane);
GLOBALS->sstpane = treeboxframe("SST", G_CALLBACK(mkmenu_treesearch_cleanup));
gtk_container_add(GTK_CONTAINER(GLOBALS->expanderwindow), GLOBALS->sstpane);
gtk_paned_set_position(GLOBALS->sst_vpaned, pane_pos);
gtk_widget_show(GLOBALS->expanderwindow);
if(GLOBALS->dnd_sigview)
{
dnd_setup(GLOBALS->dnd_sigview, GLOBALS->signalarea, 0);
}
if(GLOBALS->sig_view_search)
{
dnd_setup(GLOBALS->sig_view_search, GLOBALS->signalarea, 0);
}
}
if(GLOBALS->window_treesearch_gtk2_c_12)
{
gtk_container_remove(GTK_CONTAINER(GLOBALS->window_treesearch_gtk2_c_12), GLOBALS->treesearch_gtk2_window_vbox);
treebox(NULL, G_CALLBACK(mkmenu_treesearch_cleanup), GLOBALS->window_treesearch_gtk2_c_12);
}
if((GLOBALS->filter_str_treesearch_gtk2_c_1) && (GLOBALS->filter_entry))
{
gtk_entry_set_text(GTK_ENTRY(GLOBALS->filter_entry), GLOBALS->filter_str_treesearch_gtk2_c_1);
wave_regex_compile(GLOBALS->filter_str_treesearch_gtk2_c_1 + GLOBALS->filter_matlen_treesearch_gtk2_c_1, WAVE_REGEX_TREE);
}
/* Reload state from file */
{
char is_gtkw_save_file_cached = GLOBALS->is_gtkw_save_file;
read_save_helper(reload_tmpfilename, NULL, NULL, NULL, NULL, NULL);
GLOBALS->is_gtkw_save_file = is_gtkw_save_file_cached;
}
/* again doing this here (read_save_helper does it) seems to be necessary in order to keep display in sync */
GLOBALS->signalwindow_width_dirty=1;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
/* unlink temp */
unlink(reload_tmpfilename);
free(reload_tmpfilename); /* intentional use of free(), of strdup'd string from earlier */
/* part 2 of SST (which needs to be done after the tree is expanded from loading the savefile...) */
if((!GLOBALS->hide_sst)||(GLOBALS->window_treesearch_gtk2_c_12)) {
char *hiername_cache = NULL; /* some strange race condition side effect in gtk selecting/deselecting blows this out so cache it */
if(GLOBALS->selected_hierarchy_name)
{
hiername_cache = strdup_2(GLOBALS->selected_hierarchy_name);
select_tree_node(GLOBALS->selected_hierarchy_name);
}
if(tree_vadj_value != 0.0)
{
GtkAdjustment *vadj = XXX_gtk_tree_view_get_vadjustment(XXX_GTK_TREE_VIEW(GLOBALS->treeview_main));
if((vadj) && (tree_vadj_value >= gtk_adjustment_get_value(vadj)) && (tree_vadj_value <= gtk_adjustment_get_upper(vadj)))
{
gtk_adjustment_set_value(vadj, tree_vadj_value);
XXX_gtk_tree_view_set_vadjustment(XXX_GTK_TREE_VIEW(GLOBALS->treeview_main), vadj);
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(vadj)), "changed");
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(vadj)), "value_changed");
}
}
if(tree_hadj_value != 0.0)
{
GtkAdjustment *hadj = XXX_gtk_tree_view_get_hadjustment(XXX_GTK_TREE_VIEW(GLOBALS->treeview_main));
if((hadj) && (tree_hadj_value >= gtk_adjustment_get_lower(hadj)) && (tree_hadj_value <= gtk_adjustment_get_upper(hadj)))
{
gtk_adjustment_set_value(hadj, tree_hadj_value);
XXX_gtk_tree_view_set_hadjustment(XXX_GTK_TREE_VIEW(GLOBALS->treeview_main), hadj);
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(hadj)), "changed");
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(hadj)), "value_changed");
}
}
if(hiername_cache)
{
if(GLOBALS->selected_hierarchy_name)
{
free_2(GLOBALS->selected_hierarchy_name);
}
GLOBALS->selected_hierarchy_name = hiername_cache;
}
if(tree_frame_y != -1)
{
/* this doesn't work...this sets the *minimum* size */
/* gtk_widget_set_size_request(GLOBALS->gtk2_tree_frame, -1, tree_frame_y); */
}
if(GLOBALS->filter_entry) { g_signal_emit_by_name (XXX_GTK_OBJECT (GLOBALS->filter_entry), "activate"); }
}
/* part 2 of search (which needs to be done after the new dumpfile is loaded) */
if(GLOBALS->window_search_c_7)
{
search_enter_callback(GLOBALS->entry_search_c_3, NULL);
}
/* part 2 of hier search (which needs to be done after the new dumpfile is loaded) */
if(GLOBALS->window_hiersearch_c_3)
{
if(!hier_curr)
{
GLOBALS->current_tree_hiersearch_c_1=GLOBALS->treeroot;
GLOBALS->h_selectedtree_hiersearch_c_1=NULL;
}
else
{
struct tree *t = GLOBALS->treeroot;
hier_curr = hier_head;
while((hier_curr)&&(t))
{
if(!strcmp(hier_curr->name, t->name))
{
if(t->child)
{
struct treechain *tc, *tc2;
tc=GLOBALS->treechain_hiersearch_c_1;
if(tc)
{
while(tc->next) tc=tc->next;
tc2=calloc_2(1,sizeof(struct treechain));
tc2->label=t;
tc2->tree=GLOBALS->current_tree_hiersearch_c_1;
tc->next=tc2;
}
else
{
GLOBALS->treechain_hiersearch_c_1=calloc_2(1,sizeof(struct treechain));
GLOBALS->treechain_hiersearch_c_1->tree=GLOBALS->current_tree_hiersearch_c_1;
GLOBALS->treechain_hiersearch_c_1->label=t;
}
GLOBALS->current_tree_hiersearch_c_1=t->child;
}
t = t->child;
hier_curr = hier_curr->next;
continue;
}
t = t->next;
}
hier_curr = hier_head;
while(hier_head)
{
hier_head = hier_curr->next;
free_2(hier_curr->name);
free_2(hier_curr);
hier_curr = hier_head;
}
}
refresh_hier_tree(GLOBALS->current_tree_hiersearch_c_1);
}
/* restore these in case we decide to write out the rc file later as a user option */
GLOBALS->ignore_savefile_pane_pos = cached_ignore_savefile_pane_pos;
GLOBALS->ignore_savefile_pos = cached_ignore_savefile_pos;
GLOBALS->ignore_savefile_size = cached_ignore_savefile_size;
GLOBALS->splash_disable = cached_splash_disable;
printf("GTKWAVE | ...waveform reloaded\n");
gtkwavetcl_setvar(WAVE_TCLCB_RELOAD_END, GLOBALS->loaded_file_name, WAVE_TCLCB_RELOAD_END_FLAGS);
/* update lower signal set in SST to correct position */
if((GLOBALS->dnd_sigview) && ((treeview_vadj_value != 0.0) || (treeview_hadj_value != 0.0)))
{
struct Global *G2 = GLOBALS;
gtk_events_pending_gtk_main_iteration();
if((G2 == GLOBALS)&&(GLOBALS->dnd_sigview))
{
if(treeview_vadj_value != 0.0)
{
GtkAdjustment *vadj = XXX_gtk_tree_view_get_vadjustment(XXX_GTK_TREE_VIEW(GLOBALS->dnd_sigview));
if((vadj) && (treeview_vadj_value >= gtk_adjustment_get_lower(vadj)) && (treeview_vadj_value <= gtk_adjustment_get_upper(vadj)))
{
gtk_adjustment_set_value(vadj, treeview_vadj_value);
XXX_gtk_tree_view_set_vadjustment(XXX_GTK_TREE_VIEW(GLOBALS->dnd_sigview), vadj);
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(vadj)), "changed");
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(vadj)), "value_changed");
}
}
if(treeview_hadj_value != 0.0)
{
GtkAdjustment *hadj = XXX_gtk_tree_view_get_hadjustment(XXX_GTK_TREE_VIEW(GLOBALS->dnd_sigview));
if((hadj) && (treeview_hadj_value >= gtk_adjustment_get_lower(hadj)) && (treeview_hadj_value <= gtk_adjustment_get_upper(hadj)))
{
gtk_adjustment_set_value(hadj, treeview_hadj_value);
XXX_gtk_tree_view_set_hadjustment(XXX_GTK_TREE_VIEW(GLOBALS->dnd_sigview), hadj);
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(hadj)), "changed");
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(hadj)), "value_changed");
}
}
}
}
}
void reload_into_new_context(void)
{
static int reloading = 0;
if(!reloading)
{
#ifdef MAC_INTEGRATION
osx_menu_sensitivity(FALSE);
#endif
reload_into_new_context_2();
reloading = 0;
#ifdef MAC_INTEGRATION
if(GLOBALS->loaded_file_type != MISSING_FILE)
{
osx_menu_sensitivity(TRUE);
}
#endif
}
}
/*
* for notebook page closing
*/
void free_and_destroy_page_context(void)
{
int s_ctx_iter;
/* deallocate any loader-related stuff */
switch(GLOBALS->loaded_file_type) {
case LXT_FILE:
if(GLOBALS->mm_lxt_mmap_addr)
{
munmap(GLOBALS->mm_lxt_mmap_addr, GLOBALS->mm_lxt_mmap_len);
}
break;
case LX2_FILE: lxt2_rd_close(GLOBALS->lx2_lx2_c_1); break;
case VZT_FILE: vzt_rd_close(GLOBALS->vzt_vzt_c_1); break;
case FST_FILE: fstReaderClose(GLOBALS->fst_fst_c_1); GLOBALS->fst_fst_c_1 = NULL; break;
case AE2_FILE:
#ifdef AET2_IS_PRESENT
#ifdef AET2_ALIASDB_IS_PRESENT
if(GLOBALS->adb) { adb_close_db(GLOBALS->adb); GLOBALS->adb = 0; }
/* if(GLOBALS->adb_alias_stream_file) { fclose(GLOBALS->adb_alias_stream_file); GLOBALS->adb_alias_stream_file = NULL; } */
ae2_read_end(GLOBALS->ae2); fclose(GLOBALS->ae2_f);
#endif
#endif
break;
#ifdef EXTLOAD_SUFFIX
case EXTLOAD_FILE:
if(GLOBALS->extload_ffr_ctx)
{
#ifdef WAVE_FSDB_READER_IS_PRESENT
fsdbReaderClose(GLOBALS->extload_ffr_ctx);
#endif
GLOBALS->extload_ffr_ctx = NULL;
}
break;
#endif
case MISSING_FILE:
case DUMPLESS_FILE:
case GHW_FILE:
case VCD_FILE:
case VCD_RECODER_FILE:
default:
/* do nothing */ break;
}
/* window destruction (of windows that aren't the parent window) */
widget_only_destroy(&GLOBALS->window_ptranslate_c_5); /* ptranslate.c */
WAVE_STRACE_ITERATOR(s_ctx_iter)
{
GLOBALS->strace_ctx = &GLOBALS->strace_windows[GLOBALS->strace_current_window = s_ctx_iter];
widget_only_destroy(&GLOBALS->strace_ctx->window_strace_c_10); /* strace.c */
}
widget_only_destroy(&GLOBALS->window_translate_c_11); /* translate.c */
widget_only_destroy(&GLOBALS->window_treesearch_gtk1_c); /* treesearch_gtk1.c */
widget_only_destroy(&GLOBALS->window_treesearch_gtk2_c_12); /* treesearch_gtk2.c */
widget_only_destroy(&GLOBALS->window_help_c_2); /* help.c : reload is gated off during help so this should never execute */
/* windows which in theory should never destroy as they will have grab focus which means reload will not be called */
widget_ungrab_destroy(&GLOBALS->window1_hiersearch_c_1); /* hiersearch.c */
widget_ungrab_destroy(&GLOBALS->window_markerbox_c_4); /* markerbox.c */
widget_ungrab_destroy(&GLOBALS->window1_search_c_2); /* search.c */
widget_ungrab_destroy(&GLOBALS->window_simplereq_c_9); /* simplereq.c */
widget_ungrab_destroy(&GLOBALS->window1_treesearch_gtk1_c); /* treesearch_gtk1.c */
widget_ungrab_destroy(&GLOBALS->window1_treesearch_gtk2_c_3); /* treesearch_gtk2.c */
/* supported migration of window contexts... */
widget_only_destroy(&GLOBALS->window_hiersearch_c_3);
if(GLOBALS->mouseover_mouseover_c_1) /* mouseover regenerates as the pointer moves so no real context lost */
{
gtk_widget_destroy(GLOBALS->mouseover_mouseover_c_1); GLOBALS->mouseover_mouseover_c_1 = NULL;
if(GLOBALS->cr_mo_pixmap_mouseover_c_1) { cairo_destroy(GLOBALS->cr_mo_pixmap_mouseover_c_1); GLOBALS->cr_mo_pixmap_mouseover_c_1 = NULL; }
if(GLOBALS->surface_mo_pixmap_mouseover_c_1) { cairo_surface_destroy(GLOBALS->surface_mo_pixmap_mouseover_c_1); GLOBALS->surface_mo_pixmap_mouseover_c_1 = NULL; }
}
widget_only_destroy(&GLOBALS->window_renderopt_c_6);
widget_only_destroy(&GLOBALS->window_search_c_7);
(*GLOBALS->dead_context)[0] = GLOBALS;
/* let any destructors finalize on GLOBALS dereferences... */
gtkwave_main_iteration();
}
/*
* part 2 of free_and_destroy_page_context() as some context data seems to be used later by
* gtk (i.e., the destroys might be deferred slightly causing corruption)
*/
void dead_context_sweep(void)
{
struct Global *gp = (*GLOBALS->dead_context)[0];
struct Global *g_curr;
if(gp)
{
g_curr = GLOBALS;
set_GLOBALS(gp);
(*GLOBALS->dead_context)[0] = NULL;
/* remove the bridge pointer */
if(GLOBALS->gtk_context_bridge_ptr) { free(GLOBALS->gtk_context_bridge_ptr); GLOBALS->gtk_context_bridge_ptr = NULL; }
/* Free all gcs */
/* dealloc_all_gcs(); */
/* Free the context */
free_outstanding();
/* Free the old globals struct, memsetting it to zero in the hope of forcing crashes. */
memset(GLOBALS, 0, sizeof(struct Global));
free(GLOBALS);
GLOBALS = NULL; /* valgrind fix */
set_GLOBALS(g_curr);
}
}
/*
* focus directed context switching of GLOBALS in multiple tabs mode
*/
static gint context_swapper(GtkWindow *w, GdkEvent *event, void *data)
{
GdkEventType type;
if(ignore_context_swap()) /* block context swap if explicitly directed (e.g., during loading) */
{
return(FALSE);
}
type = event->type;
/* printf("Window: %08x GtkEvent: %08x gpointer: %08x, type: %d\n", w, event, data, type); */
switch(type)
{
case GDK_ENTER_NOTIFY:
case GDK_FOCUS_CHANGE:
if(GLOBALS->num_notebook_pages >= 2)
{
unsigned int i;
void **vp;
GtkWindow *wcmp;
for(i=0;inum_notebook_pages;i++)
{
struct Global *test_g = (*GLOBALS->contexts)[i];
vp = (void **)(((char *)test_g) + (intptr_t)data);
wcmp = (GtkWindow *)(*vp);
if(wcmp != NULL)
{
if(wcmp == w)
{
if(i!=GLOBALS->this_context_page)
{
struct Global *g_old = GLOBALS;
/* printf("Switching to: %d %08x\n", i, GTK_WINDOW(wcmp)); */
set_GLOBALS((*GLOBALS->contexts)[i]);
GLOBALS->lxt_clock_compress_to_z = g_old->lxt_clock_compress_to_z;
GLOBALS->autoname_bundles = g_old->autoname_bundles;
GLOBALS->autocoalesce_reversal = g_old->autocoalesce_reversal;
GLOBALS->mti_realparam_fix = g_old->mti_realparam_fix;
GLOBALS->autocoalesce = g_old->autocoalesce;
GLOBALS->hier_grouping = g_old->hier_grouping;
GLOBALS->wave_scrolling = g_old->wave_scrolling;
GLOBALS->constant_marker_update = g_old->constant_marker_update;
GLOBALS->do_zoom_center = g_old->do_zoom_center;
GLOBALS->use_roundcaps = g_old->use_roundcaps;
GLOBALS->do_resize_signals = g_old->do_resize_signals;
GLOBALS->alt_wheel_mode = g_old->alt_wheel_mode;
GLOBALS->initial_signal_window_width = g_old->initial_signal_window_width;
GLOBALS->use_full_precision = g_old->use_full_precision;
GLOBALS->show_base = g_old->show_base;
GLOBALS->display_grid = g_old->display_grid;
GLOBALS->fullscreen = g_old->fullscreen;
GLOBALS->show_toolbar = g_old->show_toolbar;
GLOBALS->time_mainbox = g_old->time_mainbox;
GLOBALS->highlight_wavewindow = g_old->highlight_wavewindow;
GLOBALS->fill_waveform = g_old->fill_waveform;
GLOBALS->lz_removal = g_old->lz_removal;
GLOBALS->use_standard_trace_select = g_old->use_standard_trace_select;
GLOBALS->disable_mouseover = g_old->disable_mouseover;
GLOBALS->clipboard_mouseover = g_old->clipboard_mouseover;
GLOBALS->keep_xz_colors = g_old->keep_xz_colors;
GLOBALS->zoom_pow10_snap = g_old->zoom_pow10_snap;
GLOBALS->scale_to_time_dimension = g_old->scale_to_time_dimension;
GLOBALS->zoom_dyn = g_old->zoom_dyn;
GLOBALS->zoom_dyne = g_old->zoom_dyne;
GLOBALS->ignore_savefile_pane_pos = g_old->ignore_savefile_pane_pos;
GLOBALS->ignore_savefile_pos = g_old->ignore_savefile_pos;
GLOBALS->ignore_savefile_size = g_old->ignore_savefile_size;
GLOBALS->hier_ignore_escapes = g_old->hier_ignore_escapes;
GLOBALS->sst_dbl_action_type = g_old->sst_dbl_action_type;
GLOBALS->use_gestures = g_old->use_gestures;
GLOBALS->use_dark = g_old->use_dark;
GLOBALS->save_on_exit = g_old->save_on_exit;
gtk_notebook_set_current_page(GTK_NOTEBOOK(GLOBALS->notebook), GLOBALS->this_context_page);
}
return(FALSE);
}
}
}
}
break;
default:
break;
}
return(FALSE);
}
void install_focus_cb(GtkWidget *w, intptr_t ptr_offset)
{
g_signal_connect (w, "enter_notify_event", G_CALLBACK(context_swapper), (void *)ptr_offset);
g_signal_connect (w, "focus_in_event", G_CALLBACK(context_swapper), (void *)ptr_offset);
}
/*
* wrapped g_signal_connect/g_signal_connect_swapped functions for context watchdog monitoring...
* note that this false triggers on configure_event as gtk sends events to multiple tabs and not
* just the visible one!
*/
static gint ctx_swap_watchdog(struct Global **w)
{
struct Global *watch = *w;
if(GLOBALS->gtk_context_bridge_ptr != w)
{
#ifdef GTKWAVE_SIGNAL_CONNECT_DEBUG
fprintf(stderr, "GTKWAVE | WARNING: globals change caught by ctx_swap_watchdog()! %p vs %p, session %d vs %d\n",
(void *)GLOBALS->gtk_context_bridge_ptr,(void *)w, (*GLOBALS->gtk_context_bridge_ptr)->this_context_page, watch->this_context_page);
#endif
set_GLOBALS(watch);
}
return(0);
}
static gint ctx_prints(char *s)
{
printf(">>> %s\n", s);
return(0);
}
static gint ctx_printd(int d)
{
printf(">>>\t%d\n", d);
return(0);
}
gulong gtkwave_signal_connect_x(gpointer object, const gchar *name, GCallback func, gpointer data, char *f, intptr_t line)
{
gulong rc;
if(f)
{
g_signal_connect_swapped(object, name, (GCallback)ctx_prints, (gpointer)f);
g_signal_connect_swapped(object, name, (GCallback)ctx_printd, (gpointer)line);
}
g_signal_connect_swapped(object, name, (GCallback)ctx_swap_watchdog, (gpointer)GLOBALS->gtk_context_bridge_ptr);
rc = g_signal_connect(object, name, func, data);
return(rc);
}
gulong gtkwave_signal_connect_object_x(gpointer object, const gchar *name, GCallback func, gpointer data, char *f, intptr_t line)
{
gulong rc;
if(f)
{
g_signal_connect_swapped(object, name, (GCallback)ctx_prints, (gpointer)f);
g_signal_connect_swapped(object, name, (GCallback)ctx_printd, (gpointer)line);
}
g_signal_connect_swapped(object, name, (GCallback)ctx_swap_watchdog, (gpointer)GLOBALS->gtk_context_bridge_ptr);
rc = g_signal_connect_swapped(object, name, func, data);
return(rc);
}
void set_GLOBALS_x(struct Global *g, const char *file, int line)
{
char sstr[32];
if(line)
{
printf("Globals old %p -> new %p (%s: %d)\n", (void *)GLOBALS, (void *)g, file, line);
}
if(GLOBALS != g)
{
/* fix problem where ungrab doesn't occur if button pressed + simultaneous context swap occurs */
if(GLOBALS && GLOBALS->in_button_press_wavewindow_c_1)
{
XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME);
}
GLOBALS = g;
sprintf(sstr, "%d", GLOBALS->this_context_page);
gtkwavetcl_setvar(WAVE_TCLCB_CURRENT_ACTIVE_TAB, sstr, WAVE_TCLCB_CURRENT_ACTIVE_TAB_FLAGS);
}
}
/*
* for ensuring continuity of pixmap/mask pointers
*/
void clone_icon_pointers_across_contexts(struct Global *a, struct Global *b)
{
if(!a || !b) return;
a->hiericon_module_pixbuf = b->hiericon_module_pixbuf;
a->hiericon_task_pixbuf = b->hiericon_task_pixbuf;
a->hiericon_function_pixbuf = b->hiericon_function_pixbuf;
a->hiericon_begin_pixbuf = b->hiericon_begin_pixbuf;
a->hiericon_fork_pixbuf = b->hiericon_fork_pixbuf;
a->hiericon_interface_pixbuf = b->hiericon_interface_pixbuf;
a->hiericon_svpackage_pixbuf = b->hiericon_svpackage_pixbuf;
a->hiericon_program_pixbuf = b->hiericon_program_pixbuf;
a->hiericon_class_pixbuf = b->hiericon_class_pixbuf;
a->hiericon_record_pixbuf = b->hiericon_record_pixbuf;
a->hiericon_generate_pixbuf = b->hiericon_generate_pixbuf;
a->hiericon_design_pixbuf = b->hiericon_design_pixbuf;
a->hiericon_block_pixbuf = b->hiericon_block_pixbuf;
a->hiericon_generateif_pixbuf = b->hiericon_generateif_pixbuf;
a->hiericon_generatefor_pixbuf = b->hiericon_generatefor_pixbuf;
a->hiericon_instance_pixbuf = b->hiericon_instance_pixbuf;
a->hiericon_package_pixbuf = b->hiericon_package_pixbuf;
a->hiericon_signal_pixbuf = b->hiericon_signal_pixbuf;
a->hiericon_portin_pixbuf = b->hiericon_portin_pixbuf;
a->hiericon_portout_pixbuf = b->hiericon_portout_pixbuf;
a->hiericon_portinout_pixbuf = b->hiericon_portinout_pixbuf;
a->hiericon_buffer_pixbuf = b->hiericon_buffer_pixbuf;
a->hiericon_linkage_pixbuf = b->hiericon_linkage_pixbuf;
}
gtkwave-gtk3-3.3.125/src/tcl_np.h 0000664 0001750 0001750 00000010467 15047725112 015744 0 ustar bybell bybell /*
* Copyright (c) 2003-2005 Active State Corporation.
* See the file LICENSE.TXT for information on usage and redistribution
* and for a DISCLAIMER OF ALL WARRANTIES.
*/
#ifndef WAVE_TCLNP_H
#define WAVE_TCLNP_H
#include
#ifdef HAVE_LIBTCL
#include
/* ==== Np... Begin */
# define NpPlatformMsg(s1, s2) printf("TCLINIT | Platform: %s\n\t%s\n", s1, s2)
# define NpLog(x,y) printf("TCLINIT | " x, y)
# define NpLog3(x,y,z) printf("TCLINIT | " x, y, z)
# define NpPanic(x) fprintf(stderr, "TCLINIT | "x)
#include
#if (TCL_MAJOR_VERSION < 8) \
|| ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 4))
#error "Gtkwave requires Tcl 8.4+"
#endif
#ifndef TCL_TSD_INIT
#define TCL_TSD_INIT(keyPtr) (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData))
#endif
#define TCL_OBJ_CMD(cmd) int (cmd)(ClientData clientData, \
Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#ifdef HAVE_STDLIB_H
#include /* for getenv */
#endif
#ifdef WIN32
# include
# define dlclose(path) ((void *) FreeLibrary((HMODULE) path))
# define DLSYM(handle, symbol, type, proc) \
(proc = (type) GetProcAddress((HINSTANCE) handle, symbol))
# define snprintf _snprintf
# define HAVE_UNISTD_H 1
# ifndef F_OK
# define F_OK 0
# endif
# ifndef SHLIB_SUFFIX
# define SHLIB_SUFFIX ".dll"
# endif
#elif (defined(__MACH__) && defined(__APPLE__)) /* Mac OS X */
# include
/* # include */ /* Commented out: ajb 25sep11 */
# if HAVE_UNISTD_H
# include
# include
# endif
# ifndef SHLIB_SUFFIX
# define SHLIB_SUFFIX ".dylib"
# endif
# include
# define HMODULE void *
# define DLSYM(handle, symbol, type, proc) \
(proc = (type) dlsym(handle, symbol))
# define HIBYTE(i) (i >> 8)
# define LOBYTE(i) (i & 0xff)
#else /* UNIX */
#ifdef __CYGWIN__
# define SHLIB_SUFFIX ".dll"
#endif
# include
# define HIBYTE(i) (i >> 8)
# define LOBYTE(i) (i & 0xff)
# if HAVE_UNISTD_H
# include
# include
# endif
# if (!defined(HAVE_DLADDR) && defined(__hpux))
/* HPUX requires shl_* routines */
# include
# define HMODULE shl_t
# define dlopen(libname, flags) shl_load(libname, \
BIND_DEFERRED|BIND_VERBOSE|DYNAMIC_PATH, 0L)
# define dlclose(path) shl_unload((shl_t) path)
# define DLSYM(handle, symbol, type, proc) \
if (shl_findsym(&handle, symbol, (short) TYPE_PROCEDURE, \
(void *) &proc) != 0) { proc = NULL; }
# ifndef SHLIB_SUFFIX
# define SHLIB_SUFFIX ".sl"
# endif
# else
# include
# define HMODULE void *
# define DLSYM(handle, symbol, type, proc) \
(proc = (type) dlsym(handle, symbol))
# ifndef SHLIB_SUFFIX
# define SHLIB_SUFFIX ".so"
# endif
/*
* FIX: For other non-dl systems, we need alternatives here
*/
# endif
/*
* Shared functions:
*/
#endif /* PLATFORM DEFS */
#ifndef MAX_PATH
#define MAX_PATH 1024
#endif
/*
* Tcl Plugin version identifiers
* (the 3 strings are computed from the 4 internal numbers)
*/
#define NPTCL_VERSION PACKAGE_VERSION
#define NPTCL_PATCH_LEVEL PACKAGE_PATCHLEVEL
#define NPTCL_INTERNAL_VERSION PACKAGE_PATCHLEVEL
#define NPTCL_MAJOR_VERSION 3
#define NPTCL_MINOR_VERSION 0
#define NPTCL_RELEASE_LEVEL 0
#define NPTCL_RELEASE_SERIAL 1
#ifdef BUILD_nptcl
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLEXPORT
#endif /* BUILD_nptcl */
/*
* Netscape APIs (needs system specific headers)
* AIX predefines certain types that we must redefine.
*/
#ifdef _AIX
#define _PR_AIX_HAVE_BSD_INT_TYPES 1
#endif
/* #include "npapi.h" */
/*
* The following constant is used to tell Netscape that the plugin will
* accept whatever amount of input is available on a stream.
*/
#define MAXINPUTSIZE 0X0FFFFFFF
/*
* Define the names of token tables used in the plugin:
*/
#define NPTCL_INSTANCE "npInstance"
#define NPTCL_STREAM "npStream"
#ifndef NP_LOG
#define NP_LOG ((char *) NULL)
#endif
/*
* Procedures shared between various modules in the plugin:
*/
/*
* npinterp.c
*/
extern Tcl_Interp *NpCreateMainInterp(char *me, int install_tk);
extern Tcl_Interp *NpGetMainInterp(void);
extern void NpDestroyMainInterp(void);
extern Tcl_Interp *NpGetInstanceInterp(int install_tk);
extern void NpDestroyInstanceInterp(Tcl_Interp *interp);
/* ==== Np... End */
#endif
#endif
gtkwave-gtk3-3.3.125/src/timeentry.h 0000664 0001750 0001750 00000000771 15047725112 016502 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_TIMEENTRY_H
#define WAVE_TIMEENTRY_H
void time_update(void);
void from_entry_callback(GtkWidget *widget, GtkWidget *entry);
void to_entry_callback(GtkWidget *widget, GtkWidget *entry);
#endif
gtkwave-gtk3-3.3.125/src/tree_component.h 0000664 0001750 0001750 00000001040 15047725112 017471 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2011.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "debug.h"
#ifdef _WAVE_HAVE_JUDY
#include
#else
#include "jrb.h"
#endif
#ifndef WAVE_TREE_COMP_H
#define WAVE_TREE_COMP_H
void iter_through_comp_name_table(void);
int add_to_comp_name_table(const char *s, int slen);
#endif
gtkwave-gtk3-3.3.125/src/vzt.h 0000664 0001750 0001750 00000001162 15047725112 015300 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2003-2004.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#ifndef WAVE_VZTRDR_H
#define WAVE_VZTRDR_H
#ifdef HAVE_INTTYPES_H
#include
#endif
#include "vcd.h"
TimeType vzt_main(char *fname, char *skip_start, char *skip_end);
void import_vzt_trace(nptr np);
void vzt_set_fac_process_mask(nptr np);
void vzt_import_masked(void);
#endif
gtkwave-gtk3-3.3.125/src/status.h 0000664 0001750 0001750 00000000574 15047725112 016006 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_STATUS_H
#define WAVE_STATUS_H
void status_text(char *str);
#endif
gtkwave-gtk3-3.3.125/src/globals.h 0000664 0001750 0001750 00000136223 15047725112 016107 0 ustar bybell bybell /*
* Copyright (c) Kermin Elliott Fleming 2007-2017.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef GLOBALS_H
#define GLOBALS_H
#include
#include
#if defined __MINGW32__
#include
#include
#endif
#define XXX_GTK_OBJECT(x) x
#define XXX_GTK_OBJECT_GET_CLASS GTK_OBJECT_GET_CLASS
#define XXX_GDK_DRAWABLE(x) x
#include "ae2.h"
#include "analyzer.h"
#include "bsearch.h"
#include "busy.h"
#include "clipping.h"
#include "color.h"
#include "currenttime.h"
#include "debug.h"
#include "fgetdynamic.h"
#include "fonts.h"
#include "fstapi.h"
#include "gconf.h"
#include "ghw.h"
#include "globals.h"
#include "gnu_regex.h"
#include "gtk23compat.h"
#include "lx2.h"
#include "lxt.h"
#include "main.h"
#include "memory.h"
#include "menu.h"
#include "pipeio.h"
#include "pixmaps.h"
#include "print.h"
#include "ptranslate.h"
#include "ttranslate.h"
#include "rc.h"
#include "regex_wave.h"
#include "savefile.h"
#include "strace.h"
#include "symbol.h"
#include "tcl_helper.h"
#include "translate.h"
#include "tree.h"
#include "vcd.h"
#include "vcd_saver.h"
#include "vlist.h"
#include "vzt.h"
#include "version.h"
#include "wavealloca.h"
#include "jrb.h"
#include "extload.h"
#ifdef _WAVE_HAVE_JUDY
#include
#endif
#if GTK_CHECK_VERSION(3,0,0)
#ifdef GDK_WINDOWING_X11
#ifndef X_H
#include
#endif
#endif
#endif
struct Global{
/*
* ae2.c
*/
#ifdef AET2_IS_PRESENT
#ifdef AET2_ALIASDB_IS_PRESENT
FILE *adb_alias_stream_file;
ADB_DB adb;
unsigned long adb_max_terms;
ADB_TERM *adb_terms;
ADB_TERM **adb_aliases;
unsigned short *adb_num_terms;
unsigned short *adb_idx_first;
unsigned short *adb_idx_last;
unsigned char *adb_alloc_pool_base;
size_t adb_alloc_idx;
#endif
unsigned long ae2_num_facs;
unsigned long ae2_num_aliases;
unsigned long ae2_num_sections;
struct lx2_entry **ae2_lx2_table;
FILE *ae2_f;
AE2_HANDLE *ae2;
AE2_FACREF *ae2_fr;
TimeType ae2_start_limit_cyc;
TimeType ae2_end_limit_cyc;
char *ae2_process_mask;
#endif
TimeType ae2_start_cyc;
TimeType ae2_end_cyc;
TimeType *ae2_time_xlate;
char disable_ae2_alias;
/*
* analyzer.c
*/
TraceFlagsType default_flags; /* from analyzer.c 5 */
unsigned int default_fpshift;
Times tims; /* from analyzer.c 6 */
Traces traces; /* from analyzer.c 7 */
int hier_max_level; /* from analyzer.c 8 */
int hier_max_level_shadow; /* from analyzer.c */
TimeType timestart_from_savefile;
char timestart_from_savefile_valid;
int group_depth;
char hier_ignore_escapes;
/*
* baseconvert.c
*/
char color_active_in_filter; /* from baseconvert.c 9 */
/*
* bsearch.c
*/
TimeType shift_timebase; /* from bsearch.c 10 */
TimeType shift_timebase_default_for_add; /* from bsearch.c 11 */
TimeType max_compare_time_tc_bsearch_c_1; /* from bsearch.c 12 */
TimeType *max_compare_pos_tc_bsearch_c_1; /* from bsearch.c 13 */
TimeType max_compare_time_bsearch_c_1; /* from bsearch.c 14 */
struct HistEnt *max_compare_pos_bsearch_c_1; /* from bsearch.c 15 */
struct HistEnt **max_compare_index; /* from bsearch.c 16 */
TimeType vmax_compare_time_bsearch_c_1; /* from bsearch.c 17 */
struct VectorEnt *vmax_compare_pos_bsearch_c_1; /* from bsearch.c 18 */
struct VectorEnt **vmax_compare_index; /* from bsearch.c 19 */
int maxlen_trunc; /* from bsearch.c 20 */
char *maxlen_trunc_pos_bsearch_c_1; /* from bsearch.c 21 */
char *trunc_asciibase_bsearch_c_1; /* from bsearch.c 22 */
/*
* busy.c
*/
GdkCursor *busycursor_busy_c_1; /* from busy.c 23 */
int busy_busy_c_1; /* from busy.c 24 */
/*
* color.c
*/
char keep_xz_colors;
int color_back; /* from color.c 25 */
int color_baseline; /* from color.c 26 */
int color_grid; /* from color.c 27 */
int color_grid2; /* from color.c */
int color_high; /* from color.c 28 */
int color_low; /* from color.c 29 */
int color_mark; /* from color.c 30 */
int color_mid; /* from color.c 31 */
int color_time; /* from color.c 32 */
int color_timeb; /* from color.c 33 */
int color_trans; /* from color.c 34 */
int color_umark; /* from color.c 35 */
int color_value; /* from color.c 36 */
int color_vbox; /* from color.c 37 */
int color_vtrans; /* from color.c 38 */
int color_x; /* from color.c 39 */
int color_xfill; /* from color.c 40 */
int color_0; /* from color.c 41 */
int color_1; /* from color.c 42 */
int color_ufill; /* from color.c 43 */
int color_u; /* from color.c 44 */
int color_wfill; /* from color.c 45 */
int color_w; /* from color.c 46 */
int color_dashfill; /* from color.c 47 */
int color_dash; /* from color.c 48 */
int color_white; /* from color.c 49 */
int color_black; /* from color.c 50 */
int color_ltgray; /* from color.c 51 */
int color_normal; /* from color.c 52 */
int color_mdgray; /* from color.c 53 */
int color_dkgray; /* from color.c 54 */
int color_dkblue; /* from color.c 55 */
int color_brkred;
int color_ltblue;
int color_gmstrd;
int color_highfill;
int color_1fill;
/*
* currenttime.c
*/
TimeType global_time_offset;
char is_vcd; /* from currenttime.c 56 */
char partial_vcd; /* from currenttime.c 57 */
char use_maxtime_display; /* from currenttime.c 58 */
char use_frequency_delta; /* from currenttime.c 59 */
GtkWidget *max_or_marker_label_currenttime_c_1; /* from currenttime.c 60 */
GtkWidget *base_or_curtime_label_currenttime_c_1; /* from currenttime.c 61 */
TimeType cached_currenttimeval_currenttime_c_1; /* from currenttime.c 62 */
TimeType currenttime; /* from currenttime.c 63 */
TimeType max_time; /* from currenttime.c 64 */
TimeType min_time; /* from currenttime.c 65 */
char display_grid; /* from currenttime.c 66 */
char fullscreen;
char show_toolbar;
GtkWidget *time_mainbox;
TimeType time_scale; /* from currenttime.c 67 */
char time_dimension; /* from currenttime.c 68 */
char scale_to_time_dimension; /* from currenttime.c */
GtkWidget *maxtimewid_currenttime_c_1; /* from currenttime.c 70 */
GtkWidget *curtimewid_currenttime_c_1; /* from currenttime.c 71 */
char *maxtext_currenttime_c_1; /* from currenttime.c 72 */
char *curtext_currenttime_c_1; /* from currenttime.c 73 */
TimeType time_trunc_val_currenttime_c_1; /* from currenttime.c 77 */
char use_full_precision; /* from currenttime.c 78 */
/*
* debug.c
*/
void **alloc2_chain; /* from debug.c */
int outstanding; /* from debug.c */
const char *atoi_cont_ptr; /* from debug.c 79 */
char disable_tooltips; /* from debug.c 80 */
/*
* entry.c
*/
char *entrybox_text; /* from entry.c 83 */
/* extload.c */
unsigned int extload_ffr_import_count; /* from extload.c */
void *extload_ffr_ctx; /* from extload.c */
FILE *extload; /* from extload.c */
unsigned int *extload_idcodes; /* from extload.c */
int *extload_inv_idcodes; /* from extload.c */
#if !defined __MINGW32__
time_t extload_lastmod; /* from extload.c */
char extload_already_errored; /* from extload.c */
#endif
char **extload_namecache;
int *extload_namecache_max;
int *extload_namecache_lens;
int *extload_namecache_patched;
struct symbol *extload_sym_block;
struct Node *extload_node_block;
void *extload_xc;
struct symbol *extload_prevsymroot;
struct symbol *extload_prevsym;
struct tree **extload_npar;
int extload_i;
int extload_hlen;
unsigned char extload_vt_prev;
unsigned char extload_vd_prev;
int f_name_build_buf_len;
char *f_name_build_buf;
unsigned int extload_max_tree;
unsigned int extload_curr_tree;
/*
* fetchbuttons.c
*/
TimeType fetchwindow; /* from fetchbuttons.c 85 */
/*
* fgetdynamic.c
*/
int fgetmalloc_len; /* from fgetdynamic.c 86 */
/*
* file.c
*/
GtkWidget *pFileChoose;
char *pFileChooseFilterName;
GPatternSpec *pPatternSpec;
GtkWidget *fs_file_c_1; /* from file.c 87 */
char **fileselbox_text; /* from file.c 88 */
char filesel_ok; /* from file.c 89 */
void (*cleanup_file_c_2)(void); /* from file.c 90 */
void (*bad_cleanup_file_c_1)(void); /* from file.c 91 */
/*
* fonts.c
*/
char *fontname_signals; /* from fonts.c 92 */
char *fontname_waves; /* from fonts.c 93 */
GdkScreen *fonts_screen;
PangoContext *fonts_context;
PangoLayout *fonts_layout;
char use_pango_fonts;
/*
* fst.c
*/
void *fst_fst_c_1;
const char *fst_scope_name;
int fst_scope_name_len;
TimeType first_cycle_fst_c_3;
TimeType last_cycle_fst_c_3;
TimeType total_cycles_fst_c_3;
struct lx2_entry *fst_table_fst_c_1;
struct fac *mvlfacs_fst_c_3;
fstHandle *mvlfacs_fst_alias;
fstHandle *mvlfacs_fst_rvs_alias;
fstHandle fst_maxhandle;
int busycnt_fst_c_2;
double *double_curr_fst;
double *double_fini_fst;
char nonimplicit_direction_encountered;
char supplemental_datatypes_encountered;
char supplemental_vartypes_encountered;
char is_vhdl_component_format;
JRB subvar_jrb;
unsigned int subvar_jrb_count;
char **subvar_pnt;
unsigned char fst_filetype;
unsigned subvar_jrb_count_locked : 1;
uint32_t stem_file_idx;
uint32_t stem_line_number;
char **stem_path_string_table;
struct stem_struct_t *stem_struct_base;
struct stem_struct_t *istem_struct_base;
uint32_t stem_path_string_table_siz;
uint32_t stem_path_string_table_alloc;
uint32_t stem_struct_base_siz;
uint32_t stem_struct_base_siz_alloc;
uint32_t istem_struct_base_siz;
uint32_t istem_struct_base_siz_alloc;
unsigned stem_valid : 1;
unsigned istem_valid : 1;
char *fst_synclock_str;
JRB synclock_jrb;
#ifdef _WAVE_HAVE_JUDY
Pvoid_t *xl_enum_filter;
#else
struct xl_tree_node **xl_enum_filter;
#endif
int num_xl_enum_filter;
fstEnumHandle queued_xl_enum_filter;
JRB enum_nptrs_jrb;
/*
* ghw.c
*/
struct Node **nxp_ghw_c_1; /* from ghw.c 95 */
uint32_t nbr_sigs_ghw_c_1;
int sym_which_ghw_c_1; /* from ghw.c 98 */
struct ghw_tree_node *gwt_ghw_c_1; /* from ghw.c 99 */
struct ghw_tree_node *gwt_corr_ghw_c_1; /* from ghw.c 100 */
int xlat_1164_ghw_c_1; /* from ghw.c 101 */
char is_ghw; /* from ghw.c 102 */
char *asbuf; /* from ghw.c 103 */
int nbr_sig_ref_ghw_c_1; /* from ghw.c 104 */
int num_glitches_ghw_c_1; /* from ghw.c 105 */
int num_glitch_regions_ghw_c_1; /* from ghw.c 106 */
char *fac_name_ghw_c_1; /* from ghw.c 108 */
int fac_name_len_ghw_c_1; /* from ghw.c 109 */
int fac_name_max_ghw_c_1; /* from ghw.c 110 */
int last_fac_ghw_c_1; /* from ghw.c 111 */
int warned_ghw_c_1; /* from ghw.c 112 */
/*
* globals.c
*/
struct Global ***dead_context; /* for deallocating tabbed contexts later (when no race conditions exist) */
struct Global **gtk_context_bridge_ptr; /* from globals.c, migrates to reloaded contexts to link buttons to ctx */
/*
* help.c
*/
int helpbox_is_active; /* from help.c 114 */
GtkWidget *text_help_c_1; /* from help.c 115 */
GtkTextIter iter_help_c_1; /* from help.c 117 */
GtkTextTag *bold_tag_help_c_1; /* from help.c 118 */
GtkWidget *window_help_c_2; /* from help.c 119 */
/*
* hierpack.c
*/
unsigned char *hp_buf;
size_t *hp_offs;
size_t hp_prev;
size_t hp_buf_siz;
unsigned char *fmem_buf;
size_t fmem_buf_siz;
size_t fmem_buf_offs;
size_t fmem_uncompressed_siz;
char disable_auto_comphier;
/*
* hiersearch.c
*/
char hier_grouping; /* from hiersearch.c 120 */
GtkWidget *window_hiersearch_c_3; /* from hiersearch.c 121 */
GtkWidget *entry_main_hiersearch_c_1; /* from hiersearch.c 122 */
char bundle_direction_hiersearch_c_1; /* from hiersearch.c 124 */
void (*cleanup_hiersearch_c_3)(void); /* from hiersearch.c 125 */
int num_rows_hiersearch_c_1; /* from hiersearch.c 126 */
int selected_rows_hiersearch_c_1; /* from hiersearch.c 127 */
GtkWidget *window1_hiersearch_c_1; /* from hiersearch.c 128 */
GtkWidget *entry_hiersearch_c_2; /* from hiersearch.c 129 */
char *entrybox_text_local_hiersearch_c_1; /* from hiersearch.c 130 */
void (*cleanup_e_hiersearch_c_1)(void); /* from hiersearch.c 131 */
struct tree *h_selectedtree_hiersearch_c_1; /* from hiersearch.c 132 */
struct tree *current_tree_hiersearch_c_1; /* from hiersearch.c 133 */
struct treechain *treechain_hiersearch_c_1; /* from hiersearch.c 134 */
int is_active_hiersearch_c_1; /* from hiersearch.c 135 */
GtkListStore *sig_store_hiersearch;
GtkTreeSelection *sig_selection_hiersearch;
#ifdef WAVE_GTK3_HIERSEARCH_DEBOUNCE
int h_debounce;
#endif
/*
* logfile.c
*/
void **logfiles;
char *fontname_logfile; /* from logfile.c 137 */
GtkTextIter iter_logfile_c_2; /* from logfile.c 139 */
GtkTextTag *bold_tag_logfile_c_2; /* from logfile.c 140 */
GtkTextTag *mono_tag_logfile_c_1; /* from logfile.c 141 */
GtkTextTag *size_tag_logfile_c_1; /* from logfile.c 142 */
/*
* lx2.c
*/
unsigned char is_lx2; /* from lx2.c 143 */
struct lxt2_rd_trace *lx2_lx2_c_1; /* from lx2.c 144 */
TimeType first_cycle_lx2_c_1; /* from lx2.c 145 */
TimeType last_cycle_lx2_c_1; /* from lx2.c 146 */
TimeType total_cycles_lx2_c_1; /* from lx2.c 147 */
struct lx2_entry *lx2_table_lx2_c_1; /* from lx2.c 148 */
struct fac *mvlfacs_lx2_c_1; /* from lx2.c 149 */
int busycnt_lx2_c_1; /* from lx2.c 150 */
/*
* lxt.c
*/
char *mm_lxt_mmap_addr;
size_t mm_lxt_mmap_len;
#if defined __MINGW32__
HANDLE hIn, hInMap;
char *win_fname;
#endif
int fpos_lxt_c_1; /* from lxt.c 151 */
char is_lxt; /* from lxt.c 152 */
char lxt_clock_compress_to_z; /* from lxt.c 153 */
void *mm_lxt_c_1; /* from lxt.c 154 */
void *mmcache_lxt_c_1; /* from lxt.c 155 */
int version_lxt_c_1; /* from lxt.c 156 */
struct fac *mvlfacs_lxt_c_2; /* from lxt.c 157 */
TimeType first_cycle_lxt_c_2; /* from lxt.c 158 */
TimeType last_cycle_lxt_c_2; /* from lxt.c 159 */
TimeType total_cycles_lxt_c_2; /* from lxt.c 160 */
int maxchange_lxt_c_1; /* from lxt.c 161 */
int maxindex_lxt_c_1; /* from lxt.c 162 */
int f_len_lxt_c_1; /* from lxt.c 163 */
int *positional_information_lxt_c_1; /* from lxt.c 164 */
TimeType *time_information; /* from lxt.c 165 */
int change_field_offset_lxt_c_1; /* from lxt.c 166 */
int facname_offset_lxt_c_1; /* from lxt.c 167 */
int facgeometry_offset_lxt_c_1; /* from lxt.c 168 */
int time_table_offset_lxt_c_1; /* from lxt.c 169 */
int time_table_offset64_lxt_c_1; /* from lxt.c 170 */
int sync_table_offset_lxt_c_1; /* from lxt.c 171 */
int initial_value_offset_lxt_c_1; /* from lxt.c 172 */
int timescale_offset_lxt_c_1; /* from lxt.c 173 */
int double_test_offset_lxt_c_1; /* from lxt.c 174 */
int zdictionary_offset_lxt_c_1; /* from lxt.c 175 */
unsigned int zfacname_predec_size_lxt_c_1; /* from lxt.c 176 */
unsigned int zfacname_size_lxt_c_1; /* from lxt.c 177 */
unsigned int zfacgeometry_size_lxt_c_1; /* from lxt.c 178 */
unsigned int zsync_table_size_lxt_c_1; /* from lxt.c 179 */
unsigned int ztime_table_size_lxt_c_1; /* from lxt.c 180 */
unsigned int zchg_predec_size_lxt_c_1; /* from lxt.c 181 */
unsigned int zchg_size_lxt_c_1; /* from lxt.c 182 */
unsigned int zdictionary_predec_size_lxt_c_1; /* from lxt.c 183 */
unsigned char initial_value_lxt_c_1; /* from lxt.c 184 */
unsigned int dict_num_entries_lxt_c_1; /* from lxt.c 185 */
unsigned int dict_string_mem_required_lxt_c_1; /* from lxt.c 186 */
int dict_16_offset_lxt_c_1; /* from lxt.c 187 */
int dict_24_offset_lxt_c_1; /* from lxt.c 188 */
int dict_32_offset_lxt_c_1; /* from lxt.c 189 */
unsigned int dict_width_lxt_c_1; /* from lxt.c 190 */
char **dict_string_mem_array_lxt_c_1; /* from lxt.c 191 */
int exclude_offset_lxt_c_1; /* from lxt.c 192 */
int lxt_timezero_offset;
char *lt_buf_lxt_c_1; /* from lxt.c 193 */
int lt_len_lxt_c_1; /* from lxt.c 194 */
int fd_lxt_c_1; /* from lxt.c 195 */
unsigned char double_mask_lxt_c_1[8]; /* from lxt.c 196 */
char double_is_native_lxt_c_1; /* from lxt.c 197 */
int max_compare_time_tc_lxt_c_2; /* from lxt.c 199 */
int max_compare_pos_tc_lxt_c_2; /* from lxt.c 200 */
struct Node **resolve_lxt_alias_to;
unsigned int *lastchange;
/*
* main.c
*/
char is_gtkw_save_file;
gboolean dumpfile_is_modified;
GtkWidget *missing_file_toolbar;
char *argvlist;
#ifdef HAVE_LIBTCL
Tcl_Interp *interp;
#endif
char *repscript_name;
unsigned int repscript_period;
char *tcl_init_cmd;
char tcl_running;
char block_xy_update;
char *winname;
unsigned int num_notebook_pages;
unsigned int num_notebook_pages_cumulative;
unsigned char context_tabposition;
unsigned int this_context_page;
unsigned char second_page_created;
struct Global ***contexts;
GtkWidget *notebook;
char *loaded_file_name;
char *unoptimized_vcd_file_name;
char *skip_start;
char *skip_end;
enum FileType loaded_file_type;
char is_optimized_stdin_vcd;
char *whoami; /* from main.c 201 */
struct logfile_chain *logfile; /* from main.c 202 */
char *stems_name; /* from main.c 203 */
int stems_type; /* from main.c 204 */
char *aet_name; /* from main.c 205 */
struct gtkwave_annotate_ipc_t *anno_ctx; /* from main.c 206 */
struct gtkwave_dual_ipc_t *dual_ctx; /* from main.c 207 */
int dual_id; /* from main.c 208 */
unsigned int dual_attach_id_main_c_1; /* from main.c 209 */
int dual_race_lock; /* from main.c 210 */
GtkWidget *mainwindow; /* from main.c 211 */
GtkWidget *signalwindow; /* from main.c 212 */
GtkWidget *wavewindow; /* from main.c 213 */
GtkWidget *toppanedwindow; /* from main.c 214 */
GtkWidget *panedwindow;
gint toppanedwindow_size_cache;
gint panedwindow_size_cache;
gint vpanedwindow_size_cache;
GtkWidget *sstpane; /* from main.c 215 */
GtkWidget *expanderwindow; /* from main.c 216 */
char disable_window_manager; /* from main.c 217 */
char disable_empty_gui; /* from main.c */
char paned_pack_semantics; /* from main.c 218 */
char zoom_was_explicitly_set; /* from main.c 219 */
int initial_window_x; /* from main.c 220 */
int initial_window_y; /* from main.c 221 */
int initial_window_width; /* from main.c 222 */
int initial_window_height; /* from main.c 223 */
int xy_ignore_main_c_1; /* from main.c 224 */
int optimize_vcd; /* from main.c 225 */
int num_cpus; /* from main.c 226 */
int initial_window_xpos; /* from main.c 227 */
int initial_window_ypos; /* from main.c 228 */
int initial_window_set_valid; /* from main.c 229 */
int initial_window_xpos_set; /* from main.c 230 */
int initial_window_ypos_set; /* from main.c 231 */
int initial_window_get_valid; /* from main.c 232 */
int initial_window_xpos_get; /* from main.c 233 */
int initial_window_ypos_get; /* from main.c 234 */
int xpos_delta; /* from main.c 235 */
int ypos_delta; /* from main.c 236 */
char use_scrollbar_only; /* from main.c 237 */
char force_toolbars; /* from main.c 238 */
int hide_sst; /* from main.c 239 */
int sst_expanded; /* from main.c 240 */
#if GTK_CHECK_VERSION(3,0,0)
#ifdef GDK_WINDOWING_X11
Window socket_xid; /* from main.c 241 */
#else
unsigned long socket_xid; /* for windows compiles */
#endif
#else
GdkNativeWindow socket_xid; /* from main.c 241 */
#endif
int disable_menus; /* from main.c 242 */
char *ftext_main_main_c_1; /* from main.c 243 */
char use_toolbutton_interface; /* from main.c */
/*
* markerbox.c
*/
GtkWidget *window_markerbox_c_4; /* from markerbox.c 248 */
GtkWidget *entries_markerbox_c_1[WAVE_NUM_NAMED_MARKERS]; /* from markerbox.c 249 */
void (*cleanup_markerbox_c_4)(void); /* from markerbox.c 250 */
int dirty_markerbox_c_1; /* from markerbox.c 251 */
TimeType shadow_markers_markerbox_c_1[WAVE_NUM_NAMED_MARKERS]; /* from markerbox.c 252 */
char *marker_names[WAVE_NUM_NAMED_MARKERS]; /* from markerbox.c */
char *shadow_marker_names[WAVE_NUM_NAMED_MARKERS]; /* from markerbox.c */
/*
* menu.c
*/
char *cutcopylist; /* from menu.c */
char enable_fast_exit; /* from menu.c 253 */
char quiet_checkmenu;
struct wave_script_args *wave_script_args; /* from tcl_helper.c */
char ignore_savefile_pane_pos;
char ignore_savefile_pos; /* from menu.c 255 */
char ignore_savefile_size; /* from menu.c 256 */
char *regexp_string_menu_c_1; /* from menu.c 259 */
struct TraceEnt *trace_to_alias_menu_c_1; /* from menu.c 260 */
struct TraceEnt *showchangeall_menu_c_1; /* from menu.c 261 */
char *filesel_newviewer_menu_c_1; /* from menu.c 262 */
char *filesel_logfile_menu_c_1; /* from menu.c 263 */
char *filesel_scriptfile_menu; /* from menu.c */
char *filesel_writesave; /* from menu.c 264 */
char *filesel_imagegrab; /* from menu.c */
char save_success_menu_c_1; /* from menu.c 265 */
char *filesel_vcd_writesave; /* from menu.c 266 */
char *filesel_lxt_writesave; /* from menu.c 267 */
char *filesel_tim_writesave; /* from menu.c */
int lock_menu_c_1; /* from menu.c 268 */
int lock_menu_c_2; /* from menu.c 269 */
char *buf_menu_c_1; /* from menu.c 270 */
GtkWidget *signal_popup_menu; /* from menu.c */
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
GtkWidget *header_bar;
GtkWidget *main_popup_menu; /* from menu.c */
GtkWidget *main_popup_menu_button; /* from menu.c */
GtkWidget *top_table;
#endif
GtkWidget *sst_signal_popup_menu; /* from menu.c */
/*
* mouseover.c
*/
char disable_mouseover; /* from mouseover.c 271 */
char clipboard_mouseover; /* from mouseover.c */
GtkWidget *mouseover_mouseover_c_1; /* from mouseover.c 272 */
GtkWidget *mo_area_mouseover_c_1; /* from mouseover.c 273 */
int mo_width_mouseover_c_1; /* from mouseover.c 277 */
int mo_height_mouseover_c_1; /* from mouseover.c 278 */
cairo_surface_t *surface_mo_pixmap_mouseover_c_1;
cairo_t *cr_mo_pixmap_mouseover_c_1;
wave_rgb_t rgb_mo_dk_gray_mouseover_c_1;
wave_rgb_t rgb_mo_black_mouseover_c_1;
/*
* pagebuttons.c
*/
double page_divisor; /* from pagebuttons.c 279 */
/*
* pixmaps.c
*/
GdkPixbuf *redo_pixbuf;
GdkPixbuf *larrow_pixbuf;
GdkPixbuf *rarrow_pixbuf;
GdkPixbuf *zoomin_pixbuf;
GdkPixbuf *zoomout_pixbuf;
GdkPixbuf *zoomfit_pixbuf;
GdkPixbuf *zoomundo_pixbuf;
GdkPixbuf *zoom_larrow_pixbuf;
GdkPixbuf *zoom_rarrow_pixbuf;
GdkPixbuf *prev_page_pixbuf;
GdkPixbuf *next_page_pixbuf;
GdkPixbuf *wave_info_pixbuf;
GdkPixbuf *wave_alert_pixbuf;
GdkPixbuf *hiericon_module_pixbuf; /* from pixmaps.c */
GdkPixbuf *hiericon_task_pixbuf; /* from pixmaps.c */
GdkPixbuf *hiericon_function_pixbuf; /* from pixmaps.c */
GdkPixbuf *hiericon_begin_pixbuf; /* from pixmaps.c */
GdkPixbuf *hiericon_fork_pixbuf; /* from pixmaps.c */
GdkPixbuf *hiericon_interface_pixbuf;
GdkPixbuf *hiericon_svpackage_pixbuf;
GdkPixbuf *hiericon_program_pixbuf;
GdkPixbuf *hiericon_class_pixbuf;
GdkPixbuf *hiericon_record_pixbuf;
GdkPixbuf *hiericon_generate_pixbuf;
GdkPixbuf *hiericon_design_pixbuf;
GdkPixbuf *hiericon_block_pixbuf;
GdkPixbuf *hiericon_generateif_pixbuf;
GdkPixbuf *hiericon_generatefor_pixbuf;
GdkPixbuf *hiericon_instance_pixbuf;
GdkPixbuf *hiericon_package_pixbuf;
GdkPixbuf *hiericon_signal_pixbuf;
GdkPixbuf *hiericon_portin_pixbuf;
GdkPixbuf *hiericon_portout_pixbuf;
GdkPixbuf *hiericon_portinout_pixbuf;
GdkPixbuf *hiericon_buffer_pixbuf;
GdkPixbuf *hiericon_linkage_pixbuf;
/*
* print.c
*/
int inch_print_c_1; /* from print.c 316 */
double ps_chwidth_print_c_1; /* from print.c 317 */
double ybound_print_c_1; /* from print.c 318 */
int pr_signal_fill_width_print_c_1; /* from print.c 319 */
int ps_nummaxchars_print_c_1; /* from print.c 320 */
char ps_fullpage; /* from print.c 321 */
int ps_maxveclen; /* from print.c 322 */
int liney_max; /* from print.c 323 */
/*
* ptranslate.c
*/
int current_translate_proc; /* from ptranslate.c 326 */
int current_filter_ptranslate_c_1; /* from ptranslate.c 327 */
int num_proc_filters; /* from ptranslate.c 328 */
char **procsel_filter; /* from ptranslate.c 329 */
struct pipe_ctx **proc_filter; /* from ptranslate.c 330 */
int is_active_ptranslate_c_2; /* from ptranslate.c 331 */
char *fcurr_ptranslate_c_1; /* from ptranslate.c 332 */
GtkWidget *window_ptranslate_c_5; /* from ptranslate.c 333 */
GtkListStore *sig_store_ptranslate;
GtkTreeSelection *sig_selection_ptranslate;
/*
* rc.c
*/
int rc_line_no; /* from rc.c 336 */
int possibly_use_rc_defaults; /* from rc.c 337 */
char *editor_name; /* from rc.c */
/*
* regex.c
*/
regex_t *preg_regex_c_1; /* from regex.c 339 */
int *regex_ok_regex_c_1; /* from regex.c 340 */
/*
* renderopt.c
*/
#ifdef WAVE_GTK_UNIX_PRINT
GtkPrintSettings *gprs;
GtkPageSetup *gps;
char *gp_tfn;
#endif
char is_active_renderopt_c_3; /* from renderopt.c 341 */
GtkWidget *window_renderopt_c_6; /* from renderopt.c 342 */
char *filesel_print_pdf_renderopt_c_1; /* from renderopt.c */
char *filesel_print_ps_renderopt_c_1; /* from renderopt.c 343 */
char *filesel_print_mif_renderopt_c_1; /* from renderopt.c 344 */
char target_mutex_renderopt_c_1[4]; /* from renderopt.c 346 */
char page_mutex_renderopt_c_1[5]; /* from renderopt.c 348 */
char render_mutex_renderopt_c_1[3]; /* from renderopt.c 350 */
int page_size_type_renderopt_c_1; /* from renderopt.c 351 */
/*
* savefile.c
*/
char *sfn;
char *lcname;
/*
* search.c
*/
GtkWidget *menuitem_search[5]; /* from search.c */
GtkWidget *window1_search_c_2; /* from search.c 359 */
GtkWidget *entry_a_search_c_1; /* from search.c 360 */
char *entrybox_text_local_search_c_2; /* from search.c 361 */
void (*cleanup_e_search_c_2)(void); /* from search.c 362 */
SearchProgressData *pdata; /* from search.c 363 */
int is_active_search_c_4; /* from search.c 364 */
char is_insert_running_search_c_1; /* from search.c 365 */
char is_replace_running_search_c_1; /* from search.c 366 */
char is_append_running_search_c_1; /* from search.c 367 */
char is_searching_running_search_c_1; /* from search.c 368 */
char regex_mutex_search_c_1[5]; /* from search.c 371 */
int regex_which_search_c_1; /* from search.c 372 */
GtkWidget *window_search_c_7; /* from search.c 373 */
GtkWidget *entry_search_c_3; /* from search.c 374 */
char *searchbox_text_search_c_1; /* from search.c 377 */
char bundle_direction_search_c_2; /* from search.c 378 */
void (*cleanup_search_c_5)(void); /* from search.c 379 */
int num_rows_search_c_2; /* from search.c 380 */
int selected_rows_search_c_2; /* from search.c 381 */
GtkListStore *sig_store_search;
GtkTreeSelection *sig_selection_search;
GtkWidget *sig_view_search;
/*
* signalwindow.c
*/
GtkWidget *signalarea; /* from signalwindow.c 396 */
struct font_engine_font_t *signalfont; /* from signalwindow.c 397 */
cairo_surface_t *surface_signalpixmap;
cairo_t *cr_signalpixmap;
#if defined(WAVE_ALLOW_QUARTZ_FLUSH_WORKAROUND) || defined(WAVE_ALLOW_GTK3_VSLIDER_WORKAROUND)
char force_hide_show;
#endif
int max_signal_name_pixel_width; /* from signalwindow.c 399 */
int signal_pixmap_width; /* from signalwindow.c 400 */
int signal_fill_width; /* from signalwindow.c 401 */
int old_signal_fill_width; /* from signalwindow.c 402 */
int old_signal_fill_height; /* from signalwindow.c 403 */
int right_align_active; /* from signalwindow.c */
int fontheight; /* from signalwindow.c 404 */
char dnd_state; /* from signalwindow.c 405 */
unsigned int dnd_cursor_timer; /* from signalwindow.c */
GtkWidget *hscroll_signalwindow_c_1; /* from signalwindow.c 406 */
gpointer signal_hslider; /* from signalwindow.c 407 */
unsigned int cachedhiflag_signalwindow_c_1; /* from signalwindow.c 408 */
int cachedwhich_signalwindow_c_1; /* from signalwindow.c 409 */
struct TraceEnt *cachedtrace; /* from signalwindow.c 410 */
struct TraceEnt *shift_click_trace; /* from signalwindow.c 411 */
int trtarget_signalwindow_c_1; /* from signalwindow.c 412 */
Trptr starting_unshifted_trace; /* from signalwindow.c */
unsigned char standard_trace_dnd_degate; /* from signalwindow.c */
unsigned char use_standard_trace_select; /* from signalwindow.c */
unsigned char use_standard_clicking; /* from signalwindow.c */
unsigned char std_collapse_pressed; /* from signalwindow.c */
unsigned char std_dnd_tgt_on_signalarea; /* from signalwindow.c */
unsigned char std_dnd_tgt_on_wavearea; /* from signalwindow.c */
unsigned char signalarea_has_focus; /* from signalwindow.c */
GtkWidget *signalarea_event_box; /* from signalwindow.c */
gint keypress_handler_id; /* from signalwindow.c */
gint cached_mouseover_x; /* from signalwindow.c */
gint cached_mouseover_y; /* from signalwindow.c */
gint mouseover_counter; /* from signalwindow.c */
unsigned button2_debounce_flag : 1;
int dragzoom_threshold;
#ifdef WAVE_GTK3_SIZE_ALLOCATE_WORKAROUND_WAVE_VSLIDER
gfloat wave_vslider_page_size;
gfloat wave_vslider_page_increment;
gfloat wave_vslider_step_increment;
gfloat wave_vslider_lower;
gfloat wave_vslider_upper;
gfloat wave_vslider_value;
unsigned wave_vslider_valid : 1;
#endif
/*
* simplereq.c
*/
GtkWidget *window_simplereq_c_9; /* from simplereq.c 413 */
void (*cleanup)(GtkWidget *, void *); /* from simplereq.c 414 */
/*
* splash.c
*/
char splash_is_loading;
char splash_fix_win_title;
char splash_disable; /* from splash.c 415 */
GtkWidget *splash_splash_c_1; /* from splash.c 419 */
GtkWidget *darea_splash_c_1; /* from splash.c 420 */
GTimer *gt_splash_c_1; /* from splash.c 421 */
int timeout_tag; /* from splash.c 422 */
int load_complete_splash_c_1; /* from splash.c 423 */
int cnt_splash_c_1; /* from splash.c 424 */
int prev_bar_x_splash_c_1; /* from splash.c 425 */
GdkPixbuf *wave_splash_pixbuf;
/*
* status.c
*/
GtkWidget *text_status_c_2; /* from status.c 426 */
GtkTextIter iter_status_c_3; /* from status.c 428 */
GtkTextTag *bold_tag_status_c_3; /* from status.c 429 */
/*
* strace.c
*/
struct strace_ctx_t *strace_ctx; /* moved to strace.h */
struct strace_ctx_t strace_windows[WAVE_NUM_STRACE_WINDOWS];
int strace_current_window;
int strace_repeat_count;
/*
* symbol.c
*/
#ifdef _WAVE_HAVE_JUDY
Pvoid_t sym_judy; /* from symbol.c */
Pvoid_t s_selected; /* from symbol.c */
#endif
struct symbol **sym_hash; /* from symbol.c 453 */
struct symbol **facs; /* from symbol.c 454 */
char facs_are_sorted; /* from symbol.c 455 */
char facs_have_symbols_state_machine; /* from symbol.c */
int numfacs; /* from symbol.c 456 */
int regions; /* from symbol.c 457 */
int longestname; /* from symbol.c 458 */
struct symchain *firstnode; /* from symbol.c 459 */
struct symchain *curnode; /* from symbol.c 460 */
int hashcache; /* from symbol.c 461 */
/*
* tcl_commands.c
*/
char *previous_braced_tcl_string;
/*
* tcl_helper.c
*/
char in_tcl_callback;
/*
* timeentry.c
*/
GtkWidget *from_entry; /* from timeentry.c 462 */
GtkWidget *to_entry; /* from timeentry.c 463 */
/*
* translate.c
*/
int current_translate_file; /* from translate.c 464 */
int current_filter_translate_c_2; /* from translate.c 465 */
int num_file_filters; /* from translate.c 466 */
char **filesel_filter; /* from translate.c 467 */
struct xl_tree_node **xl_file_filter; /* from translate.c 468 */
int is_active_translate_c_5; /* from translate.c 469 */
char *fcurr_translate_c_2; /* from translate.c 470 */
GtkWidget *window_translate_c_11; /* from translate.c 471 */
GtkListStore *sig_store_translate;
GtkTreeSelection *sig_selection_translate;
/*
* tree.c
*/
#ifdef _WAVE_HAVE_JUDY
Pvoid_t sym_tree;
Pvoid_t sym_tree_addresses;
#endif
struct tree *treeroot; /* from tree.c 473 */
struct tree *mod_tree_parent; /* from tree.c */
char *module_tree_c_1; /* from tree.c 474 */
int module_len_tree_c_1; /* from tree.c 475 */
struct tree *terminals_tchain_tree_c_1; /* from tree.c 476 */
char hier_delimeter; /* from tree.c 477 */
char hier_was_explicitly_set; /* from tree.c 478 */
char alt_hier_delimeter; /* from tree.c 479 */
int fast_tree_sort; /* from tree.c 480 */
struct symbol **facs2_tree_c_1; /* from tree.c 481 */
int facs2_pos_tree_c_1; /* from tree.c 482 */
unsigned char *talloc_pool_base;
size_t talloc_idx;
char *sst_exclude_filename;
uint64_t exclhiermask;
JRB exclcompname;
JRB exclinstname;
/*
* tree_component.c
*/
#ifdef _WAVE_HAVE_JUDY
Pvoid_t comp_name_judy;
#else
JRB comp_name_jrb;
#endif
char **comp_name_idx;
int comp_name_serial;
size_t comp_name_total_stringmem;
int comp_name_longest;
/*
* treesearch_gtk1.c
*/
GtkWidget *window1_treesearch_gtk1_c; /* manual adds by ajb... */
GtkWidget *entry_a_treesearch_gtk1_c;
char *entrybox_text_local_treesearch_gtk1_c;
void (*cleanup_e_treesearch_gtk1_c)(void);
struct tree *selectedtree_treesearch_gtk1_c;
int is_active_treesearch_gtk1_c;
GtkWidget *window_treesearch_gtk1_c;
GtkWidget *tree_treesearch_gtk1_c;
char bundle_direction_treesearch_gtk1_c;
void (*cleanup_treesearch_gtk1_c)(void); /* ...end of manual adds */
/*
* treesearch_gtk2.c
*/
#ifdef MAC_INTEGRATION
char *dnd_helper_quartz;
#endif
struct string_chain_t *treeopen_chain_head; /* from bitvec.c */
struct string_chain_t *treeopen_chain_curr; /* from bitvec.c */
char tree_dnd_begin; /* from treesearch_gtk2.c */
char tree_dnd_requested; /* from treesearch_gtk2.c */
char do_dynamic_treefilter; /* from treesearch_gtk2.c */
GtkWidget *treesearch_gtk2_window_vbox; /* from treesearch_gtk2.c */
char *selected_hierarchy_name; /* from treesearch_gtk2.c */
char *selected_sig_name; /* from treesearch_gtk2.c */
GtkWidget *gtk2_tree_frame; /* from treesearch_gtk2.c */
GtkWidget *filter_entry; /* from treesearch_gtk2.c */
struct xl_tree_node *open_tree_nodes; /* from treesearch_gtk2.c */
char autoname_bundles; /* from treesearch_gtk2.c 483 */
GtkWidget *window1_treesearch_gtk2_c_3; /* from treesearch_gtk2.c 484 */
GtkWidget *entry_a_treesearch_gtk2_c_2; /* from treesearch_gtk2.c 485 */
char *entrybox_text_local_treesearch_gtk2_c_3; /* from treesearch_gtk2.c 486 */
void (*cleanup_e_treesearch_gtk2_c_3)(void); /* from treesearch_gtk2.c 487 */
struct tree *sig_root_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 488 */
struct tree *sst_sig_root_treesearch_gtk2_c_1; /* from treesearch_gtk2.c */
char *filter_str_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 489 */
int filter_typ_treesearch_gtk2_c_1;
int filter_typ_polarity_treesearch_gtk2_c_1;
int filter_matlen_treesearch_gtk2_c_1;
unsigned char filter_noregex_treesearch_gtk2_c_1;
GtkListStore *sig_store_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 490 */
GtkTreeSelection *sig_selection_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 491 */
int is_active_treesearch_gtk2_c_6; /* from treesearch_gtk2.c 492 */
struct autocoalesce_free_list *afl_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 494 */
GtkWidget *window_treesearch_gtk2_c_12; /* from treesearch_gtk2.c 495 */
void (*cleanup_treesearch_gtk2_c_8)(void); /* from treesearch_gtk2.c 498 */
int pre_import_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 499 */
Traces tcache_treesearch_gtk2_c_2; /* from treesearch_gtk2.c 500 */
unsigned char dnd_tgt_on_signalarea_treesearch_gtk2_c_1; /* from treesearch_gtk2.c 501 */
unsigned char dnd_tgt_on_wavearea_treesearch_gtk2_c_1; /* from treesearch_gtk2.c */
GtkWidget *dnd_sigview; /* from treesearch_gtk2.c */
GtkPaned *sst_vpaned; /* from treesearch_gtk2.c */
int fetchlow;
int fetchhigh;
GtkTreeStore *treestore_main;
GtkWidget *treeview_main;
enum sst_cb_action sst_dbl_action_type;
/*
* ttranslate.c
*/
int current_translate_ttrans;
int current_filter_ttranslate_c_1;
int num_ttrans_filters;
char **ttranssel_filter;
struct pipe_ctx **ttrans_filter;
int is_active_ttranslate_c_2;
char *fcurr_ttranslate_c_1;
GtkWidget *window_ttranslate_c_5;
char *ttranslate_args;
GtkListStore *sig_store_ttranslate;
GtkTreeSelection *sig_selection_ttranslate;
/*
* vcd.c
*/
unsigned char do_hier_compress; /* from vcd.c */
char *prev_hier_uncompressed_name; /* from vcd.c */
jmp_buf *vcd_jmp_buf; /* from vcd.c */
int vcd_warning_filesize; /* from vcd.c 502 */
char autocoalesce; /* from vcd.c 503 */
char autocoalesce_reversal; /* from vcd.c 504 */
char mti_realparam_fix;
int vcd_explicit_zero_subscripts; /* from vcd.c 505 */
char convert_to_reals; /* from vcd.c 506 */
char atomic_vectors; /* from vcd.c 507 */
char make_vcd_save_file; /* from vcd.c 508 */
char vcd_preserve_glitches; /* from vcd.c 509 */
char vcd_preserve_glitches_real;
FILE *vcd_save_handle; /* from vcd.c 510 */
FILE *vcd_handle_vcd_c_1; /* from vcd.c 511 */
char vcd_is_compressed_vcd_c_1; /* from vcd.c 512 */
off_t vcdbyteno_vcd_c_1; /* from vcd.c 513 */
int error_count_vcd_c_1; /* from vcd.c 514 */
int header_over_vcd_c_1; /* from vcd.c 515 */
int dumping_off_vcd_c_1; /* from vcd.c 516 */
TimeType start_time_vcd_c_1; /* from vcd.c 517 */
TimeType end_time_vcd_c_1; /* from vcd.c 518 */
TimeType current_time_vcd_c_1; /* from vcd.c 519 */
int num_glitches_vcd_c_2; /* from vcd.c 520 */
int num_glitch_regions_vcd_c_2; /* from vcd.c 521 */
char vcd_hier_delimeter[2]; /* from vcd.c 522 */
struct vcdsymbol *pv_vcd_c_1; /* from vcd.c 523 */
struct vcdsymbol *rootv_vcd_c_1; /* from vcd.c 524 */
char *vcdbuf_vcd_c_1; /* from vcd.c 525 */
char *vst_vcd_c_1; /* from vcd.c 526 */
char *vend_vcd_c_1; /* from vcd.c 527 */
int escaped_names_found_vcd_c_1; /* from vcd.c 528 */
struct slist *slistroot; /* from vcd.c 529 */
struct slist *slistcurr; /* from vcd.c 530 */
char *slisthier; /* from vcd.c 531 */
int slisthier_len; /* from vcd.c 532 */
int T_MAX_STR_vcd_c_1; /* from vcd.c 534 */
char *yytext_vcd_c_1; /* from vcd.c 535 */
int yylen_vcd_c_1; /* from vcd.c 536 */
int yylen_cache_vcd_c_1; /* from vcd.c 537 */
struct vcdsymbol *vcdsymroot_vcd_c_1; /* from vcd.c 538 */
struct vcdsymbol *vcdsymcurr_vcd_c_1; /* from vcd.c 539 */
struct vcdsymbol **sorted_vcd_c_1; /* from vcd.c 540 */
struct vcdsymbol **indexed_vcd_c_1; /* from vcd.c 541 */
int numsyms_vcd_c_1; /* from vcd.c 542 */
struct HistEnt *he_curr_vcd_c_1; /* from vcd.c 543 */
struct HistEnt *he_fini_vcd_c_1; /* from vcd.c 544 */
unsigned int vcd_minid_vcd_c_1; /* from vcd.c 546 */
unsigned int vcd_maxid_vcd_c_1; /* from vcd.c 547 */
int err_vcd_c_1; /* from vcd.c 548 */
off_t vcd_fsiz_vcd_c_1; /* from vcd.c 549 */
char *varsplit_vcd_c_1; /* from vcd.c 550 */
char *vsplitcurr_vcd_c_1; /* from vcd.c 551 */
int var_prevch_vcd_c_1; /* from vcd.c 552 */
char vcd_already_backtracked;
/*
* vcd_partial.c
*/
off_t vcdbyteno_vcd_partial_c_2; /* from vcd_partial.c 555 */
int error_count_vcd_partial_c_2; /* from vcd_partial.c 556 */
int header_over_vcd_partial_c_2; /* from vcd_partial.c 557 */
int dumping_off_vcd_partial_c_2; /* from vcd_partial.c 558 */
TimeType start_time_vcd_partial_c_2; /* from vcd_partial.c 559 */
TimeType end_time_vcd_partial_c_2; /* from vcd_partial.c 560 */
TimeType current_time_vcd_partial_c_2; /* from vcd_partial.c 561 */
int num_glitches_vcd_partial_c_3; /* from vcd_partial.c 562 */
int num_glitch_regions_vcd_partial_c_3; /* from vcd_partial.c 563 */
struct vcdsymbol *pv_vcd_partial_c_2; /* from vcd_partial.c 564 */
struct vcdsymbol *rootv_vcd_partial_c_2; /* from vcd_partial.c 565 */
char *vcdbuf_vcd_partial_c_2; /* from vcd_partial.c 566 */
char *vst_vcd_partial_c_2; /* from vcd_partial.c 567 */
char *vend_vcd_partial_c_2; /* from vcd_partial.c 568 */
char *consume_ptr_vcd_partial_c_1; /* from vcd_partial.c 569 */
char *buf_vcd_partial_c_2; /* from vcd_partial.c 570 */
int consume_countdown_vcd_partial_c_1; /* from vcd_partial.c 571 */
int T_MAX_STR_vcd_partial_c_2; /* from vcd_partial.c 573 */
char *yytext_vcd_partial_c_2; /* from vcd_partial.c 574 */
int yylen_vcd_partial_c_2; /* from vcd_partial.c 575 */
int yylen_cache_vcd_partial_c_2; /* from vcd_partial.c 576 */
struct vcdsymbol *vcdsymroot_vcd_partial_c_2; /* from vcd_partial.c 577 */
struct vcdsymbol *vcdsymcurr_vcd_partial_c_2; /* from vcd_partial.c 578 */
struct vcdsymbol **sorted_vcd_partial_c_2; /* from vcd_partial.c 579 */
struct vcdsymbol **indexed_vcd_partial_c_2; /* from vcd_partial.c 580 */
int numsyms_vcd_partial_c_2; /* from vcd_partial.c 582 */
unsigned int vcd_minid_vcd_partial_c_2; /* from vcd_partial.c 584 */
unsigned int vcd_maxid_vcd_partial_c_2; /* from vcd_partial.c 585 */
int err_vcd_partial_c_2; /* from vcd_partial.c 586 */
char *varsplit_vcd_partial_c_2; /* from vcd_partial.c 587 */
char *vsplitcurr_vcd_partial_c_2; /* from vcd_partial.c 588 */
int var_prevch_vcd_partial_c_2; /* from vcd_partial.c 589 */
int timeset_vcd_partial_c_1; /* from vcd_partial.c 592 */
/*
* vcd_recoder.c
*/
struct vlist_t *time_vlist_vcd_recoder_c_1; /* from vcd_recoder.c 593 */
struct vlist_t *time_vlist_vcd_recoder_write; /* from vcd_recoder.c */
char *fastload_depacked; /* from vcd_recoder.c */
char *fastload_current; /* from vcd_recoder.c */
unsigned int time_vlist_count_vcd_recoder_c_1; /* from vcd_recoder.c 594 */
FILE *vcd_handle_vcd_recoder_c_2; /* from vcd_recoder.c 595 */
char vcd_is_compressed_vcd_recoder_c_2; /* from vcd_recoder.c 596 */
char use_fastload;
off_t vcdbyteno_vcd_recoder_c_3; /* from vcd_recoder.c 597 */
int error_count_vcd_recoder_c_3; /* from vcd_recoder.c 598 */
int header_over_vcd_recoder_c_3; /* from vcd_recoder.c 599 */
int dumping_off_vcd_recoder_c_3; /* from vcd_recoder.c 600 */
TimeType start_time_vcd_recoder_c_3; /* from vcd_recoder.c 601 */
TimeType end_time_vcd_recoder_c_3; /* from vcd_recoder.c 602 */
TimeType current_time_vcd_recoder_c_3; /* from vcd_recoder.c 603 */
int num_glitches_vcd_recoder_c_4; /* from vcd_recoder.c 604 */
int num_glitch_regions_vcd_recoder_c_4; /* from vcd_recoder.c 605 */
struct vcdsymbol *pv_vcd_recoder_c_3; /* from vcd_recoder.c 606 */
struct vcdsymbol *rootv_vcd_recoder_c_3; /* from vcd_recoder.c 607 */
char *vcdbuf_vcd_recoder_c_3; /* from vcd_recoder.c 608 */
char *vst_vcd_recoder_c_3; /* from vcd_recoder.c 609 */
char *vend_vcd_recoder_c_3; /* from vcd_recoder.c 610 */
int T_MAX_STR_vcd_recoder_c_3; /* from vcd_recoder.c 612 */
char *yytext_vcd_recoder_c_3; /* from vcd_recoder.c 613 */
int yylen_vcd_recoder_c_3; /* from vcd_recoder.c 614 */
int yylen_cache_vcd_recoder_c_3; /* from vcd_recoder.c 615 */
struct vcdsymbol *vcdsymroot_vcd_recoder_c_3; /* from vcd_recoder.c 616 */
struct vcdsymbol *vcdsymcurr_vcd_recoder_c_3; /* from vcd_recoder.c 617 */
struct vcdsymbol **sorted_vcd_recoder_c_3; /* from vcd_recoder.c 618 */
struct vcdsymbol **indexed_vcd_recoder_c_3; /* from vcd_recoder.c 619 */
int numsyms_vcd_recoder_c_3; /* from vcd_recoder.c 620 */
unsigned int vcd_minid_vcd_recoder_c_3; /* from vcd_recoder.c 621 */
unsigned int vcd_maxid_vcd_recoder_c_3; /* from vcd_recoder.c 622 */
int err_vcd_recoder_c_3; /* from vcd_recoder.c 623 */
off_t vcd_fsiz_vcd_recoder_c_2; /* from vcd_recoder.c 624 */
char *varsplit_vcd_recoder_c_3; /* from vcd_recoder.c 625 */
char *vsplitcurr_vcd_recoder_c_3; /* from vcd_recoder.c 626 */
int var_prevch_vcd_recoder_c_3; /* from vcd_recoder.c 627 */
unsigned int vcd_hash_max; /* from vcd_recoder.c */
int vcd_hash_kill; /* from vcd_recoder.c */
/*
* vcd_saver.c
*/
FILE *f_vcd_saver_c_1; /* from vcd_saver.c 630 */
char buf_vcd_saver_c_3[16]; /* from vcd_saver.c 631 */
struct vcdsav_tree_node **hp_vcd_saver_c_1; /* from vcd_saver.c 632 */
struct namehier *nhold_vcd_saver_c_1; /* from vcd_saver.c 633 */
/*
* vlist.c
*/
char vlist_spill_to_disk;
char vlist_prepack;
FILE *vlist_handle;
off_t vlist_bytes_written;
int vlist_compression_depth; /* from vlist.c 634 */
/*
* vzt.c
*/
struct vzt_rd_trace *vzt_vzt_c_1; /* from vzt.c 635 */
TimeType first_cycle_vzt_c_3; /* from vzt.c 636 */
TimeType last_cycle_vzt_c_3; /* from vzt.c 637 */
TimeType total_cycles_vzt_c_3; /* from vzt.c 638 */
struct lx2_entry *vzt_table_vzt_c_1; /* from vzt.c 639 */
struct fac *mvlfacs_vzt_c_3; /* from vzt.c 640 */
int busycnt_vzt_c_2; /* from vzt.c 641 */
/*
* wavewindow.c
*/
char highlight_wavewindow; /* from wavewindow.c */
char alt_wheel_mode; /* from wavewindow.c */
char use_scrollwheel_as_y; /* from wavewindow.c */
#ifdef WAVE_ALLOW_SLIDER_ZOOM
char enable_slider_zoom; /* from wavewindow.c */
#endif
int m1x_wavewindow_c_1; /* from wavewindow.c 642 */
int m2x_wavewindow_c_1; /* from wavewindow.c 643 */
char black_and_white; /* from wavewindow.c */
char signalwindow_width_dirty; /* from wavewindow.c 644 */
char enable_ghost_marker; /* from wavewindow.c 645 */
char enable_horiz_grid; /* from wavewindow.c 646 */
char enable_vert_grid; /* from wavewindow.c 647 */
char use_big_fonts; /* from wavewindow.c 648 */
char use_nonprop_fonts; /* from wavewindow.c 649 */
char do_resize_signals; /* from wavewindow.c 650 */
char first_unsized_signals;
int initial_signal_window_width;
char constant_marker_update; /* from wavewindow.c 651 */
char use_roundcaps; /* from wavewindow.c 652 */
char show_base; /* from wavewindow.c 653 */
char wave_scrolling; /* from wavewindow.c 654 */
int vector_padding; /* from wavewindow.c 655 */
unsigned int in_button_press_wavewindow_c_1; /* from wavewindow.c 656 */
char left_justify_sigs; /* from wavewindow.c 657 */
char zoom_pow10_snap; /* from wavewindow.c 658 */
char zoom_dyn; /* from menu.c */
char zoom_dyne; /* from menu.c */
int cursor_snap; /* from wavewindow.c 659 */
float old_wvalue; /* from wavewindow.c 660 */
struct blackout_region_t *blackout_regions; /* from wavewindow.c 661 */
TimeType zoom; /* from wavewindow.c 662 */
TimeType scale; /* from wavewindow.c 663 */
TimeType nsperframe; /* from wavewindow.c 664 */
double pixelsperframe; /* from wavewindow.c 665 */
double hashstep; /* from wavewindow.c 666 */
TimeType prevtim_wavewindow_c_1; /* from wavewindow.c 667 */
double pxns; /* from wavewindow.c 668 */
double nspx; /* from wavewindow.c 669 */
double zoombase; /* from wavewindow.c 670 */
struct TraceEnt *topmost_trace; /* from wavewindow.c 671 */
int waveheight; /* from wavewindow.c 672 */
int wavecrosspiece; /* from wavewindow.c 673 */
int wavewidth; /* from wavewindow.c 674 */
struct font_engine_font_t *wavefont; /* from wavewindow.c 675 */
struct font_engine_font_t *wavefont_smaller; /* from wavewindow.c 676 */
GtkWidget *wavearea; /* from wavewindow.c 677 */
GtkWidget *vscroll_wavewindow_c_1; /* from wavewindow.c 678 */
GtkWidget *hscroll_wavewindow_c_2; /* from wavewindow.c 679 */
gpointer wave_vslider2; /* from wavewindow.c 681 */
gpointer wave_vslider; /* from wavewindow.c 681 */
gpointer wave_hslider; /* from wavewindow.c 682 */
TimeType named_markers[WAVE_NUM_NAMED_MARKERS]; /* from wavewindow.c 683 */
int named_marker_lock_idx; /* from menu.c */
char made_gc_contexts_wavewindow_c_1; /* from wavewindow.c 684 */
int which_t_color;
char made_sgc_contexts_wavewindow_c_1; /* from wavewindow.c 709 */
char fill_in_smaller_rgb_areas_wavewindow_c_1; /* from wavewindow.c 719 */
TimeType prev_markertime; /* from wavewindow.c */
int analog_redraw_skip_count; /* from wavewindow.c */
int str_wid_x;
int str_wid_width;
int str_wid_bigw;
int str_wid_state;
int str_wid_slider;
int str_wid_height;
TimeType ruler_origin;
TimeType ruler_step;
char fill_waveform;
char lz_removal;
cairo_surface_t *surface_wavepixmap_wavewindow_c_1;
cairo_t *cr_wavepixmap_wavewindow_c_1;
wave_rgb_t rgb_gc_white;
wave_rgb_t rgb_gc_black;
wave_rgb_t rgb_gc_rainbow[2*WAVE_NUM_RAINBOW];
struct wave_rgbmaster_t rgb_gc;
struct wave_rgbmaster_t rgb_gccache;
double cr_line_width;
double cairo_050_offset;
#ifdef WAVE_ALLOW_GTK3_GESTURE_EVENT
gdouble wavearea_gesture_initial_zoom;
#ifdef WAVE_GTK3_GESTURE_ZOOM_IS_1D
gdouble wavearea_gesture_initial_zoom_x_distance;
TimeType wavearea_gesture_initial_x1tim;
#endif
GtkGesture *wavearea_gesture_swipe;
GDateTime *swipe_init_time;
TimeType swipe_init_start;
gdouble wavearea_gesture_swipe_velocity_x;
int wavearea_drag_start_x;
int wavearea_drag_start_y;
char wavearea_drag_active;
#endif
char use_gestures;
gboolean use_dark;
gboolean save_on_exit;
#ifdef GDK_WINDOWING_WAYLAND
int wayland_marker_timer_hack;
#endif
/*
* zoombuttons.c
*/
char do_zoom_center; /* from zoombuttons.c 720 */
char do_initial_zoom_fit; /* from zoombuttons.c 721 */
char do_initial_zoom_fit_used;
};
struct Global *initialize_globals(void);
void reload_into_new_context(void);
void strcpy2_into_new_context(struct Global *g, char **newstrref, char **oldstrref);
void free_and_destroy_page_context(void);
void dead_context_sweep(void);
void install_focus_cb(GtkWidget *w, intptr_t ptr_offset);
gulong gtkwave_signal_connect_x(gpointer object, const gchar *name, GCallback func, gpointer data, char *f, intptr_t line);
gulong gtkwave_signal_connect_object_x(gpointer object, const gchar *name, GCallback func, gpointer data, char *f, intptr_t line);
#ifdef GTKWAVE_SIGNAL_CONNECT_DEBUG
#define gtkwave_signal_connect(a,b,c,d) gtkwave_signal_connect_x(a,b,c,d,__FILE__,__LINE__)
#define gtkwave_signal_connect_object(a,b,c,d) gtkwave_signal_connect_object_x(a,b,c,d,__FILE__,__LINE__)
#else
#define gtkwave_signal_connect(a,b,c,d) gtkwave_signal_connect_x(a,b,c,d,NULL,0)
#define gtkwave_signal_connect_object(a,b,c,d) gtkwave_signal_connect_object_x(a,b,c,d,NULL,0)
#endif
void set_GLOBALS_x(struct Global *g, const char *file, int line);
#ifdef GTKWAVE_GLOBALS_DEBUG
#define set_GLOBALS(a) set_GLOBALS_x(a,__FILE__,__LINE__)
#else
#define set_GLOBALS(a) set_GLOBALS_x(a,NULL,0)
#endif
void logbox_reload(void);
void clone_icon_pointers_across_contexts(struct Global *a, struct Global *b);
extern struct Global *GLOBALS;
#endif
gtkwave-gtk3-3.3.125/src/gconf.c 0000664 0001750 0001750 00000043763 15047725112 015561 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2012-2018.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "gconf.h"
#include "wavealloca.h"
#include "globals.h"
int wave_rpc_id = 0;
#ifdef WAVE_HAVE_GSETTINGS
static GSettings *gs = NULL;
static void remove_client(void)
{
if(gs)
{
g_object_unref(gs);
gs = NULL;
}
}
static char *parse_rpc_id(char *str, int *this_wave_rpc_id)
{
char *comma = strchr(str, ',');
char *str2 = comma ? (comma+1) : NULL;
*this_wave_rpc_id = atoi(str);
return(str2);
}
static void
user_function (GSettings *settings,
gchar *key,
gpointer user_data)
{
(void)user_data;
char *str = NULL;
char *str2 = NULL;
int this_wave_rpc_id = -1;
g_settings_get (settings, key, "s", &str);
if(!strcmp(key, "open"))
{
if((str)&&(str[0]))
{
str2 = parse_rpc_id(str, &this_wave_rpc_id);
if((this_wave_rpc_id == wave_rpc_id) && str2)
{
fprintf(stderr, "GTKWAVE | RPC Open: '%s'\n", str2);
deal_with_rpc_open(str, NULL);
g_settings_set(settings, "open", "s", "");
}
}
}
else
if(!strcmp(key, "quit"))
{
if((str)&&(str[0]))
{
str2 = parse_rpc_id(str, &this_wave_rpc_id);
if((this_wave_rpc_id == wave_rpc_id) && str2)
{
const char *rc = str2;
int rcv = atoi(rc);
fprintf(stderr, "GTKWAVE | RPC Quit: exit return code %d\n", rcv);
g_settings_set(settings, "quit", "s", "");
exit(rcv);
}
}
}
else
if(!strcmp(key, "reload"))
{
if((str)&&(str[0]))
{
this_wave_rpc_id = atoi(str);
if(this_wave_rpc_id == wave_rpc_id)
{
if(in_main_iteration()) goto bot;
reload_into_new_context();
g_settings_set(settings, "reload", "s", "");
}
}
}
else
if(!strcmp(key, "zoom-full"))
{
if((str)&&(str[0]))
{
this_wave_rpc_id = atoi(str);
if(this_wave_rpc_id == wave_rpc_id)
{
if(in_main_iteration()) goto bot;
service_zoom_full(NULL, NULL);
g_settings_set(settings, "zoom-full", "s", "");
}
}
}
else
if(!strcmp(key, "writesave"))
{
if((str)&&(str[0]))
{
str2 = parse_rpc_id(str, &this_wave_rpc_id);
if((this_wave_rpc_id == wave_rpc_id) && str2)
{
const char *fni = str2;
if(fni && !in_main_iteration())
{
int use_arg = strcmp(fni, "+"); /* plus filename uses default */
const char *fn = use_arg ? fni : GLOBALS->filesel_writesave;
if(fn)
{
FILE *wave;
if(!(wave=fopen(fn, "wb")))
{
fprintf(stderr, "GTKWAVE | RPC Writesave: error opening save file '%s' for writing.\n", fn);
perror("Why");
errno=0;
}
else
{
write_save_helper(fn, wave);
if(use_arg)
{
if(GLOBALS->filesel_writesave) { free_2(GLOBALS->filesel_writesave); }
GLOBALS->filesel_writesave = strdup_2(fn);
}
wave_gconf_client_set_string("/current/savefile", fn);
fclose(wave);
fprintf(stderr, "GTKWAVE | RPC Writesave: wrote save file '%s'.\n", GLOBALS->filesel_writesave);
}
}
}
g_settings_set(settings, "writesave", "s", "");
}
}
}
else
if(!strcmp(key, "move-to-time"))
{
if((str)&&(str[0]))
{
str2 = parse_rpc_id(str, &this_wave_rpc_id);
if((this_wave_rpc_id == wave_rpc_id) && str2)
{
if(!in_main_iteration())
{
char *e_copy = GLOBALS->entrybox_text;
GLOBALS->entrybox_text=strdup_2(str2);
movetotime_cleanup(NULL, NULL);
GLOBALS->entrybox_text = e_copy;
}
g_settings_set(settings, "move-to-time", "s", "");
}
}
}
else
if(!strcmp(key, "zoom-size"))
{
if((str)&&(str[0]))
{
str2 = parse_rpc_id(str, &this_wave_rpc_id);
if((this_wave_rpc_id == wave_rpc_id) && str2)
{
if(!in_main_iteration())
{
char *e_copy = GLOBALS->entrybox_text;
GLOBALS->entrybox_text=strdup_2(str2);
zoomsize_cleanup(NULL, NULL);
GLOBALS->entrybox_text = e_copy;
}
g_settings_set(settings, "zoom-size", "s", "");
}
}
}
bot:
if(str) g_free(str);
}
void wave_gconf_init(int argc, char **argv)
{
(void)argc;
(void)argv;
if(!gs)
{
gs = g_settings_new (WAVE_GSETTINGS_SCHEMA_ID);
g_signal_connect (gs, "changed", G_CALLBACK (user_function), NULL);
atexit(remove_client);
}
}
gboolean wave_gconf_client_set_string(const gchar *key, const gchar *val)
{
if(key && gs)
{
const char *ks = strrchr(key, '/');
char *k2 = NULL;
if(ks) { ks = ks+1; } else { ks = key; }
if(strchr(ks, '_'))
{
char *s;
k2 = s = strdup_2(ks);
while(*s) { if(*s=='_') *s='-'; s++; }
}
g_settings_set(gs, k2 ? k2 : ks, "s", val ? val : "");
if(k2) free_2(k2);
return(TRUE);
}
return(FALSE);
}
static gchar *wave_gconf_client_get_string(const gchar *key)
{
if(key && gs)
{
const char *ks = strrchr(key, '/');
char *k2 = NULL;
char *str = NULL;
if(ks) { ks = ks+1; } else { ks = key; }
if(strchr(ks, '_'))
{
char *s;
k2 = s = strdup_2(ks);
while(*s) { if(*s=='_') *s='-'; s++; }
}
g_settings_get (gs, k2 ? k2 : ks, "s", &str);
if(k2) free_2(k2);
return(str);
}
return(NULL);
}
void wave_gconf_restore(char **dumpfile, char **savefile, char **rcfile, char **wave_pwd, int *opt_vcd)
{
char *s;
if(dumpfile && savefile && rcfile && wave_pwd && opt_vcd)
{
if(*dumpfile) { free_2(*dumpfile); *dumpfile = NULL; }
s = wave_gconf_client_get_string("/current/dumpfile");
if(s) { if(s[0]) *dumpfile = strdup_2(s); g_free(s); }
if(*savefile) { free_2(*savefile); *savefile = NULL; }
s = wave_gconf_client_get_string("/current/savefile");
if(s) { if(s[0]) *savefile = strdup_2(s); g_free(s); }
if(*rcfile) { free_2(*rcfile); *rcfile = NULL; }
s = wave_gconf_client_get_string("/current/rcfile");
if(s) { if(s[0]) *rcfile = strdup_2(s); g_free(s); }
if(*wave_pwd) { free_2(*wave_pwd); *wave_pwd = NULL; }
s = wave_gconf_client_get_string("/current/pwd");
if(s) { if(s[0]) *wave_pwd = strdup_2(s); g_free(s); }
s = wave_gconf_client_get_string("/current/optimized-vcd");
if(s) { if(s[0]) *opt_vcd = atoi(s); g_free(s); }
}
}
#else
#ifdef WAVE_HAVE_GCONF
static GConfClient* client = NULL;
/************************************************************/
static void
open_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
fprintf(stderr, "GTKWAVE | RPC Open: '%s'\n", gconf_value_get_string (gconf_entry_get_value (entry)) );
deal_with_rpc_open(gconf_value_get_string (gconf_entry_get_value (entry)), NULL);
gconf_entry_set_value(entry, NULL);
}
else
{
/* value is of wrong type */
}
}
}
static void
quit_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
const char *rc = gconf_value_get_string (gconf_entry_get_value (entry));
int rcv = atoi(rc);
fprintf(stderr, "GTKWAVE | RPC Quit: exit return code %d\n", rcv);
gconf_entry_set_value(entry, NULL);
exit(rcv);
}
else
{
/* value is of wrong type */
}
}
}
static void
reload_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
if(in_main_iteration()) return;
reload_into_new_context();
gconf_entry_set_value(entry, NULL);
}
else
{
/* value is of wrong type */
}
}
}
static void
zoomfull_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
if(in_main_iteration()) return;
service_zoom_full(NULL, NULL);
gconf_entry_set_value(entry, NULL);
}
else
{
/* value is of wrong type */
}
}
}
static void
writesave_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
const char *fni = gconf_value_get_string (gconf_entry_get_value (entry));
if(fni && !in_main_iteration())
{
int use_arg = strcmp(fni, "+"); /* plus filename uses default */
const char *fn = use_arg ? fni : GLOBALS->filesel_writesave;
if(fn)
{
FILE *wave;
if(!(wave=fopen(fn, "wb")))
{
fprintf(stderr, "GTKWAVE | RPC Writesave: error opening save file '%s' for writing.\n", fn);
perror("Why");
errno=0;
}
else
{
write_save_helper(fn, wave);
if(use_arg)
{
if(GLOBALS->filesel_writesave) { free_2(GLOBALS->filesel_writesave); }
GLOBALS->filesel_writesave = strdup_2(fn);
}
wave_gconf_client_set_string("/current/savefile", fn);
fclose(wave);
fprintf(stderr, "GTKWAVE | RPC Writesave: wrote save file '%s'.\n", GLOBALS->filesel_writesave);
}
}
}
gconf_entry_set_value(entry, NULL);
}
else
{
/* value is of wrong type */
}
}
}
static void
move_to_time_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
const char *str = gconf_value_get_string (gconf_entry_get_value (entry));
if(str && !in_main_iteration())
{
char *e_copy = GLOBALS->entrybox_text;
GLOBALS->entrybox_text=strdup_2(str);
movetotime_cleanup(NULL, NULL);
GLOBALS->entrybox_text = e_copy;
}
gconf_entry_set_value(entry, NULL);
}
else
{
/* value is of wrong type */
}
}
}
static void
zoom_size_callback(GConfClient* gclient,
guint cnxn_id,
GConfEntry *entry,
gpointer user_data)
{
(void)gclient;
(void)cnxn_id;
(void)user_data;
if (gconf_entry_get_value (entry) == NULL)
{
/* value is unset */
}
else
{
if (gconf_entry_get_value (entry)->type == GCONF_VALUE_STRING)
{
const char *str = gconf_value_get_string (gconf_entry_get_value (entry));
if(str && !in_main_iteration())
{
char *e_copy = GLOBALS->entrybox_text;
GLOBALS->entrybox_text=strdup_2(str);
zoomsize_cleanup(NULL, NULL);
GLOBALS->entrybox_text = e_copy;
}
gconf_entry_set_value(entry, NULL);
}
else
{
/* value is of wrong type */
}
}
}
/************************************************************/
static void remove_client(void)
{
if(client)
{
g_object_unref(client);
client = NULL;
}
}
void wave_gconf_init(int argc, char **argv)
{
if(!client)
{
char *ks = wave_alloca(WAVE_GCONF_DIR_LEN + 32 + 32 + 1);
int len = sprintf(ks, WAVE_GCONF_DIR"/%d", wave_rpc_id);
gconf_init(argc, argv, NULL);
client = gconf_client_get_default();
atexit(remove_client);
gconf_client_add_dir(client,
ks,
GCONF_CLIENT_PRELOAD_NONE,
NULL);
strcpy(ks + len, "/open");
gconf_client_notify_add(client, ks,
open_callback,
NULL, /* user data */
NULL, NULL);
strcpy(ks + len, "/quit");
gconf_client_notify_add(client, ks,
quit_callback,
NULL, /* user data */
NULL, NULL);
strcpy(ks + len, "/writesave");
gconf_client_notify_add(client, ks,
writesave_callback,
NULL, /* user data */
NULL, NULL);
strcpy(ks + len, "/reload");
gconf_client_notify_add(client, ks,
reload_callback,
NULL, /* user data */
NULL, NULL);
strcpy(ks + len, "/zoom_full");
gconf_client_notify_add(client, ks,
zoomfull_callback,
NULL, /* user data */
NULL, NULL);
strcpy(ks + len, "/move_to_time");
gconf_client_notify_add(client, ks,
move_to_time_callback,
NULL, /* user data */
NULL, NULL);
strcpy(ks + len, "/zoom_size");
gconf_client_notify_add(client, ks,
zoom_size_callback,
NULL, /* user data */
NULL, NULL);
}
}
gboolean wave_gconf_client_set_string(const gchar *key, const gchar *val)
{
if(key && client)
{
char *ks = wave_alloca(WAVE_GCONF_DIR_LEN + 32 + strlen(key) + 1);
sprintf(ks, WAVE_GCONF_DIR"/%d%s", wave_rpc_id, key);
return(gconf_client_set_string(client, ks, val ? val : "", NULL));
}
return(FALSE);
}
static gchar *wave_gconf_client_get_string(const gchar *key)
{
if(key && client)
{
char *ks = wave_alloca(WAVE_GCONF_DIR_LEN + 32 + strlen(key) + 1);
sprintf(ks, WAVE_GCONF_DIR"/%d%s", wave_rpc_id, key);
return(gconf_client_get_string(client, ks, NULL));
}
return(NULL);
}
void wave_gconf_restore(char **dumpfile, char **savefile, char **rcfile, char **wave_pwd, int *opt_vcd)
{
char *s;
if(dumpfile && savefile && rcfile && wave_pwd && opt_vcd)
{
if(*dumpfile) { free_2(*dumpfile); *dumpfile = NULL; }
s = wave_gconf_client_get_string("/current/dumpfile");
if(s) { if(s[0]) *dumpfile = strdup_2(s); g_free(s); }
if(*savefile) { free_2(*savefile); *savefile = NULL; }
s = wave_gconf_client_get_string("/current/savefile");
if(s) { if(s[0]) *savefile = strdup_2(s); g_free(s); }
if(*rcfile) { free_2(*rcfile); *rcfile = NULL; }
s = wave_gconf_client_get_string("/current/rcfile");
if(s) { if(s[0]) *rcfile = strdup_2(s); g_free(s); }
if(*wave_pwd) { free_2(*wave_pwd); *wave_pwd = NULL; }
s = wave_gconf_client_get_string("/current/pwd");
if(s) { if(s[0]) *wave_pwd = strdup_2(s); g_free(s); }
s = wave_gconf_client_get_string("/current/optimized_vcd");
if(s) { if(s[0]) *opt_vcd = atoi(s); g_free(s); }
}
}
#else
void wave_gconf_init(int argc, char **argv)
{
(void)argc;
(void)argv;
}
gboolean wave_gconf_client_set_string(const gchar *key, const gchar *val)
{
(void)key;
(void)val;
return(FALSE);
}
void wave_gconf_restore(char **dumpfile, char **savefile, char **rcfile, char **wave_pwd, int *opt_vcd)
{
(void)dumpfile;
(void)savefile;
(void)rcfile;
(void)wave_pwd;
(void)opt_vcd;
/* nothing */
}
#endif
#endif
/*
Examples of RPC manipulation (gconf):
gconftool-2 --dump /com.geda.gtkwave
gconftool-2 --dump /com.geda.gtkwave --recursive-unset
gconftool-2 --type string --set /com.geda.gtkwave/0/open /pub/systema_packed.fst
gconftool-2 --type string --set /com.geda.gtkwave/0/open `pwd`/`basename -- des.gtkw`
gconftool-2 --type string --set /com.geda.gtkwave/0/writesave /tmp/this.gtkw
gconftool-2 --type string --set /com.geda.gtkwave/0/writesave +
gconftool-2 --type string --set /com.geda.gtkwave/0/quit 0
gconftool-2 --type string --set /com.geda.gtkwave/0/reload 0
gconftool-2 --type string --set /com.geda.gtkwave/0/zoom_full 0
gconftool-2 --type string --set /com.geda.gtkwave/0/zoom_size -- -4.6
gconftool-2 --type string --set /com.geda.gtkwave/0/move_to_time 123ns
gconftool-2 --type string --set /com.geda.gtkwave/0/move_to_time A
Examples of RPC manipulation (gsettings).
First number is RPC ID:
gsettings set com.geda.gtkwave open 0,/pub/systema_packed.fst
gsettings set com.geda.gtkwave writesave 0,/tmp/this.gtkw
gsettings set com.geda.gtkwave writesave 0,+
gsettings set com.geda.gtkwave quit 0,0
gsettings set com.geda.gtkwave reload 0
gsettings set com.geda.gtkwave zoom-full 0
gsettings set com.geda.gtkwave zoom-size 0,-4.6
gsettings set com.geda.gtkwave move-to-time 0,123ns
gsettings set com.geda.gtkwave move-to-time 0,A
*/
gtkwave-gtk3-3.3.125/src/tree.c 0000664 0001750 0001750 00000064324 15047725112 015420 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2016.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
/* AIX may need this for alloca to work */
#if defined _AIX
#pragma alloca
#endif
#include
#include "globals.h"
#include "tree.h"
#include "vcd.h"
enum TreeBuildTypes { MAKETREE_FLATTEN, MAKETREE_LEAF, MAKETREE_NODE };
#ifdef WAVE_USE_STRUCT_PACKING
struct tree *talloc_2(size_t siz)
{
if(GLOBALS->talloc_pool_base)
{
if((siz + GLOBALS->talloc_idx) <= WAVE_TALLOC_POOL_SIZE)
{
unsigned char *m = GLOBALS->talloc_pool_base + GLOBALS->talloc_idx;
GLOBALS->talloc_idx += siz;
return((struct tree *)m);
}
else
if(siz >= WAVE_TALLOC_ALTREQ_SIZE)
{
return(calloc_2(1, siz));
}
}
GLOBALS->talloc_pool_base = calloc_2(1, WAVE_TALLOC_POOL_SIZE);
GLOBALS->talloc_idx = 0;
return(talloc_2(siz));
}
#endif
/*
* init pointers needed for n-way tree
*/
void init_tree(void)
{
GLOBALS->module_tree_c_1=(char *)malloc_2(GLOBALS->longestname+1);
}
/*
* extract the next part of the name in the flattened
* hierarchy name. return ptr to next name if it exists
* else NULL
*/
static const char *get_module_name(const char *s)
{
char ch;
char *pnt;
pnt=GLOBALS->module_tree_c_1;
for(;;)
{
ch=*(s++);
if(((ch==GLOBALS->hier_delimeter) || (ch == '|')) && (*s)) /* added && null check to allow possible . at end of name */
{
*(pnt)=0;
GLOBALS->module_len_tree_c_1 = pnt - GLOBALS->module_tree_c_1;
return(s);
}
if(!(*(pnt++)=ch))
{
GLOBALS->module_len_tree_c_1 = pnt - GLOBALS->module_tree_c_1;
return(NULL); /* nothing left to extract */
}
}
}
/*
* generate unique hierarchy pointer faster that sprintf("%p")
* use 7-bit string to generate less characters
*/
#ifdef _WAVE_HAVE_JUDY
static int gen_hier_string(char *dest, void *pnt)
{
uintptr_t p = (uintptr_t)(pnt);
char *dest_copy = dest;
while(p)
{
*(dest++) = (p & 0x7f) | 0x80;
p >>= 7;
}
*(dest++) = '.';
return(dest - dest_copy);
}
#endif
/*
* decorated module cleanup (if judy active)
*/
int decorated_module_cleanup(void)
{
#ifdef _WAVE_HAVE_JUDY
if(GLOBALS->sym_tree)
{
JudySLFreeArray(&GLOBALS->sym_tree, PJE0);
}
if(GLOBALS->sym_tree_addresses)
{
int rcValue;
Word_t Index = 0;
for (rcValue = Judy1First(GLOBALS->sym_tree_addresses, &Index, PJE0); rcValue != 0; rcValue = Judy1Next(GLOBALS->sym_tree_addresses, &Index, PJE0))
{
((struct tree *)Index)->children_in_gui = 0;
}
Judy1FreeArray(&GLOBALS->sym_tree_addresses, PJE0);
}
#endif
return(1);
}
/*
* decorated module add
*/
void allocate_and_decorate_module_tree_node(unsigned char ttype, const char *scopename, const char *compname, uint32_t scopename_len, uint32_t compname_len, uint32_t t_stem, uint32_t t_istem)
{
struct tree *t;
int mtyp = WAVE_T_WHICH_UNDEFINED_COMPNAME;
#ifdef _WAVE_HAVE_JUDY
char str[2048];
#endif
if(compname && compname[0] && strcmp(scopename, compname))
{
int ix = add_to_comp_name_table(compname, compname_len);
if(ix)
{
ix--;
mtyp = WAVE_T_WHICH_COMPNAME_START - ix;
}
}
if(GLOBALS->treeroot)
{
if(GLOBALS->mod_tree_parent)
{
#ifdef _WAVE_HAVE_JUDY
if(GLOBALS->mod_tree_parent->children_in_gui)
{
PPvoid_t PPValue;
/* find with judy */
int len = gen_hier_string(str, GLOBALS->mod_tree_parent);
strcpy(str+len, scopename);
PPValue = JudySLIns(&GLOBALS->sym_tree, (uint8_t *)str, PJE0);
if(*PPValue)
{
GLOBALS->mod_tree_parent = *PPValue;
return;
}
t = talloc_2(sizeof(struct tree) + scopename_len + 1);
*PPValue = t;
goto t_allocated;
}
else
{
int dep = 0;
#endif
t = GLOBALS->mod_tree_parent->child;
while(t)
{
if(!strcmp(t->name, scopename))
{
GLOBALS->mod_tree_parent = t;
return;
}
t = t->next;
#ifdef _WAVE_HAVE_JUDY
dep++;
#endif
}
#ifdef _WAVE_HAVE_JUDY
if(dep >= FST_TREE_SEARCH_NEXT_LIMIT)
{
PPvoid_t PPValue;
int len = gen_hier_string(str, GLOBALS->mod_tree_parent);
GLOBALS->mod_tree_parent->children_in_gui = 1; /* "borrowed" for tree build */
t = GLOBALS->mod_tree_parent->child;
Judy1Set ((Pvoid_t)&GLOBALS->sym_tree_addresses, (Word_t)GLOBALS->mod_tree_parent, PJE0);
/* assemble judy based on scopename + GLOBALS->mod_tree_parent pnt */
while(t)
{
strcpy(str+len, t->name);
PPValue = JudySLIns(&GLOBALS->sym_tree, (uint8_t *)str, PJE0);
*PPValue = t;
t = t->next;
}
strcpy(str+len, scopename);
PPValue = JudySLIns(&GLOBALS->sym_tree, (uint8_t *)str, PJE0);
t = talloc_2(sizeof(struct tree) + scopename_len + 1);
*PPValue = t;
goto t_allocated;
}
}
#endif
t = talloc_2(sizeof(struct tree) + scopename_len + 1);
#ifdef _WAVE_HAVE_JUDY
t_allocated:
#endif
strcpy(t->name, scopename);
t->kind = ttype;
t->t_which = mtyp;
t->t_stem = t_stem;
t->t_istem = t_istem;
if(GLOBALS->mod_tree_parent->child)
{
t->next = GLOBALS->mod_tree_parent->child;
}
GLOBALS->mod_tree_parent->child = t;
GLOBALS->mod_tree_parent = t;
}
else
{
t = GLOBALS->treeroot;
while(t)
{
if(!strcmp(t->name, scopename))
{
GLOBALS->mod_tree_parent = t;
return;
}
t = t->next;
}
t = talloc_2(sizeof(struct tree) + scopename_len + 1);
strcpy(t->name, scopename);
t->kind = ttype;
t->t_which = mtyp;
t->t_stem = t_stem;
t->t_istem = t_istem;
t->next = GLOBALS->treeroot;
GLOBALS->mod_tree_parent = GLOBALS->treeroot = t;
}
}
else
{
t = talloc_2(sizeof(struct tree) + scopename_len + 1);
strcpy(t->name, scopename);
t->kind = ttype;
t->t_which = mtyp;
t->t_stem = t_stem;
t->t_istem = t_istem;
GLOBALS->mod_tree_parent = GLOBALS->treeroot = t;
}
}
/*
* adds back netnames
*/
int treegraft(struct tree **t)
{
struct tree *tx = GLOBALS->terminals_tchain_tree_c_1;
struct tree *t2;
struct tree *par;
while(tx)
{
t2 = tx->next;
par = tx->child;
tx->child = NULL;
if(par)
{
if(par->child)
{
tx->next = par->child;
par->child = tx;
}
else
{
par->child = tx;
tx->next = NULL;
}
}
else
{
if(*t)
{
tx->next = (*t)->next;
(*t)->next = tx;
}
else
{
*t = tx;
tx->next = NULL;
}
}
tx = t2;
}
return(1);
}
/*
* unswizzle extended names in tree
*/
void treenamefix_str(char *s)
{
while(*s)
{
if(*s==VCDNAM_ESCAPE) *s=GLOBALS->hier_delimeter;
s++;
}
}
void treenamefix(struct tree *t)
{
struct tree *tnext;
if(t->child) treenamefix(t->child);
tnext = t->next;
while(tnext)
{
if(tnext->child) treenamefix(tnext->child);
if(tnext->name) treenamefix_str(tnext->name);
tnext=tnext->next;
}
if(t->name) treenamefix_str(t->name);
}
/*
* for debugging purposes only
*/
void treedebug(struct tree *t, char *s)
{
while(t)
{
char *s2;
s2=(char *)malloc_2(strlen(s)+strlen(t->name)+2);
strcpy(s2,s);
strcat(s2,".");
strcat(s2,t->name);
if(t->child)
{
treedebug(t->child, s2);
}
if(t->t_which>=0) /* for when valid netnames like A.B.C, A.B.C.D exist (not legal excluding texsim) */
/* otherwise this would be an 'else' */
{
printf("%3d) %s\n", t->t_which, s2);
}
free_2(s2);
t=t->next;
}
}
/*
* return least significant member name of a hierarchy
* (used for tree and hier vec_root search hits)
*/
char *leastsig_hiername(char *nam)
{
char *t, *pnt=NULL;
char ch;
if(nam)
{
t=nam;
while((ch=*(t++)))
{
if(ch==GLOBALS->hier_delimeter) pnt=t;
}
}
return(pnt?pnt:nam);
}
/**********************************/
/* Experimental treesorting code */
/* (won't directly work with lxt2 */
/* because alias hier is after */
/* fac hier so fix with partial */
/* mergesort...) */
/**********************************/
/*
* sort the hier tree..should be faster than
* moving numfacs longer strings around
*/
static int tree_qsort_cmp(const void *v1, const void *v2)
{
struct tree *t1 = *(struct tree **)v1;
struct tree *t2 = *(struct tree **)v2;
return(sigcmp(t2->name, t1->name)); /* because list must be in rvs */
}
static void treesort_2(struct tree *t, struct tree *p, struct tree ***tm, int *tm_siz)
{
struct tree *it;
struct tree **srt;
int cnt;
int i;
if(t->next)
{
it = t;
cnt = 0;
do {
cnt++;
it=it->next;
} while(it);
if(cnt > *tm_siz)
{
*tm_siz = cnt;
if(*tm) { free_2(*tm); }
*tm = malloc_2((cnt+1) * sizeof(struct tree *));
}
srt = *tm;
for(i=0;inext;
}
srt[i] = NULL;
qsort((void *)srt, cnt, sizeof(struct tree *), tree_qsort_cmp);
if(p)
{
p->child = srt[0];
}
else
{
GLOBALS->treeroot = srt[0];
}
for(i=0;inext = srt[i+1];
}
it = srt[0];
for(i=0;ichild)
{
treesort_2(it->child, it, tm, tm_siz);
}
it = it->next;
}
}
else if (t->child)
{
treesort_2(t->child, t, tm, tm_siz);
}
}
void treesort(struct tree *t, struct tree *p)
{
struct tree **tm = NULL;
int tm_siz = 0;
treesort_2(t, p, &tm, &tm_siz);
if(tm)
{
free_2(tm);
}
}
void order_facs_from_treesort_2(struct tree *t)
{
while(t)
{
if(t->child)
{
order_facs_from_treesort_2(t->child);
}
if(t->t_which>=0) /* for when valid netnames like A.B.C, A.B.C.D exist (not legal excluding texsim) */
/* otherwise this would be an 'else' */
{
GLOBALS->facs2_tree_c_1[GLOBALS->facs2_pos_tree_c_1] = GLOBALS->facs[t->t_which];
t->t_which = GLOBALS->facs2_pos_tree_c_1--;
}
t=t->next;
}
}
void order_facs_from_treesort(struct tree *t, void *v)
{
struct symbol ***f = (struct symbol ***)v; /* eliminate compiler warning in tree.h as symbol.h refs tree.h */
GLOBALS->facs2_tree_c_1=(struct symbol **)malloc_2(GLOBALS->numfacs*sizeof(struct symbol *));
GLOBALS->facs2_pos_tree_c_1 = GLOBALS->numfacs-1;
order_facs_from_treesort_2(t);
if(GLOBALS->facs2_pos_tree_c_1>=0)
{
fprintf(stderr, "Internal Error: GLOBALS->facs2_pos_tree_c_1 = %d\n",GLOBALS->facs2_pos_tree_c_1);
fprintf(stderr, "[This is usually the result of multiply defined facilities such as a hierarchy name also being used as a signal at the same level of scope.]\n");
exit(255);
}
free_2(*f);
*f = GLOBALS->facs2_tree_c_1;
GLOBALS->facs2_tree_c_1 = NULL;
}
void build_tree_from_name(const char *s, int which)
{
struct tree *t, *nt;
struct tree *tchain = NULL, *tchain_iter;
struct tree *prevt;
#ifdef _WAVE_HAVE_JUDY
PPvoid_t PPValue = NULL;
char str[2048];
#endif
if(s==NULL || !s[0]) return;
t = GLOBALS->treeroot;
if(t)
{
prevt = NULL;
while(s)
{
rs: s=get_module_name(s);
if(s && t && !strcmp(t->name, GLOBALS->module_tree_c_1)) /* ajb 300616 added "s &&" to cover case where we can have hierarchy + final name are same, see A.B.C.D notes elsewhere in this file */
{
prevt = t;
t = t->child;
continue;
}
#ifdef _WAVE_HAVE_JUDY
rescan:
if(prevt && prevt->children_in_gui)
{
/* find with judy */
int len = gen_hier_string(str, prevt);
strcpy(str+len, GLOBALS->module_tree_c_1);
PPValue = JudySLIns(&GLOBALS->sym_tree, (uint8_t *)str, PJE0);
if(*PPValue)
{
t = *PPValue;
prevt = t;
t = t->child;
continue;
}
goto construct;
}
#endif
tchain = tchain_iter = t;
if(s && t)
{
#ifdef _WAVE_HAVE_JUDY
int dep = 0;
#endif
nt = t->next;
while(nt)
{
if(nt && !strcmp(nt->name, GLOBALS->module_tree_c_1))
{
/* move to front to speed up next compare if in same hier during build */
if(prevt)
{
tchain_iter->next = nt->next;
nt->next = tchain;
prevt->child = nt;
}
prevt = nt;
t = nt->child;
goto rs;
}
tchain_iter = nt;
nt = nt->next;
#ifdef _WAVE_HAVE_JUDY
dep++;
#endif
}
#ifdef _WAVE_HAVE_JUDY
if(prevt && (dep >= FST_TREE_SEARCH_NEXT_LIMIT))
{
int len = gen_hier_string(str, prevt);
prevt->children_in_gui = 1; /* "borrowed" for tree build */
t = prevt->child;
Judy1Set ((Pvoid_t)&GLOBALS->sym_tree_addresses, (Word_t)prevt, PJE0);
/* assemble judy based on scopename + prevt pnt */
while(t)
{
strcpy(str+len, t->name);
PPValue = JudySLIns(&GLOBALS->sym_tree, (uint8_t *)str, PJE0);
*PPValue = t;
t = t->next;
}
goto rescan; /* this level of hier is built, now do insert */
}
#endif
}
#ifdef _WAVE_HAVE_JUDY
construct:
#endif
nt=(struct tree *)talloc_2(sizeof(struct tree)+GLOBALS->module_len_tree_c_1 + 1);
memcpy(nt->name, GLOBALS->module_tree_c_1, GLOBALS->module_len_tree_c_1);
if(s)
{
nt->t_which = WAVE_T_WHICH_UNDEFINED_COMPNAME;
#ifdef _WAVE_HAVE_JUDY
if(prevt && prevt->children_in_gui)
{
*PPValue = nt;
}
#endif
if(prevt) /* make first in chain */
{
nt->next = prevt->child;
prevt->child = nt;
}
else /* make second in chain as it's toplevel */
{
nt->next = tchain->next;
tchain->next = nt;
}
}
else
{
nt->child = prevt; /* parent */
nt->t_which = which;
nt->next = GLOBALS->terminals_tchain_tree_c_1;
GLOBALS->terminals_tchain_tree_c_1 = nt;
return;
}
/* blindly clone fac from next part of hier on down */
t = nt;
while(s)
{
s=get_module_name(s);
nt=(struct tree *)talloc_2(sizeof(struct tree)+GLOBALS->module_len_tree_c_1 + 1);
memcpy(nt->name, GLOBALS->module_tree_c_1, GLOBALS->module_len_tree_c_1);
if(s)
{
nt->t_which = WAVE_T_WHICH_UNDEFINED_COMPNAME;
t->child = nt;
t = nt;
}
else
{
nt->child = t; /* parent */
nt->t_which = which;
nt->next = GLOBALS->terminals_tchain_tree_c_1;
GLOBALS->terminals_tchain_tree_c_1 = nt;
}
}
}
}
else
{
/* blindly create first fac in the tree (only ever called once) */
while(s)
{
s=get_module_name(s);
nt=(struct tree *)talloc_2(sizeof(struct tree)+GLOBALS->module_len_tree_c_1 + 1);
memcpy(nt->name, GLOBALS->module_tree_c_1, GLOBALS->module_len_tree_c_1);
if(!s) nt->t_which=which; else nt->t_which = WAVE_T_WHICH_UNDEFINED_COMPNAME;
if((GLOBALS->treeroot)&&(t)) /* scan-build : && t should be unnecessary to avoid null pointer deref, but add defensively */
{
t->child = nt;
t = nt;
}
else
{
GLOBALS->treeroot = t = nt;
}
}
}
}
/* ######################## */
/* ## compatibility code ## */
/* ######################## */
/*
* tree widgets differ between GTK2 and GTK1 so we need two different
* maketree() routines
*/
/*
* GTK2: build the tree.
*/
static void XXX_maketree_nodes(struct tree *t2, GtkTreeIter *iter)
{
char *tmp, *tmp2, *tmp3;
gchar *text [1];
GdkPixbuf *pxb;
if(t2->t_which >= 0)
{
if(GLOBALS->facs[t2->t_which]->vec_root)
{
if(GLOBALS->autocoalesce)
{
if(GLOBALS->facs[t2->t_which]->vec_root!=GLOBALS->facs[t2->t_which])
{
return; /* was return(NULL) */
}
tmp2=makename_chain(GLOBALS->facs[t2->t_which]);
tmp3=leastsig_hiername(tmp2);
tmp=wave_alloca(strlen(tmp3)+4);
strcpy(tmp, "[] ");
strcpy(tmp+3, tmp3);
free_2(tmp2);
}
else
{
tmp=wave_alloca(strlen(t2->name)+4);
strcpy(tmp, "[] ");
strcpy(tmp+3, t2->name);
}
}
else
{
tmp=t2->name;
}
}
else
{
if(t2->t_which == WAVE_T_WHICH_UNDEFINED_COMPNAME)
{
tmp=t2->name;
}
else
{
int thidx = -t2->t_which + WAVE_T_WHICH_COMPNAME_START;
if((thidx >= 0) && (thidx < GLOBALS->comp_name_serial))
{
char *sc = GLOBALS->comp_name_idx[thidx];
int tlen = strlen(t2->name) + 2 + 1 + strlen(sc) + 1 + 1;
tmp = wave_alloca(tlen);
if(!GLOBALS->is_vhdl_component_format)
{
sprintf(tmp, "%s (%s)", t2->name, sc);
}
else
{
sprintf(tmp, "%s : %s", t2->name, sc);
}
}
else
{
tmp=t2->name; /* should never get a value out of range here! */
}
}
}
text[0]=tmp;
switch(t2->kind)
{
case TREE_VCD_ST_MODULE: pxb = GLOBALS->hiericon_module_pixbuf; break;
case TREE_VCD_ST_TASK: pxb = GLOBALS->hiericon_task_pixbuf; break;
case TREE_VCD_ST_FUNCTION: pxb = GLOBALS->hiericon_function_pixbuf; break;
case TREE_VCD_ST_BEGIN: pxb = GLOBALS->hiericon_begin_pixbuf; break;
case TREE_VCD_ST_FORK: pxb = GLOBALS->hiericon_fork_pixbuf; break;
case TREE_VCD_ST_GENERATE: pxb = GLOBALS->hiericon_generatefor_pixbuf; break; /* same as TREE_VHDL_ST_GENFOR */
case TREE_VCD_ST_STRUCT: pxb = GLOBALS->hiericon_block_pixbuf; break; /* same as TREE_VHDL_ST_BLOCK */
case TREE_VCD_ST_UNION: pxb = GLOBALS->hiericon_instance_pixbuf; break; /* same as TREE_VHDL_ST_INSTANCE */
case TREE_VCD_ST_CLASS: pxb = GLOBALS->hiericon_class_pixbuf; break;
case TREE_VCD_ST_INTERFACE: pxb = GLOBALS->hiericon_interface_pixbuf; break;
case TREE_VCD_ST_PACKAGE: pxb = GLOBALS->hiericon_svpackage_pixbuf; break;
case TREE_VCD_ST_PROGRAM: pxb = GLOBALS->hiericon_program_pixbuf; break;
case TREE_VHDL_ST_DESIGN: pxb = GLOBALS->hiericon_design_pixbuf; break;
case TREE_VHDL_ST_BLOCK: pxb = GLOBALS->hiericon_block_pixbuf; break;
case TREE_VHDL_ST_GENIF: pxb = GLOBALS->hiericon_generateif_pixbuf; break;
case TREE_VHDL_ST_GENFOR: pxb = GLOBALS->hiericon_generatefor_pixbuf; break;
case TREE_VHDL_ST_INSTANCE: pxb = GLOBALS->hiericon_instance_pixbuf; break;
case TREE_VHDL_ST_PACKAGE: pxb = GLOBALS->hiericon_package_pixbuf; break;
case TREE_VHDL_ST_SIGNAL: pxb = GLOBALS->hiericon_signal_pixbuf; break;
case TREE_VHDL_ST_PORTIN: pxb = GLOBALS->hiericon_portin_pixbuf; break;
case TREE_VHDL_ST_PORTOUT: pxb = GLOBALS->hiericon_portout_pixbuf; break;
case TREE_VHDL_ST_PORTINOUT: pxb = GLOBALS->hiericon_portinout_pixbuf; break;
case TREE_VHDL_ST_BUFFER: pxb = GLOBALS->hiericon_buffer_pixbuf; break;
case TREE_VHDL_ST_LINKAGE: pxb = GLOBALS->hiericon_linkage_pixbuf; break;
case TREE_VHDL_ST_ARCHITECTURE: pxb = GLOBALS->hiericon_module_pixbuf; break; /* same as TREE_VCD_ST_MODULE */
case TREE_VHDL_ST_FUNCTION: pxb = GLOBALS->hiericon_function_pixbuf; break; /* same as TREE_VCD_ST_FUNCTION */
case TREE_VHDL_ST_PROCESS: pxb = GLOBALS->hiericon_task_pixbuf; break; /* same as TREE_VCD_ST_TASK */
case TREE_VHDL_ST_PROCEDURE: pxb = GLOBALS->hiericon_class_pixbuf; break; /* same as TREE_VCD_ST_CLASS */
case TREE_VHDL_ST_RECORD: pxb = GLOBALS->hiericon_record_pixbuf; break;
case TREE_VHDL_ST_GENERATE: pxb = GLOBALS->hiericon_generate_pixbuf; break;
default: pxb = NULL; break;
}
gtk_tree_store_set (GLOBALS->treestore_main, iter,
XXX_NAME_COLUMN, text[0],
XXX_TREE_COLUMN, t2,
XXX_PXB_COLUMN, pxb,
-1);
}
void XXX_maketree2(GtkTreeIter *subtree, struct tree *t, int depth)
{
struct tree *t2;
#ifndef WAVE_DISABLE_FAST_TREE
if(depth > 1) return;
#endif
t2=t;
while(t2)
{
#ifndef WAVE_DISABLE_FAST_TREE
if(depth < 1)
#endif
{
t2->children_in_gui = 1;
}
if(t2->child)
{
int blacklist = 0;
if(GLOBALS->exclhiermask)
{
uint64_t exclone = 1;
if((exclone << t2->kind) & GLOBALS->exclhiermask) blacklist = 1;
}
if(GLOBALS->exclinstname)
{
JRB str = jrb_find_str(GLOBALS->exclinstname, t2->name);
if(str) blacklist = 1;
}
if(GLOBALS->exclcompname)
{
int thidx = -t2->t_which + WAVE_T_WHICH_COMPNAME_START;
char *sc = ((thidx >= 0) && (thidx < GLOBALS->comp_name_serial)) ? GLOBALS->comp_name_idx[thidx] : t2->name;
JRB str = jrb_find_str(GLOBALS->exclcompname, sc);
if(str) blacklist = 1;
}
if(!blacklist)
{
GtkTreeIter iter;
gtk_tree_store_prepend (GLOBALS->treestore_main, &iter, subtree);
XXX_maketree_nodes(t2, &iter);
XXX_maketree2(&iter, t2->child, depth + 1);
}
}
t2=t2->next;
}
}
void XXX_maketree(GtkTreeIter *subtree, struct tree *t)
{
GtkCellRenderer *renderer_t;
GtkCellRenderer *renderer_p;
GtkTreeViewColumn *column;
GLOBALS->treestore_main = gtk_tree_store_new (XXX_NUM_COLUMNS, /* Total number of columns */
G_TYPE_STRING, /* name */
G_TYPE_POINTER, /* tree */
GDK_TYPE_PIXBUF); /* pixbuf */
XXX_maketree2(subtree, t, 0);
GLOBALS->treeview_main = gtk_tree_view_new_with_model (GTK_TREE_MODEL (GLOBALS->treestore_main));
gtk_tree_view_set_headers_visible (GTK_TREE_VIEW(GLOBALS->treeview_main), FALSE);
gtk_tree_view_set_enable_tree_lines (GTK_TREE_VIEW(GLOBALS->treeview_main), TRUE);
column = gtk_tree_view_column_new();
renderer_t = gtk_cell_renderer_text_new ();
renderer_p = gtk_cell_renderer_pixbuf_new ();
gtk_tree_view_column_pack_start (column, renderer_p, FALSE);
gtk_tree_view_column_pack_end (column, renderer_t, FALSE);
gtk_tree_view_column_add_attribute (column,
renderer_t,
"text",
XXX_NAME_COLUMN);
gtk_tree_view_column_add_attribute (column,
renderer_p,
"pixbuf",
XXX_PXB_COLUMN);
gtk_tree_view_append_column (GTK_TREE_VIEW (GLOBALS->treeview_main), column);
gtk_widget_show(GLOBALS->treeview_main);
}
/*
* SST Exclusion filtering for XXX_maketree2() above
*/
#define SST_EXCL_MESS "SSTEXCL | "
enum sst_excl_mode
{
SST_EXCL_NONE,
SST_EXCL_HIER,
SST_EXCL_COMP,
SST_EXCL_INST
};
void sst_exclusion_loader(void)
{
JRB str;
Jval jv;
int dummy = 0;
if(GLOBALS->sst_exclude_filename)
{
FILE *f = fopen(GLOBALS->sst_exclude_filename, "rb");
int exclmode = SST_EXCL_NONE;
uint64_t exclhier = 0;
uint64_t exclone = 1;
if(!f)
{
fprintf(stderr, SST_EXCL_MESS"Could not open '%s' SST exclusion file!\n", GLOBALS->sst_exclude_filename);
fprintf(stderr, SST_EXCL_MESS);
perror("Why");
return;
}
fprintf(stderr, SST_EXCL_MESS"Processing '%s'.\n", GLOBALS->sst_exclude_filename);
while(!feof(f))
{
char *iline = fgetmalloc(f);
if(iline)
{
char *p = iline;
char *e;
while (*p)
{
if(isspace(*p)) p++; else break;
}
e = p;
while (*e)
{
if(isspace(*e)) { *e = 0; break; }
e++;
}
switch (*p)
{
case '#': break;
case '/': break;
case '[':
if(!strcmp(p, "[hiertype]")) { exclmode = SST_EXCL_HIER; }
else if(!strcmp(p, "[compname]")) { exclmode = SST_EXCL_COMP; }
else if(!strcmp(p, "[instname]")) { exclmode = SST_EXCL_INST; }
else { exclmode = SST_EXCL_NONE; }
break;
default:
switch(exclmode)
{
case SST_EXCL_HIER: /* this if/else chain is good enough for an init script */
if(!strcmp(p, "VCD_ST_MODULE")) { exclhier |= exclone << TREE_VCD_ST_MODULE; }
else if(!strcmp(p, "VCD_ST_TASK")) { exclhier |= exclone << TREE_VCD_ST_TASK; }
else if(!strcmp(p, "VCD_ST_FUNCTION")) { exclhier |= exclone << TREE_VCD_ST_FUNCTION; }
else if(!strcmp(p, "VCD_ST_BEGIN")) { exclhier |= exclone << TREE_VCD_ST_BEGIN; }
else if(!strcmp(p, "VCD_ST_FORK")) { exclhier |= exclone << TREE_VCD_ST_FORK; }
else if(!strcmp(p, "VCD_ST_GENERATE")) { exclhier |= exclone << TREE_VCD_ST_GENERATE; }
else if(!strcmp(p, "VCD_ST_STRUCT")) { exclhier |= exclone << TREE_VCD_ST_STRUCT; }
else if(!strcmp(p, "VCD_ST_UNION")) { exclhier |= exclone << TREE_VCD_ST_UNION; }
else if(!strcmp(p, "VCD_ST_CLASS")) { exclhier |= exclone << TREE_VCD_ST_CLASS; }
else if(!strcmp(p, "VCD_ST_INTERFACE")) { exclhier |= exclone << TREE_VCD_ST_INTERFACE; }
else if(!strcmp(p, "VCD_ST_PACKAGE")) { exclhier |= exclone << TREE_VCD_ST_PACKAGE; }
else if(!strcmp(p, "VCD_ST_PROGRAM")) { exclhier |= exclone << TREE_VCD_ST_PROGRAM; }
else if(!strcmp(p, "VHDL_ST_DESIGN")) { exclhier |= exclone << TREE_VHDL_ST_DESIGN; }
else if(!strcmp(p, "VHDL_ST_BLOCK")) { exclhier |= exclone << TREE_VHDL_ST_BLOCK; }
else if(!strcmp(p, "VHDL_ST_GENIF")) { exclhier |= exclone << TREE_VHDL_ST_GENIF; }
else if(!strcmp(p, "VHDL_ST_GENFOR")) { exclhier |= exclone << TREE_VHDL_ST_GENFOR; }
else if(!strcmp(p, "VHDL_ST_INSTANCE")) { exclhier |= exclone << TREE_VHDL_ST_INSTANCE; }
else if(!strcmp(p, "VHDL_ST_PACKAGE")) { exclhier |= exclone << TREE_VHDL_ST_PACKAGE; }
else if(!strcmp(p, "VHDL_ST_SIGNAL")) { exclhier |= exclone << TREE_VHDL_ST_SIGNAL; }
else if(!strcmp(p, "VHDL_ST_PORTIN")) { exclhier |= exclone << TREE_VHDL_ST_PORTIN; }
else if(!strcmp(p, "VHDL_ST_PORTOUT")) { exclhier |= exclone << TREE_VHDL_ST_PORTOUT; }
else if(!strcmp(p, "VHDL_ST_PORTINOUT")) { exclhier |= exclone << TREE_VHDL_ST_PORTINOUT; }
else if(!strcmp(p, "VHDL_ST_BUFFER")) { exclhier |= exclone << TREE_VHDL_ST_BUFFER; }
else if(!strcmp(p, "VHDL_ST_LINKAGE")) { exclhier |= exclone << TREE_VHDL_ST_LINKAGE; }
else if(!strcmp(p, "VHDL_ST_ARCHITECTURE")) { exclhier |= exclone << TREE_VHDL_ST_ARCHITECTURE; }
else if(!strcmp(p, "VHDL_ST_FUNCTION")) { exclhier |= exclone << TREE_VHDL_ST_FUNCTION; }
else if(!strcmp(p, "VHDL_ST_PROCEDURE")) { exclhier |= exclone << TREE_VHDL_ST_PROCEDURE; }
else if(!strcmp(p, "VHDL_ST_RECORD")) { exclhier |= exclone << TREE_VHDL_ST_RECORD; }
else if(!strcmp(p, "VHDL_ST_PROCESS")) { exclhier |= exclone << TREE_VHDL_ST_PROCESS; }
else if(!strcmp(p, "VHDL_ST_GENERATE")) { exclhier |= exclone << TREE_VHDL_ST_GENERATE; }
break;
case SST_EXCL_COMP:
if(!GLOBALS->exclcompname) { GLOBALS->exclcompname = make_jrb(); }
str = jrb_find_str(GLOBALS->exclcompname, p);
jv.i = dummy++;
if(!str) jrb_insert_str(GLOBALS->exclcompname, strdup_2(p), jv);
break;
case SST_EXCL_INST:
if(!GLOBALS->exclinstname) { GLOBALS->exclinstname = make_jrb(); }
str = jrb_find_str(GLOBALS->exclinstname, p);
jv.i = dummy++;
if(!str) jrb_insert_str(GLOBALS->exclinstname, strdup_2(p), jv);
break;
default: break;
}
break;
}
free_2(iline);
}
GLOBALS->exclhiermask |= exclhier;
}
fclose(f);
}
}
gtkwave-gtk3-3.3.125/src/gconf.h 0000664 0001750 0001750 00000001720 15047725112 015551 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2012-2018.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_GCONF_H
#define WAVE_GCONF_H
#include
#include
#include
#include
#ifdef WAVE_HAVE_GCONF
#include
#endif
#define WAVE_GSETTINGS_SCHEMA_ID "com.geda.gtkwave"
/* 1234567890123456 */
#define WAVE_GCONF_DIR "/com.geda.gtkwave"
/* 12345678901234567 */
#define WAVE_GCONF_DIR_LEN (17)
extern int wave_rpc_id;
void wave_gconf_init(int argc, char **argv);
gboolean wave_gconf_client_set_string(const gchar *key, const gchar *val);
void wave_gconf_restore(char **dumpfile, char **savefile, char **rcfile, char **wave_pwd, int *opt_vcd);
#endif
gtkwave-gtk3-3.3.125/src/simplereq.c 0000664 0001750 0001750 00000012343 15047725112 016454 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2012.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#include
#include "gtk23compat.h"
#include
#include "menu.h"
#include "debug.h"
#include "pixmaps.h"
#ifdef MAC_INTEGRATION
#include
#else
static void ok_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
DEBUG(printf("OK\n"));
wave_gtk_grab_remove(GLOBALS->window_simplereq_c_9);
gtk_widget_destroy(GLOBALS->window_simplereq_c_9);
GLOBALS->window_simplereq_c_9 = NULL;
if(GLOBALS->cleanup)GLOBALS->cleanup(NULL,(gpointer)1);
}
static void destroy_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
DEBUG(printf("Cancel\n"));
wave_gtk_grab_remove(GLOBALS->window_simplereq_c_9);
gtk_widget_destroy(GLOBALS->window_simplereq_c_9);
GLOBALS->window_simplereq_c_9 = NULL;
if(GLOBALS->cleanup)GLOBALS->cleanup(NULL,NULL);
}
#endif
void simplereqbox(char *title, int width, char *default_text,
char *oktext, char *canceltext, GCallback func, int is_alert)
{
#ifndef MAC_INTEGRATION
GtkWidget *vbox, *hbox;
GtkWidget *button1, *button2;
GtkWidget *label, *separator;
GtkWidget *pixmapwid1;
#else
(void)width;
#endif
if(GLOBALS->window_simplereq_c_9) return; /* only should happen with GtkPlug */
GLOBALS->cleanup=WAVE_GTK_SFUNCAST(func);
/* fix problem where ungrab doesn't occur if button pressed + simultaneous accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1) { XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME); }
if(GLOBALS->wave_script_args)
{
if(GLOBALS->cleanup)GLOBALS->cleanup(NULL,(gpointer)1);
return;
}
#ifdef MAC_INTEGRATION
/* requester is modal so it will block */
switch(gtk_simplereqbox_req_bridge(title, default_text, oktext, canceltext, is_alert))
{
case 1: if(GLOBALS->cleanup)GLOBALS->cleanup(NULL,(gpointer)1);
break;
case 2: if(GLOBALS->cleanup)GLOBALS->cleanup(NULL,NULL);
break;
default:
break;
}
#else
/* create a new modal window */
GLOBALS->window_simplereq_c_9 = gtk_window_new(GLOBALS->disable_window_manager ? GTK_WINDOW_POPUP : GTK_WINDOW_TOPLEVEL);
install_focus_cb(GLOBALS->window_simplereq_c_9, ((char *)&GLOBALS->window_simplereq_c_9) - ((char *)GLOBALS));
gtk_window_set_transient_for(GTK_WINDOW(GLOBALS->window_simplereq_c_9), GTK_WINDOW(GLOBALS->mainwindow));
gtk_widget_set_size_request( GTK_WIDGET (GLOBALS->window_simplereq_c_9), width, 200 - 64); /* 200 is for 128 px icon */
gtk_window_set_title(GTK_WINDOW (GLOBALS->window_simplereq_c_9), title);
gtkwave_signal_connect(XXX_GTK_OBJECT (GLOBALS->window_simplereq_c_9), "delete_event",(GCallback) destroy_callback, NULL);
gtk_window_set_resizable(GTK_WINDOW(GLOBALS->window_simplereq_c_9), FALSE);
vbox = XXX_gtk_vbox_new (FALSE, 0);
gtk_container_add (GTK_CONTAINER (GLOBALS->window_simplereq_c_9), vbox);
gtk_widget_show (vbox);
label=gtk_label_new(default_text);
#if GTK_CHECK_VERSION(3,0,0)
gtk_box_pack_start (GTK_BOX (vbox), label, TRUE, TRUE, 0);
#else
gtk_box_pack_start (GTK_BOX (vbox), label, FALSE, FALSE, 0);
#endif
gtk_widget_show (label);
if(is_alert)
{
pixmapwid1=gtk_image_new_from_pixbuf(GLOBALS->wave_alert_pixbuf);
}
else
{
pixmapwid1=gtk_image_new_from_pixbuf(GLOBALS->wave_info_pixbuf);
}
gtk_widget_show(pixmapwid1);
#if GTK_CHECK_VERSION(3,0,0)
gtk_box_pack_start(GTK_BOX(vbox), pixmapwid1, TRUE, TRUE, 0);
#else
gtk_container_add (GTK_CONTAINER (vbox), pixmapwid1);
#endif
separator = XXX_gtk_hseparator_new ();
gtk_box_pack_start (GTK_BOX (vbox), separator, FALSE, TRUE, 0);
gtk_widget_show (separator);
hbox = XXX_gtk_hbox_new (FALSE, 1);
#if GTK_CHECK_VERSION(3,0,0)
gtk_box_pack_start (GTK_BOX (vbox), hbox, TRUE, TRUE, 0);
#else
gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, FALSE, 0);
#endif
gtk_widget_show (hbox);
button1 = gtk_button_new_with_label (oktext);
gtk_widget_set_size_request(button1, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button1), "clicked", G_CALLBACK(ok_callback), NULL);
gtk_widget_show (button1);
#if GTK_CHECK_VERSION(3,0,0)
gtk_box_pack_start(GTK_BOX(hbox), button1, TRUE, TRUE, 0);
#else
gtk_container_add (GTK_CONTAINER (hbox), button1);
#endif
gtk_widget_set_can_default (button1, TRUE);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button1), "realize", (GCallback) gtk_widget_grab_default, XXX_GTK_OBJECT (button1));
if(canceltext)
{
button2 = gtk_button_new_with_label (canceltext);
gtk_widget_set_size_request(button2, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button2), "clicked", G_CALLBACK(destroy_callback), NULL);
gtk_widget_set_can_default (button2, TRUE);
gtk_widget_show (button2);
#if GTK_CHECK_VERSION(3,0,0)
gtk_box_pack_end(GTK_BOX(hbox), button2, TRUE, TRUE, 0);
#else
gtk_container_add (GTK_CONTAINER (hbox), button2);
#endif
}
gtk_widget_show(GLOBALS->window_simplereq_c_9);
wave_gtk_grab_add(GLOBALS->window_simplereq_c_9);
#endif
}
gtkwave-gtk3-3.3.125/src/currenttime.c 0000664 0001750 0001750 00000047132 15047725112 017020 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2016.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#include
#include
#include "currenttime.h"
#include "symbol.h"
static char *time_prefix=WAVE_SI_UNITS;
static char *maxtime_label_text="Maximum Time";
static char *marker_label_text ="Marker Time";
static char *maxtime_label_text_hpos="Max";
static char *marker_label_text_hpos ="Marker";
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
static void update_labels_to_header_bar(void)
{
if(GLOBALS->header_bar)
{
char buf[1024];
sprintf(buf, "%s" ": " "%s" " | " "%s" ": " "%s",
gtk_label_get_text(GTK_LABEL(GLOBALS->max_or_marker_label_currenttime_c_1)),
gtk_label_get_text(GTK_LABEL(GLOBALS->maxtimewid_currenttime_c_1)),
gtk_label_get_text(GTK_LABEL(GLOBALS->base_or_curtime_label_currenttime_c_1)),
gtk_label_get_text(GTK_LABEL(GLOBALS->curtimewid_currenttime_c_1))
);
gtk_header_bar_set_subtitle(GTK_HEADER_BAR(GLOBALS->header_bar), buf);
}
}
#else
static void update_labels_to_header_bar(void)
{
/* nothing */
}
#endif
void fractional_timescale_fix(char *s)
{
char buf[32], sfx[2];
int i, len;
int prefix_idx = 0;
if(*s != '0')
{
unsigned char *dot = strchr(s, '.');
unsigned char *src, *dst;
if(dot)
{
unsigned char *pnt = dot+1;
int alpha_found = 0;
while(*pnt)
{
if(isalpha(*pnt))
{
alpha_found = 1;
break;
}
pnt++;
}
if(alpha_found)
{
src = pnt;
dst = dot;
while(*src)
{
*dst = *src;
dst++; src++;
}
*dst = 0;
}
}
return;
}
len = strlen(s);
for(i=0;iuse_maxtime_display)
{
gtk_label_set_text(GTK_LABEL(GLOBALS->max_or_marker_label_currenttime_c_1),
(!GLOBALS->use_toolbutton_interface) ? maxtime_label_text : maxtime_label_text_hpos);
update_maxtime(GLOBALS->max_time);
}
else
{
gtk_label_set_text(GTK_LABEL(GLOBALS->max_or_marker_label_currenttime_c_1),
(!GLOBALS->use_toolbutton_interface) ? marker_label_text : marker_label_text_hpos);
update_markertime(GLOBALS->tims.marker);
}
update_labels_to_header_bar();
}
/* handles floating point values with units */
static TimeType unformat_time_complex(const char *s, char dim)
{
int i, delta, rc;
unsigned char ch = dim;
double d = 0.0;
const char *offs = NULL, *doffs = NULL;
rc = sscanf(s, "%lf %cs", &d, &ch);
if(rc == 2)
{
ch = tolower(ch);
if(ch=='s') ch = ' ';
offs=strchr(time_prefix, ch);
if(offs)
{
doffs=strchr(time_prefix, (int)dim);
if(!doffs) doffs = offs; /* should *never* happen */
delta= (doffs-time_prefix) - (offs-time_prefix);
if(delta<0)
{
for(i=delta;i<0;i++)
{
d=d/1000;
}
}
else
{
for(i=0;iatoi_cont_ptr))
{
while((ch=*(pnt++)))
{
if((ch==' ')||(ch=='\t')) continue;
ich=tolower((int)ch);
if(ich=='s') ich=' '; /* as in plain vanilla seconds */
offs=strchr(time_prefix, ich);
break;
}
}
if(!offs) return(rval);
if((dim=='S')||(dim=='s'))
{
doffs = time_prefix;
}
else
{
doffs=strchr(time_prefix, (int)dim);
if(!doffs) return(rval); /* should *never* happen */
}
delta= (doffs-time_prefix) - (offs-time_prefix);
if(delta<0)
{
for(i=delta;i<0;i++)
{
rval=rval/1000;
}
}
else
{
for(i=0;inamed_markers[mkv];
if(mkvt != -1)
{
return(mkvt);
}
}
}
}
for(i=0;i0; i--)
{
if(val%1000) break;
val=val/1000;
}
if(i)
{
sprintf(buf, TTFormat" %cs", val, time_prefix[i]);
}
else
{
sprintf(buf, TTFormat" sec", val);
}
}
void reformat_time(char *buf, TimeType val, char dim)
{
char *pnt;
int i, offset, offsetfix;
if(val < LLDescriptor(0))
{
val = -val;
buf[0] = '-';
buf++;
}
pnt=strchr(time_prefix, (int)dim);
if(pnt) { offset=pnt-time_prefix; } else offset=0;
for(i=offset; i>0; i--)
{
if(val%1000) break;
val=val/1000;
}
if(GLOBALS->scale_to_time_dimension)
{
if(GLOBALS->scale_to_time_dimension == 's')
{
pnt = time_prefix;
}
else
{
pnt=strchr(time_prefix, (int)GLOBALS->scale_to_time_dimension);
}
if(pnt)
{
offsetfix = pnt-time_prefix;
if(offsetfix != i)
{
int j;
int deltaexp = (offsetfix - i);
gdouble gval = (gdouble)val;
gdouble mypow = 1.0;
if(deltaexp > 0)
{
for(j=0;jdeltaexp;j--)
{
mypow /= 1000.0;
}
}
gval *= mypow;
if(GLOBALS->scale_to_time_dimension == 's')
{
sprintf(buf, "%.9g sec", gval);
}
else
{
sprintf(buf, "%.9g %cs", gval, GLOBALS->scale_to_time_dimension);
}
return;
}
}
}
if((i)&&(time_prefix)) /* scan-build on time_prefix, should not be necessary however */
{
sprintf(buf, TTFormat" %cs", val, time_prefix[i]);
}
else
{
sprintf(buf, TTFormat" sec", val);
}
}
void reformat_time_as_frequency(char *buf, TimeType val, char dim)
{
char *pnt;
int offset;
double k;
static const double negpow[] = { 1.0, 1.0e-3, 1.0e-6, 1.0e-9, 1.0e-12, 1.0e-15, 1.0e-18, 1.0e-21 };
pnt=strchr(time_prefix, (int)dim);
if(pnt) { offset=pnt-time_prefix; } else offset=0;
if(val)
{
k = 1 / ((double)val * negpow[offset]);
sprintf(buf, "%e Hz", k);
}
else
{
strcpy(buf, "-- Hz");
}
}
void reformat_time_blackout(char *buf, TimeType val, char dim)
{
char *pnt;
int i, offset, offsetfix;
struct blackout_region_t *bt = GLOBALS->blackout_regions;
char blackout = ' ';
while(bt)
{
if((val>=bt->bstart)&&(valbend))
{
blackout = '*';
break;
}
bt=bt->next;
}
pnt=strchr(time_prefix, (int)dim);
if(pnt) { offset=pnt-time_prefix; } else offset=0;
for(i=offset; i>0; i--)
{
if(val%1000) break;
val=val/1000;
}
if(GLOBALS->scale_to_time_dimension)
{
if(GLOBALS->scale_to_time_dimension == 's')
{
pnt = time_prefix;
}
else
{
pnt=strchr(time_prefix, (int)GLOBALS->scale_to_time_dimension);
}
if(pnt)
{
offsetfix = pnt-time_prefix;
if(offsetfix != i)
{
int j;
int deltaexp = (offsetfix - i);
gdouble gval = (gdouble)val;
gdouble mypow = 1.0;
if(deltaexp > 0)
{
for(j=0;jdeltaexp;j--)
{
mypow /= 1000.0;
}
}
gval *= mypow;
if(GLOBALS->scale_to_time_dimension == 's')
{
sprintf(buf, "%.9g%csec", gval, blackout);
}
else
{
sprintf(buf, "%.9g%c%cs", gval, blackout, GLOBALS->scale_to_time_dimension);
}
return;
}
}
}
if((i)&&(time_prefix)) /* scan-build on time_prefix, should not be necessary however */
{
sprintf(buf, TTFormat"%c%cs", val, blackout, time_prefix[i]);
}
else
{
sprintf(buf, TTFormat"%csec", val, blackout);
}
}
void update_markertime(TimeType val)
{
#ifdef GDK_WINDOWING_WAYLAND
GLOBALS->wayland_marker_timer_hack = 10;
#endif
if(GLOBALS->anno_ctx)
{
if(val >= 0)
{
GLOBALS->anno_ctx->marker_set = 0; /* avoid race on update */
if(!GLOBALS->ae2_time_xlate)
{
GLOBALS->anno_ctx->marker = val / GLOBALS->time_scale;
}
else
{
int rvs_xlate = bsearch_aetinfo_timechain(val);
GLOBALS->anno_ctx->marker = ((TimeType)rvs_xlate) + GLOBALS->ae2_start_cyc;
}
reformat_time(GLOBALS->anno_ctx->time_string, val + GLOBALS->global_time_offset, GLOBALS->time_dimension);
GLOBALS->anno_ctx->marker_set = 1;
}
else
{
GLOBALS->anno_ctx->marker_set = 0;
}
}
if(!GLOBALS->use_maxtime_display)
{
if(val>=0)
{
if(GLOBALS->tims.baseline>=0)
{
val-=GLOBALS->tims.baseline; /* do delta instead */
*GLOBALS->maxtext_currenttime_c_1='B';
if(val>=0)
{
*(GLOBALS->maxtext_currenttime_c_1+1)='+';
if(GLOBALS->use_frequency_delta)
{
reformat_time_as_frequency(GLOBALS->maxtext_currenttime_c_1+2, val, GLOBALS->time_dimension);
}
else
{
reformat_time(GLOBALS->maxtext_currenttime_c_1+2, val, GLOBALS->time_dimension);
}
}
else
{
if(GLOBALS->use_frequency_delta)
{
reformat_time_as_frequency(GLOBALS->maxtext_currenttime_c_1+1, val, GLOBALS->time_dimension);
}
else
{
reformat_time(GLOBALS->maxtext_currenttime_c_1+1, val, GLOBALS->time_dimension);
}
}
}
else if(GLOBALS->tims.lmbcache>=0)
{
val-=GLOBALS->tims.lmbcache; /* do delta instead */
if(GLOBALS->use_frequency_delta)
{
reformat_time_as_frequency(GLOBALS->maxtext_currenttime_c_1, val, GLOBALS->time_dimension);
}
else
{
if(val>=0)
{
*GLOBALS->maxtext_currenttime_c_1='+';
reformat_time(GLOBALS->maxtext_currenttime_c_1+1, val, GLOBALS->time_dimension);
}
else
{
reformat_time(GLOBALS->maxtext_currenttime_c_1, val, GLOBALS->time_dimension);
}
}
}
else
{
reformat_time(GLOBALS->maxtext_currenttime_c_1, val + GLOBALS->global_time_offset, GLOBALS->time_dimension);
}
}
else
{
sprintf(GLOBALS->maxtext_currenttime_c_1, "--");
}
gtk_label_set_text(GTK_LABEL(GLOBALS->maxtimewid_currenttime_c_1), GLOBALS->maxtext_currenttime_c_1);
}
if(GLOBALS->named_marker_lock_idx>-1)
{
if(GLOBALS->tims.marker >= 0)
{
int ent_idx = GLOBALS->named_marker_lock_idx;
if(GLOBALS->named_markers[ent_idx] != GLOBALS->tims.marker)
{
GLOBALS->named_markers[ent_idx] = GLOBALS->tims.marker;
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
}
}
update_labels_to_header_bar();
}
void update_basetime(TimeType val)
{
if(val>=0)
{
gtk_label_set_text(GTK_LABEL(GLOBALS->base_or_curtime_label_currenttime_c_1), (!GLOBALS->use_toolbutton_interface) ? "Base Marker" : "Base");
reformat_time(GLOBALS->curtext_currenttime_c_1, val + GLOBALS->global_time_offset, GLOBALS->time_dimension);
}
else
{
gtk_label_set_text(GTK_LABEL(GLOBALS->base_or_curtime_label_currenttime_c_1), (!GLOBALS->use_toolbutton_interface) ? "Current Time" : "Cursor");
reformat_time_blackout(GLOBALS->curtext_currenttime_c_1, GLOBALS->cached_currenttimeval_currenttime_c_1 + GLOBALS->global_time_offset, GLOBALS->time_dimension);
}
gtk_label_set_text(GTK_LABEL(GLOBALS->curtimewid_currenttime_c_1), GLOBALS->curtext_currenttime_c_1);
update_labels_to_header_bar();
}
void update_maxtime(TimeType val)
{
GLOBALS->max_time=val;
if(GLOBALS->use_maxtime_display)
{
reformat_time(GLOBALS->maxtext_currenttime_c_1, val + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_label_set_text(GTK_LABEL(GLOBALS->maxtimewid_currenttime_c_1), GLOBALS->maxtext_currenttime_c_1);
}
update_labels_to_header_bar();
}
void update_currenttime(TimeType val)
{
GLOBALS->cached_currenttimeval_currenttime_c_1 = val;
if(GLOBALS->tims.baseline<0)
{
GLOBALS->currenttime=val;
reformat_time_blackout(GLOBALS->curtext_currenttime_c_1, val + GLOBALS->global_time_offset, GLOBALS->time_dimension);
gtk_label_set_text(GTK_LABEL(GLOBALS->curtimewid_currenttime_c_1), GLOBALS->curtext_currenttime_c_1);
}
update_labels_to_header_bar();
}
/* Create an entry box */
GtkWidget *
create_time_box(void)
{
GtkWidget *mainbox;
GtkWidget *eventbox;
GLOBALS->max_or_marker_label_currenttime_c_1=(GLOBALS->use_maxtime_display)
? gtk_label_new((!GLOBALS->use_toolbutton_interface) ? maxtime_label_text : maxtime_label_text_hpos)
: gtk_label_new((!GLOBALS->use_toolbutton_interface) ? marker_label_text : marker_label_text_hpos);
GLOBALS->maxtext_currenttime_c_1=(char *)malloc_2(40);
if(GLOBALS->use_maxtime_display)
{
reformat_time(GLOBALS->maxtext_currenttime_c_1, GLOBALS->max_time, GLOBALS->time_dimension);
}
else
{
sprintf(GLOBALS->maxtext_currenttime_c_1,"--");
}
GLOBALS->maxtimewid_currenttime_c_1=gtk_label_new(GLOBALS->maxtext_currenttime_c_1);
GLOBALS->curtext_currenttime_c_1=(char *)malloc_2(40);
if(GLOBALS->tims.baseline<0)
{
GLOBALS->base_or_curtime_label_currenttime_c_1=gtk_label_new((!GLOBALS->use_toolbutton_interface) ? "Current Time" : "Cursor");
reformat_time(GLOBALS->curtext_currenttime_c_1, (GLOBALS->currenttime=GLOBALS->min_time), GLOBALS->time_dimension);
GLOBALS->curtimewid_currenttime_c_1=gtk_label_new(GLOBALS->curtext_currenttime_c_1);
}
else
{
GLOBALS->base_or_curtime_label_currenttime_c_1=gtk_label_new((!GLOBALS->use_toolbutton_interface) ? "Base Marker" : "Base");
reformat_time(GLOBALS->curtext_currenttime_c_1, GLOBALS->tims.baseline, GLOBALS->time_dimension);
GLOBALS->curtimewid_currenttime_c_1=gtk_label_new(GLOBALS->curtext_currenttime_c_1);
}
if(!GLOBALS->use_toolbutton_interface)
{
mainbox=XXX_gtk_vbox_new(FALSE, 0);
}
else
{
mainbox=XXX_gtk_hbox_new(FALSE, 0);
}
#ifdef WAVE_ALLOW_GTK3_HEADER_BAR
if(GLOBALS->socket_xid)
#endif
{
gtk_widget_show(mainbox);
}
GLOBALS->time_mainbox = mainbox;
eventbox=gtk_event_box_new();
gtk_container_add(GTK_CONTAINER(eventbox), mainbox);
if(!GLOBALS->use_toolbutton_interface)
{
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->max_or_marker_label_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->max_or_marker_label_currenttime_c_1);
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->maxtimewid_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->maxtimewid_currenttime_c_1);
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->base_or_curtime_label_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->base_or_curtime_label_currenttime_c_1);
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->curtimewid_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->curtimewid_currenttime_c_1);
}
else
{
GtkWidget *dummy;
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->max_or_marker_label_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->max_or_marker_label_currenttime_c_1);
dummy=gtk_label_new(": ");
gtk_widget_show (dummy);
gtk_box_pack_start(GTK_BOX(mainbox), dummy, TRUE, FALSE, 0);
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->maxtimewid_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->maxtimewid_currenttime_c_1);
dummy=gtk_label_new(" | ");
gtk_widget_show (dummy);
gtk_box_pack_start(GTK_BOX(mainbox), dummy, TRUE, FALSE, 0);
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->base_or_curtime_label_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->base_or_curtime_label_currenttime_c_1);
dummy=gtk_label_new(": ");
gtk_widget_show (dummy);
gtk_box_pack_start(GTK_BOX(mainbox), dummy, TRUE, FALSE, 0);
gtk_box_pack_start(GTK_BOX(mainbox), GLOBALS->curtimewid_currenttime_c_1, TRUE, FALSE, 0);
gtk_widget_show(GLOBALS->curtimewid_currenttime_c_1);
}
return(eventbox);
}
TimeType time_trunc(TimeType t)
{
if(!GLOBALS->use_full_precision)
if(GLOBALS->time_trunc_val_currenttime_c_1!=1)
{
t=t/GLOBALS->time_trunc_val_currenttime_c_1;
t=t*GLOBALS->time_trunc_val_currenttime_c_1;
if(ttims.first) t=GLOBALS->tims.first;
}
return(t);
}
void time_trunc_set(void)
{
gdouble gcompar=1e15;
TimeType compar=LLDescriptor(1000000000000000);
for(;compar!=1;compar=compar/10,gcompar=gcompar/((gdouble)10.0))
{
if(GLOBALS->nspx>=gcompar)
{
GLOBALS->time_trunc_val_currenttime_c_1=compar;
return;
}
}
GLOBALS->time_trunc_val_currenttime_c_1=1;
}
/*
* called by lxt/lxt2/vzt reader inits
*/
void exponent_to_time_scale(signed char scale)
{
switch(scale)
{
case 2: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 's'; break;
case 1: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case 0: GLOBALS->time_dimension = 's'; break;
case -1: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'm'; break;
case -2: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -3: GLOBALS->time_dimension = 'm'; break;
case -4: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'u'; break;
case -5: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -6: GLOBALS->time_dimension = 'u'; break;
case -10: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'p'; break;
case -11: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -12: GLOBALS->time_dimension = 'p'; break;
case -13: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'f'; break;
case -14: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -15: GLOBALS->time_dimension = 'f'; break;
case -16: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'a'; break;
case -17: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -18: GLOBALS->time_dimension = 'a'; break;
case -19: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'z'; break;
case -20: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -21: GLOBALS->time_dimension = 'z'; break;
case -7: GLOBALS->time_scale = LLDescriptor(100); GLOBALS->time_dimension = 'n'; break;
case -8: GLOBALS->time_scale = LLDescriptor(10); /* fallthrough */
case -9:
default: GLOBALS->time_dimension = 'n'; break;
}
}
gtkwave-gtk3-3.3.125/src/renderopt.c 0000664 0001750 0001750 00000036111 15047725112 016454 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2012
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#include
#include "currenttime.h"
#include "print.h"
#include "menu.h"
#include
#ifdef WAVE_GTK_UNIX_PRINT
#include
#endif
static char *render_targets[]=
{"PDF", "PS", "MIF", "UNIX"};
static char *page_size[]=
{"Letter (8.5\" x 11\")", "A4 (11.68\" x 8.26\")", "Legal (14\" x 8.5\")", "Letter Prop (6.57\" x 8.5\")", "A4 Prop (8.26\" x 5.84\")"};
static char *render_type[]=
{"Full", "Minimal"};
static gdouble px[]={11.00, 11.68, 14.00, 8.50, 8.26};
static gdouble py[]={ 8.50, 8.26, 8.50, 6.57, 5.84};
/*
* button/menu/entry activations..
*/
static void render_clicked(GtkComboBox *widget, gpointer user_data)
{
(void) user_data;
GtkComboBox *combo_box = widget;
int which = gtk_combo_box_get_active (combo_box);
int i;
for(i=0;i<4;i++) GLOBALS->target_mutex_renderopt_c_1[i]=0;
i = which;
GLOBALS->target_mutex_renderopt_c_1[i] = 1; /* mark our choice */
DEBUG(printf("picked: %s\n", render_targets[i]));
}
static void pagesize_clicked(GtkComboBox *widget, gpointer user_data)
{
(void) user_data;
GtkComboBox *combo_box = widget;
int which = gtk_combo_box_get_active (combo_box);
int i;
for(i=0;i<5;i++) GLOBALS->page_mutex_renderopt_c_1[i]=0;
GLOBALS->page_size_type_renderopt_c_1 = which;
GLOBALS->page_mutex_renderopt_c_1[GLOBALS->page_size_type_renderopt_c_1] = 1; /* mark our choice */
DEBUG(printf("picked: %s\n", page_size[GLOBALS->page_size_type_renderopt_c_1]));
}
static void rendertype_clicked(GtkComboBox *widget, gpointer user_data)
{
(void) user_data;
GtkComboBox *combo_box = widget;
int which = gtk_combo_box_get_active (combo_box);
int i;
for(i=0;i<3;i++) GLOBALS->render_mutex_renderopt_c_1[i]=0;
i = which;
GLOBALS->render_mutex_renderopt_c_1[i] = 1; /* mark our choice */
DEBUG(printf("picked: %s\n", render_type[i]));
}
static void
ps_print_cleanup(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
FILE *wave;
if(GLOBALS->filesel_ok)
{
DEBUG(printf("PS Print Fini: %s\n", *GLOBALS->fileselbox_text));
if(!(wave=fopen(*GLOBALS->fileselbox_text,"wb")))
{
fprintf(stderr, "Error opening PS output file '%s' for writing.\n",*GLOBALS->fileselbox_text);
perror("Why");
errno=0;
}
else
{
print_ps_image(wave,px[GLOBALS->page_size_type_renderopt_c_1],py[GLOBALS->page_size_type_renderopt_c_1]);
fclose(wave);
}
}
}
static void
pdf_print_cleanup(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
FILE *wave;
FILE *wave2;
if(GLOBALS->filesel_ok)
{
DEBUG(printf("PDF Print Fini: %s\n", *GLOBALS->fileselbox_text));
if(!(wave=fopen(*GLOBALS->fileselbox_text,"wb")))
{
fprintf(stderr, "Error opening PDF output file '%s' for writing.\n",*GLOBALS->fileselbox_text);
perror("Why");
errno=0;
}
else
{
int len = strlen(*GLOBALS->fileselbox_text) ;
char *zname = malloc_2(len + 4);
strcpy(zname, *GLOBALS->fileselbox_text);
#ifdef MAC_INTEGRATION
if((len > 4)&&(!strcmp(".pdf", zname+len-4)))
{
zname[len-4] = 0;
len-=4;
}
#endif
strcpy(zname+len, ".ps");
if(!(wave2=fopen(zname,"wb")))
{
fprintf(stderr, "Error opening PS output tempfile '%s' for writing.\n",zname);
perror("Why");
fclose(wave);
unlink(*GLOBALS->fileselbox_text);
errno=0;
}
else
{
char *sysname = malloc_2(7 + 1 + len + 3 + 1 + len + 1);
int rc;
#ifdef MAC_INTEGRATION
sprintf(sysname, "pstopdf" /* 7 */
#else
sprintf(sysname, "ps2pdf" /* 6 */
#endif
" " /* 1 */
"%s" /* len + 3 */
" " /* 1 */
"%s" /* len */
, zname, *GLOBALS->fileselbox_text);
print_ps_image(wave2,px[GLOBALS->page_size_type_renderopt_c_1],py[GLOBALS->page_size_type_renderopt_c_1]);
fclose(wave2);
fclose(wave);
rc = system(sysname);
if(rc)
{
printf("GTKWAVE | ERROR: rc for '%s' = %d\n", sysname, rc);
unlink(*GLOBALS->fileselbox_text);
}
free_2(sysname);
unlink(zname);
}
free_2(zname);
}
}
}
static void
mif_print_cleanup(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
FILE *wave;
if(GLOBALS->filesel_ok)
{
DEBUG(printf("MIF Print Fini: %s\n", *GLOBALS->fileselbox_text));
if(!(wave=fopen(*GLOBALS->fileselbox_text,"wb")))
{
fprintf(stderr, "Error opening MIF output file '%s' for writing.\n",*GLOBALS->fileselbox_text);
perror("Why");
errno=0;
}
else
{
print_mif_image(wave,px[GLOBALS->page_size_type_renderopt_c_1],py[GLOBALS->page_size_type_renderopt_c_1]);
fclose(wave);
}
}
}
#ifdef WAVE_GTK_UNIX_PRINT
static void wave_GtkPrintJobCompleteFunc(GtkPrintJob *print_job, gpointer user_data, GError *error)
{
(void)print_job;
(void)error;
if(user_data)
{
const char *ban = "Sent print job";
char *buf = wave_alloca(strlen(ban) + strlen(user_data) + 32);
sprintf(buf, "%s '%s'", ban, (char *)user_data);
status_text(buf);
unlink(user_data);
}
}
#endif
static void
unix_print_cleanup(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
#ifdef WAVE_GTK_UNIX_PRINT
GtkWidget *ropt = gtk_print_unix_dialog_new("GTK Print UNIX Options", GTK_WINDOW(GLOBALS->mainwindow));
gint gd_rc;
if(GLOBALS->gprs) { gtk_print_unix_dialog_set_settings(GTK_PRINT_UNIX_DIALOG(ropt), GLOBALS->gprs); }
if(GLOBALS->gps) { gtk_print_unix_dialog_set_page_setup(GTK_PRINT_UNIX_DIALOG(ropt), GLOBALS->gps); }
gtk_print_unix_dialog_set_manual_capabilities(GTK_PRINT_UNIX_DIALOG(ropt),
GTK_PRINT_CAPABILITY_GENERATE_PS |
GTK_PRINT_CAPABILITY_COPIES
);
#ifdef MAC_INTEGRATION
osx_menu_sensitivity(FALSE);
#endif
gd_rc = gtk_dialog_run(GTK_DIALOG (ropt));
if(gd_rc == GTK_RESPONSE_OK)
{
GtkPrinter *gp = gtk_print_unix_dialog_get_selected_printer(GTK_PRINT_UNIX_DIALOG(ropt));
GtkPrintSettings *gprs = gtk_print_unix_dialog_get_settings(GTK_PRINT_UNIX_DIALOG(ropt));
GtkPageSetup *gps = gtk_print_unix_dialog_get_page_setup(GTK_PRINT_UNIX_DIALOG(ropt));
GtkPrintJob *gpj = gtk_print_job_new(GLOBALS->loaded_file_name, gp, gprs, gps);
gboolean job_stat;
GError *job_error = NULL;
FILE *wave;
char *save_tmpfilename;
int fd_dummy = -1;
if(gtk_printer_accepts_ps(gp))
{
save_tmpfilename = tmpnam_2(NULL, &fd_dummy);
if(!(wave=fopen(save_tmpfilename, "r+b")))
{
fprintf(stderr, "Error opening PS output file '%s' for writing.\n", save_tmpfilename);
perror("Why");
errno=0;
}
else
{
if(GLOBALS->gp_tfn) free_2(GLOBALS->gp_tfn);
GLOBALS->gp_tfn = strdup_2(save_tmpfilename);
print_ps_image(wave,px[GLOBALS->page_size_type_renderopt_c_1],py[GLOBALS->page_size_type_renderopt_c_1]);
fflush(wave);
fclose(wave);
job_stat = gtk_print_job_set_source_file(gpj,
GLOBALS->gp_tfn,
&job_error);
if(job_stat)
{
gtk_print_job_send(gpj, (GtkPrintJobCompleteFunc)wave_GtkPrintJobCompleteFunc,
GLOBALS->gp_tfn,
NULL);
GLOBALS->gprs = gtk_print_settings_copy(gprs);
GLOBALS->gps = gtk_page_setup_copy(gps);
}
else
{
unlink(GLOBALS->gp_tfn);
}
}
#if !defined __MINGW32__
free_2(save_tmpfilename);
#endif
if(fd_dummy >=0) close(fd_dummy);
}
else
{
status_text("gtk_printer_accepts_ps() == FALSE, cannot print.");
}
}
else
if(gd_rc == GTK_RESPONSE_APPLY)
{
status_text("Preview not available.");
}
gtk_widget_destroy(ropt);
#ifdef MAC_INTEGRATION
osx_menu_sensitivity(TRUE);
#endif
#endif
}
static void ok_callback(void)
{
GLOBALS->ps_fullpage=GLOBALS->render_mutex_renderopt_c_1[0];
if(GLOBALS->target_mutex_renderopt_c_1[0])
{
fileselbox("Print To PDF File",&GLOBALS->filesel_print_pdf_renderopt_c_1,G_CALLBACK(pdf_print_cleanup), G_CALLBACK(NULL), "*.pdf", 1);
}
else
if(GLOBALS->target_mutex_renderopt_c_1[1])
{
fileselbox("Print To PS File",&GLOBALS->filesel_print_ps_renderopt_c_1,G_CALLBACK(ps_print_cleanup), G_CALLBACK(NULL), "*.ps", 1);
}
else
if(GLOBALS->target_mutex_renderopt_c_1[2])
{
fileselbox("Print To MIF File",&GLOBALS->filesel_print_mif_renderopt_c_1,G_CALLBACK(mif_print_cleanup), G_CALLBACK(NULL), "*.fm", 1);
}
else
{
unix_print_cleanup(NULL,NULL);
}
}
static void destroy_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
GLOBALS->is_active_renderopt_c_3=0;
gtk_widget_destroy(GLOBALS->window_renderopt_c_6);
GLOBALS->window_renderopt_c_6 = NULL;
}
void renderbox(char *title)
{
GtkWidget *vbox, *hbox, *small_hbox;
GtkWidget *button1, *button2;
int i;
/* fix problem where ungrab doesn't occur if button pressed + simultaneous accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1) { XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME); }
if(GLOBALS->wave_script_args)
{
char *s1 = NULL;
char *s2 = NULL;
char *s3 = NULL;
while((!s1)&&(GLOBALS->wave_script_args->curr)) s1 = wave_script_args_fgetmalloc_stripspaces(GLOBALS->wave_script_args);
while((!s2)&&(GLOBALS->wave_script_args->curr)) s2 = wave_script_args_fgetmalloc_stripspaces(GLOBALS->wave_script_args);
while((!s3)&&(GLOBALS->wave_script_args->curr)) s3 = wave_script_args_fgetmalloc_stripspaces(GLOBALS->wave_script_args);
if(s1 && s2 && s3)
{
memset(GLOBALS->target_mutex_renderopt_c_1, 0, 2); GLOBALS->target_mutex_renderopt_c_1[0] = 1; /* PS */
#ifdef WAVE_GTK_UNIX_PRINT
for(i=0;i<4;i++)
#else
for(i=0;i<3;i++)
#endif
{
if(!strcmp(s1, render_targets[i]))
{
fprintf(stderr, "GTKWAVE | Print using '%s'\n", render_targets[i]);
memset(GLOBALS->target_mutex_renderopt_c_1, 0, 4); GLOBALS->target_mutex_renderopt_c_1[i] = 1; break;
}
}
memset(GLOBALS->page_mutex_renderopt_c_1, 0, 5); GLOBALS->page_mutex_renderopt_c_1[0] = 1; /* 8.5 x 11 */
GLOBALS->page_size_type_renderopt_c_1 = 0;
for(i=0;i<5;i++)
{
if(!strcmp(s2, page_size[i]))
{
fprintf(stderr, "GTKWAVE | Print using '%s'\n", page_size[i]);
memset(GLOBALS->page_mutex_renderopt_c_1, 0, 5); GLOBALS->page_mutex_renderopt_c_1[i] = 1;
GLOBALS->page_size_type_renderopt_c_1 = i;
break;
}
}
memset(GLOBALS->render_mutex_renderopt_c_1, 0, 3); GLOBALS->render_mutex_renderopt_c_1[0] = 1; /* Full */
for(i=0;i<2;i++)
{
if(!strcmp(s3, render_type[i]))
{
fprintf(stderr, "GTKWAVE | Print using '%s'\n", render_type[i]);
memset(GLOBALS->render_mutex_renderopt_c_1, 0, 3); GLOBALS->render_mutex_renderopt_c_1[i] = 1; break;
}
}
free_2(s1); free_2(s2); free_2(s3);
ok_callback();
}
else
{
fprintf(stderr, "Missing script entries for renderbox, exiting.\n");
exit(255);
}
return;
}
if(GLOBALS->is_active_renderopt_c_3)
{
if(GLOBALS->window_renderopt_c_6)
{
gdk_window_raise(gtk_widget_get_window(GLOBALS->window_renderopt_c_6));
}
return;
}
GLOBALS->is_active_renderopt_c_3=1;
/* create a new window */
GLOBALS->window_renderopt_c_6 = gtk_window_new(GLOBALS->disable_window_manager ? GTK_WINDOW_POPUP : GTK_WINDOW_TOPLEVEL);
install_focus_cb(GLOBALS->window_renderopt_c_6, ((char *)&GLOBALS->window_renderopt_c_6) - ((char *)GLOBALS));
gtk_window_set_title(GTK_WINDOW (GLOBALS->window_renderopt_c_6), title);
gtk_widget_set_size_request( GTK_WIDGET (GLOBALS->window_renderopt_c_6), 420, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (GLOBALS->window_renderopt_c_6), "delete_event",(GCallback) destroy_callback, NULL);
gtk_window_set_resizable(GTK_WINDOW(GLOBALS->window_renderopt_c_6), FALSE);
vbox = XXX_gtk_vbox_new (FALSE, 0);
gtk_container_add (GTK_CONTAINER (GLOBALS->window_renderopt_c_6), vbox);
gtk_widget_show (vbox);
small_hbox = XXX_gtk_hbox_new (TRUE, 0);
gtk_widget_show (small_hbox);
GtkWidget *combo_box = gtk_combo_box_text_new ();
for(i=0;i<4;i++)
{
GLOBALS->target_mutex_renderopt_c_1[i]=0;
#ifndef WAVE_GTK_UNIX_PRINT
if(i==3)
{
break;
}
#endif
gtk_combo_box_text_append_text (GTK_COMBO_BOX_TEXT(combo_box), render_targets[i]);
}
GLOBALS->target_mutex_renderopt_c_1[0]=1; /* "ps" */
gtk_combo_box_set_active (GTK_COMBO_BOX(combo_box), 0);
gtk_widget_show (combo_box);
gtk_box_pack_start (GTK_BOX (small_hbox), combo_box, TRUE, FALSE, 0);
g_signal_connect (combo_box, "changed", G_CALLBACK (render_clicked), NULL);
combo_box = gtk_combo_box_text_new ();
for(i=0;i<5;i++)
{
gtk_combo_box_text_append_text (GTK_COMBO_BOX_TEXT(combo_box), page_size[i]);
GLOBALS->page_mutex_renderopt_c_1[i]=0;
}
GLOBALS->page_mutex_renderopt_c_1[0]=1; /* "letter" */
gtk_combo_box_set_active (GTK_COMBO_BOX(combo_box), 0);
gtk_widget_show (combo_box);
gtk_box_pack_start (GTK_BOX (small_hbox), combo_box, TRUE, FALSE, 0);
g_signal_connect (combo_box, "changed", G_CALLBACK (pagesize_clicked), NULL);
gtk_box_pack_start (GTK_BOX (vbox), small_hbox, FALSE, FALSE, 0);
combo_box = gtk_combo_box_text_new ();
for(i=0;i<2;i++)
{
gtk_combo_box_text_append_text (GTK_COMBO_BOX_TEXT(combo_box), render_type[i]);
GLOBALS->render_mutex_renderopt_c_1[i]=0;
}
GLOBALS->render_mutex_renderopt_c_1[0]=1; /* "full" */
gtk_combo_box_set_active (GTK_COMBO_BOX(combo_box), 0);
gtk_widget_show (combo_box);
gtk_box_pack_start (GTK_BOX (small_hbox), combo_box, TRUE, FALSE, 0);
g_signal_connect (combo_box, "changed", G_CALLBACK (rendertype_clicked), NULL);
hbox = XXX_gtk_hbox_new (TRUE, 0);
gtk_widget_show (hbox);
gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, FALSE, 0);
button1 = gtk_button_new_with_label ("Select Output File");
gtk_widget_set_size_request(button1, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button1), "clicked", G_CALLBACK(ok_callback), NULL);
gtk_widget_show (button1);
gtk_container_add (GTK_CONTAINER (hbox), button1);
gtk_widget_set_can_default (button1, TRUE);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button1), "realize", (GCallback) gtk_widget_grab_default, XXX_GTK_OBJECT (button1));
button2 = gtk_button_new_with_label ("Exit");
gtk_widget_set_size_request(button2, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button2), "clicked", G_CALLBACK(destroy_callback), NULL);
gtk_widget_set_can_default (button2, TRUE);
gtk_widget_show (button2);
gtk_container_add (GTK_CONTAINER (hbox), button2);
gtk_widget_show(GLOBALS->window_renderopt_c_6);
}
gtkwave-gtk3-3.3.125/src/zoombuttons.c 0000664 0001750 0001750 00000036426 15047725112 017066 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2016.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "globals.h"
#include "pixmaps.h"
#include "currenttime.h"
#include "debug.h"
void fix_wavehadj(void)
{
GtkAdjustment *hadj;
gfloat pageinc;
hadj=GTK_ADJUSTMENT(GLOBALS->wave_hslider);
gtk_adjustment_set_lower(hadj, GLOBALS->tims.first);
gtk_adjustment_set_upper(hadj, GLOBALS->tims.last+2.0);
pageinc=(gfloat)(((gdouble)GLOBALS->wavewidth)*GLOBALS->nspx);
gtk_adjustment_set_page_increment(hadj, (pageinc>=1.0)?pageinc:1.0);
gtk_adjustment_set_page_size(hadj, gtk_adjustment_get_page_increment(hadj));
/* hadj->step_increment=(GLOBALS->nspx>=1.0)?GLOBALS->nspx:1.0; */
gtk_adjustment_set_step_increment (hadj, pageinc / 10.0);
if(gtk_adjustment_get_step_increment (hadj) < 1.0) gtk_adjustment_set_step_increment (hadj, 1.0);
#if GTK_CHECK_VERSION(3,0,0)
gtk_adjustment_set_value(hadj, GLOBALS->tims.start); /* work around GTK3 clamping code */
#endif
if(gtk_adjustment_get_page_size(hadj) >= (gtk_adjustment_get_upper(hadj)-gtk_adjustment_get_lower(hadj))) gtk_adjustment_set_value(hadj, gtk_adjustment_get_lower(hadj));
if(gtk_adjustment_get_value(hadj)+gtk_adjustment_get_page_size(hadj)>gtk_adjustment_get_upper(hadj))
{
gtk_adjustment_set_value(hadj, gtk_adjustment_get_upper(hadj)-gtk_adjustment_get_page_size(hadj));
if(gtk_adjustment_get_value(hadj)helpbox_is_active)
{
help_text_bold("\n\nZoom To Start");
help_text(
" is used to jump scroll to the trace's beginning."
);
return;
}
hadj=GTK_ADJUSTMENT(GLOBALS->wave_hslider);
gtk_adjustment_set_value(hadj, GLOBALS->tims.timecache=GLOBALS->tims.first);
time_update();
}
void service_zoom_right(GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
GtkAdjustment *hadj;
TimeType ntinc;
if(GLOBALS->helpbox_is_active)
{
help_text_bold("\n\nZoom To End");
help_text(
" is used to jump scroll to the trace's end."
);
return;
}
ntinc=(TimeType)(((gdouble)GLOBALS->wavewidth)*GLOBALS->nspx);
GLOBALS->tims.timecache=GLOBALS->tims.last-ntinc+1;
if(GLOBALS->tims.timecachetims.first) GLOBALS->tims.timecache=GLOBALS->tims.first;
hadj=GTK_ADJUSTMENT(GLOBALS->wave_hslider);
gtk_adjustment_set_value(hadj, GLOBALS->tims.timecache);
time_update();
}
void service_zoom_out(GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
TimeType middle=0, width;
if(GLOBALS->helpbox_is_active)
{
help_text_bold("\n\nZoom Out");
help_text(
" is used to decrease the zoom factor around the marker."
" Alt + Scrollwheel Up also hits this button in non-alternative wheel mode."
);
return;
}
if(GLOBALS->do_zoom_center)
{
if((GLOBALS->tims.marker<0)||(GLOBALS->tims.markertims.first)||(GLOBALS->tims.marker>GLOBALS->tims.last))
{
if(GLOBALS->tims.end>GLOBALS->tims.last) GLOBALS->tims.end=GLOBALS->tims.last;
middle=(GLOBALS->tims.start/2)+(GLOBALS->tims.end/2);
if((GLOBALS->tims.start&1)&&(GLOBALS->tims.end&1)) middle++;
}
else
{
middle=GLOBALS->tims.marker;
}
}
GLOBALS->tims.prevzoom=GLOBALS->tims.zoom;
GLOBALS->tims.zoom--;
calczoom(GLOBALS->tims.zoom);
if(GLOBALS->do_zoom_center)
{
width=(TimeType)(((gdouble)GLOBALS->wavewidth)*GLOBALS->nspx);
GLOBALS->tims.start=time_trunc(middle-(width/2));
if(GLOBALS->tims.start+width>GLOBALS->tims.last) GLOBALS->tims.start=time_trunc(GLOBALS->tims.last-width);
if(GLOBALS->tims.starttims.first) GLOBALS->tims.start=GLOBALS->tims.first;
gtk_adjustment_set_value(GTK_ADJUSTMENT(GLOBALS->wave_hslider), GLOBALS->tims.timecache=GLOBALS->tims.start);
}
else
{
GLOBALS->tims.timecache=0;
}
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed"); /* force zoom update */
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed"); /* force zoom update */
DEBUG(printf("Zoombuttons out\n"));
}
void service_zoom_in(GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
if(GLOBALS->helpbox_is_active)
{
help_text_bold("\n\nZoom In");
help_text(
" is used to increase the zoom factor around the marker."
" Alt + Scrollwheel Down also hits this button in non-alternative wheel mode."
);
return;
}
if(GLOBALS->tims.zoom<0) /* otherwise it's ridiculous and can cause */
{ /* overflow problems in the scope */
TimeType middle=0, width;
if(GLOBALS->do_zoom_center)
{
if((GLOBALS->tims.marker<0)||(GLOBALS->tims.markertims.first)||(GLOBALS->tims.marker>GLOBALS->tims.last))
{
if(GLOBALS->tims.end>GLOBALS->tims.last) GLOBALS->tims.end=GLOBALS->tims.last;
middle=(GLOBALS->tims.start/2)+(GLOBALS->tims.end/2);
if((GLOBALS->tims.start&1)&&(GLOBALS->tims.end&1)) middle++;
}
else
{
middle=GLOBALS->tims.marker;
}
}
GLOBALS->tims.prevzoom=GLOBALS->tims.zoom;
GLOBALS->tims.zoom++;
calczoom(GLOBALS->tims.zoom);
if(GLOBALS->do_zoom_center)
{
width=(TimeType)(((gdouble)GLOBALS->wavewidth)*GLOBALS->nspx);
GLOBALS->tims.start=time_trunc(middle-(width/2));
if(GLOBALS->tims.start+width>GLOBALS->tims.last) GLOBALS->tims.start=time_trunc(GLOBALS->tims.last-width);
if(GLOBALS->tims.starttims.first) GLOBALS->tims.start=GLOBALS->tims.first;
gtk_adjustment_set_value(GTK_ADJUSTMENT(GLOBALS->wave_hslider), GLOBALS->tims.timecache=GLOBALS->tims.start);
}
else
{
GLOBALS->tims.timecache=0;
}
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed"); /* force zoom update */
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed"); /* force zoom update */
DEBUG(printf("Zoombuttons in\n"));
}
}
void service_zoom_undo(GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
gdouble temp;
if(GLOBALS->helpbox_is_active)
{
help_text_bold("\n\nZoom Undo");
help_text(
" is used to revert to the previous zoom value used. Undo"
" only works one level deep."
);
return;
}
temp=GLOBALS->tims.zoom;
GLOBALS->tims.zoom=GLOBALS->tims.prevzoom;
GLOBALS->tims.prevzoom=temp;
GLOBALS->tims.timecache=0;
calczoom(GLOBALS->tims.zoom);
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed"); /* force zoom update */
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed"); /* force zoom update */
DEBUG(printf("Zoombuttons Undo\n"));
}
void service_zoom_fit(GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
gdouble estimated;
int fixedwidth;
if(GLOBALS->helpbox_is_active)
{
help_text_bold("\n\nZoom Best Fit");
help_text(
" attempts a \"best fit\" to get the whole trace onscreen."
" Note that the trace may be more or less than a whole screen since"
" this isn't a \"perfect fit.\" Also, if the middle button baseline"
" marker is nailed down, the zoom instead of getting the whole trace"
" onscreen will use the part of the trace between the primary"
" marker and the baseline marker."
);
return;
}
if((GLOBALS->tims.baseline>=0)&&(GLOBALS->tims.marker>=0))
{
service_dragzoom(GLOBALS->tims.baseline, GLOBALS->tims.marker); /* new semantics added to zoom between the two */
}
else
{
if(GLOBALS->wavewidth>4) { fixedwidth=GLOBALS->wavewidth-4; } else { fixedwidth=GLOBALS->wavewidth; }
estimated=-log(((gdouble)(GLOBALS->tims.last-GLOBALS->tims.first+1))/((gdouble)fixedwidth)*((gdouble)200.0))/log(GLOBALS->zoombase);
if(estimated>((gdouble)(0.0))) estimated=((gdouble)(0.0));
GLOBALS->tims.prevzoom=GLOBALS->tims.zoom;
GLOBALS->tims.timecache=0;
calczoom(estimated);
GLOBALS->tims.zoom=estimated;
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed"); /* force zoom update */
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed"); /* force zoom update */
}
DEBUG(printf("Zoombuttons Fit\n"));
}
void service_zoom_full(GtkWidget *text, gpointer data)
{
(void)text;
(void)data;
gdouble estimated;
int fixedwidth;
if(GLOBALS->helpbox_is_active)
{
help_text_bold("\n\nZoom Full");
help_text(
" attempts a \"best fit\" to get the whole trace onscreen."
" Note that the trace may be more or less than a whole screen since"
" this isn't a \"perfect fit.\""
);
return;
}
if(GLOBALS->wavewidth>4) { fixedwidth=GLOBALS->wavewidth-4; } else { fixedwidth=GLOBALS->wavewidth; }
estimated=-log(((gdouble)(GLOBALS->tims.last-GLOBALS->tims.first+1))/((gdouble)fixedwidth)*((gdouble)200.0))/log(GLOBALS->zoombase);
if(estimated>((gdouble)(0.0))) estimated=((gdouble)(0.0));
GLOBALS->tims.prevzoom=GLOBALS->tims.zoom;
GLOBALS->tims.timecache=0;
calczoom(estimated);
GLOBALS->tims.zoom=estimated;
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed"); /* force zoom update */
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed"); /* force zoom update */
DEBUG(printf("Zoombuttons Full\n"));
}
void service_dragzoom(TimeType time1, TimeType time2) /* the function you've been waiting for... */
{
gdouble estimated;
int fixedwidth;
TimeType temp;
GtkAdjustment *hadj;
Trptr t;
int dragzoom_ok = 1;
if(time2dragzoom_threshold)
{
TimeType tdelta = time2 - time1;
gdouble x = tdelta * GLOBALS->pxns;
if(xdragzoom_threshold)
{
dragzoom_ok = 0;
}
}
if((time2>time1)&&(dragzoom_ok)) /* ensure at least 1 tick and dragzoom_threshold if set */
{
if(GLOBALS->wavewidth>4) { fixedwidth=GLOBALS->wavewidth-4; } else { fixedwidth=GLOBALS->wavewidth; }
estimated=-log(((gdouble)(time2-time1+1))/((gdouble)fixedwidth)*((gdouble)200.0))/log(GLOBALS->zoombase);
if(estimated>((gdouble)(0.0))) estimated=((gdouble)(0.0));
GLOBALS->tims.prevzoom=GLOBALS->tims.zoom;
GLOBALS->tims.timecache=GLOBALS->tims.laststart=GLOBALS->tims.start=time_trunc(time1);
for(t=GLOBALS->traces.first;t;t=t->t_next) /* have to nuke string refs so printout is ok! */
{
if(t->asciivalue) { free_2(t->asciivalue); t->asciivalue=NULL; }
}
for(t=GLOBALS->traces.buffer;t;t=t->t_next)
{
if(t->asciivalue) { free_2(t->asciivalue); t->asciivalue=NULL; }
}
if(!((GLOBALS->tims.baseline>=0)&&(GLOBALS->tims.marker>=0)))
{
update_markertime(GLOBALS->tims.marker=-1);
}
GLOBALS->signalwindow_width_dirty=1;
MaxSignalLength();
hadj=GTK_ADJUSTMENT(GLOBALS->wave_hslider);
gtk_adjustment_set_value(hadj, time1);
calczoom(estimated);
GLOBALS->tims.zoom=estimated;
fix_wavehadj();
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "changed"); /* force zoom update */
g_signal_emit_by_name (XXX_GTK_OBJECT (GTK_ADJUSTMENT(GLOBALS->wave_hslider)), "value_changed"); /* force zoom update */
DEBUG(printf("Drag Zoom\n"));
}
}
/* Create actual buttons */
GtkWidget *
create_zoom_buttons (void)
{
GtkWidget *table;
GtkWidget *table2;
GtkWidget *frame;
GtkWidget *main_vbox;
GtkWidget *b1;
GtkWidget *b2;
GtkWidget *b3;
GtkWidget *b4;
GtkWidget *b5;
GtkWidget *b6;
GtkWidget *pixmapzout, *pixmapzin, *pixmapzfit, *pixmapzundo;
GtkWidget *pixmapzleft, *pixmapzright;
pixmapzin=gtk_image_new_from_pixbuf(GLOBALS->zoomin_pixbuf);
gtk_widget_show(pixmapzin);
pixmapzout=gtk_image_new_from_pixbuf(GLOBALS->zoomout_pixbuf);
gtk_widget_show(pixmapzout);
pixmapzfit=gtk_image_new_from_pixbuf(GLOBALS->zoomfit_pixbuf);
gtk_widget_show(pixmapzfit);
pixmapzundo=gtk_image_new_from_pixbuf(GLOBALS->zoomundo_pixbuf);
gtk_widget_show(pixmapzundo);
pixmapzleft=gtk_image_new_from_pixbuf(GLOBALS->zoom_larrow_pixbuf);
gtk_widget_show(pixmapzleft);
pixmapzright=gtk_image_new_from_pixbuf(GLOBALS->zoom_rarrow_pixbuf);
gtk_widget_show(pixmapzright);
/* Create a table to hold the text widget and scrollbars */
table = XXX_gtk_table_new (1, 1, FALSE);
main_vbox = XXX_gtk_vbox_new (FALSE, 1);
gtk_container_set_border_width (GTK_CONTAINER (main_vbox), 1);
gtk_container_add (GTK_CONTAINER (table), main_vbox);
frame = gtk_frame_new ("Zoom ");
gtk_box_pack_start (GTK_BOX (main_vbox), frame, TRUE, TRUE, 0);
gtk_widget_show (frame);
gtk_widget_show (main_vbox);
table2 = XXX_gtk_table_new (2, 3, FALSE);
b1 = gtk_button_new();
gtk_container_add(GTK_CONTAINER(b1), pixmapzin);
XXX_gtk_table_attach (XXX_GTK_TABLE (table2), b1, 0, 1, 0, 1,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
g_signal_connect_swapped (XXX_GTK_OBJECT (b1), "clicked", G_CALLBACK(service_zoom_out), XXX_GTK_OBJECT (table2));
gtk_tooltips_set_tip_2(b1, "Zoom Out");
gtk_widget_show(b1);
b2 = gtk_button_new();
gtk_container_add(GTK_CONTAINER(b2), pixmapzout);
XXX_gtk_table_attach (XXX_GTK_TABLE (table2), b2, 0, 1, 1, 2,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
g_signal_connect_swapped (XXX_GTK_OBJECT (b2), "clicked", G_CALLBACK(service_zoom_in), XXX_GTK_OBJECT (table2));
gtk_tooltips_set_tip_2(b2, "Zoom In");
gtk_widget_show(b2);
b3 = gtk_button_new();
gtk_container_add(GTK_CONTAINER(b3), pixmapzfit);
XXX_gtk_table_attach (XXX_GTK_TABLE (table2), b3, 1, 2, 0, 1,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
g_signal_connect_swapped (XXX_GTK_OBJECT (b3), "clicked", G_CALLBACK(service_zoom_fit), XXX_GTK_OBJECT (table2));
gtk_tooltips_set_tip_2(b3, "Zoom Best Fit");
gtk_widget_show(b3);
b4 = gtk_button_new();
gtk_container_add(GTK_CONTAINER(b4), pixmapzundo);
XXX_gtk_table_attach (XXX_GTK_TABLE (table2), b4, 1, 2, 1, 2,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
g_signal_connect_swapped (XXX_GTK_OBJECT (b4), "clicked", G_CALLBACK(service_zoom_undo), XXX_GTK_OBJECT (table2));
gtk_tooltips_set_tip_2(b4, "Undo Last Zoom");
gtk_widget_show(b4);
b5 = gtk_button_new();
gtk_container_add(GTK_CONTAINER(b5), pixmapzleft);
XXX_gtk_table_attach (XXX_GTK_TABLE (table2), b5, 2, 3, 0, 1,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
g_signal_connect_swapped (XXX_GTK_OBJECT (b5), "clicked", G_CALLBACK(service_zoom_left), XXX_GTK_OBJECT (table2));
gtk_tooltips_set_tip_2(b5, "Zoom To Start");
gtk_widget_show(b5);
b6 = gtk_button_new();
gtk_container_add(GTK_CONTAINER(b6), pixmapzright);
XXX_gtk_table_attach (XXX_GTK_TABLE (table2), b6, 2, 3, 1, 2,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
g_signal_connect_swapped (XXX_GTK_OBJECT (b6), "clicked", G_CALLBACK(service_zoom_right), XXX_GTK_OBJECT (table2));
gtk_tooltips_set_tip_2(b6, "Zoom To End");
gtk_widget_show(b6);
gtk_container_add (GTK_CONTAINER (frame), table2);
gtk_widget_show(table2);
return table;
}
gtkwave-gtk3-3.3.125/src/tree.h 0000664 0001750 0001750 00000010701 15047725112 015413 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2011.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
/*
* tree.h 12/05/98ajb
*/
#ifndef WAVE_TREE_H
#define WAVE_TREE_H
#include
#include
#include
#include
#include "debug.h"
#include "symbol.h"
#include "vcd.h"
#include "tree_component.h"
#define FST_TREE_SEARCH_NEXT_LIMIT (40)
/* Kind of the tree. */
enum tree_kind
{
/* Unknown. */
TREE_UNKNOWN,
/* An internal signal. */
TREE_SIGNAL,
/* An in/out/inout signal. */
TREE_IN,
TREE_OUT,
TREE_INOUT,
/* An element of a vector. */
TREE_VECTOREL,
/* An element of a record. */
TREE_RECORDEL,
/* A Subinstance. */
TREE_INSTANCE,
/* A package (somewhat VHDL specific ?). */
TREE_PACKAGE,
/* A base (source file). Not yet implemented. */
TREE_BASE,
/* Verilog/SV scope types */
TREE_VCD_ST_MODULE,
TREE_VCD_ST_TASK,
TREE_VCD_ST_FUNCTION,
TREE_VCD_ST_BEGIN,
TREE_VCD_ST_FORK,
TREE_VCD_ST_GENERATE,
TREE_VCD_ST_STRUCT,
TREE_VCD_ST_UNION,
TREE_VCD_ST_CLASS,
TREE_VCD_ST_INTERFACE,
TREE_VCD_ST_PACKAGE,
TREE_VCD_ST_PROGRAM,
/* GHW VHDL scope types */
TREE_VHDL_ST_DESIGN,
TREE_VHDL_ST_BLOCK,
TREE_VHDL_ST_GENIF,
TREE_VHDL_ST_GENFOR,
TREE_VHDL_ST_INSTANCE,
TREE_VHDL_ST_PACKAGE,
/* GHW VHDL signal types (still as part of scope in GHW) */
TREE_VHDL_ST_SIGNAL,
TREE_VHDL_ST_PORTIN,
TREE_VHDL_ST_PORTOUT,
TREE_VHDL_ST_PORTINOUT,
TREE_VHDL_ST_BUFFER,
TREE_VHDL_ST_LINKAGE,
/* FSDB VHDL scope types: FSDB also reuses/defines GHW's TREE_VHDL_ST_BLOCK, TREE_VHDL_ST_GENFOR, TREE_VHDL_ST_GENIF */
/* FST reuses TREE_VHDL_ST_PACKAGE */
TREE_VHDL_ST_ARCHITECTURE,
TREE_VHDL_ST_FUNCTION,
TREE_VHDL_ST_PROCEDURE,
TREE_VHDL_ST_RECORD,
TREE_VHDL_ST_PROCESS,
TREE_VHDL_ST_GENERATE
};
#define WAVE_T_WHICH_UNDEFINED_COMPNAME (-1)
#define WAVE_T_WHICH_COMPNAME_START (-2)
#ifdef WAVE_USE_STRUCT_PACKING
#pragma pack(push)
#pragma pack(1)
#endif
struct stem_struct_t
{
uint32_t stem_idx; /* in stem_path_string_table */
uint32_t stem_line_number;
};
struct tree
{
struct tree *next;
struct tree *child;
int t_which; /* 'i' for facs[i] table, value of < 0 means not a full signame */
uint32_t t_stem; /* source stem (if >0) for Open Hierarchy Source Def, see stem_struct_t */
uint32_t t_istem; /* source stem (if >0) for Open Hierarchy Source Inst, see stem_struct_t */
unsigned kind : 7; /* Kind of the leaf: libghw reads this as val & 0x7f so only 7 bits needed */
unsigned children_in_gui : 1; /* indicates that the child nodes are in the gtk2 tree, but gets borrowed during tree creation for fast judy sort */
char name[]; /* C99 */
};
#ifdef WAVE_USE_STRUCT_PACKING
#pragma pack(pop)
#endif
/* names at the end of the main hierarchy 010104ajb */
struct treechain
{
struct tree *tree; /* top of list of selected item in hierarchy */
struct tree *label; /* actual selected item in hierarchy */
struct treechain *next;
};
struct autocoalesce_free_list
{
struct autocoalesce_free_list *next; /* list of coalesced names generated by treesearch gadget..only user of this struct */
char *name; /* free up next time filtering is performed */
};
void init_tree(void);
void build_tree_from_name(const char *s, int which);
int treegraft(struct tree **t);
void treedebug(struct tree *t, char *s);
char *leastsig_hiername(char *nam);
void allocate_and_decorate_module_tree_node(unsigned char ttype, const char *scopename, const char *compname, uint32_t scopename_len, uint32_t compname_len, uint32_t t_stem, uint32_t t_istem);
int decorated_module_cleanup(void);
void treesort(struct tree *t, struct tree *p);
void order_facs_from_treesort(struct tree *t, void *v);
void treenamefix(struct tree *t);
#ifdef WAVE_USE_STRUCT_PACKING
#define WAVE_TALLOC_POOL_SIZE (64 * 1024)
#define WAVE_TALLOC_ALTREQ_SIZE (4 * 1024)
struct tree *talloc_2(size_t siz);
#else
#define talloc_2(x) calloc_2(1,(x))
#endif
/* #define WAVE_DISABLE_FAST_TREE */
enum treeview_columns {
XXX_NAME_COLUMN,
XXX_TREE_COLUMN,
XXX_PXB_COLUMN,
XXX_NUM_COLUMNS
};
void XXX_maketree(GtkTreeIter *subtree, struct tree *t);
void XXX_maketree2(GtkTreeIter *subtree, struct tree *t, int depth);
void sst_exclusion_loader(void);
#endif
gtkwave-gtk3-3.3.125/src/search.c 0000664 0001750 0001750 00000110773 15047725112 015726 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2014.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
/* AIX may need this for alloca to work */
#if defined _AIX
#pragma alloca
#endif
#include "globals.h"
#include
#include
#include "gtk23compat.h"
#include "analyzer.h"
#include "symbol.h"
#include "vcd.h"
#include "lx2.h"
#include "ghw.h"
#include "debug.h"
#include "busy.h"
#include "hierpack.h"
enum { NAME_COLUMN, PTR_COLUMN, N_COLUMNS };
static gboolean
XXX_view_selection_func (GtkTreeSelection *selection,
GtkTreeModel *model,
GtkTreePath *path,
gboolean path_currently_selected,
gpointer userdata)
{
(void) selection;
(void) userdata;
GtkTreeIter iter;
char *nam = NULL;
struct symbol *s;
if(path)
{
if (gtk_tree_model_get_iter(model, &iter, path)) /* null return should not happen */
{
gtk_tree_model_get(model, &iter, NAME_COLUMN, &nam, PTR_COLUMN, &s, -1);
if(!path_currently_selected)
{
set_s_selected(s, 1);
GLOBALS->selected_rows_search_c_2++;
}
else
{
set_s_selected(s, 0);
GLOBALS->selected_rows_search_c_2--;
}
}
}
return(TRUE);
}
int searchbox_is_active(void)
{
return(GLOBALS->is_active_search_c_4);
}
static void enter_callback_e(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
G_CONST_RETURN gchar *entry_text;
int len;
char *vname="";
entry_text = gtk_entry_get_text(GTK_ENTRY(GLOBALS->entry_a_search_c_1));
entry_text = entry_text ? entry_text : "";
DEBUG(printf("Entry contents: %s\n", entry_text));
if(!(len=strlen(entry_text)))
strcpy((GLOBALS->entrybox_text_local_search_c_2=(char *)malloc_2(strlen(vname)+1)),vname); /* make consistent with other widgets rather than producing NULL */
else strcpy((GLOBALS->entrybox_text_local_search_c_2=(char *)malloc_2(len+1)),entry_text);
wave_gtk_grab_remove(GLOBALS->window1_search_c_2);
gtk_widget_destroy(GLOBALS->window1_search_c_2);
GLOBALS->window1_search_c_2 = NULL;
GLOBALS->cleanup_e_search_c_2();
}
static void destroy_callback_e(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
DEBUG(printf("Entry Cancel\n"));
GLOBALS->entrybox_text_local_search_c_2=NULL;
wave_gtk_grab_remove(GLOBALS->window1_search_c_2);
gtk_widget_destroy(GLOBALS->window1_search_c_2);
GLOBALS->window1_search_c_2 = NULL;
}
static void entrybox_local(char *title, int width, char *default_text, int maxch, GCallback func)
{
GtkWidget *vbox, *hbox;
GtkWidget *button1, *button2;
GLOBALS->cleanup_e_search_c_2=func;
/* fix problem where ungrab doesn't occur if button pressed + simultaneous accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1) { XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME); }
/* create a new modal window */
GLOBALS->window1_search_c_2 = gtk_window_new(GLOBALS->disable_window_manager ? GTK_WINDOW_POPUP : GTK_WINDOW_TOPLEVEL);
install_focus_cb(GLOBALS->window1_search_c_2, ((char *)&GLOBALS->window1_search_c_2) - ((char *)GLOBALS));
gtk_widget_set_size_request( GTK_WIDGET (GLOBALS->window1_search_c_2), width, 60);
gtk_window_set_title(GTK_WINDOW (GLOBALS->window1_search_c_2), title);
gtkwave_signal_connect(XXX_GTK_OBJECT (GLOBALS->window1_search_c_2), "delete_event",(GCallback) destroy_callback_e, NULL);
vbox = XXX_gtk_vbox_new (FALSE, 0);
gtk_container_add (GTK_CONTAINER (GLOBALS->window1_search_c_2), vbox);
gtk_widget_show (vbox);
GLOBALS->entry_a_search_c_1 = X_gtk_entry_new_with_max_length (maxch);
gtkwave_signal_connect(XXX_GTK_OBJECT(GLOBALS->entry_a_search_c_1), "activate",G_CALLBACK(enter_callback_e),GLOBALS->entry_a_search_c_1);
gtk_entry_set_text (GTK_ENTRY (GLOBALS->entry_a_search_c_1), default_text);
gtk_editable_select_region (GTK_EDITABLE (GLOBALS->entry_a_search_c_1),0, gtk_entry_get_text_length(GTK_ENTRY(GLOBALS->entry_a_search_c_1)));
gtk_box_pack_start (GTK_BOX (vbox), GLOBALS->entry_a_search_c_1, TRUE, TRUE, 0);
gtk_widget_show (GLOBALS->entry_a_search_c_1);
hbox = XXX_gtk_hbox_new (FALSE, 1);
gtk_box_pack_start (GTK_BOX (vbox), hbox, TRUE, TRUE, 0);
gtk_widget_show (hbox);
button1 = gtk_button_new_with_label ("OK");
gtk_widget_set_size_request(button1, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button1), "clicked", G_CALLBACK(enter_callback_e), NULL);
gtk_widget_show (button1);
gtk_container_add (GTK_CONTAINER (hbox), button1);
gtk_widget_set_can_default (button1, TRUE);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button1), "realize", (GCallback) gtk_widget_grab_default, XXX_GTK_OBJECT (button1));
button2 = gtk_button_new_with_label ("Cancel");
gtk_widget_set_size_request(button2, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button2), "clicked", G_CALLBACK(destroy_callback_e), NULL);
gtk_widget_set_can_default (button2, TRUE);
gtk_widget_show (button2);
gtk_container_add (GTK_CONTAINER (hbox), button2);
gtk_widget_show(GLOBALS->window1_search_c_2);
wave_gtk_grab_add(GLOBALS->window1_search_c_2);
}
/***************************************************************************/
static char *regex_type[]={"\\(\\[.*\\]\\)*$", "\\>.\\([0-9]\\)*$",
"\\(\\[.*\\]\\)*$", "\\>.\\([0-9]\\)*$", ""};
static char *regex_name[]={"WRange", "WStrand", "Range", "Strand", "None"};
static void
on_changed (GtkComboBox *widget,
gpointer user_data)
{
(void) user_data;
GtkComboBox *combo_box = widget;
int which = gtk_combo_box_get_active (combo_box);
int i;
for(i=0;i<5;i++) GLOBALS->regex_mutex_search_c_1[i]=0;
GLOBALS->regex_which_search_c_1=which;
GLOBALS->regex_mutex_search_c_1[GLOBALS->regex_which_search_c_1] = 1; /* mark our choice */
DEBUG(printf("picked: %s\n", regex_name[GLOBALS->regex_which_search_c_1]));
}
/***************************************************************************/
/* call cleanup() on ok/insert functions */
static void
bundle_cleanup(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
if(GLOBALS->entrybox_text_local_search_c_2)
{
char *efix;
efix=GLOBALS->entrybox_text_local_search_c_2;
while(*efix)
{
if(*efix==' ')
{
*efix='_';
}
efix++;
}
DEBUG(printf("Bundle name is: %s\n",GLOBALS->entrybox_text_local_search_c_2));
add_vector_selected(GLOBALS->entrybox_text_local_search_c_2, GLOBALS->selected_rows_search_c_2, GLOBALS->bundle_direction_search_c_2);
free_2(GLOBALS->entrybox_text_local_search_c_2);
}
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
static void
bundle_callback_generic(void)
{
DEBUG(printf("Selected_rows: %d\n",GLOBALS->selected_rows_search_c_2));
if(GLOBALS->selected_rows_search_c_2>0)
{
entrybox_local("Enter Bundle Name",300,"",128,G_CALLBACK(bundle_cleanup));
}
}
static void
bundle_callback_up(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
GLOBALS->bundle_direction_search_c_2=0;
bundle_callback_generic();
}
static void
bundle_callback_down(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
GLOBALS->bundle_direction_search_c_2=1;
bundle_callback_generic();
}
static void insert_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)nothing;
search_insert_callback(widget, 0); /* native to search */
}
void search_insert_callback(GtkWidget *widget, char is_prepend)
{
Traces tcache;
struct symchain *symc, *symc_current;
int i;
gfloat interval;
if(GLOBALS->is_insert_running_search_c_1) return;
GLOBALS->is_insert_running_search_c_1 = ~0;
wave_gtk_grab_add(widget);
set_window_busy(widget);
symc=NULL;
memcpy(&tcache,&GLOBALS->traces,sizeof(Traces));
GLOBALS->traces.total=0;
GLOBALS->traces.first=GLOBALS->traces.last=NULL;
interval = (gfloat)(GLOBALS->num_rows_search_c_2/100.0);
/* LX2 */
GtkTreeIter iter;
if(GLOBALS->is_lx2)
{
int pre_import=0;
gtk_tree_model_get_iter_first (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
for(i=0;inum_rows_search_c_2;i++)
{
struct symbol *s, *t;
gtk_tree_model_get(GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter, PTR_COLUMN, &s, -1);
gtk_tree_model_iter_next (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
if(get_s_selected(s))
{
if((!s->vec_root)||(!GLOBALS->autocoalesce))
{
if(s->n->mv.mvlfac)
{
lx2_set_fac_process_mask(s->n);
pre_import++;
}
}
else
{
t=s->vec_root;
while(t)
{
if(t->n->mv.mvlfac)
{
lx2_set_fac_process_mask(t->n);
pre_import++;
}
t=t->vec_chain;
}
}
}
}
if(pre_import)
{
lx2_import_masked();
}
}
/* LX2 */
gtk_tree_model_get_iter_first (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
for(i=0;inum_rows_search_c_2;i++)
{
int len;
struct symbol *s, *t;
gtk_tree_model_get(GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter, PTR_COLUMN, &s, -1);
gtk_tree_model_iter_next (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
if(get_s_selected(s))
{
GLOBALS->pdata->value = i;
if(((int)(GLOBALS->pdata->value/interval))!=((int)(GLOBALS->pdata->oldvalue/interval)))
{
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), i / (gfloat)((GLOBALS->num_rows_search_c_2>1)?GLOBALS->num_rows_search_c_2-1:1));
gtkwave_main_iteration();
}
GLOBALS->pdata->oldvalue = i;
if((!s->vec_root)||(!GLOBALS->autocoalesce))
{
AddNodeUnroll(s->n, NULL);
}
else
{
len=0;
t=s->vec_root;
set_s_selected(t, 1); /* move selected to head */
while(t)
{
if(get_s_selected(t))
{
if(len) set_s_selected(t, 0);
symc_current=(struct symchain *)calloc_2(1,sizeof(struct symchain));
symc_current->next=symc;
symc_current->symbol=t;
symc=symc_current;
}
len++;
t=t->vec_chain;
}
if(len)add_vector_chain(s->vec_root, len);
}
}
}
while(symc)
{
set_s_selected(symc->symbol, 1);
symc_current=symc;
symc=symc->next;
free_2(symc_current);
}
GLOBALS->traces.buffercount=GLOBALS->traces.total;
GLOBALS->traces.buffer=GLOBALS->traces.first;
GLOBALS->traces.bufferlast=GLOBALS->traces.last;
GLOBALS->traces.first=tcache.first;
GLOBALS->traces.last=tcache.last;
GLOBALS->traces.total=tcache.total;
if(is_prepend)
{
PrependBuffer();
}
else
{
PasteBuffer();
}
GLOBALS->traces.buffercount=tcache.buffercount;
GLOBALS->traces.buffer=tcache.buffer;
GLOBALS->traces.bufferlast=tcache.bufferlast;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), 0.0);
GLOBALS->pdata->oldvalue = -1.0;
set_window_idle(widget);
wave_gtk_grab_remove(widget);
GLOBALS->is_insert_running_search_c_1=0;
}
static void replace_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)nothing;
Traces tcache;
int i;
Trptr tfirst, tlast;
struct symchain *symc, *symc_current;
gfloat interval;
if(GLOBALS->is_replace_running_search_c_1) return;
GLOBALS->is_replace_running_search_c_1 = ~0;
wave_gtk_grab_add(widget);
set_window_busy(widget);
tfirst=NULL; tlast=NULL;
symc=NULL;
memcpy(&tcache,&GLOBALS->traces,sizeof(Traces));
GLOBALS->traces.total=0;
GLOBALS->traces.first=GLOBALS->traces.last=NULL;
interval = (gfloat)(GLOBALS->num_rows_search_c_2/100.0);
GLOBALS->pdata->oldvalue = -1.0;
/* LX2 */
GtkTreeIter iter;
if(GLOBALS->is_lx2)
{
int pre_import=0;
gtk_tree_model_get_iter_first (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
for(i=0;inum_rows_search_c_2;i++)
{
struct symbol *s, *t;
gtk_tree_model_get(GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter, PTR_COLUMN, &s, -1);
gtk_tree_model_iter_next (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
if(get_s_selected(s))
{
if((!s->vec_root)||(!GLOBALS->autocoalesce))
{
if(s->n->mv.mvlfac)
{
lx2_set_fac_process_mask(s->n);
pre_import++;
}
}
else
{
t=s->vec_root;
while(t)
{
if(t->n->mv.mvlfac)
{
lx2_set_fac_process_mask(t->n);
pre_import++;
}
t=t->vec_chain;
}
}
}
}
if(pre_import)
{
lx2_import_masked();
}
}
/* LX2 */
gtk_tree_model_get_iter_first (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
for(i=0;inum_rows_search_c_2;i++)
{
int len;
struct symbol *s, *t;
gtk_tree_model_get(GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter, PTR_COLUMN, &s, -1);
gtk_tree_model_iter_next (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
if(get_s_selected(s))
{
GLOBALS->pdata->value = i;
if(((int)(GLOBALS->pdata->value/interval))!=((int)(GLOBALS->pdata->oldvalue/interval)))
{
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), i / (gfloat)((GLOBALS->num_rows_search_c_2>1)?GLOBALS->num_rows_search_c_2-1:1));
gtkwave_main_iteration();
}
GLOBALS->pdata->oldvalue = i;
if((!s->vec_root)||(!GLOBALS->autocoalesce))
{
AddNodeUnroll(s->n, NULL);
}
else
{
len=0;
t=s->vec_root;
while(t)
{
if(get_s_selected(t))
{
if(len) set_s_selected(t, 0);
symc_current=(struct symchain *)calloc_2(1,sizeof(struct symchain));
symc_current->next=symc;
symc_current->symbol=t;
symc=symc_current;
}
len++;
t=t->vec_chain;
}
if(len)add_vector_chain(s->vec_root, len);
}
}
}
while(symc)
{
set_s_selected(symc->symbol, 1);
symc_current=symc;
symc=symc->next;
free_2(symc_current);
}
tfirst=GLOBALS->traces.first; tlast=GLOBALS->traces.last; /* cache for highlighting */
GLOBALS->traces.buffercount=GLOBALS->traces.total;
GLOBALS->traces.buffer=GLOBALS->traces.first;
GLOBALS->traces.bufferlast=GLOBALS->traces.last;
GLOBALS->traces.first=tcache.first;
GLOBALS->traces.last=tcache.last;
GLOBALS->traces.total=tcache.total;
{
Trptr t = GLOBALS->traces.first;
Trptr *tp = NULL;
int numhigh = 0;
int it;
while(t) { if(t->flags & TR_HIGHLIGHT) { numhigh++; } t = t->t_next; }
if(numhigh)
{
tp = calloc_2(numhigh, sizeof(Trptr));
t = GLOBALS->traces.first;
it = 0;
while(t) { if(t->flags & TR_HIGHLIGHT) { tp[it++] = t; } t = t->t_next; }
}
PasteBuffer();
GLOBALS->traces.buffercount=tcache.buffercount;
GLOBALS->traces.buffer=tcache.buffer;
GLOBALS->traces.bufferlast=tcache.bufferlast;
for(it=0;itflags |= TR_HIGHLIGHT;
}
t = tfirst;
while(t)
{
t->flags &= ~TR_HIGHLIGHT;
if(t==tlast) break;
t=t->t_next;
}
CutBuffer();
while(tfirst)
{
tfirst->flags |= TR_HIGHLIGHT;
if(tfirst==tlast) break;
tfirst=tfirst->t_next;
}
if(tp)
{
free_2(tp);
}
}
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), 0.0);
GLOBALS->pdata->oldvalue = -1.0;
set_window_idle(widget);
wave_gtk_grab_remove(widget);
GLOBALS->is_replace_running_search_c_1=0;
}
static void ok_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)nothing;
int i;
struct symchain *symc, *symc_current;
gfloat interval;
if(GLOBALS->is_append_running_search_c_1) return;
GLOBALS->is_append_running_search_c_1 = ~0;
wave_gtk_grab_add(widget);
set_window_busy(widget);
symc=NULL;
interval = (gfloat)(GLOBALS->num_rows_search_c_2/100.0);
GLOBALS->pdata->oldvalue = -1.0;
/* LX2 */
GtkTreeIter iter;
if(GLOBALS->is_lx2)
{
int pre_import=0;
gtk_tree_model_get_iter_first (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
for(i=0;inum_rows_search_c_2;i++)
{
struct symbol *s, *t;
gtk_tree_model_get(GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter, PTR_COLUMN, &s, -1);
gtk_tree_model_iter_next (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
if(get_s_selected(s))
{
if((!s->vec_root)||(!GLOBALS->autocoalesce))
{
if(s->n->mv.mvlfac)
{
lx2_set_fac_process_mask(s->n);
pre_import++;
}
}
else
{
t=s->vec_root;
while(t)
{
if(t->n->mv.mvlfac)
{
lx2_set_fac_process_mask(t->n);
pre_import++;
}
t=t->vec_chain;
}
}
}
}
if(pre_import)
{
lx2_import_masked();
}
}
/* LX2 */
gtk_tree_model_get_iter_first (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
for(i=0;inum_rows_search_c_2;i++)
{
int len;
struct symbol *s, *t;
gtk_tree_model_get(GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter, PTR_COLUMN, &s, -1);
gtk_tree_model_iter_next (GTK_TREE_MODEL (GLOBALS->sig_store_search), &iter);
if(get_s_selected(s))
{
GLOBALS->pdata->value = i;
if(((int)(GLOBALS->pdata->value/interval))!=((int)(GLOBALS->pdata->oldvalue/interval)))
{
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), i / (gfloat)((GLOBALS->num_rows_search_c_2>1)?GLOBALS->num_rows_search_c_2-1:1));
gtkwave_main_iteration();
}
GLOBALS->pdata->oldvalue = i;
if((!s->vec_root)||(!GLOBALS->autocoalesce))
{
AddNodeUnroll(s->n, NULL);
}
else
{
len=0;
t=s->vec_root;
while(t)
{
if(get_s_selected(t))
{
if(len) set_s_selected(t, 0);
symc_current=(struct symchain *)calloc_2(1,sizeof(struct symchain));
symc_current->next=symc;
symc_current->symbol=t;
symc=symc_current;
}
len++;
t=t->vec_chain;
}
if(len)add_vector_chain(s->vec_root, len);
}
}
}
while(symc)
{
set_s_selected(symc->symbol, 1);
symc_current=symc;
symc=symc->next;
free_2(symc_current);
}
GLOBALS->traces.scroll_top = GLOBALS->traces.scroll_bottom = GLOBALS->traces.last;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), 0.0);
GLOBALS->pdata->oldvalue = -1.0;
set_window_idle(widget);
wave_gtk_grab_remove(widget);
GLOBALS->is_append_running_search_c_1=0;
}
void search_enter_callback(GtkWidget *widget, GtkWidget *do_warning)
{
G_CONST_RETURN gchar *entry_text;
char *entry_suffixed;
int i;
char *s, *tmp2;
gfloat interval;
int depack_cnt = 0;
char *duplicate_row_buffer = NULL;
if(GLOBALS->is_searching_running_search_c_1) return;
GLOBALS->is_searching_running_search_c_1 = ~0;
wave_gtk_grab_add(widget);
entry_text = gtk_entry_get_text(GTK_ENTRY(GLOBALS->entry_search_c_3));
entry_text = entry_text ? entry_text : "";
DEBUG(printf("Entry contents: %s\n", entry_text));
free_2(GLOBALS->searchbox_text_search_c_1);
if(strlen(entry_text))
{
GLOBALS->searchbox_text_search_c_1 = strdup_2(entry_text);
}
else
{
GLOBALS->searchbox_text_search_c_1 = strdup_2("");
}
GLOBALS->num_rows_search_c_2=0;
entry_suffixed=wave_alloca(strlen(GLOBALS->searchbox_text_search_c_1 /* scan-build, was entry_text */)+strlen(regex_type[GLOBALS->regex_which_search_c_1])+1+((GLOBALS->regex_which_search_c_1<2)?2:0));
*entry_suffixed=0x00;
if(GLOBALS->regex_which_search_c_1<2) strcpy(entry_suffixed, "\\<"); /* match on word boundary */
strcat(entry_suffixed,GLOBALS->searchbox_text_search_c_1); /* scan-build */
strcat(entry_suffixed,regex_type[GLOBALS->regex_which_search_c_1]);
wave_regex_compile(entry_suffixed, WAVE_REGEX_SEARCH);
for(i=0;inumfacs;i++)
{
set_s_selected(GLOBALS->facs[i], 0);
}
GLOBALS->pdata->oldvalue = -1.0;
interval = (gfloat)(GLOBALS->numfacs/100.0);
duplicate_row_buffer = (char *)calloc_2(1, GLOBALS->longestname+1);
gtk_list_store_clear (GTK_LIST_STORE(GLOBALS->sig_store_search));
for(i=0;inumfacs;i++)
{
int was_packed = HIER_DEPACK_STATIC;
char *hfacname = NULL;
int skiprow;
GLOBALS->pdata->value = i;
if(((int)(GLOBALS->pdata->value/interval))!=((int)(GLOBALS->pdata->oldvalue/interval)))
{
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), i / (gfloat)((GLOBALS->numfacs>1)?GLOBALS->numfacs-1:1));
gtkwave_main_iteration();
}
GLOBALS->pdata->oldvalue = i;
hfacname = hier_decompress_flagged(GLOBALS->facs[i]->name, &was_packed);
if(!strcmp(hfacname, duplicate_row_buffer))
{
skiprow = 1;
}
else
{
skiprow = 0;
strcpy(duplicate_row_buffer, hfacname);
}
depack_cnt += was_packed;
if((!skiprow) && wave_regex_match(hfacname, WAVE_REGEX_SEARCH))
if((!GLOBALS->is_ghw)||(strcmp(WAVE_GHW_DUMMYFACNAME, hfacname)))
{
GtkTreeIter iter;
if(!GLOBALS->facs[i]->vec_root)
{
gtk_list_store_append (GTK_LIST_STORE(GLOBALS->sig_store_search), &iter);
gtk_list_store_set (GTK_LIST_STORE(GLOBALS->sig_store_search), &iter,
NAME_COLUMN, hfacname,
PTR_COLUMN, GLOBALS->facs[i],
-1);
}
else
{
if(GLOBALS->autocoalesce)
{
if(GLOBALS->facs[i]->vec_root!=GLOBALS->facs[i]) continue;
tmp2=makename_chain(GLOBALS->facs[i]);
s=(char *)malloc_2(strlen(tmp2)+4);
strcpy(s,"[] ");
strcpy(s+3, tmp2);
free_2(tmp2);
}
else
{
s=(char *)malloc_2(strlen(hfacname)+4);
strcpy(s,"[] ");
strcpy(s+3, hfacname);
}
gtk_list_store_append (GTK_LIST_STORE(GLOBALS->sig_store_search), &iter);
gtk_list_store_set (GTK_LIST_STORE(GLOBALS->sig_store_search), &iter,
NAME_COLUMN, s,
PTR_COLUMN, GLOBALS->facs[i],
-1);
free_2(s);
}
GLOBALS->num_rows_search_c_2++;
if(GLOBALS->num_rows_search_c_2==WAVE_MAX_CLIST_LENGTH)
{
/* if(was_packed) { free_2(hfacname); } ...not needed with HIER_DEPACK_STATIC */
break;
}
}
/* if(was_packed) { free_2(hfacname); } ...not needed with HIER_DEPACK_STATIC */
}
free_2(duplicate_row_buffer);
gtk_progress_bar_set_fraction (GTK_PROGRESS_BAR (GLOBALS->pdata->pbar), 0.0);
GLOBALS->pdata->oldvalue = -1.0;
wave_gtk_grab_remove(widget);
GLOBALS->is_searching_running_search_c_1=0;
if(do_warning)
if(GLOBALS->num_rows_search_c_2>=WAVE_MAX_CLIST_LENGTH)
{
char buf[256];
sprintf(buf, "Limiting results to first %d entries.", GLOBALS->num_rows_search_c_2);
simplereqbox("Regex Search Warning",300,buf,"OK", NULL, NULL, 1);
}
}
static void destroy_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
if((!GLOBALS->is_insert_running_search_c_1)&&(!GLOBALS->is_replace_running_search_c_1)&&(!GLOBALS->is_append_running_search_c_1)&&(!GLOBALS->is_searching_running_search_c_1))
{
GLOBALS->is_active_search_c_4=0;
gtk_widget_destroy(GLOBALS->window_search_c_7);
GLOBALS->window_search_c_7 = NULL;
GLOBALS->sig_store_search = NULL;
GLOBALS->sig_selection_search = NULL;
GLOBALS->sig_view_search = NULL;
}
}
static void select_all_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
gtk_tree_selection_select_all (GLOBALS->sig_selection_search);
}
static void unselect_all_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
gtk_tree_selection_unselect_all (GLOBALS->sig_selection_search);
}
/*
* mainline..
*/
void searchbox(char *title, GCallback func)
{
int i;
GtkWidget *small_hbox;
GtkWidget *scrolled_win;
GtkWidget *vbox1, *hbox, *hbox0;
GtkWidget *button1, *button2, *button3, *button3a, *button4, *button5, *button6, *button7;
GtkWidget *label;
gchar *titles[]={"Matches"};
GtkWidget *frame1, *frame2, *frameh, *frameh0;
GtkWidget *table;
int cached_which = GLOBALS->regex_which_search_c_1;
/* fix problem where ungrab doesn't occur if button pressed + simultaneous accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1) { XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME); }
if(GLOBALS->is_active_search_c_4)
{
gdk_window_raise(gtk_widget_get_window(GLOBALS->window_search_c_7));
return;
}
if(!GLOBALS->searchbox_text_search_c_1) GLOBALS->searchbox_text_search_c_1 = strdup_2("");
GLOBALS->is_active_search_c_4=1;
GLOBALS->cleanup_search_c_5=func;
GLOBALS->num_rows_search_c_2=GLOBALS->selected_rows_search_c_2=0;
/* create a new modal window */
GLOBALS->window_search_c_7 = gtk_window_new(GLOBALS->disable_window_manager ? GTK_WINDOW_POPUP : GTK_WINDOW_TOPLEVEL);
install_focus_cb(GLOBALS->window_search_c_7, ((char *)&GLOBALS->window_search_c_7) - ((char *)GLOBALS));
gtk_window_set_title(GTK_WINDOW (GLOBALS->window_search_c_7), title);
gtkwave_signal_connect(XXX_GTK_OBJECT (GLOBALS->window_search_c_7), "delete_event",(GCallback) destroy_callback, NULL);
table = XXX_gtk_table_new (256, 1, FALSE);
gtk_widget_show (table);
vbox1 = XXX_gtk_vbox_new (FALSE, 0);
gtk_container_set_border_width (GTK_CONTAINER (vbox1), 3);
gtk_widget_show (vbox1);
frame1 = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frame1), 3);
gtk_widget_show(frame1);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frame1, 0, 1, 0, 1,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
label=gtk_label_new("Signal Search Expression");
gtk_widget_show(label);
gtk_box_pack_start (GTK_BOX (vbox1), label, TRUE, TRUE, 0);
GLOBALS->entry_search_c_3 = X_gtk_entry_new_with_max_length (256);
gtkwave_signal_connect(XXX_GTK_OBJECT(GLOBALS->entry_search_c_3), "activate", G_CALLBACK(search_enter_callback),GLOBALS->entry_search_c_3);
gtk_entry_set_text (GTK_ENTRY (GLOBALS->entry_search_c_3), GLOBALS->searchbox_text_search_c_1);
gtk_editable_select_region (GTK_EDITABLE (GLOBALS->entry_search_c_3),0, gtk_entry_get_text_length(GTK_ENTRY(GLOBALS->entry_search_c_3)));
gtk_widget_show (GLOBALS->entry_search_c_3);
gtk_tooltips_set_tip_2(GLOBALS->entry_search_c_3, "Enter search expression here. POSIX Wildcards are allowed. Note that you may also ""modify the search criteria by selecting ``[W]Range'', ``[W]Strand'', or ``None'' for suffix ""matching.");
gtk_box_pack_start (GTK_BOX (vbox1), GLOBALS->entry_search_c_3, TRUE, TRUE, 0);
/* Allocate memory for the data that is used later */
GLOBALS->pdata = calloc_2(1, sizeof(SearchProgressData) );
GLOBALS->pdata->value = GLOBALS->pdata->oldvalue = 0.0;
/* Create the GtkProgressBar */
GLOBALS->pdata->pbar = gtk_progress_bar_new();
gtk_progress_bar_set_text(GTK_PROGRESS_BAR(GLOBALS->pdata->pbar), " ");
gtk_progress_bar_set_fraction(GTK_PROGRESS_BAR(GLOBALS->pdata->pbar), 0.0);
gtk_widget_show(GLOBALS->pdata->pbar);
gtk_box_pack_start (GTK_BOX (vbox1), GLOBALS->pdata->pbar, TRUE, TRUE, 0);
gtk_container_add (GTK_CONTAINER (frame1), vbox1);
frame2 = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frame2), 3);
gtk_widget_show(frame2);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frame2, 0, 1, 1, 254,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
GLOBALS->sig_store_search = gtk_list_store_new (N_COLUMNS, G_TYPE_STRING, G_TYPE_POINTER);
GLOBALS->sig_view_search = gtk_tree_view_new_with_model (GTK_TREE_MODEL (GLOBALS->sig_store_search));
/* The view now holds a reference. We can get rid of our own reference */
g_object_unref (G_OBJECT (GLOBALS->sig_store_search));
GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
GtkTreeViewColumn *column = gtk_tree_view_column_new_with_attributes (titles[0], renderer, "text", NAME_COLUMN, NULL);
gtk_tree_view_append_column (GTK_TREE_VIEW (GLOBALS->sig_view_search), column);
/* Setup the selection handler */
GLOBALS->sig_selection_search = gtk_tree_view_get_selection (GTK_TREE_VIEW (GLOBALS->sig_view_search));
gtk_tree_selection_set_mode (GLOBALS->sig_selection_search, GTK_SELECTION_MULTIPLE);
gtk_tree_selection_set_select_function (GLOBALS->sig_selection_search, XXX_view_selection_func, NULL, NULL);
gtk_list_store_clear (GTK_LIST_STORE(GLOBALS->sig_store_search));
gtk_widget_show (GLOBALS->sig_view_search);
dnd_setup(GLOBALS->sig_view_search, GLOBALS->signalarea, 0);
scrolled_win = gtk_scrolled_window_new (NULL, NULL);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_win),
GTK_POLICY_AUTOMATIC,
GTK_POLICY_AUTOMATIC);
gtk_widget_set_size_request( GTK_WIDGET (scrolled_win), -1, 300);
gtk_widget_show(scrolled_win);
/* gtk_scrolled_window_add_with_viewport doesn't seen to work right here.. */
gtk_container_add (GTK_CONTAINER (scrolled_win), GLOBALS->sig_view_search);
gtk_container_add (GTK_CONTAINER (frame2), scrolled_win);
frameh0 = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frameh0), 3);
gtk_widget_show(frameh0);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frameh0, 0, 1, 254, 255,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
hbox0 = XXX_gtk_hbox_new (FALSE, 1);
gtk_widget_show (hbox0);
button6 = gtk_button_new_with_label (" Select All ");
gtk_container_set_border_width (GTK_CONTAINER (button6), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button6), "clicked",G_CALLBACK(select_all_callback),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button6);
gtk_tooltips_set_tip_2(button6,
"Highlight all signals listed in the match window.");
gtk_box_pack_start (GTK_BOX (hbox0), button6, TRUE, FALSE, 0);
small_hbox = XXX_gtk_hbox_new (TRUE, 0);
gtk_widget_show (small_hbox);
GtkWidget *combo_box = gtk_combo_box_text_new ();
for(i=0;i<5;i++)
{
gtk_combo_box_text_append_text (GTK_COMBO_BOX_TEXT(combo_box), regex_name[i]);
GLOBALS->regex_mutex_search_c_1[i]=0;
}
GLOBALS->regex_which_search_c_1 = cached_which;
if((GLOBALS->regex_which_search_c_1<0)||(GLOBALS->regex_which_search_c_1>4)) GLOBALS->regex_which_search_c_1 = 0;
GLOBALS->regex_mutex_search_c_1[GLOBALS->regex_which_search_c_1]=1; /* configure for "range", etc */
gtk_combo_box_set_active (GTK_COMBO_BOX(combo_box), GLOBALS->regex_which_search_c_1);
gtk_box_pack_start (GTK_BOX (small_hbox), combo_box, TRUE, FALSE, 0);
gtk_widget_show (combo_box);
gtk_tooltips_set_tip_2(combo_box,
"You may "
"modify the search criteria by selecting ``Range'', ``Strand'', or ``None'' for suffix "
"matching. This optionally matches the string you enter in the search string above with a Verilog "
"format range (signal[7:0]), a strand (signal.1, signal.0), or with no suffix. "
"The ``W'' modifier for ``Range'' and ``Strand'' explicitly matches on word boundaries. "
"(addr matches unit.freezeaddr[63:0] for ``Range'' but only unit.addr[63:0] for ``WRange'' since addr has to be on a word boundary. "
"Note that when ``None'' "
"is selected, the search string may be located anywhere in the signal name.");
g_signal_connect (combo_box, "changed", G_CALLBACK (on_changed), NULL);
gtk_box_pack_start (GTK_BOX (hbox0), small_hbox, FALSE, FALSE, 0);
button7 = gtk_button_new_with_label (" Unselect All ");
gtk_container_set_border_width (GTK_CONTAINER (button7), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button7), "clicked",G_CALLBACK(unselect_all_callback),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button7);
gtk_tooltips_set_tip_2(button7,
"Unhighlight all signals listed in the match window.");
gtk_box_pack_start (GTK_BOX (hbox0), button7, TRUE, FALSE, 0);
gtk_container_add (GTK_CONTAINER (frameh0), hbox0);
frameh = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frameh), 3);
gtk_widget_show(frameh);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frameh, 0, 1, 255, 256,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
hbox = XXX_gtk_hbox_new (FALSE, 1);
gtk_widget_show (hbox);
button1 = gtk_button_new_with_label ("Append");
gtk_container_set_border_width (GTK_CONTAINER (button1), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button1), "clicked",G_CALLBACK(ok_callback),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button1);
gtk_tooltips_set_tip_2(button1,
"Add selected signals to end of the display on the main window.");
gtk_box_pack_start (GTK_BOX (hbox), button1, TRUE, FALSE, 0);
button2 = gtk_button_new_with_label (" Insert ");
gtk_container_set_border_width (GTK_CONTAINER (button2), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button2), "clicked",G_CALLBACK(insert_callback),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button2);
gtk_tooltips_set_tip_2(button2,
"Add selected signals after last highlighted signal on the main window.");
gtk_box_pack_start (GTK_BOX (hbox), button2, TRUE, FALSE, 0);
if(GLOBALS->vcd_explicit_zero_subscripts>=0)
{
button3 = gtk_button_new_with_label (" Bundle Up ");
gtk_container_set_border_width (GTK_CONTAINER (button3), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button3), "clicked",G_CALLBACK(bundle_callback_up),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button3);
gtk_tooltips_set_tip_2(button3,
"Bundle selected signals into a single bit vector with the topmost selected signal as the LSB and the lowest as the MSB.");
gtk_box_pack_start (GTK_BOX (hbox), button3, TRUE, FALSE, 0);
button3a = gtk_button_new_with_label (" Bundle Down ");
gtk_container_set_border_width (GTK_CONTAINER (button3a), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button3a), "clicked",G_CALLBACK(bundle_callback_down),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button3a);
gtk_tooltips_set_tip_2(button3a,
"Bundle selected signals into a single bit vector with the topmost selected signal as the MSB and the lowest as the LSB.");
gtk_box_pack_start (GTK_BOX (hbox), button3a, TRUE, FALSE, 0);
}
button4 = gtk_button_new_with_label (" Replace ");
gtk_container_set_border_width (GTK_CONTAINER (button4), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button4), "clicked",G_CALLBACK(replace_callback),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_widget_show (button4);
gtk_tooltips_set_tip_2(button4,
"Replace highlighted signals on the main window with signals selected above.");
gtk_box_pack_start (GTK_BOX (hbox), button4, TRUE, FALSE, 0);
button5 = gtk_button_new_with_label (" Exit ");
gtk_container_set_border_width (GTK_CONTAINER (button5), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button5), "clicked",G_CALLBACK(destroy_callback),XXX_GTK_OBJECT (GLOBALS->window_search_c_7));
gtk_tooltips_set_tip_2(button5,
"Do nothing and return to the main window.");
gtk_widget_show (button5);
gtk_box_pack_start (GTK_BOX (hbox), button5, TRUE, FALSE, 0);
gtk_container_add (GTK_CONTAINER (frameh), hbox);
gtk_container_add (GTK_CONTAINER (GLOBALS->window_search_c_7), table);
gtk_widget_show(GLOBALS->window_search_c_7);
if(strlen(GLOBALS->searchbox_text_search_c_1)) search_enter_callback(GLOBALS->entry_search_c_3,NULL);
}
gtkwave-gtk3-3.3.125/src/simplereq.h 0000664 0001750 0001750 00000000742 15047725112 016461 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_SIMPLEREQ_H
#define WAVE_SIMPLEREQ_H
void simplereqbox(char *title, int width, char *default_text, char *oktext, char *canceltext, GCallback func, int is_alert);
#endif
gtkwave-gtk3-3.3.125/src/currenttime.h 0000664 0001750 0001750 00000003545 15047725112 017025 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2016
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#ifndef CURRENTTIME_H
#define CURRENTTIME_H
#include
#include
#include
#include
#include "analyzer.h"
#include "regex_wave.h"
#include "translate.h"
#define WAVE_INF_SCALING (0.5)
#define WAVE_SI_UNITS " munpfaz"
struct blackout_region_t
{
struct blackout_region_t *next;
TimeType bstart, bend;
};
/* currenttime.c protos */
void fractional_timescale_fix(char *);
void update_markertime(TimeType val);
void update_maxtime(TimeType val);
void update_basetime(TimeType val);
void update_currenttime(TimeType val);
void update_maxmarker_labels(void);
void reformat_time(char *buf, TimeType val, char dim);
void reformat_time_simple(char *buf, TimeType val, char dim);
TimeType unformat_time(const char *buf, char dim);
void time_trunc_set(void);
TimeType time_trunc(TimeType t);
void exponent_to_time_scale(signed char scale);
/* other protos / definitions */
#include "baseconvert.h"
#include "edgebuttons.h"
#include "entry.h"
#include "fetchbuttons.h"
#include "file.h"
#include "fonts.h"
#include "help.h"
#include "interp.h"
#include "logfile.h"
#include "markerbox.h"
#include "menu.h"
#include "mouseover.h"
#include "mouseover_sigs.h"
#include "pagebuttons.h"
#include "renderopt.h"
#include "search.h"
#include "shiftbuttons.h"
#include "showchange.h"
#include "signalwindow.h"
#include "simplereq.h"
#include "status.h"
#include "strace.h"
#include "timeentry.h"
#include "tree.h"
#include "treesearch.h"
#include "vcd_partial.h"
#include "wavewindow.h"
#include "zoombuttons.h"
#include "hiersearch.h"
#endif
gtkwave-gtk3-3.3.125/src/renderopt.h 0000664 0001750 0001750 00000000602 15047725112 016455 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_RENDEROPT_H
#define WAVE_RENDEROPT_H
void renderbox(char *title);
#endif
gtkwave-gtk3-3.3.125/src/zoombuttons.h 0000664 0001750 0001750 00000001476 15047725112 017070 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_ZOOMBUTTONS_H
#define WAVE_ZOOMBUTTONS_H
void fix_wavehadj(void);
void service_zoom_in(GtkWidget *text, gpointer data);
void service_zoom_out(GtkWidget *text, gpointer data);
void service_zoom_fit(GtkWidget *text, gpointer data);
void service_zoom_full(GtkWidget *text, gpointer data);
void service_zoom_undo(GtkWidget *text, gpointer data);
void service_zoom_left(GtkWidget *text, gpointer data);
void service_zoom_right(GtkWidget *text, gpointer data);
void service_dragzoom(TimeType time1, TimeType time2);
#endif
gtkwave-gtk3-3.3.125/src/search.h 0000664 0001750 0001750 00000001070 15047725112 015720 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_SEARCHBOX_H
#define WAVE_SEARCHBOX_H
void searchbox(char *title, GCallback func);
void search_enter_callback(GtkWidget *widget, GtkWidget *do_warning);
void search_insert_callback(GtkWidget *widget, char is_prepend);
int searchbox_is_active(void);
#endif
gtkwave-gtk3-3.3.125/src/vcd_saver.c 0000664 0001750 0001750 00000111130 15047725112 016421 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2005-2014.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "globals.h"
#include "vcd_saver.h"
#include "helpers/lxt_write.h"
#include "ghw.h"
#include "hierpack.h"
#include
/* can't use WAVE_NODEVARTYPE_STR because it has shorthand versions of various types which will fail to parse as VCD times with the VCD loaders */
WAVE_NODEVARTYPE_VCD_SAVER_STR
static unsigned int vartype_bounds_fix(unsigned int vt)
{
return( ((vt > ND_UNSPECIFIED_DEFAULT) && (vt <= ND_VARTYPE_MAX)) ? vt : ND_VCD_WIRE); /* GHW was printing "" for vartype */
}
static void w32redirect_fprintf(int is_trans, FILE *sfd, const char *format, ...)
{
#if defined __MINGW32__
if(is_trans)
{
char buf[16385];
BOOL bSuccess;
DWORD dwWritten;
va_list ap;
va_start(ap, format);
buf[0] = 0;
vsprintf(buf, format, ap);
bSuccess = WriteFile((HANDLE)sfd, buf, strlen(buf), &dwWritten, NULL);
va_end(ap);
}
else
#else
(void) is_trans;
#endif
{
va_list ap;
va_start(ap, format);
vfprintf(sfd, format, ap);
va_end(ap);
}
}
/*
* unconvert trace data back to VCD representation...use strict mode for LXT
*/
static unsigned char analyzer_demang(int strict, unsigned char ch)
{
if(!strict)
{
if(ch < AN_COUNT)
{
return(AN_STR[ch]);
}
else
{
return(ch);
}
}
else
{
if(ch < AN_COUNT)
{
return(AN_STR4ST[ch]);
}
else
{
return(ch);
}
}
}
/*
* generate a vcd identifier for a given facindx
*/
static char *vcdid(unsigned int value, int export_typ)
{
char *pnt = GLOBALS->buf_vcd_saver_c_3;
unsigned int vmod;
if(export_typ != WAVE_EXPORT_TRANS)
{
value++;
for(;;)
{
if((vmod = (value % 94)))
{
*(pnt++) = (char)(vmod + 32);
}
else
{
*(pnt++) = '~'; value -= 94;
}
value = value / 94;
if(!value) { break; }
}
*pnt = 0;
}
else
{
sprintf(pnt, "%d", value);
}
return(GLOBALS->buf_vcd_saver_c_3);
}
static char *vcd_truncate_bitvec(char *s)
{
char l, r;
r=*s;
if(r=='1')
{
return s;
}
else
{
s++;
}
for(;;s++)
{
l=r; r=*s;
if(!r) return (s-1);
if(l!=r)
{
return(((l=='0')&&(r=='1'))?s:s-1);
}
}
}
/************************ splay ************************/
/*
* integer splay
*/
typedef struct vcdsav_tree_node vcdsav_Tree;
struct vcdsav_tree_node {
vcdsav_Tree * left, * right;
nptr item;
int val;
hptr hist;
int len;
union
{
void *p;
long l;
int i;
} handle; /* future expansion for adding other writers that need pnt/handle info */
unsigned char flags;
};
static long vcdsav_cmp_l(void *i, void *j)
{
intptr_t il = (intptr_t)i, jl = (intptr_t)j;
return(il - jl);
}
static vcdsav_Tree * vcdsav_splay (void *i, vcdsav_Tree * t) {
/* Simple top down splay, not requiring i to be in the tree t. */
/* What it does is described above. */
vcdsav_Tree N, *l, *r, *y;
int dir;
if (t == NULL) return t;
N.left = N.right = NULL;
l = r = &N;
for (;;) {
dir = vcdsav_cmp_l(i, t->item);
if (dir < 0) {
if (t->left == NULL) break;
if (vcdsav_cmp_l(i, t->left->item)<0) {
y = t->left; /* rotate right */
t->left = y->right;
y->right = t;
t = y;
if (t->left == NULL) break;
}
r->left = t; /* link right */
r = t;
t = t->left;
} else if (dir > 0) {
if (t->right == NULL) break;
if (vcdsav_cmp_l(i, t->right->item)>0) {
y = t->right; /* rotate left */
t->right = y->left;
y->left = t;
t = y;
if (t->right == NULL) break;
}
l->right = t; /* link left */
l = t;
t = t->right;
} else {
break;
}
}
l->right = t->left; /* assemble */
r->left = t->right;
t->left = N.right;
t->right = N.left;
return t;
}
static vcdsav_Tree * vcdsav_insert(void *i, vcdsav_Tree * t, int val, unsigned char flags, hptr h) {
/* Insert i into the tree t, unless it's already there. */
/* Return a pointer to the resulting tree. */
vcdsav_Tree * n;
int dir;
n = (vcdsav_Tree *) calloc_2(1, sizeof (vcdsav_Tree));
if (n == NULL) {
fprintf(stderr, "vcdsav_insert: ran out of memory, exiting.\n");
exit(255);
}
n->item = i;
n->val = val;
n->flags = flags;
n->hist = h;
if (t == NULL) {
n->left = n->right = NULL;
return n;
}
t = vcdsav_splay(i,t);
dir = vcdsav_cmp_l(i,t->item);
if (dir<0) {
n->left = t->left;
n->right = t;
t->left = NULL;
return n;
} else if (dir>0) {
n->right = t->right;
n->left = t;
t->right = NULL;
return n;
} else { /* We get here if it's already in the tree */
/* Don't add it again */
free_2(n);
return t;
}
}
/************************ heap ************************/
static int hpcmp(vcdsav_Tree *hp1, vcdsav_Tree *hp2)
{
hptr n1 = hp1->hist;
hptr n2 = hp2->hist;
TimeType t1, t2;
if(n1) t1 = n1->time; else t1 = MAX_HISTENT_TIME;
if(n2) t2 = n2->time; else t2 = MAX_HISTENT_TIME;
if(t1 == t2)
{
return(0);
}
else
if(t1 > t2)
{
return(-1);
}
else
{
return(1);
}
}
static void recurse_build(vcdsav_Tree *vt, vcdsav_Tree ***hp)
{
if(vt->left) recurse_build(vt->left, hp);
**hp = vt;
*hp = (*hp) + 1;
if(vt->right) recurse_build(vt->right, hp);
}
static int vcdsav_tree_node_compare(const void *s1, const void *s2)
{
vcdsav_Tree *v1, *v2;
v1=*((vcdsav_Tree **)s1);
v2=*((vcdsav_Tree **)s2);
return(v1->val - v2->val); /* emit in node add order seems good enough to maintain bitblasting order instead of something like (-sigcmp(v1->item->nname, v2->item->nname)) working directly on names */
}
/*
* heapify algorithm...used to grab the next value change
*/
static void heapify(int i, int heap_size)
{
int l, r;
int largest;
vcdsav_Tree *t;
int maxele=heap_size/2-1; /* points to where heapswaps don't matter anymore */
for(;;)
{
l=2*i+1;
r=l+1;
if((lhp_vcd_saver_c_1[l],GLOBALS->hp_vcd_saver_c_1[i])>0))
{
largest=l;
}
else
{
largest=i;
}
if((rhp_vcd_saver_c_1[r],GLOBALS->hp_vcd_saver_c_1[largest])>0))
{
largest=r;
}
if(i!=largest)
{
t=GLOBALS->hp_vcd_saver_c_1[i];
GLOBALS->hp_vcd_saver_c_1[i]=GLOBALS->hp_vcd_saver_c_1[largest];
GLOBALS->hp_vcd_saver_c_1[largest]=t;
if(largest<=maxele)
{
i=largest;
}
else
{
break;
}
}
else
{
break;
}
}
}
/*
* mainline
*/
int save_nodes_to_export_generic(FILE *trans_file, Trptr trans_head, const char *fname, int export_typ)
{
Trptr t = trans_head ? trans_head : GLOBALS->traces.first;
int nodecnt = 0;
vcdsav_Tree *vt = NULL;
vcdsav_Tree **hp_clone = GLOBALS->hp_vcd_saver_c_1;
nptr n;
/* ExtNode *e; */
/* int msi, lsi; */
int i;
TimeType prevtime = LLDescriptor(-1);
time_t walltime;
struct strace *st = NULL;
int strace_append = 0;
int max_len = 1;
char *row_data = NULL;
struct lt_trace *lt = NULL;
int lxt = (export_typ == WAVE_EXPORT_LXT);
int is_trans = (export_typ == WAVE_EXPORT_TRANS);
int dumpvars_state = 0;
if(export_typ == WAVE_EXPORT_TIM)
{
return(do_timfile_save(fname));
}
errno = 0;
if(lxt)
{
lt = lt_init(fname);
if(!lt)
{
return(VCDSAV_FILE_ERROR);
}
}
else
{
if(export_typ != WAVE_EXPORT_TRANS)
{
GLOBALS->f_vcd_saver_c_1 = fopen(fname, "wb");
}
else
{
if(!trans_head) /* scan-build : is programming error to get here */
{
return(VCDSAV_FILE_ERROR);
}
GLOBALS->f_vcd_saver_c_1 = trans_file;
}
if(!GLOBALS->f_vcd_saver_c_1)
{
return(VCDSAV_FILE_ERROR);
}
}
while(t)
{
if(!t->vector)
{
if(t->n.nd)
{
n = t->n.nd;
if(n->expansion) n = n->expansion->parent;
vt = vcdsav_splay(n, vt);
if(!vt || vt->item != n)
{
unsigned char flags = 0;
unsigned char bitblasted = 0;
if(n->head.next)
if(n->head.next->next)
{
flags = n->head.next->next->flags;
}
/* look to see if we need to emit all bits of a bitblasted vector in order for completeness */
if(n->msi == n->lsi) /* single bit */
{
char *lb = strrchr(n->nname, '[');
if(lb)
{
if(!strrchr(n->nname, ':')); /* look for bitblasting */
{
char *rb = strchr(lb+1, ']');
if(rb && !(*(rb+1))) /* ensure is at the end so it's not part of a generate index */
{
struct symbol *v = symfind(n->nname, NULL);
if(v->vec_root)
{
v = v->vec_root;
while(v)
{
vt = vcdsav_splay(v->n, vt);
if(!vt || vt->item != v->n)
{
bitblasted = 1;
flags = 0;
if(v->n->head.next)
if(v->n->head.next->next)
{
flags = v->n->head.next->next->flags;
}
vt = vcdsav_insert(v->n, vt, ++nodecnt, flags, &v->n->head);
}
v = v->vec_chain;
}
}
}
}
}
}
if(!bitblasted)
{
vt = vcdsav_insert(n, vt, ++nodecnt, flags, &n->head);
}
}
}
}
else
{
bvptr b = t->n.vec;
if(b)
{
bptr bt = b->bits;
if(bt)
{
struct symbol *vr = NULL; /* used to keep from having to go O(n**2) in worst case across bt->nnbits when bitblasted */
for(i=0;innbits;i++)
{
if(bt->nodes[i])
{
n = bt->nodes[i];
if(n->expansion) n = n->expansion->parent;
vt = vcdsav_splay(n, vt);
if(!vt || vt->item != n)
{
unsigned char flags = 0;
unsigned char bitblasted = 0;
if(n->head.next)
if(n->head.next->next)
{
flags = n->head.next->next->flags;
}
/* look to see if we need to emit all bits of a bitblasted vector in order for completeness */
if(n->msi == n->lsi) /* single bit */
{
char *lb = strrchr(n->nname, '[');
if(lb)
{
if(!strrchr(n->nname, ':')); /* look for bitblasting */
{
char *rb = strchr(lb+1, ']');
if(rb && !(*(rb+1))) /* ensure is at the end so it's not part of a generate index */
{
struct symbol *v = symfind(n->nname, NULL);
if((v->vec_root) && (v->vec_root != vr))
{
v = vr = v->vec_root;
while(v)
{
vt = vcdsav_splay(v->n, vt);
if(!vt || vt->item != v->n)
{
bitblasted = 1;
flags = 0;
if(v->n->head.next)
if(v->n->head.next->next)
{
flags = v->n->head.next->next->flags;
}
vt = vcdsav_insert(v->n, vt, ++nodecnt, flags, &v->n->head);
}
v = v->vec_chain;
}
}
}
}
}
}
if(!bitblasted)
{
vt = vcdsav_insert(n, vt, ++nodecnt, flags, &n->head);
}
}
}
}
}
}
}
if(export_typ == WAVE_EXPORT_TRANS)
{
break;
}
if(!strace_append)
{
t=t->t_next;
if(t) continue;
}
else
{
st = st->next;
t = st ? st->trace : NULL;
if(t)
{
continue;
}
else
{
swap_strace_contexts();
}
}
strace_concat:
GLOBALS->strace_ctx = &GLOBALS->strace_windows[GLOBALS->strace_current_window = strace_append];
strace_append++;
if(strace_append == WAVE_NUM_STRACE_WINDOWS) break;
if(!GLOBALS->strace_ctx->shadow_straces)
{
goto strace_concat;
}
swap_strace_contexts();
st = GLOBALS->strace_ctx->straces;
t = st ? st->trace : NULL;
if(!t) {swap_strace_contexts(); goto strace_concat; }
}
if(!nodecnt) return(VCDSAV_EMPTY);
/* header */
if(lxt)
{
int dim;
lt_set_chg_compress(lt);
lt_set_clock_compress(lt);
lt_set_initial_value(lt, 'x');
lt_set_time64(lt, 0);
lt_symbol_bracket_stripping(lt, 1);
switch(GLOBALS->time_dimension)
{
case 'm': dim = -3; break;
case 'u': dim = -6; break;
case 'n': dim = -9; break;
case 'p': dim = -12; break;
case 'f': dim = -15; break;
default: dim = 0; break;
}
lt_set_timescale(lt, dim);
}
else
{
if(export_typ != WAVE_EXPORT_TRANS)
{
time(&walltime);
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$date\n");
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "\t%s",asctime(localtime(&walltime)));
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$end\n");
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$version\n\t"WAVE_VERSION_INFO"\n$end\n");
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$timescale\n\t%d%c%s\n$end\n", (int)GLOBALS->time_scale, GLOBALS->time_dimension, (GLOBALS->time_dimension=='s') ? "" : "s");
if(GLOBALS->global_time_offset) { w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$timezero\n\t"TTFormat"\n$end\n",GLOBALS->global_time_offset); }
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment data_start %p $end\n", (void *)trans_head); /* arbitrary hex identifier */
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment name %s $end\n", trans_head->name ? trans_head->name : "UNKNOWN");
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$timescale %d%c%s $end\n", (int)GLOBALS->time_scale, GLOBALS->time_dimension, (GLOBALS->time_dimension=='s') ? "" : "s");
if(GLOBALS->global_time_offset) { w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$timezero "TTFormat" $end\n",GLOBALS->global_time_offset); }
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment min_time "TTFormat" $end\n", GLOBALS->min_time / GLOBALS->time_scale);
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment max_time "TTFormat" $end\n", GLOBALS->max_time / GLOBALS->time_scale);
}
}
if(export_typ == WAVE_EXPORT_TRANS)
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment max_seqn %d $end\n", nodecnt);
if(t && t->transaction_args)
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment args \"%s\" $end\n", t->transaction_args);
}
}
/* write out netnames here ... */
hp_clone = GLOBALS->hp_vcd_saver_c_1 = calloc_2(nodecnt, sizeof(vcdsav_Tree *));
recurse_build(vt, &hp_clone);
qsort(GLOBALS->hp_vcd_saver_c_1, nodecnt, sizeof(vcdsav_Tree *), vcdsav_tree_node_compare); /* reconstruct array in order vcdsav_insert() was called to get bit ordering back */
for(i=0;ihp_vcd_saver_c_1[i]->item->nname, &was_packed);
char *netname = lxt ? hname : output_hier(is_trans, hname);
if(export_typ == WAVE_EXPORT_TRANS)
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment seqn %d %s $end\n", GLOBALS->hp_vcd_saver_c_1[i]->val, hname);
}
if(GLOBALS->hp_vcd_saver_c_1[i]->flags & (HIST_REAL|HIST_STRING))
{
if(lxt)
{
GLOBALS->hp_vcd_saver_c_1[i]->handle.p = lt_symbol_add(lt, netname, 0, 0, 0, GLOBALS->hp_vcd_saver_c_1[i]->flags & HIST_STRING ? LT_SYM_F_STRING : LT_SYM_F_DOUBLE);
}
else
{
const char *typ = (GLOBALS->hp_vcd_saver_c_1[i]->flags & HIST_STRING) ? vartype_vcd_saver_strings[ND_GEN_STRING] : vartype_vcd_saver_strings[ND_VCD_REAL];
int tlen = (GLOBALS->hp_vcd_saver_c_1[i]->flags & HIST_STRING) ? 0 : 1;
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$var %s %d %s %s $end\n", typ, tlen, vcdid(GLOBALS->hp_vcd_saver_c_1[i]->val, export_typ), netname);
}
}
else
{
int msi = -1, lsi = -1;
if(GLOBALS->hp_vcd_saver_c_1[i]->item->extvals)
{
msi = GLOBALS->hp_vcd_saver_c_1[i]->item->msi;
lsi = GLOBALS->hp_vcd_saver_c_1[i]->item->lsi;
}
if(msi==lsi)
{
if(lxt)
{
int strand_idx = strand_pnt(netname);
if(strand_idx >= 0)
{
msi = lsi = atoi(netname + strand_idx + 1);
}
GLOBALS->hp_vcd_saver_c_1[i]->handle.p = lt_symbol_add(lt, netname, 0, msi, lsi, LT_SYM_F_BITS);
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$var %s 1 %s %s $end\n", vartype_vcd_saver_strings[vartype_bounds_fix(GLOBALS->hp_vcd_saver_c_1[i]->item->vartype)], vcdid(GLOBALS->hp_vcd_saver_c_1[i]->val, export_typ), netname);
}
}
else
{
int len = (msi < lsi) ? (lsi - msi + 1) : (msi - lsi + 1);
if(lxt)
{
GLOBALS->hp_vcd_saver_c_1[i]->handle.p = lt_symbol_add(lt, netname, 0, msi, lsi, LT_SYM_F_BITS);
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$var %s %d %s %s $end\n", vartype_vcd_saver_strings[vartype_bounds_fix(GLOBALS->hp_vcd_saver_c_1[i]->item->vartype)], len, vcdid(GLOBALS->hp_vcd_saver_c_1[i]->val, export_typ), netname);
}
GLOBALS->hp_vcd_saver_c_1[i]->len = len;
if(len > max_len) max_len = len;
}
}
/* if(was_packed) { free_2(hname); } ...not needed for HIER_DEPACK_STATIC */
}
row_data = malloc_2(max_len + 1);
if(!lxt)
{
output_hier(is_trans, "");
free_hier();
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$enddefinitions $end\n");
}
/* value changes */
for(i=(nodecnt/2-1);i>0;i--) /* build nodes into having heap property */
{
heapify(i,nodecnt);
}
for(;;)
{
heapify(0, nodecnt);
if(!GLOBALS->hp_vcd_saver_c_1[0]->hist) break;
if(GLOBALS->hp_vcd_saver_c_1[0]->hist->time > GLOBALS->max_time) break;
if((GLOBALS->hp_vcd_saver_c_1[0]->hist->time != prevtime) && (GLOBALS->hp_vcd_saver_c_1[0]->hist->time >= LLDescriptor(0)))
{
TimeType tnorm = GLOBALS->hp_vcd_saver_c_1[0]->hist->time;
if(GLOBALS->time_scale != 1)
{
tnorm /= GLOBALS->time_scale;
}
if(lxt)
{
lt_set_time64(lt, tnorm);
}
else
{
if(dumpvars_state == 1) { w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$end\n"); dumpvars_state = 2; }
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "#"TTFormat"\n", tnorm);
if(!dumpvars_state) { w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$dumpvars\n"); dumpvars_state = 1; }
}
prevtime = GLOBALS->hp_vcd_saver_c_1[0]->hist->time;
}
if(GLOBALS->hp_vcd_saver_c_1[0]->hist->time >= LLDescriptor(0))
{
if(GLOBALS->hp_vcd_saver_c_1[0]->flags & (HIST_REAL|HIST_STRING))
{
if(GLOBALS->hp_vcd_saver_c_1[0]->flags & HIST_STRING)
{
char *vec = GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_vector ? GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_vector : "UNDEF";
if(lxt)
{
lt_emit_value_string(lt, GLOBALS->hp_vcd_saver_c_1[0]->handle.p, 0, vec);
}
else
{
int vec_slen = strlen(vec);
char *vec_escaped = malloc_2(vec_slen*4 + 1); /* worst case */
int vlen = fstUtilityBinToEsc((unsigned char *)vec_escaped, (unsigned char *)vec, vec_slen);
vec_escaped[vlen] = 0;
if(vlen)
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "s%s %s\n", vec_escaped, vcdid(GLOBALS->hp_vcd_saver_c_1[0]->val, export_typ));
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "s\\000 %s\n", vcdid(GLOBALS->hp_vcd_saver_c_1[0]->val, export_typ));
}
free_2(vec_escaped);
}
}
else
{
#ifdef WAVE_HAS_H_DOUBLE
double *d = &GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_double;
#else
double *d = (double *)GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_vector;
#endif
double value;
if(!d)
{
sscanf("NaN", "%lg", &value);
}
else
{
value = *d;
}
if(lxt)
{
lt_emit_value_double(lt, GLOBALS->hp_vcd_saver_c_1[0]->handle.p, 0, value);
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "r%.16g %s\n", value, vcdid(GLOBALS->hp_vcd_saver_c_1[0]->val, export_typ));
}
}
}
else
if(GLOBALS->hp_vcd_saver_c_1[0]->len)
{
if(GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_vector)
{
for(i=0;ihp_vcd_saver_c_1[0]->len;i++)
{
row_data[i] = analyzer_demang(lxt, GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_vector[i]);
}
}
else
{
for(i=0;ihp_vcd_saver_c_1[0]->len;i++)
{
row_data[i] = 'x';
}
}
row_data[i] = 0;
if(lxt)
{
lt_emit_value_bit_string(lt, GLOBALS->hp_vcd_saver_c_1[0]->handle.p, 0, row_data);
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "b%s %s\n", vcd_truncate_bitvec(row_data), vcdid(GLOBALS->hp_vcd_saver_c_1[0]->val, export_typ));
}
}
else
{
if(lxt)
{
row_data[0] = analyzer_demang(lxt, GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_val);
row_data[1] = 0;
lt_emit_value_bit_string(lt, GLOBALS->hp_vcd_saver_c_1[0]->handle.p, 0, row_data);
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "%c%s\n", analyzer_demang(lxt, GLOBALS->hp_vcd_saver_c_1[0]->hist->v.h_val), vcdid(GLOBALS->hp_vcd_saver_c_1[0]->val, export_typ));
}
}
}
GLOBALS->hp_vcd_saver_c_1[0]->hist = GLOBALS->hp_vcd_saver_c_1[0]->hist->next;
}
if(prevtime < GLOBALS->max_time)
{
if(lxt)
{
lt_set_time64(lt, GLOBALS->max_time / GLOBALS->time_scale);
}
else
{
if(dumpvars_state == 1) { w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$end\n"); dumpvars_state = 2; }
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "#"TTFormat"\n", GLOBALS->max_time / GLOBALS->time_scale);
}
}
for(i=0;ihp_vcd_saver_c_1[i]);
}
free_2(GLOBALS->hp_vcd_saver_c_1); GLOBALS->hp_vcd_saver_c_1 = NULL;
free_2(row_data); row_data = NULL;
if(lxt)
{
lt_close(lt); lt = NULL;
}
else
{
if(export_typ != WAVE_EXPORT_TRANS)
{
fclose(GLOBALS->f_vcd_saver_c_1);
}
else
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$comment data_end %p $end\n", (void *)trans_head); /* arbitrary hex identifier */
#if !defined __MINGW32__
fflush(GLOBALS->f_vcd_saver_c_1);
#endif
}
GLOBALS->f_vcd_saver_c_1 = NULL;
}
return(VCDSAV_OK);
}
int save_nodes_to_export(const char *fname, int export_typ)
{
return(save_nodes_to_export_generic(NULL, NULL, fname, export_typ));
}
int save_nodes_to_trans(FILE *trans, Trptr t)
{
return(save_nodes_to_export_generic(trans, t, NULL, WAVE_EXPORT_TRANS));
}
/************************ scopenav ************************/
struct namehier
{
struct namehier *next;
char *name;
char not_final;
};
void free_hier(void)
{
struct namehier *nhtemp;
while(GLOBALS->nhold_vcd_saver_c_1)
{
nhtemp=GLOBALS->nhold_vcd_saver_c_1->next;
free_2(GLOBALS->nhold_vcd_saver_c_1->name);
free_2(GLOBALS->nhold_vcd_saver_c_1);
GLOBALS->nhold_vcd_saver_c_1=nhtemp;
}
}
/*
* navigate up and down the scope hierarchy and
* emit the appropriate vcd scope primitives
*/
static void diff_hier(int is_trans, struct namehier *nh1, struct namehier *nh2)
{
/* struct namehier *nhtemp; */ /* scan-build */
if(!nh2)
{
while((nh1)&&(nh1->not_final))
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$scope module %s $end\n", nh1->name);
nh1=nh1->next;
}
return;
}
for(;;)
{
if((nh1->not_final==0)&&(nh2->not_final==0)) /* both are equal */
{
break;
}
if(nh2->not_final==0) /* old hier is shorter */
{
/* nhtemp=nh1; */ /* scan-build */
while((nh1)&&(nh1->not_final))
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$scope module %s $end\n", nh1->name);
nh1=nh1->next;
}
break;
}
if(nh1->not_final==0) /* new hier is shorter */
{
/* nhtemp=nh2; */ /* scan-build */
while((nh2)&&(nh2->not_final))
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$upscope $end\n");
nh2=nh2->next;
}
break;
}
if(strcmp(nh1->name, nh2->name))
{
/* nhtemp=nh2; */ /* prune old hier */ /* scan-build */
while((nh2)&&(nh2->not_final))
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$upscope $end\n");
nh2=nh2->next;
}
/* nhtemp=nh1; */ /* add new hier */ /* scan-build */
while((nh1)&&(nh1->not_final))
{
w32redirect_fprintf(is_trans, GLOBALS->f_vcd_saver_c_1, "$scope module %s $end\n", nh1->name);
nh1=nh1->next;
}
break;
}
nh1=nh1->next;
nh2=nh2->next;
}
}
/*
* output scopedata for a given name if needed, return pointer to name string
*/
char *output_hier(int is_trans, char *name)
{
char *pnt, *pnt2;
char *s;
int len;
struct namehier *nh_head=NULL, *nh_curr=NULL, *nhtemp;
pnt=pnt2=name;
for(;;)
{
if(*pnt2 == '\\')
{
while(*pnt2) pnt2++;
}
else
{
/* while((*pnt2!='.')&&(*pnt2)) pnt2++; ... does not handle dot at end of name */
while(*pnt2)
{
if(*pnt2!='.')
{
pnt2++;
continue;
}
else
{
if(!*(pnt2+1)) /* if dot is at end of name */
{
pnt2++;
continue;
}
else
{
break;
}
}
}
}
s=(char *)calloc_2(1,(len=pnt2-pnt)+1);
memcpy(s, pnt, len);
nhtemp=(struct namehier *)calloc_2(1,sizeof(struct namehier));
nhtemp->name=s;
if(!nh_curr)
{
nh_head=nh_curr=nhtemp;
}
else
{
nh_curr->next=nhtemp;
nh_curr->not_final=1;
nh_curr=nhtemp;
}
if(!*pnt2) break;
pnt=(++pnt2);
}
diff_hier(is_trans, nh_head, GLOBALS->nhold_vcd_saver_c_1);
free_hier();
GLOBALS->nhold_vcd_saver_c_1=nh_head;
{
char *mti_sv_patch = strstr(nh_curr->name, "]["); /* case is: #implicit-var###VarElem:ram_di[0.0] [63:0] */
if(mti_sv_patch)
{
char *t = calloc_2(1, strlen(nh_curr->name) + 1 + 1);
*mti_sv_patch = 0;
sprintf(t, "%s] %s", nh_curr->name, mti_sv_patch+1);
free_2(nh_curr->name);
nh_curr->name = t;
}
if((nh_curr->name[0] == '\\') && (nh_curr->name[1] == '#'))
{
return(nh_curr->name+1);
}
}
return(nh_curr->name);
}
/****************************************/
/*** ***/
/*** output in timing analyzer format ***/
/*** ***/
/****************************************/
static void write_hptr_trace(Trptr t, int *whichptr, TimeType tmin, TimeType tmax)
{
nptr n = t->n.nd;
hptr *ha = n->harray;
int numhist = n->numhist;
int i;
unsigned char h_val = AN_X;
gboolean first;
gboolean invert = ((t->flags&TR_INVERT) != 0);
int edges = 0;
first = TRUE;
for(i=0;itime < tmin)
{
}
else
if(ha[i]->time > tmax)
{
break;
}
else
{
if((ha[i]->time != tmin) || (!first))
{
edges++;
}
first = FALSE;
}
}
first = TRUE;
for(i=0;itime < tmin)
{
h_val = invert ? AN_USTR_INV[ha[i]->v.h_val] : AN_USTR[ha[i]->v.h_val];
}
else
if(ha[i]->time > tmax)
{
break;
}
else
{
if(first)
{
gboolean skip_this = (ha[i]->time == tmin);
if(skip_this)
{
h_val = invert ? AN_USTR_INV[ha[i]->v.h_val] : AN_USTR[ha[i]->v.h_val];
}
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Digital_Signal\n"
" Position: %d\n"
" Height: 24\n"
" Space_Above: 24\n"
" Name: %s\n"
" Start_State: %c\n"
" Number_Edges: %d\n"
" Rise_Time: 0.2\n"
" Fall_Time: 0.2\n",
*whichptr,
t->name,
h_val,
edges);
first = FALSE;
if(skip_this)
{
continue;
}
}
h_val = invert ? AN_USTR_INV[ha[i]->v.h_val] : AN_USTR[ha[i]->v.h_val];
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1, " Edge: "TTFormat".0 %c\n", ha[i]->time, h_val);
}
}
if(first)
{
/* need to emit blank trace */
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Digital_Signal\n"
" Position: %d\n"
" Height: 24\n"
" Space_Above: 24\n"
" Name: %s\n"
" Start_State: %c\n"
" Number_Edges: %d\n"
" Rise_Time: 10.0\n"
" Fall_Time: 10.0\n",
*whichptr,
t->name,
h_val,
edges);
}
(*whichptr)++;
}
/***/
static void format_value_string(char *s)
{
char *s_orig = s;
if((s)&&(*s))
{
gboolean is_all_z = TRUE;
gboolean is_all_x = TRUE;
while(*s)
{
if((*s != 'z') && (*s != 'Z'))
{
is_all_z = FALSE;
}
if((*s != 'x') && (*s != 'X'))
{
is_all_x = FALSE;
}
/* if(isspace(*s)) *s='_'; ...not needed */
s++;
}
if(is_all_z)
{
*(s_orig++) = 'Z';
*(s_orig) = 0;
}
else
if(is_all_x)
{
*(s_orig++) = 'X';
*(s_orig) = 0;
}
}
}
static char *get_hptr_vector_val(Trptr t, hptr h)
{
char *ascii = NULL;
if(h->time < LLDescriptor(0))
{
ascii=strdup_2("X");
}
else
if(h->flags&HIST_REAL)
{
if(!(h->flags&HIST_STRING))
{
#ifdef WAVE_HAS_H_DOUBLE
ascii=convert_ascii_real(t, &h->v.h_double);
#else
ascii=convert_ascii_real(t, (double *)h->v.h_vector);
#endif
}
else
{
ascii=convert_ascii_string((char *)h->v.h_vector);
}
}
else
{
ascii=convert_ascii_vec(t,h->v.h_vector);
}
format_value_string(ascii);
return(ascii);
}
static const char *vcdsav_dtypes[] = { "Bin", "Hex", "Text" };
static int determine_trace_data_type(char *s, int curtype)
{
int i;
if((s) && (curtype != VCDSAV_IS_TEXT))
{
int len = strlen(s);
for(i=0;in.nd;
hptr *ha = n->harray;
int numhist = n->numhist;
int i;
char *h_val = NULL;
gboolean first;
int edges = 0;
int curtype = VCDSAV_IS_BIN;
first = TRUE;
for(i=0;itime < tmin)
{
}
else
if(ha[i]->time > tmax)
{
break;
}
else
{
char *s = get_hptr_vector_val(t, ha[i]);
if(s)
{
curtype = determine_trace_data_type(s, curtype);
free_2(s);
}
if((ha[i]->time != tmin) || (!first))
{
edges++;
}
first = FALSE;
}
}
first = TRUE;
for(i=0;itime < tmin)
{
if(h_val) free_2(h_val);
h_val = get_hptr_vector_val(t, ha[i]);
}
else
if(ha[i]->time > tmax)
{
break;
}
else
{
if(first)
{
gboolean skip_this = (ha[i]->time == tmin);
if(skip_this)
{
if(h_val) free_2(h_val);
h_val = get_hptr_vector_val(t, ha[i]);
}
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Digital_Bus\n"
" Position: %d\n"
" Height: 24\n"
" Space_Above: 24\n"
" Name: %s\n"
" Start_State: %s\n"
" State_Format: %s\n"
" Number_Edges: %d\n"
" Rise_Time: 0.2\n"
" Fall_Time: 0.2\n",
*whichptr,
t->name,
h_val,
vcdsav_dtypes[curtype],
edges);
first = FALSE;
if(skip_this)
{
continue;
}
}
if(h_val) free_2(h_val);
h_val = get_hptr_vector_val(t, ha[i]);
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1, " Edge: "TTFormat".0 %s\n", ha[i]->time, h_val);
}
}
if(first)
{
/* need to emit blank trace */
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Digital_Bus\n"
" Position: %d\n"
" Height: 24\n"
" Space_Above: 24\n"
" Name: %s\n"
" Start_State: %s\n"
" State_Format: %s\n"
" Number_Edges: %d\n"
" Rise_Time: 10.0\n"
" Fall_Time: 10.0\n",
*whichptr,
t->name,
h_val,
vcdsav_dtypes[curtype],
edges);
}
if(h_val) free_2(h_val);
(*whichptr)++;
}
/***/
static char *get_vptr_vector_val(Trptr t, vptr v)
{
char *ascii = NULL;
if(v->time < LLDescriptor(0))
{
ascii=strdup_2("X");
}
else
{
ascii=convert_ascii(t,v);
}
if(!ascii)
{
ascii=strdup_2("X");
}
format_value_string(ascii);
return(ascii);
}
static void write_vptr_trace(Trptr t, int *whichptr, TimeType tmin, TimeType tmax)
{
vptr *ha = t->n.vec->vectors;
int numhist = t->n.vec->numregions;
int i;
char *h_val = NULL;
gboolean first;
int edges = 0;
int curtype = VCDSAV_IS_BIN;
first = TRUE;
for(i=0;itime < tmin)
{
}
else
if(ha[i]->time > tmax)
{
break;
}
else
{
char *s = get_vptr_vector_val(t, ha[i]);
if(s)
{
curtype = determine_trace_data_type(s, curtype);
free_2(s);
}
if((ha[i]->time != tmin) || (!first))
{
edges++;
}
first = FALSE;
}
}
first = TRUE;
for(i=0;itime < tmin)
{
if(h_val) free_2(h_val);
h_val = get_vptr_vector_val(t, ha[i]);
}
else
if(ha[i]->time > tmax)
{
break;
}
else
{
if(first)
{
gboolean skip_this = (ha[i]->time == tmin);
if(skip_this)
{
if(h_val) free_2(h_val);
h_val = get_vptr_vector_val(t, ha[i]);
}
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Digital_Bus\n"
" Position: %d\n"
" Height: 24\n"
" Space_Above: 24\n"
" Name: %s\n"
" Start_State: %s\n"
" State_Format: %s\n"
" Number_Edges: %d\n"
" Rise_Time: 0.2\n"
" Fall_Time: 0.2\n",
*whichptr,
t->name,
h_val,
vcdsav_dtypes[curtype],
edges);
first = FALSE;
if(skip_this)
{
continue;
}
}
if(h_val) free_2(h_val);
h_val = get_vptr_vector_val(t, ha[i]);
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1, " Edge: "TTFormat".0 %s\n", ha[i]->time, h_val);
}
}
if(first)
{
/* need to emit blank trace */
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Digital_Bus\n"
" Position: %d\n"
" Height: 24\n"
" Space_Above: 24\n"
" Name: %s\n"
" Start_State: %s\n"
" State_Format: %s\n"
" Number_Edges: %d\n"
" Rise_Time: 10.0\n"
" Fall_Time: 10.0\n",
*whichptr,
t->name,
h_val,
vcdsav_dtypes[curtype],
edges);
}
if(h_val) free_2(h_val);
(*whichptr)++;
}
static void write_tim_tracedata(Trptr t, int *whichptr, TimeType tmin, TimeType tmax)
{
if(!(t->flags&(TR_EXCLUDE|TR_BLANK|TR_ANALOG_BLANK_STRETCH)))
{
GLOBALS->shift_timebase=t->shift;
if(!t->vector)
{
if(!t->n.nd->extvals)
{
write_hptr_trace(t, whichptr, tmin, tmax); /* single-bit */
}
else
{
write_hptr_trace_vector(t, whichptr, tmin, tmax); /* multi-bit */
}
}
else
{
write_vptr_trace(t, whichptr, tmin, tmax); /* synthesized/concatenated vector */
}
}
}
int do_timfile_save(const char *fname)
{
const char *time_prefix=WAVE_SI_UNITS;
const double negpow[] = { 1.0, 1.0e-3, 1.0e-6, 1.0e-9, 1.0e-12, 1.0e-15, 1.0e-18, 1.0e-21 };
char *pnt;
int offset;
Trptr t = GLOBALS->traces.first;
int i = 1; /* trace index in the .tim file */
TimeType tmin, tmax;
errno = 0;
if((GLOBALS->tims.marker > LLDescriptor(0)) && (GLOBALS->tims.baseline > LLDescriptor(0)))
{
if(GLOBALS->tims.marker < GLOBALS->tims.baseline)
{
tmin = GLOBALS->tims.marker;
tmax = GLOBALS->tims.baseline;
}
else
{
tmax = GLOBALS->tims.marker;
tmin = GLOBALS->tims.baseline;
}
}
else
{
tmin = GLOBALS->min_time;
tmax = GLOBALS->max_time;
}
GLOBALS->f_vcd_saver_c_1 = fopen(fname, "wb");
if(!GLOBALS->f_vcd_saver_c_1)
{
return(VCDSAV_FILE_ERROR);
}
pnt=strchr(time_prefix, (int)GLOBALS->time_dimension);
if(pnt) { offset=pnt-time_prefix; } else offset=0;
w32redirect_fprintf(0, GLOBALS->f_vcd_saver_c_1,
"Timing Analyzer Settings\n"
" Time_Scale: %E\n"
" Time_Per_Division: %E\n"
" NumberDivisions: 10\n"
" Start_Time: "TTFormat".0\n"
" End_Time: "TTFormat".0\n",
negpow[offset],
(tmax-tmin) / 10.0,
tmin,
tmax
);
while(t)
{
write_tim_tracedata(t, &i, tmin, tmax);
t = GiveNextTrace(t);
}
fclose(GLOBALS->f_vcd_saver_c_1);
GLOBALS->f_vcd_saver_c_1 = NULL;
return(errno ? VCDSAV_FILE_ERROR : VCDSAV_OK);
}
gtkwave-gtk3-3.3.125/src/hiersearch.c 0000664 0001750 0001750 00000077027 15047725112 016602 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2011.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
/* AIX may need this for alloca to work */
#if defined _AIX
#pragma alloca
#endif
#include "globals.h"
#include
#include
#include "gtk23compat.h"
#include "analyzer.h"
#include "symbol.h"
#include "lx2.h"
#include "vcd.h"
#include "busy.h"
#include "debug.h"
enum { NAME_COLUMN, PTR_COLUMN, N_COLUMNS };
int hier_searchbox_is_active(void)
{
return(GLOBALS->is_active_hiersearch_c_1);
}
void refresh_hier_tree(struct tree *t)
{
struct tree *t2;
int len;
static char *dotdot="..";
struct treechain *tc;
GtkTreeIter iter;
gtk_list_store_clear (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch));
GLOBALS->num_rows_hiersearch_c_1=0;
if(!GLOBALS->hier_grouping)
{
char *tmp, *tmp2, *tmp3;
t2=t;
while(t2)
{
{
if(t2->child)
{
tmp=wave_alloca(strlen(t2->name)+5);
strcpy(tmp, "(+) ");
strcpy(tmp+4, t2->name);
}
else
if(t2->t_which >= 0)
{
if(GLOBALS->facs[t2->t_which]->vec_root)
{
if(GLOBALS->autocoalesce)
{
if(GLOBALS->facs[t2->t_which]->vec_root!=GLOBALS->facs[t2->t_which])
{
t2=t2->next;
continue;
}
tmp2=makename_chain(GLOBALS->facs[t2->t_which]);
tmp3=leastsig_hiername(tmp2);
tmp=wave_alloca(strlen(tmp3)+4);
strcpy(tmp, "[] ");
strcpy(tmp+3, tmp3);
free_2(tmp2);
}
else
{
tmp=wave_alloca(strlen(t2->name)+4);
strcpy(tmp, "[] ");
strcpy(tmp+3, t2->name);
}
}
else
{
tmp=t2->name;
}
}
else
{
/* tmp=t2->name; */
goto skip_node; /* GHW */
}
gtk_list_store_prepend (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter);
gtk_list_store_set (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter,
NAME_COLUMN, tmp,
PTR_COLUMN, t2,
-1);
}
GLOBALS->num_rows_hiersearch_c_1++;
skip_node: t2=t2->next;
}
}
else
{
char *tmp, *tmp2, *tmp3;
t2=t;
while(t2)
{
if(!t2->child)
{
if(t2->t_which >= 0)
{
if(GLOBALS->facs[t2->t_which]->vec_root)
{
if(GLOBALS->autocoalesce)
{
if(GLOBALS->facs[t2->t_which]->vec_root!=GLOBALS->facs[t2->t_which])
{
t2=t2->next;
continue;
}
tmp2=makename_chain(GLOBALS->facs[t2->t_which]);
tmp3=leastsig_hiername(tmp2);
tmp=wave_alloca(strlen(tmp3)+4);
strcpy(tmp, "[] ");
strcpy(tmp+3, tmp3);
free_2(tmp2);
}
else
{
tmp=wave_alloca(strlen(t2->name)+4);
strcpy(tmp, "[] ");
strcpy(tmp+3, t2->name);
}
}
else
{
tmp=t2->name;
}
}
else
{
/* tmp=t2->name; */
goto skip_node_2; /* GHW */
}
gtk_list_store_prepend (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter);
gtk_list_store_set (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter,
NAME_COLUMN, tmp,
PTR_COLUMN, t2,
-1);
GLOBALS->num_rows_hiersearch_c_1++;
}
skip_node_2: t2=t2->next;
}
t2=t;
while(t2)
{
if(t2->child)
{
tmp=wave_alloca(strlen(t2->name)+5);
strcpy(tmp, "(+) ");
strcpy(tmp+4, t2->name);
gtk_list_store_prepend (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter);
gtk_list_store_set (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter,
NAME_COLUMN, tmp,
PTR_COLUMN, t2,
-1);
GLOBALS->num_rows_hiersearch_c_1++;
}
t2=t2->next;
}
}
if(t!=GLOBALS->treeroot)
{
gtk_list_store_prepend (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter);
gtk_list_store_set (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch), &iter,
NAME_COLUMN, dotdot,
PTR_COLUMN, NULL,
-1);
GLOBALS->num_rows_hiersearch_c_1++;
}
if((tc=GLOBALS->treechain_hiersearch_c_1))
{
char *buf;
char hier_str[2];
len=1;
while(tc)
{
len+=strlen(tc->label->name);
if(tc->next) len++;
tc=tc->next;
}
buf=calloc_2(1,len);
hier_str[0]=GLOBALS->hier_delimeter;
hier_str[1]=0;
tc=GLOBALS->treechain_hiersearch_c_1;
while(tc)
{
strcat(buf,tc->label->name);
if(tc->next) strcat(buf,hier_str);
tc=tc->next;
}
gtk_entry_set_text(GTK_ENTRY(GLOBALS->entry_main_hiersearch_c_1), buf);
free_2(buf);
}
else
{
gtk_entry_set_text(GTK_ENTRY(GLOBALS->entry_main_hiersearch_c_1),"");
}
}
static void enter_callback_e(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
G_CONST_RETURN gchar *entry_text;
int len;
entry_text = gtk_entry_get_text(GTK_ENTRY(GLOBALS->entry_hiersearch_c_2));
entry_text = entry_text ? entry_text : "";
DEBUG(printf("Entry contents: %s\n", entry_text));
if(!(len=strlen(entry_text))) GLOBALS->entrybox_text_local_hiersearch_c_1=NULL;
else strcpy((GLOBALS->entrybox_text_local_hiersearch_c_1=(char *)malloc_2(len+1)),entry_text);
wave_gtk_grab_remove(GLOBALS->window1_hiersearch_c_1);
gtk_widget_destroy(GLOBALS->window1_hiersearch_c_1);
GLOBALS->window1_hiersearch_c_1 = NULL;
GLOBALS->cleanup_e_hiersearch_c_1();
}
static void destroy_callback_e(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
DEBUG(printf("Entry Cancel\n"));
GLOBALS->entrybox_text_local_hiersearch_c_1=NULL;
wave_gtk_grab_remove(GLOBALS->window1_hiersearch_c_1);
gtk_widget_destroy(GLOBALS->window1_hiersearch_c_1);
GLOBALS->window1_hiersearch_c_1 = NULL;
}
static void entrybox_local(char *title, int width, char *default_text, int maxch, GCallback func)
{
GtkWidget *vbox, *hbox;
GtkWidget *button1, *button2;
GLOBALS->cleanup_e_hiersearch_c_1=func;
/* fix problem where ungrab doesn't occur if button pressed + simultaneous accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1) { XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME); }
/* create a new modal window */
GLOBALS->window1_hiersearch_c_1 = gtk_window_new(GLOBALS->disable_window_manager ? GTK_WINDOW_POPUP : GTK_WINDOW_TOPLEVEL);
install_focus_cb(GLOBALS->window1_hiersearch_c_1, ((char *)&GLOBALS->window1_hiersearch_c_1) - ((char *)GLOBALS));
gtk_widget_set_size_request( GTK_WIDGET (GLOBALS->window1_hiersearch_c_1), width, 60);
gtk_window_set_title(GTK_WINDOW (GLOBALS->window1_hiersearch_c_1), title);
gtkwave_signal_connect(XXX_GTK_OBJECT (GLOBALS->window1_hiersearch_c_1), "delete_event",(GCallback) destroy_callback_e, NULL);
vbox = XXX_gtk_vbox_new (FALSE, 0);
gtk_container_add (GTK_CONTAINER (GLOBALS->window1_hiersearch_c_1), vbox);
gtk_widget_show (vbox);
GLOBALS->entry_hiersearch_c_2 = X_gtk_entry_new_with_max_length (maxch);
gtkwave_signal_connect(XXX_GTK_OBJECT(GLOBALS->entry_hiersearch_c_2), "activate",G_CALLBACK(enter_callback_e),GLOBALS->entry_hiersearch_c_2);
gtk_entry_set_text (GTK_ENTRY (GLOBALS->entry_hiersearch_c_2), default_text);
gtk_editable_select_region (GTK_EDITABLE (GLOBALS->entry_hiersearch_c_2),0, gtk_entry_get_text_length(GTK_ENTRY(GLOBALS->entry_hiersearch_c_2)));
gtk_box_pack_start (GTK_BOX (vbox), GLOBALS->entry_hiersearch_c_2, TRUE, TRUE, 0);
gtk_widget_show (GLOBALS->entry_hiersearch_c_2);
hbox = XXX_gtk_hbox_new (FALSE, 1);
gtk_box_pack_start (GTK_BOX (vbox), hbox, TRUE, TRUE, 0);
gtk_widget_show (hbox);
button1 = gtk_button_new_with_label ("OK");
gtk_widget_set_size_request(button1, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button1), "clicked", G_CALLBACK(enter_callback_e), NULL);
gtk_widget_show (button1);
gtk_container_add (GTK_CONTAINER (hbox), button1);
gtk_widget_set_can_default (button1, TRUE);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button1), "realize", (GCallback) gtk_widget_grab_default, XXX_GTK_OBJECT (button1));
button2 = gtk_button_new_with_label ("Cancel");
gtk_widget_set_size_request(button2, 100, -1);
gtkwave_signal_connect(XXX_GTK_OBJECT (button2), "clicked", G_CALLBACK(destroy_callback_e), NULL);
gtk_widget_set_can_default (button2, TRUE);
gtk_widget_show (button2);
gtk_container_add (GTK_CONTAINER (hbox), button2);
gtk_widget_show(GLOBALS->window1_hiersearch_c_1);
wave_gtk_grab_add(GLOBALS->window1_hiersearch_c_1);
}
/***************************************************************************/
void recurse_fetch_high_low(struct tree *t)
{
top:
if(t->t_which >= 0)
{
if(t->t_which > GLOBALS->fetchhigh) GLOBALS->fetchhigh = t->t_which;
if(GLOBALS->fetchlow < 0)
{
GLOBALS->fetchlow = t->t_which;
}
else
if(t->t_which < GLOBALS->fetchlow)
{
GLOBALS->fetchlow = t->t_which;
}
}
if(t->child)
{
recurse_fetch_high_low(t->child);
}
if(t->next) { t = t->next; goto top; }
}
/* Get the highest signal from T. */
struct tree *fetchhigh(struct tree *t)
{
while(t->child) t=t->child;
return(t);
}
/* Get the lowest signal from T. */
struct tree *fetchlow(struct tree *t)
{
if(t->child)
{
t=t->child;
for(;;)
{
while(t->next) t=t->next;
if(t->child) t=t->child; else break;
}
}
return(t);
}
static void fetchvex2(struct tree *t, char direction, char level)
{
while(t)
{
if(t->child)
{
if(t->child->child)
{
fetchvex2(t->child, direction, 1);
}
else
{
add_vector_range(NULL, fetchlow(t)->t_which,
fetchhigh(t)->t_which, direction);
}
}
if(level) { t=t->next; } else { break; }
}
}
void fetchvex(struct tree *t, char direction)
{
if(t)
{
if(t->child)
{
fetchvex2(t, direction, 0);
}
else
{
add_vector_range(NULL, fetchlow(t)->t_which,
fetchhigh(t)->t_which, direction);
}
}
}
static void ok_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)nothing;
int i;
if((!GLOBALS->h_selectedtree_hiersearch_c_1)||(!GLOBALS->h_selectedtree_hiersearch_c_1->child)) return;
set_window_busy(widget);
GLOBALS->fetchlow = GLOBALS->fetchhigh = -1;
recurse_fetch_high_low(GLOBALS->h_selectedtree_hiersearch_c_1->child);
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
struct symbol *s;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
if(s->vec_root)
{
set_s_selected(s->vec_root, GLOBALS->autocoalesce);
}
}
/* LX2 */
if(GLOBALS->is_lx2)
{
int pre_import = 0;
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
struct symbol *s, *t;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
t=s->vec_root;
if((t)&&(GLOBALS->autocoalesce))
{
if(get_s_selected(t))
{
while(t)
{
if(t->n->mv.mvlfac)
{
lx2_set_fac_process_mask(t->n);
pre_import++;
}
t=t->vec_chain;
}
}
}
else
{
if(s->n->mv.mvlfac)
{
lx2_set_fac_process_mask(s->n);
pre_import++;
}
}
}
if(pre_import)
{
lx2_import_masked();
}
}
/* LX2 */
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
int len;
struct symbol *s, *t;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
t=s->vec_root;
if((t)&&(GLOBALS->autocoalesce))
{
if(get_s_selected(t))
{
set_s_selected(t, 0);
len=0;
while(t)
{
len++;
t=t->vec_chain;
}
if(len) add_vector_chain(s->vec_root, len);
}
}
else
{
AddNodeUnroll(s->n, NULL);
}
}
set_window_idle(widget);
GLOBALS->traces.scroll_top = GLOBALS->traces.scroll_bottom = GLOBALS->traces.last;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
static void insert_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)nothing;
Traces tcache;
int i;
if((!GLOBALS->h_selectedtree_hiersearch_c_1)||(!GLOBALS->h_selectedtree_hiersearch_c_1->child)) return;
memcpy(&tcache,&GLOBALS->traces,sizeof(Traces));
GLOBALS->traces.total=0;
GLOBALS->traces.first=GLOBALS->traces.last=NULL;
set_window_busy(widget);
GLOBALS->fetchlow = GLOBALS->fetchhigh = -1;
recurse_fetch_high_low(GLOBALS->h_selectedtree_hiersearch_c_1->child);
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
struct symbol *s;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
if(s->vec_root)
{
set_s_selected(s->vec_root, GLOBALS->autocoalesce);
}
}
/* LX2 */
if(GLOBALS->is_lx2)
{
int pre_import = 0;
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
struct symbol *s, *t;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
t=s->vec_root;
if((t)&&(GLOBALS->autocoalesce))
{
if(get_s_selected(t))
{
while(t)
{
if(t->n->mv.mvlfac)
{
lx2_set_fac_process_mask(t->n);
pre_import++;
}
t=t->vec_chain;
}
}
}
else
{
if(s->n->mv.mvlfac)
{
lx2_set_fac_process_mask(s->n);
pre_import++;
}
}
}
if(pre_import)
{
lx2_import_masked();
}
}
/* LX2 */
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
int len;
struct symbol *s, *t;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
t=s->vec_root;
if((t)&&(GLOBALS->autocoalesce))
{
if(get_s_selected(t))
{
set_s_selected(t, 0);
len=0;
while(t)
{
len++;
t=t->vec_chain;
}
if(len) add_vector_chain(s->vec_root, len);
}
}
else
{
AddNodeUnroll(s->n, NULL);
}
}
set_window_idle(widget);
GLOBALS->traces.buffercount=GLOBALS->traces.total;
GLOBALS->traces.buffer=GLOBALS->traces.first;
GLOBALS->traces.bufferlast=GLOBALS->traces.last;
GLOBALS->traces.first=tcache.first;
GLOBALS->traces.last=tcache.last;
GLOBALS->traces.total=tcache.total;
PasteBuffer();
GLOBALS->traces.buffercount=tcache.buffercount;
GLOBALS->traces.buffer=tcache.buffer;
GLOBALS->traces.bufferlast=tcache.bufferlast;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
static void replace_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)nothing;
Traces tcache;
int i;
Trptr tfirst=NULL, tlast=NULL;
if((!GLOBALS->h_selectedtree_hiersearch_c_1)||(!GLOBALS->h_selectedtree_hiersearch_c_1->child)) return;
memcpy(&tcache,&GLOBALS->traces,sizeof(Traces));
GLOBALS->traces.total=0;
GLOBALS->traces.first=GLOBALS->traces.last=NULL;
set_window_busy(widget);
GLOBALS->fetchlow = GLOBALS->fetchhigh = -1;
recurse_fetch_high_low(GLOBALS->h_selectedtree_hiersearch_c_1->child);
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
struct symbol *s;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
if(s->vec_root)
{
set_s_selected(s->vec_root, GLOBALS->autocoalesce);
}
}
/* LX2 */
if(GLOBALS->is_lx2)
{
int pre_import = 0;
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
struct symbol *s, *t;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
t=s->vec_root;
if((t)&&(GLOBALS->autocoalesce))
{
if(get_s_selected(t))
{
while(t)
{
if(t->n->mv.mvlfac)
{
lx2_set_fac_process_mask(t->n);
pre_import++;
}
t=t->vec_chain;
}
}
}
else
{
if(s->n->mv.mvlfac)
{
lx2_set_fac_process_mask(s->n);
pre_import++;
}
}
}
if(pre_import)
{
lx2_import_masked();
}
}
/* LX2 */
for(i=GLOBALS->fetchlow;i<=GLOBALS->fetchhigh;i++)
{
int len;
struct symbol *s, *t;
if(i<0) break; /* GHW */
s=GLOBALS->facs[i];
t=s->vec_root;
if((t)&&(GLOBALS->autocoalesce))
{
if(get_s_selected(t))
{
set_s_selected(t, 0);
len=0;
while(t)
{
len++;
t=t->vec_chain;
}
if(len) add_vector_chain(s->vec_root, len);
}
}
else
{
AddNodeUnroll(s->n, NULL);
}
}
set_window_idle(widget);
tfirst=GLOBALS->traces.first; tlast=GLOBALS->traces.last; /* cache for highlighting */
GLOBALS->traces.buffercount=GLOBALS->traces.total;
GLOBALS->traces.buffer=GLOBALS->traces.first;
GLOBALS->traces.bufferlast=GLOBALS->traces.last;
GLOBALS->traces.first=tcache.first;
GLOBALS->traces.last=tcache.last;
GLOBALS->traces.total=tcache.total;
{
Trptr t = GLOBALS->traces.first;
Trptr *tp = NULL;
int numhigh = 0;
int it;
while(t) { if(t->flags & TR_HIGHLIGHT) { numhigh++; } t = t->t_next; }
if(numhigh)
{
tp = calloc_2(numhigh, sizeof(Trptr));
t = GLOBALS->traces.first;
it = 0;
while(t) { if(t->flags & TR_HIGHLIGHT) { tp[it++] = t; } t = t->t_next; }
}
PasteBuffer();
GLOBALS->traces.buffercount=tcache.buffercount;
GLOBALS->traces.buffer=tcache.buffer;
GLOBALS->traces.bufferlast=tcache.bufferlast;
for(i=0;iflags |= TR_HIGHLIGHT;
}
t = tfirst;
while(t)
{
t->flags &= ~TR_HIGHLIGHT;
if(t==tlast) break;
t=t->t_next;
}
CutBuffer();
while(tfirst)
{
tfirst->flags |= TR_HIGHLIGHT;
if(tfirst==tlast) break;
tfirst=tfirst->t_next;
}
if(tp)
{
free_2(tp);
}
}
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
static void
bundle_cleanup(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
if(GLOBALS->entrybox_text_local_hiersearch_c_1)
{
char *efix;
if(!strlen(GLOBALS->entrybox_text_local_hiersearch_c_1))
{
DEBUG(printf("Bundle name is not specified--recursing into hierarchy.\n"));
fetchvex(GLOBALS->h_selectedtree_hiersearch_c_1, GLOBALS->bundle_direction_hiersearch_c_1);
}
else
{
efix=GLOBALS->entrybox_text_local_hiersearch_c_1;
while(*efix)
{
if(*efix==' ')
{
*efix='_';
}
efix++;
}
DEBUG(printf("Bundle name is: %s\n",GLOBALS->entrybox_text_local_hiersearch_c_1));
add_vector_range(GLOBALS->entrybox_text_local_hiersearch_c_1,
fetchlow(GLOBALS->h_selectedtree_hiersearch_c_1)->t_which,
fetchhigh(GLOBALS->h_selectedtree_hiersearch_c_1)->t_which,
GLOBALS->bundle_direction_hiersearch_c_1);
}
free_2(GLOBALS->entrybox_text_local_hiersearch_c_1);
}
else
{
DEBUG(printf("Bundle name is not specified--recursing into hierarchy.\n"));
fetchvex(GLOBALS->h_selectedtree_hiersearch_c_1, GLOBALS->bundle_direction_hiersearch_c_1);
}
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
static void
bundle_callback_generic(void)
{
if(!GLOBALS->autoname_bundles)
{
entrybox_local("Enter Bundle Name",300,"",128,G_CALLBACK(bundle_cleanup));
}
else
{
GLOBALS->entrybox_text_local_hiersearch_c_1=NULL;
bundle_cleanup(NULL, NULL);
}
}
static void
bundle_callback_up(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
GLOBALS->bundle_direction_hiersearch_c_1=0;
bundle_callback_generic();
}
static void
bundle_callback_down(GtkWidget *widget, gpointer data)
{
(void)widget;
(void)data;
GLOBALS->bundle_direction_hiersearch_c_1=1;
bundle_callback_generic();
}
/****************************************************************************/
static gboolean select_row_callback(struct tree *t)
{
int rt = TRUE;
if(t)
{
GLOBALS->h_selectedtree_hiersearch_c_1=t;
DEBUG(printf("Selected: %s\n",t->name));
if(t->child)
{
struct treechain *tc, *tc2;
tc=GLOBALS->treechain_hiersearch_c_1;
if(tc)
{
while(tc->next) tc=tc->next;
tc2=calloc_2(1,sizeof(struct treechain));
tc2->label=t;
tc2->tree=GLOBALS->current_tree_hiersearch_c_1;
tc->next=tc2;
}
else
{
GLOBALS->treechain_hiersearch_c_1=calloc_2(1,sizeof(struct treechain));
GLOBALS->treechain_hiersearch_c_1->tree=GLOBALS->current_tree_hiersearch_c_1;
GLOBALS->treechain_hiersearch_c_1->label=t;
}
GLOBALS->current_tree_hiersearch_c_1=t->child;
refresh_hier_tree(GLOBALS->current_tree_hiersearch_c_1);
rt = FALSE;
}
}
else
{
struct treechain *tc;
GLOBALS->h_selectedtree_hiersearch_c_1=NULL;
tc=GLOBALS->treechain_hiersearch_c_1;
if(tc)
{
for(;;)
{
if(tc->next)
{
if(tc->next->next)
{
tc=tc->next;
continue;
}
else
{
GLOBALS->current_tree_hiersearch_c_1=tc->next->tree;
free_2(tc->next);
tc->next=NULL;
break;
}
}
else
{
free_2(tc);
GLOBALS->treechain_hiersearch_c_1=NULL;
GLOBALS->current_tree_hiersearch_c_1=GLOBALS->treeroot;
break;
}
}
refresh_hier_tree(GLOBALS->current_tree_hiersearch_c_1);
rt = FALSE;
}
}
return(rt);
}
static gboolean unselect_row_callback(struct tree *t)
{
GLOBALS->h_selectedtree_hiersearch_c_1=NULL;
if(t)
{
DEBUG(printf("Unselected: %s\n",t->name));
}
else
{
/* just ignore */
}
return(TRUE);
}
static gboolean
XXX_view_selection_func (GtkTreeSelection *selection,
GtkTreeModel *model,
GtkTreePath *path,
gboolean path_currently_selected,
gpointer userdata)
{
(void) selection;
(void) userdata;
GtkTreeIter iter;
char *nam = NULL;
struct tree *t = NULL;
gboolean rt = TRUE;
if(path)
{
if (gtk_tree_model_get_iter(model, &iter, path)) /* null return should not happen */
{
gtk_tree_model_get(model, &iter, NAME_COLUMN, &nam, PTR_COLUMN, &t, -1);
if(!path_currently_selected)
{
#ifdef WAVE_GTK3_HIERSEARCH_DEBOUNCE
/* updating tree can sometimes retrigger XXX_view_selection_func() */
if(!GLOBALS->h_debounce)
{
GLOBALS->h_debounce = 1;
rt = select_row_callback(t);
GLOBALS->h_debounce = 0;
}
#else
rt = select_row_callback(t);
#endif
}
else
{
rt = unselect_row_callback(t);
}
}
}
return(rt); /* TRUE if tree updated causes crash */
}
static void destroy_callback(GtkWidget *widget, GtkWidget *nothing)
{
(void)widget;
(void)nothing;
GLOBALS->is_active_hiersearch_c_1=0;
gtk_widget_destroy(GLOBALS->window_hiersearch_c_3);
GLOBALS->window_hiersearch_c_3 = NULL;
}
/*
* mainline..
*/
void hier_searchbox(char *title, GCallback func)
{
GtkWidget *scrolled_win;
GtkWidget *vbox1, *hbox;
GtkWidget *button1, *button2, *button3, *button3a, *button4, *button5;
GtkWidget *label;
gchar *titles[]={"Children"};
GtkWidget *frame1, *frame2, *frameh;
GtkWidget *table;
/* fix problem where ungrab doesn't occur if button pressed + simultaneous accelerator key occurs */
if(GLOBALS->in_button_press_wavewindow_c_1) { XXX_gdk_pointer_ungrab(GDK_CURRENT_TIME); }
if(GLOBALS->is_active_hiersearch_c_1)
{
gdk_window_raise(gtk_widget_get_window(GLOBALS->window_hiersearch_c_3));
return;
}
GLOBALS->is_active_hiersearch_c_1=1;
GLOBALS->cleanup_hiersearch_c_3=func;
GLOBALS->num_rows_hiersearch_c_1=GLOBALS->selected_rows_hiersearch_c_1=0;
/* create a new modal window */
GLOBALS->window_hiersearch_c_3 = gtk_window_new(GLOBALS->disable_window_manager ? GTK_WINDOW_POPUP : GTK_WINDOW_TOPLEVEL);
install_focus_cb(GLOBALS->window_hiersearch_c_3, ((char *)&GLOBALS->window_hiersearch_c_3) - ((char *)GLOBALS));
gtk_window_set_title(GTK_WINDOW (GLOBALS->window_hiersearch_c_3), title);
gtkwave_signal_connect(XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3), "delete_event",(GCallback) destroy_callback, NULL);
table = XXX_gtk_table_new (256, 1, FALSE);
gtk_widget_show (table);
vbox1 = XXX_gtk_vbox_new (FALSE, 0);
gtk_container_set_border_width (GTK_CONTAINER (vbox1), 3);
gtk_widget_show (vbox1);
frame1 = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frame1), 3);
gtk_widget_show(frame1);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frame1, 0, 1, 0, 1,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
label=gtk_label_new("Signal Hierarchy");
gtk_widget_show(label);
gtk_box_pack_start (GTK_BOX (vbox1), label, TRUE, TRUE, 0);
GLOBALS->entry_main_hiersearch_c_1 = gtk_entry_new();
gtk_editable_set_editable(GTK_EDITABLE(GLOBALS->entry_main_hiersearch_c_1), FALSE);
gtk_widget_show (GLOBALS->entry_main_hiersearch_c_1);
gtk_tooltips_set_tip_2(GLOBALS->entry_main_hiersearch_c_1,
"The hierarchy is built here by clicking on the appropriate "
"items below in the scrollable window. Click on \"..\" to "
"go up a level.");
gtk_box_pack_start (GTK_BOX (vbox1), GLOBALS->entry_main_hiersearch_c_1, TRUE, TRUE, 0);
gtk_container_add (GTK_CONTAINER (frame1), vbox1);
frame2 = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frame2), 3);
gtk_widget_show(frame2);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frame2, 0, 1, 1, 254,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
GLOBALS->sig_store_hiersearch = gtk_list_store_new (N_COLUMNS, G_TYPE_STRING, G_TYPE_POINTER);
GtkWidget *sig_view = gtk_tree_view_new_with_model (GTK_TREE_MODEL (GLOBALS->sig_store_hiersearch));
/* The view now holds a reference. We can get rid of our own reference */
g_object_unref (G_OBJECT (GLOBALS->sig_store_hiersearch));
GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
GtkTreeViewColumn *column = gtk_tree_view_column_new_with_attributes (titles[0], renderer, "text", NAME_COLUMN, NULL);
gtk_tree_view_append_column (GTK_TREE_VIEW (sig_view), column);
/* Setup the selection handler */
GLOBALS->sig_selection_hiersearch = gtk_tree_view_get_selection (GTK_TREE_VIEW (sig_view));
gtk_tree_selection_set_mode (GLOBALS->sig_selection_hiersearch, GTK_SELECTION_SINGLE);
gtk_tree_selection_set_select_function (GLOBALS->sig_selection_hiersearch, XXX_view_selection_func, NULL, NULL);
gtk_list_store_clear (GTK_LIST_STORE(GLOBALS->sig_store_hiersearch));
gtk_widget_show (sig_view);
scrolled_win = gtk_scrolled_window_new (NULL, NULL);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_win),
GTK_POLICY_AUTOMATIC,
GTK_POLICY_AUTOMATIC);
gtk_widget_set_size_request( GTK_WIDGET (scrolled_win), -1, 300);
gtk_widget_show(scrolled_win);
/* gtk_scrolled_window_add_with_viewport doesn't seen to work right here.. */
gtk_container_add (GTK_CONTAINER (scrolled_win), sig_view);
gtk_container_add (GTK_CONTAINER (frame2), scrolled_win);
frameh = gtk_frame_new (NULL);
gtk_container_set_border_width (GTK_CONTAINER (frameh), 3);
gtk_widget_show(frameh);
XXX_gtk_table_attach (XXX_GTK_TABLE (table), frameh, 0, 1, 255, 256,
GTK_FILL | GTK_EXPAND,
GTK_FILL | GTK_EXPAND | GTK_SHRINK, 1, 1);
hbox = XXX_gtk_hbox_new (FALSE, 1);
gtk_widget_show (hbox);
button1 = gtk_button_new_with_label ("Append");
gtk_container_set_border_width (GTK_CONTAINER (button1), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button1), "clicked",G_CALLBACK(ok_callback),XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3));
gtk_widget_show (button1);
gtk_tooltips_set_tip_2(button1,
"Add selected signals to end of the display on the main window.");
gtk_box_pack_start (GTK_BOX (hbox), button1, TRUE, FALSE, 0);
button2 = gtk_button_new_with_label (" Insert ");
gtk_container_set_border_width (GTK_CONTAINER (button2), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button2), "clicked",G_CALLBACK(insert_callback),XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3));
gtk_widget_show (button2);
gtk_tooltips_set_tip_2(button2,
"Add children after last highlighted signal on the main window.");
gtk_box_pack_start (GTK_BOX (hbox), button2, TRUE, FALSE, 0);
if(GLOBALS->vcd_explicit_zero_subscripts>=0)
{
button3 = gtk_button_new_with_label (" Bundle Up ");
gtk_container_set_border_width (GTK_CONTAINER (button3), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button3), "clicked",G_CALLBACK(bundle_callback_up),XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3));
gtk_widget_show (button3);
gtk_tooltips_set_tip_2(button3,
"Bundle children into a single bit vector with the topmost signal as the LSB and the lowest as the MSB.");
gtk_box_pack_start (GTK_BOX (hbox), button3, TRUE, FALSE, 0);
button3a = gtk_button_new_with_label (" Bundle Down ");
gtk_container_set_border_width (GTK_CONTAINER (button3a), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button3a), "clicked",G_CALLBACK(bundle_callback_down),XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3));
gtk_widget_show (button3a);
gtk_tooltips_set_tip_2(button3a,
"Bundle children into a single bit vector with the topmost signal as the MSB and the lowest as the LSB.");
gtk_box_pack_start (GTK_BOX (hbox), button3a, TRUE, FALSE, 0);
}
button4 = gtk_button_new_with_label (" Replace ");
gtk_container_set_border_width (GTK_CONTAINER (button4), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button4), "clicked",G_CALLBACK(replace_callback),XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3));
gtk_widget_show (button4);
gtk_tooltips_set_tip_2(button4,
"Replace highlighted signals on the main window with children shown above.");
gtk_box_pack_start (GTK_BOX (hbox), button4, TRUE, FALSE, 0);
button5 = gtk_button_new_with_label (" Exit ");
gtk_container_set_border_width (GTK_CONTAINER (button5), 3);
gtkwave_signal_connect_object (XXX_GTK_OBJECT (button5), "clicked",G_CALLBACK(destroy_callback),XXX_GTK_OBJECT (GLOBALS->window_hiersearch_c_3));
gtk_tooltips_set_tip_2(button5,
"Do nothing and return to the main window.");
gtk_widget_show (button5);
gtk_box_pack_start (GTK_BOX (hbox), button5, TRUE, FALSE, 0);
gtk_container_add (GTK_CONTAINER (frameh), hbox);
gtk_container_add (GTK_CONTAINER (GLOBALS->window_hiersearch_c_3), table);
gtk_widget_show(GLOBALS->window_hiersearch_c_3);
if(!GLOBALS->current_tree_hiersearch_c_1)
{
GLOBALS->current_tree_hiersearch_c_1=GLOBALS->treeroot;
GLOBALS->h_selectedtree_hiersearch_c_1=NULL;
}
refresh_hier_tree(GLOBALS->current_tree_hiersearch_c_1);
}
gtkwave-gtk3-3.3.125/src/vcd_saver.h 0000664 0001750 0001750 00000001617 15047725112 016436 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2005.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include "globals.h"
#ifndef VCD_SAVER_H
#define VCD_SAVER_H
#include "vcd.h"
#include "strace.h"
enum vcd_export_typ { WAVE_EXPORT_VCD, WAVE_EXPORT_LXT, WAVE_EXPORT_TIM, WAVE_EXPORT_TRANS };
enum vcd_saver_rc { VCDSAV_OK, VCDSAV_EMPTY, VCDSAV_FILE_ERROR };
enum vcd_saver_tr_datatype { VCDSAV_IS_BIN, VCDSAV_IS_HEX, VCDSAV_IS_TEXT };
int save_nodes_to_export(const char *fname, int export_typ);
int do_timfile_save(const char *fname);
int save_nodes_to_trans(FILE *trans, Trptr t);
/* from helpers/scopenav.c */
extern void free_hier(void);
extern char *output_hier(int is_trans, char *name);
#endif
gtkwave-gtk3-3.3.125/src/hiersearch.h 0000664 0001750 0001750 00000001227 15047725112 016574 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010-2017
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_HIERSEARCH_H
#define WAVE_HIERSEARCH_H
void hier_searchbox(char *title, GCallback func);
void refresh_hier_tree(struct tree *t);
int hier_searchbox_is_active(void);
void recurse_fetch_high_low(struct tree *t);
struct tree *fetchhigh(struct tree *t);
struct tree *fetchlow(struct tree *t);
void fetchvex(struct tree *t, char direction);
#endif
gtkwave-gtk3-3.3.125/src/vcd_partial.c 0000664 0001750 0001750 00000234504 15047725112 016750 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 1999-2017.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
/*
* vcd.c 23jan99ajb
* evcd parts 29jun99ajb
* profiler optimizations 15jul99ajb
* more profiler optimizations 25jan00ajb
* finsim parameter fix 26jan00ajb
* vector rechaining code 03apr00ajb
* multiple var section code 06apr00ajb
* fix for duplicate nets 19dec00ajb
* support for alt hier seps 23dec00ajb
* fix for rcs identifiers 16jan01ajb
* coredump fix for bad VCD 04apr02ajb
* min/maxid speedup 27feb03ajb
* bugfix on min/maxid speedup 06jul03ajb
* escaped hier modification 20feb06ajb
* added partial loader support 04aug06ajb
* added real_parameter vartype 04aug06ajb
* added in/out port vartype 31jan07ajb
* use gperf for port vartypes 19feb07ajb
* MTI SV implicit-var fix 05apr07ajb
* MTI SV len=0 is real var 05apr07ajb
*/
#include
#include "globals.h"
#include "vcd.h"
#include "hierpack.h"
#if !defined __MINGW32__
#include
#include
#include
#endif
#ifdef __MINGW32__
#include
#endif
#undef VCD_BSEARCH_IS_PERFECT /* bsearch is imperfect under linux, but OK under AIX */
static hptr add_histent_p(TimeType time, struct Node *n, char ch, int regadd, char *vector);
static void add_tail_histents(void);
static void vcd_build_symbols(void);
static void vcd_cleanup(void);
static void evcd_strcpy(char *dst, char *src);
/*******************************************************************************/
#define WAVE_PARTIAL_VCD_RING_BUFFER_SIZE (1024*1024)
unsigned int get_8(char *p)
{
if(p >= (GLOBALS->buf_vcd_partial_c_2 + WAVE_PARTIAL_VCD_RING_BUFFER_SIZE))
{
p-= WAVE_PARTIAL_VCD_RING_BUFFER_SIZE;
}
return((unsigned int)((unsigned char)*p));
}
unsigned int get_32(char *p)
{
unsigned int rc;
rc = (get_8(p++) << 24) ;
rc|= (get_8(p++) << 16) ;
rc|= (get_8(p++) << 8) ;
rc|= (get_8(p) << 0) ;
return(rc);
}
int consume(void) /* for testing only */
{
int len;
GLOBALS->consume_countdown_vcd_partial_c_1--;
if(!GLOBALS->consume_countdown_vcd_partial_c_1)
{
GLOBALS->consume_countdown_vcd_partial_c_1 = 100000;
return(0);
}
if((len = *GLOBALS->consume_ptr_vcd_partial_c_1))
{
int i;
len = get_32(GLOBALS->consume_ptr_vcd_partial_c_1+1);
for(i=0;ivcdbuf_vcd_partial_c_2[i] = get_8(GLOBALS->consume_ptr_vcd_partial_c_1+i+5);
}
GLOBALS->vcdbuf_vcd_partial_c_2[i] = 0;
*GLOBALS->consume_ptr_vcd_partial_c_1 = 0;
GLOBALS->consume_ptr_vcd_partial_c_1 = GLOBALS->consume_ptr_vcd_partial_c_1+i+5;
if(GLOBALS->consume_ptr_vcd_partial_c_1 >= (GLOBALS->buf_vcd_partial_c_2 + WAVE_PARTIAL_VCD_RING_BUFFER_SIZE))
{
GLOBALS->consume_ptr_vcd_partial_c_1 -= WAVE_PARTIAL_VCD_RING_BUFFER_SIZE;
}
}
return(len);
}
/******************************************************************/
enum Tokens { T_VAR, T_END, T_SCOPE, T_UPSCOPE,
T_COMMENT, T_DATE, T_DUMPALL, T_DUMPOFF, T_DUMPON,
T_DUMPVARS, T_ENDDEFINITIONS,
T_DUMPPORTS, T_DUMPPORTSOFF, T_DUMPPORTSON, T_DUMPPORTSALL,
T_TIMESCALE, T_VERSION, T_VCDCLOSE, T_TIMEZERO,
T_EOF, T_STRING, T_UNKNOWN_KEY };
static char *tokens[]={ "var", "end", "scope", "upscope",
"comment", "date", "dumpall", "dumpoff", "dumpon",
"dumpvars", "enddefinitions",
"dumpports", "dumpportsoff", "dumpportson", "dumpportsall",
"timescale", "version", "vcdclose", "timezero",
"", "", "" };
#define NUM_TOKENS 19
#define T_GET tok=get_token();if((tok==T_END)||(tok==T_EOF))break;
/******************************************************************/
#define NUM_VTOKENS 23
/******************************************************************/
static unsigned int vcdid_hash(char *s, int len)
{
unsigned int val=0;
int i;
s+=(len-1);
for(i=0;iid));
}
/*
* actual bsearch
*/
static struct vcdsymbol *bsearch_vcd(char *key, int len)
{
struct vcdsymbol **v;
struct vcdsymbol *t;
if(GLOBALS->indexed_vcd_partial_c_2)
{
unsigned int hsh = vcdid_hash(key, len);
if((hsh>=GLOBALS->vcd_minid_vcd_partial_c_2)&&(hsh<=GLOBALS->vcd_maxid_vcd_partial_c_2))
{
return(GLOBALS->indexed_vcd_partial_c_2[hsh-GLOBALS->vcd_minid_vcd_partial_c_2]);
}
return(NULL);
}
if(GLOBALS->sorted_vcd_partial_c_2)
{
v=(struct vcdsymbol **)bsearch(key, GLOBALS->sorted_vcd_partial_c_2, GLOBALS->numsyms_vcd_partial_c_2,
sizeof(struct vcdsymbol *), vcdsymbsearchcompare);
if(v)
{
#ifndef VCD_BSEARCH_IS_PERFECT
for(;;)
{
t=*v;
if((v==GLOBALS->sorted_vcd_partial_c_2)||(strcmp((*(--v))->id, key)))
{
return(t);
}
}
#else
return(*v);
#endif
}
else
{
return(NULL);
}
}
else
{
if(!GLOBALS->err_vcd_partial_c_2)
{
fprintf(stderr, "Near byte %d, VCD search table NULL..is this a VCD file?\n", (int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)));
GLOBALS->err_vcd_partial_c_2=1;
}
return(NULL);
}
}
/*
* sort on vcdsymbol pointers
*/
static int vcdsymcompare(const void *s1, const void *s2)
{
struct vcdsymbol *v1, *v2;
v1=*((struct vcdsymbol **)s1);
v2=*((struct vcdsymbol **)s2);
return(strcmp(v1->id, v2->id));
}
/*
* create sorted (by id) table
*/
static void create_sorted_table(void)
{
struct vcdsymbol *v;
struct vcdsymbol **pnt;
unsigned int vcd_distance;
if(GLOBALS->sorted_vcd_partial_c_2)
{
free_2(GLOBALS->sorted_vcd_partial_c_2); /* this means we saw a 2nd enddefinition chunk! */
GLOBALS->sorted_vcd_partial_c_2=NULL;
}
if(GLOBALS->indexed_vcd_partial_c_2)
{
free_2(GLOBALS->indexed_vcd_partial_c_2);
GLOBALS->indexed_vcd_partial_c_2=NULL;
}
if(GLOBALS->numsyms_vcd_partial_c_2)
{
vcd_distance = GLOBALS->vcd_maxid_vcd_partial_c_2 - GLOBALS->vcd_minid_vcd_partial_c_2 + 1;
if((vcd_distance <= VCD_INDEXSIZ)||(!GLOBALS->vcd_hash_kill))
{
GLOBALS->indexed_vcd_partial_c_2 = (struct vcdsymbol **)calloc_2(vcd_distance, sizeof(struct vcdsymbol *));
/* printf("%d symbols span ID range of %d, using indexing...\n", numsyms, vcd_distance); */
v=GLOBALS->vcdsymroot_vcd_partial_c_2;
while(v)
{
if(!GLOBALS->indexed_vcd_partial_c_2[v->nid - GLOBALS->vcd_minid_vcd_partial_c_2]) GLOBALS->indexed_vcd_partial_c_2[v->nid - GLOBALS->vcd_minid_vcd_partial_c_2] = v;
v=v->next;
}
}
else
{
pnt=GLOBALS->sorted_vcd_partial_c_2=(struct vcdsymbol **)calloc_2(GLOBALS->numsyms_vcd_partial_c_2, sizeof(struct vcdsymbol *));
v=GLOBALS->vcdsymroot_vcd_partial_c_2;
while(v)
{
*(pnt++)=v;
v=v->next;
}
qsort(GLOBALS->sorted_vcd_partial_c_2, GLOBALS->numsyms_vcd_partial_c_2, sizeof(struct vcdsymbol *), vcdsymcompare);
}
}
}
/******************************************************************/
/*
* single char get inlined/optimized
*/
static void getch_alloc(void)
{
GLOBALS->vend_vcd_partial_c_2=GLOBALS->vst_vcd_partial_c_2=GLOBALS->vcdbuf_vcd_partial_c_2=(char *)calloc_2(1,VCD_BSIZ);
}
static int getch_fetch(void)
{
size_t rd;
errno = 0;
GLOBALS->vcdbyteno_vcd_partial_c_2+=(GLOBALS->vend_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2);
rd=consume();
GLOBALS->vend_vcd_partial_c_2=(GLOBALS->vst_vcd_partial_c_2=GLOBALS->vcdbuf_vcd_partial_c_2)+rd;
if(!rd) return(-1);
return((int)(*GLOBALS->vst_vcd_partial_c_2));
}
static inline signed char getch(void) {
signed char ch = ((GLOBALS->vst_vcd_partial_c_2!=GLOBALS->vend_vcd_partial_c_2)?((int)(*GLOBALS->vst_vcd_partial_c_2)):(getch_fetch()));
if(ch>=0) { GLOBALS->vst_vcd_partial_c_2++; };
return(ch ? ch : -1);
}
static inline signed char getch_peek(void) {
signed char ch = ((GLOBALS->vst_vcd_partial_c_2!=GLOBALS->vend_vcd_partial_c_2)?((int)(*GLOBALS->vst_vcd_partial_c_2)):(getch_fetch()));
/* no increment */
return(ch ? ch : -1);
}
static int getch_patched(void)
{
char ch;
ch=*GLOBALS->vsplitcurr_vcd_partial_c_2;
if(!ch)
{
return(-1);
}
else
{
GLOBALS->vsplitcurr_vcd_partial_c_2++;
return((int)ch);
}
}
/*
* simple tokenizer
*/
static int get_token(void)
{
int ch;
int i, len=0;
int is_string=0;
char *yyshadow;
for(;;)
{
ch=getch();
if(ch<0) return(T_EOF);
if(ch<=' ') continue; /* val<=' ' is a quick whitespace check */
break; /* (take advantage of fact that vcd is text) */
}
if(ch=='$')
{
GLOBALS->yytext_vcd_partial_c_2[len++]=ch;
for(;;)
{
ch=getch();
if(ch<0) return(T_EOF);
if(ch<=' ') continue;
break;
}
}
else
{
is_string=1;
}
for(GLOBALS->yytext_vcd_partial_c_2[len++]=ch;;GLOBALS->yytext_vcd_partial_c_2[len++]=ch)
{
if(len==GLOBALS->T_MAX_STR_vcd_partial_c_2)
{
GLOBALS->yytext_vcd_partial_c_2=(char *)realloc_2(GLOBALS->yytext_vcd_partial_c_2, (GLOBALS->T_MAX_STR_vcd_partial_c_2=GLOBALS->T_MAX_STR_vcd_partial_c_2*2)+1);
}
ch=getch();
if(ch<=' ') break;
}
GLOBALS->yytext_vcd_partial_c_2[len]=0; /* terminator */
GLOBALS->yylen_vcd_partial_c_2=len;
if(is_string)
{
return(T_STRING);
}
yyshadow=GLOBALS->yytext_vcd_partial_c_2;
do
{
yyshadow++;
for(i=0;ivar_prevch_vcd_partial_c_2)
{
for(;;)
{
ch=getch_patched();
if(ch<0) { free_2(GLOBALS->varsplit_vcd_partial_c_2); GLOBALS->varsplit_vcd_partial_c_2=NULL; return(V_END); }
if((ch==' ')||(ch=='\t')||(ch=='\n')||(ch=='\r')) continue;
break;
}
}
else
{
ch=GLOBALS->var_prevch_vcd_partial_c_2;
GLOBALS->var_prevch_vcd_partial_c_2=0;
}
if(ch=='[') return(V_LB);
if(ch==':' && !ignore_colon) return(V_COLON);
if(ch==']') return(V_RB);
for(GLOBALS->yytext_vcd_partial_c_2[len++]=ch;;GLOBALS->yytext_vcd_partial_c_2[len++]=ch)
{
if(len==GLOBALS->T_MAX_STR_vcd_partial_c_2)
{
GLOBALS->yytext_vcd_partial_c_2=(char *)realloc_2(GLOBALS->yytext_vcd_partial_c_2, (GLOBALS->T_MAX_STR_vcd_partial_c_2=GLOBALS->T_MAX_STR_vcd_partial_c_2*2)+1);
}
ch=getch_patched();
if(ch<0) { free_2(GLOBALS->varsplit_vcd_partial_c_2); GLOBALS->varsplit_vcd_partial_c_2=NULL; break; }
if((ch==':' && !ignore_colon)||(ch==']'))
{
GLOBALS->var_prevch_vcd_partial_c_2=ch;
break;
}
}
GLOBALS->yytext_vcd_partial_c_2[len]=0; /* terminator */
if(match_kw)
{
int vt = vcd_keyword_code(GLOBALS->yytext_vcd_partial_c_2, len);
if(vt != V_STRING)
{
if(ch<0) { free_2(GLOBALS->varsplit_vcd_partial_c_2); GLOBALS->varsplit_vcd_partial_c_2=NULL; }
return(vt);
}
}
GLOBALS->yylen_vcd_partial_c_2=len;
if(ch<0) { free_2(GLOBALS->varsplit_vcd_partial_c_2); GLOBALS->varsplit_vcd_partial_c_2=NULL; }
return(V_STRING);
}
static int get_vartoken(int ignore_colon, int match_kw)
{
int ch;
int len=0;
if(GLOBALS->varsplit_vcd_partial_c_2)
{
int rc=get_vartoken_patched(ignore_colon, match_kw);
if(rc!=V_END) return(rc);
GLOBALS->var_prevch_vcd_partial_c_2=0;
}
if(!GLOBALS->var_prevch_vcd_partial_c_2)
{
for(;;)
{
ch=getch();
if(ch<0) return(V_END);
if((ch==' ')||(ch=='\t')||(ch=='\n')||(ch=='\r')) continue;
break;
}
}
else
{
ch=GLOBALS->var_prevch_vcd_partial_c_2;
GLOBALS->var_prevch_vcd_partial_c_2=0;
}
if(ch=='[') return(V_LB);
if(ch==':' && !ignore_colon) return(V_COLON);
if(ch==']') return(V_RB);
if(ch=='#') /* for MTI System Verilog '$var reg 64 >w #implicit-var###VarElem:ram_di[0.0] [63:0] $end' style declarations */
{ /* debussy simply escapes until the space */
GLOBALS->yytext_vcd_partial_c_2[len++]= '\\';
}
for(GLOBALS->yytext_vcd_partial_c_2[len++]=ch;;GLOBALS->yytext_vcd_partial_c_2[len++]=ch)
{
if(len==GLOBALS->T_MAX_STR_vcd_partial_c_2)
{
if(!GLOBALS->varsplit_vcd_partial_c_2)
{
GLOBALS->yytext_vcd_partial_c_2=(char *)realloc_2(GLOBALS->yytext_vcd_partial_c_2, (GLOBALS->T_MAX_STR_vcd_partial_c_2=GLOBALS->T_MAX_STR_vcd_partial_c_2*2)+1);
}
else /* TALOS-2023-1806 */
{
int vsplit_len = GLOBALS->varsplit_vcd_partial_c_2 - GLOBALS->yytext_vcd_partial_c_2; /* save old len */
GLOBALS->yytext_vcd_partial_c_2=(char *)realloc_2(GLOBALS->yytext_vcd_partial_c_2, (GLOBALS->T_MAX_STR_vcd_partial_c_2=GLOBALS->T_MAX_STR_vcd_partial_c_2*2)+1);
GLOBALS->varsplit_vcd_partial_c_2 = GLOBALS->yytext_vcd_partial_c_2+vsplit_len; /* reconstruct old len in new buffer */
}
}
ch=getch();
if(ch==' ')
{
if(match_kw) break;
if(getch_peek() == '[')
{
ch = getch();
GLOBALS->varsplit_vcd_partial_c_2=GLOBALS->yytext_vcd_partial_c_2+len; /* keep looping so we get the *last* one */
continue;
}
}
if((ch==' ')||(ch=='\t')||(ch=='\n')||(ch=='\r')||(ch<0)) break;
if((ch=='[')&&(GLOBALS->yytext_vcd_partial_c_2[0]!='\\'))
{
GLOBALS->varsplit_vcd_partial_c_2=GLOBALS->yytext_vcd_partial_c_2+len; /* keep looping so we get the *last* one */
}
else
if(((ch==':' && !ignore_colon)||(ch==']'))&&(!GLOBALS->varsplit_vcd_partial_c_2)&&(GLOBALS->yytext_vcd_partial_c_2[0]!='\\'))
{
GLOBALS->var_prevch_vcd_partial_c_2=ch;
break;
}
}
GLOBALS->yytext_vcd_partial_c_2[len]=0; /* absolute terminator */
if((GLOBALS->varsplit_vcd_partial_c_2)&&(GLOBALS->yytext_vcd_partial_c_2[len-1]==']'))
{
char *vst;
vst=malloc_2(strlen(GLOBALS->varsplit_vcd_partial_c_2)+1);
strcpy(vst, GLOBALS->varsplit_vcd_partial_c_2);
*GLOBALS->varsplit_vcd_partial_c_2=0x00; /* zero out var name at the left bracket */
len=GLOBALS->varsplit_vcd_partial_c_2-GLOBALS->yytext_vcd_partial_c_2;
GLOBALS->varsplit_vcd_partial_c_2=GLOBALS->vsplitcurr_vcd_partial_c_2=vst;
GLOBALS->var_prevch_vcd_partial_c_2=0;
}
else
{
GLOBALS->varsplit_vcd_partial_c_2=NULL;
}
if(match_kw)
{
int vt = vcd_keyword_code(GLOBALS->yytext_vcd_partial_c_2, len);
if(vt != V_STRING)
{
return(vt);
}
}
GLOBALS->yylen_vcd_partial_c_2=len;
return(V_STRING);
}
static int get_strtoken(void)
{
int ch;
int len=0;
if(!GLOBALS->var_prevch_vcd_partial_c_2)
{
for(;;)
{
ch=getch();
if(ch<0) return(V_END);
if((ch==' ')||(ch=='\t')||(ch=='\n')||(ch=='\r')) continue;
break;
}
}
else
{
ch=GLOBALS->var_prevch_vcd_partial_c_2;
GLOBALS->var_prevch_vcd_partial_c_2=0;
}
for(GLOBALS->yytext_vcd_partial_c_2[len++]=ch;;GLOBALS->yytext_vcd_partial_c_2[len++]=ch)
{
if(len==GLOBALS->T_MAX_STR_vcd_partial_c_2)
{
GLOBALS->yytext_vcd_partial_c_2=(char *)realloc_2(GLOBALS->yytext_vcd_partial_c_2, (GLOBALS->T_MAX_STR_vcd_partial_c_2=GLOBALS->T_MAX_STR_vcd_partial_c_2*2)+1);
}
ch=getch();
if((ch==' ')||(ch=='\t')||(ch=='\n')||(ch=='\r')||(ch<0)) break;
}
GLOBALS->yytext_vcd_partial_c_2[len]=0; /* terminator */
GLOBALS->yylen_vcd_partial_c_2=len;
return(V_STRING);
}
static void sync_end(char *hdr)
{
int tok;
if(hdr) { DEBUG(fprintf(stderr,"%s",hdr)); }
for(;;)
{
tok=get_token();
if((tok==T_END)||(tok==T_EOF)) break;
if(hdr) { DEBUG(fprintf(stderr," %s",GLOBALS->yytext_vcd_partial_c_2)); }
}
if(hdr) { DEBUG(fprintf(stderr,"\n")); }
}
static int version_sync_end(char *hdr)
{
int tok;
int rc = 0;
if(hdr) { DEBUG(fprintf(stderr,"%s",hdr)); }
for(;;)
{
tok=get_token();
if((tok==T_END)||(tok==T_EOF)) break;
if(hdr) { DEBUG(fprintf(stderr," %s",GLOBALS->yytext_vcd_partial_c_2)); }
if(strstr(GLOBALS->yytext_vcd_partial_c_2, "Icarus")) /* turn off autocoalesce for Icarus */
{
GLOBALS->autocoalesce = 0;
rc = 1;
}
else if(strstr(GLOBALS->yytext_vcd_partial_c_2, "Questa") || strstr(GLOBALS->yytext_vcd_partial_c_2, "ModelSim")) /* realparam fix only is for MTI, conflicts with Vivado */
{
GLOBALS->mti_realparam_fix = 1;
rc = 1;
}
}
if(hdr) { DEBUG(fprintf(stderr,"\n")); }
return(rc);
}
static void parse_valuechange(void)
{
struct vcdsymbol *v;
char *vector;
int vlen;
/* hptr hsuf; */ /* scan-build */
switch(GLOBALS->yytext_vcd_partial_c_2[0])
{
case '0':
case '1':
case 'x': case 'X':
case 'z': case 'Z':
case 'h': case 'H':
case 'u': case 'U':
case 'w': case 'W':
case 'l': case 'L':
case '-':
if(GLOBALS->yylen_vcd_partial_c_2>1)
{
v=bsearch_vcd(GLOBALS->yytext_vcd_partial_c_2+1, GLOBALS->yylen_vcd_partial_c_2-1);
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown VCD identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)),GLOBALS->yytext_vcd_partial_c_2+1);
}
else
{
v->value[0]=GLOBALS->yytext_vcd_partial_c_2[0];
DEBUG(fprintf(stderr,"%s = '%c'\n",v->name,v->value[0]));
v->narray[0]->curr = v->app_array[0];
/* hsuf = */ add_histent_p(GLOBALS->current_time_vcd_partial_c_2,v->narray[0],v->value[0],1, NULL); /* scan-build */
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray) { free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
}
else
{
fprintf(stderr,"Near byte %d, Malformed VCD identifier\n", (int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)));
}
break;
case 'b':
case 'B':
{
/* extract binary number then.. */
vector=malloc_2(GLOBALS->yylen_cache_vcd_partial_c_2=GLOBALS->yylen_vcd_partial_c_2);
strcpy(vector,GLOBALS->yytext_vcd_partial_c_2+1);
vlen=GLOBALS->yylen_vcd_partial_c_2-1;
get_strtoken();
v=bsearch_vcd(GLOBALS->yytext_vcd_partial_c_2, GLOBALS->yylen_vcd_partial_c_2);
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), GLOBALS->yytext_vcd_partial_c_2);
free_2(vector);
}
else
{
if ((v->vartype==V_REAL)||(v->vartype==V_STRINGTYPE)||((GLOBALS->convert_to_reals)&&((v->vartype==V_INTEGER)||(v->vartype==V_PARAMETER))))
{
double *d;
char *pnt;
char ch;
TimeType k=0;
pnt=vector;
while((ch=*(pnt++))) { k=(k<<1)|((ch=='1')?1:0); }
free_2(vector);
d=malloc_2(sizeof(double));
*d=(double)k;
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), GLOBALS->yytext_vcd_partial_c_2);
free_2(d);
}
else
{
v->narray[0]->curr = v->app_array[0];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[0],'g',1,(char *)d);
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray)
{ free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
break;
}
if(vlensize) /* fill in left part */
{
char extend;
int i, fill;
extend=(vector[0]=='1')?'0':vector[0];
fill=v->size-vlen;
for(i=0;ivalue[i]=extend;
}
strcpy(v->value+fill,vector);
}
else if(vlen==v->size) /* straight copy */
{
strcpy(v->value,vector);
}
else /* too big, so copy only right half */
{
int skip;
skip=vlen-v->size;
strcpy(v->value,vector+skip);
}
DEBUG(fprintf(stderr,"%s = '%s'\n",v->name, v->value));
if((v->size==1)||(!GLOBALS->atomic_vectors))
{
int i;
for(i=0;isize;i++)
{
v->narray[i]->curr = v->app_array[i];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[i],v->value[i],1, NULL);
v->app_array[i] = v->narray[i]->curr;
v->narray[i]->curr->next = v->tr_array[i];
if(v->narray[i]->harray)
{ free_2(v->narray[i]->harray); v->narray[i]->harray = NULL; }
}
free_2(vector);
}
else
{
if(GLOBALS->yylen_cache_vcd_partial_c_2!=(v->size+1))
{
free_2(vector);
vector=malloc_2(v->size+1);
}
strcpy(vector,v->value);
v->narray[0]->curr = v->app_array[0];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[0],0,1,vector);
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray)
{ free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
}
break;
}
case 'p':
/* extract port dump value.. */
vector=malloc_2(GLOBALS->yylen_cache_vcd_partial_c_2=GLOBALS->yylen_vcd_partial_c_2);
strcpy(vector,GLOBALS->yytext_vcd_partial_c_2+1);
vlen=GLOBALS->yylen_vcd_partial_c_2-1;
get_strtoken(); /* throw away 0_strength_component */
get_strtoken(); /* throw away 0_strength_component */
get_strtoken(); /* this is the id */
v=bsearch_vcd(GLOBALS->yytext_vcd_partial_c_2, GLOBALS->yylen_vcd_partial_c_2);
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), GLOBALS->yytext_vcd_partial_c_2);
free_2(vector);
}
else
{
if ((v->vartype==V_REAL)||(v->vartype==V_STRINGTYPE)||((GLOBALS->convert_to_reals)&&((v->vartype==V_INTEGER)||(v->vartype==V_PARAMETER))))
{
double *d;
char *pnt;
char ch;
TimeType k=0;
pnt=vector;
while((ch=*(pnt++))) { k=(k<<1)|((ch=='1')?1:0); }
free_2(vector);
d=malloc_2(sizeof(double));
*d=(double)k;
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), GLOBALS->yytext_vcd_partial_c_2);
free_2(d);
}
else
{
v->narray[0]->curr = v->app_array[0];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[0],'g',1,(char *)d);
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray)
{ free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
break;
}
if(vlensize) /* fill in left part */
{
char extend;
int i, fill;
extend='0';
fill=v->size-vlen;
for(i=0;ivalue[i]=extend;
}
evcd_strcpy(v->value+fill,vector);
}
else if(vlen==v->size) /* straight copy */
{
evcd_strcpy(v->value,vector);
}
else /* too big, so copy only right half */
{
int skip;
skip=vlen-v->size;
evcd_strcpy(v->value,vector+skip);
}
DEBUG(fprintf(stderr,"%s = '%s'\n",v->name, v->value));
if((v->size==1)||(!GLOBALS->atomic_vectors))
{
int i;
for(i=0;isize;i++)
{
v->narray[i]->curr = v->app_array[i];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[i],v->value[i],1, NULL);
v->app_array[i] = v->narray[i]->curr;
v->narray[i]->curr->next = v->tr_array[i];
if(v->narray[i]->harray)
{ free_2(v->narray[i]->harray); v->narray[i]->harray = NULL; }
}
free_2(vector);
}
else
{
if(GLOBALS->yylen_cache_vcd_partial_c_2<=v->size) /* TALOS-2023-1804 */
{
free_2(vector);
vector=malloc_2(v->size+1);
}
strcpy(vector,v->value);
v->narray[0]->curr = v->app_array[0];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[0],0,1,vector);
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray)
{ free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
}
break;
case 'r':
case 'R':
{
double *d;
d=malloc_2(sizeof(double));
sscanf(GLOBALS->yytext_vcd_partial_c_2+1,"%lg",d);
get_strtoken();
v=bsearch_vcd(GLOBALS->yytext_vcd_partial_c_2, GLOBALS->yylen_vcd_partial_c_2);
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), GLOBALS->yytext_vcd_partial_c_2);
free_2(d);
}
else
{
v->narray[0]->curr = v->app_array[0];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[0],'g',1,(char *)d);
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray)
{ free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
break;
}
#ifndef STRICT_VCD_ONLY
case 's':
case 'S':
{
char *d;
d=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2);
vlen = fstUtilityEscToBin((unsigned char *)d, (unsigned char *)(GLOBALS->yytext_vcd_partial_c_2+1), GLOBALS->yylen_vcd_partial_c_2); /* includes 0 term */
if(vlen != GLOBALS->yylen_vcd_partial_c_2)
{
d = realloc_2(d, vlen);
}
get_strtoken();
v=bsearch_vcd(GLOBALS->yytext_vcd_partial_c_2, GLOBALS->yylen_vcd_partial_c_2);
if(!v)
{
fprintf(stderr,"Near byte %d, Unknown identifier: '%s'\n",(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), GLOBALS->yytext_vcd_partial_c_2);
free_2(d);
}
else
{
v->narray[0]->curr = v->app_array[0];
add_histent_p(GLOBALS->current_time_vcd_partial_c_2, v->narray[0],'s',1,(char *)d);
v->app_array[0] = v->narray[0]->curr;
v->narray[0]->curr->next = v->tr_array[0];
if(v->narray[0]->harray)
{ free_2(v->narray[0]->harray); v->narray[0]->harray = NULL; }
}
break;
}
#endif
}
}
static void evcd_strcpy(char *dst, char *src)
{
static const char *evcd="DUNZduLHXTlh01?FAaBbCcf";
static const char *vcd="01xz0101xz0101xzxxxxxxz";
char ch;
int i;
while((ch=*src))
{
for(i=0;i<23;i++)
{
if(evcd[i]==ch)
{
*dst=vcd[i];
break;
}
}
if(i==23) *dst='x';
src++;
dst++;
}
*dst=0; /* null terminate destination */
}
static void vcd_parse(void)
{
int tok;
unsigned char ttype;
int disable_autocoalesce = 0;
int colon_seen = 0;
int num_seen = 0;
for(;;)
{
switch(get_token())
{
case T_COMMENT:
sync_end("COMMENT:");
break;
case T_DATE:
sync_end("DATE:");
break;
case T_VERSION:
disable_autocoalesce = version_sync_end("VERSION:");
break;
case T_TIMEZERO:
{
int vtok=get_token();
if((vtok==T_END)||(vtok==T_EOF)) break;
GLOBALS->global_time_offset=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
DEBUG(fprintf(stderr,"TIMEZERO: "TTFormat"\n",GLOBALS->global_time_offset));
sync_end(NULL);
}
break;
case T_TIMESCALE:
{
int vtok;
int i;
char prefix=' ';
vtok=get_token();
if((vtok==T_END)||(vtok==T_EOF)) break;
fractional_timescale_fix(GLOBALS->yytext_vcd_partial_c_2);
GLOBALS->time_scale=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
if(!GLOBALS->time_scale) GLOBALS->time_scale=1;
for(i=0;iyylen_vcd_partial_c_2;i++)
{
if((GLOBALS->yytext_vcd_partial_c_2[i]<'0')||(GLOBALS->yytext_vcd_partial_c_2[i]>'9'))
{
prefix=GLOBALS->yytext_vcd_partial_c_2[i];
break;
}
}
if(prefix==' ')
{
vtok=get_token();
if((vtok==T_END)||(vtok==T_EOF)) break;
prefix=GLOBALS->yytext_vcd_partial_c_2[0];
}
switch(prefix)
{
case ' ':
case 'm':
case 'u':
case 'n':
case 'p':
case 'f':
case 'a':
case 'z':
GLOBALS->time_dimension=prefix;
break;
case 's':
GLOBALS->time_dimension=' ';
break;
default: /* unknown */
GLOBALS->time_dimension='n';
break;
}
DEBUG(fprintf(stderr,"TIMESCALE: "TTFormat" %cs\n",GLOBALS->time_scale, GLOBALS->time_dimension));
sync_end(NULL);
}
break;
case T_SCOPE:
T_GET;
{
switch(GLOBALS->yytext_vcd_partial_c_2[0])
{
case 'm': ttype = TREE_VCD_ST_MODULE; break;
case 't': ttype = TREE_VCD_ST_TASK; break;
case 'f': ttype = (GLOBALS->yytext_vcd_partial_c_2[1] == 'u') ? TREE_VCD_ST_FUNCTION : TREE_VCD_ST_FORK; break;
case 'b': ttype = TREE_VCD_ST_BEGIN; break;
case 'g': ttype = TREE_VCD_ST_GENERATE; break;
case 's': ttype = TREE_VCD_ST_STRUCT; break;
case 'u': ttype = TREE_VCD_ST_UNION; break;
case 'c': ttype = TREE_VCD_ST_CLASS; break;
case 'i': ttype = TREE_VCD_ST_INTERFACE; break;
case 'p': ttype = (GLOBALS->yytext_vcd_partial_c_2[1] == 'r') ? TREE_VCD_ST_PROGRAM : TREE_VCD_ST_PACKAGE; break;
case 'v': {
char *vht = GLOBALS->yytext_vcd_partial_c_2;
if(!strncmp(vht, "vhdl_", 5))
{
switch(vht[5])
{
case 'a': ttype = TREE_VHDL_ST_ARCHITECTURE; break;
case 'r': ttype = TREE_VHDL_ST_RECORD; break;
case 'b': ttype = TREE_VHDL_ST_BLOCK; break;
case 'g': ttype = TREE_VHDL_ST_GENERATE; break;
case 'i': ttype = TREE_VHDL_ST_GENIF; break;
case 'f': ttype = (vht[6] == 'u') ? TREE_VHDL_ST_FUNCTION : TREE_VHDL_ST_GENFOR; break;
case 'p': ttype = (!strncmp(vht+6, "roces", 5)) ? TREE_VHDL_ST_PROCESS: TREE_VHDL_ST_PROCEDURE; break;
default: ttype = TREE_UNKNOWN; break;
}
}
else
{
ttype = TREE_UNKNOWN;
}
}
break;
default: ttype = TREE_UNKNOWN;
break;
}
}
T_GET;
if (tok!= T_END && tok != T_EOF)
{
struct slist *s;
s=(struct slist *)calloc_2(1,sizeof(struct slist));
s->len=GLOBALS->yylen_vcd_partial_c_2;
s->str=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+1);
strcpy(s->str, GLOBALS->yytext_vcd_partial_c_2);
s->mod_tree_parent = GLOBALS->mod_tree_parent;
allocate_and_decorate_module_tree_node(ttype, GLOBALS->yytext_vcd_partial_c_2, NULL, GLOBALS->yylen_vcd_partial_c_2, 0, 0, 0);
if(GLOBALS->slistcurr)
{
GLOBALS->slistcurr->next=s;
GLOBALS->slistcurr=s;
}
else
{
GLOBALS->slistcurr=GLOBALS->slistroot=s;
}
build_slisthier();
DEBUG(fprintf(stderr, "SCOPE: %s\n",GLOBALS->slisthier));
}
sync_end(NULL);
break;
case T_UPSCOPE:
if(GLOBALS->slistroot)
{
struct slist *s;
GLOBALS->mod_tree_parent = GLOBALS->slistcurr->mod_tree_parent;
s=GLOBALS->slistroot;
if(!s->next)
{
free_2(s->str);
free_2(s);
GLOBALS->slistroot=GLOBALS->slistcurr=NULL;
}
else
for(;;)
{
if(!s->next->next)
{
free_2(s->next->str);
free_2(s->next);
s->next=NULL;
GLOBALS->slistcurr=s;
break;
}
s=s->next;
}
build_slisthier();
DEBUG(fprintf(stderr, "SCOPE: %s\n",GLOBALS->slisthier));
}
else
{
GLOBALS->mod_tree_parent = NULL;
}
sync_end(NULL);
break;
case T_VAR:
if(GLOBALS->header_over_vcd_partial_c_2) /* reinstated because of TALOS-2023-1805 */
{
fprintf(stderr,"$VAR encountered after $ENDDEFINITIONS near byte %d. VCD is malformed, exiting.\n",
(int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)));
exit(255);
}
else
{
int vtok;
struct vcdsymbol *v=NULL;
GLOBALS->var_prevch_vcd_partial_c_2=0;
if(GLOBALS->varsplit_vcd_partial_c_2)
{
free_2(GLOBALS->varsplit_vcd_partial_c_2);
GLOBALS->varsplit_vcd_partial_c_2=NULL;
}
vtok=get_vartoken(0, 1);
if(vtok>V_STRINGTYPE) goto bail;
v=(struct vcdsymbol *)calloc_2(1,sizeof(struct vcdsymbol));
v->vartype=vtok;
v->msi=v->lsi=GLOBALS->vcd_explicit_zero_subscripts; /* indicate [un]subscripted status */
if(vtok==V_PORT)
{
vtok=get_vartoken(0, 1);
if(vtok==V_STRING)
{
v->size=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
if(!v->size) v->size=1;
}
else
if(vtok==V_LB)
{
vtok=get_vartoken(0, 1);
if(vtok==V_END) goto err;
if(vtok!=V_STRING) goto err;
v->msi=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
vtok=get_vartoken(0, 0);
if(vtok==V_RB)
{
v->lsi=v->msi;
v->size=1;
}
else
{
if(vtok!=V_COLON) goto err;
vtok=get_vartoken(0, 0);
if(vtok!=V_STRING) goto err;
v->lsi=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
vtok=get_vartoken(0, 0);
if(vtok!=V_RB) goto err;
if(v->msi>v->lsi)
{
v->size=v->msi-v->lsi+1;
}
else
{
v->size=v->lsi-v->msi+1;
}
}
}
else goto err;
vtok=get_strtoken();
if(vtok==V_END) goto err;
v->id=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+1);
strcpy(v->id, GLOBALS->yytext_vcd_partial_c_2);
v->nid=vcdid_hash(GLOBALS->yytext_vcd_partial_c_2,GLOBALS->yylen_vcd_partial_c_2);
if(v->nid == (GLOBALS->vcd_hash_max+1))
{
GLOBALS->vcd_hash_max = v->nid;
}
else
if((v->nid>0)&&(v->nid<=GLOBALS->vcd_hash_max))
{
/* general case with aliases */
}
else
{
GLOBALS->vcd_hash_kill = 1;
}
if(v->nid < GLOBALS->vcd_minid_vcd_partial_c_2) GLOBALS->vcd_minid_vcd_partial_c_2 = v->nid;
if(v->nid > GLOBALS->vcd_maxid_vcd_partial_c_2) GLOBALS->vcd_maxid_vcd_partial_c_2 = v->nid;
vtok=get_vartoken(1, 0);
if(vtok!=V_STRING) goto err;
if(GLOBALS->slisthier_len)
{
v->name=(char *)malloc_2(GLOBALS->slisthier_len+1+GLOBALS->yylen_vcd_partial_c_2+1);
strcpy(v->name,GLOBALS->slisthier);
strcpy(v->name+GLOBALS->slisthier_len,GLOBALS->vcd_hier_delimeter);
if(GLOBALS->alt_hier_delimeter)
{
strcpy_vcdalt(v->name+GLOBALS->slisthier_len+1,GLOBALS->yytext_vcd_partial_c_2,GLOBALS->alt_hier_delimeter);
}
else
{
if((strcpy_delimfix(v->name+GLOBALS->slisthier_len+1,GLOBALS->yytext_vcd_partial_c_2)) && (GLOBALS->yytext_vcd_partial_c_2[0] != '\\'))
{
char *sd=(char *)malloc_2(GLOBALS->slisthier_len+1+GLOBALS->yylen_vcd_partial_c_2+2);
strcpy(sd,GLOBALS->slisthier);
strcpy(sd+GLOBALS->slisthier_len,GLOBALS->vcd_hier_delimeter);
sd[GLOBALS->slisthier_len+1] = '\\';
strcpy(sd+GLOBALS->slisthier_len+2,v->name+GLOBALS->slisthier_len+1);
free_2(v->name);
v->name = sd;
}
}
}
else
{
v->name=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+1);
if(GLOBALS->alt_hier_delimeter)
{
strcpy_vcdalt(v->name,GLOBALS->yytext_vcd_partial_c_2,GLOBALS->alt_hier_delimeter);
}
else
{
if((strcpy_delimfix(v->name,GLOBALS->yytext_vcd_partial_c_2)) && (GLOBALS->yytext_vcd_partial_c_2[0] != '\\'))
{
char *sd=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+2);
sd[0] = '\\';
strcpy(sd+1,v->name);
free_2(v->name);
v->name = sd;
}
}
}
if(GLOBALS->pv_vcd_partial_c_2)
{
if(!strcmp(GLOBALS->pv_vcd_partial_c_2->name,v->name) && !disable_autocoalesce && (!strchr(v->name, '\\')) && (v->lsi != GLOBALS->pv_vcd_partial_c_2->lsi))
{
GLOBALS->pv_vcd_partial_c_2->chain=v;
v->root=GLOBALS->rootv_vcd_partial_c_2;
if(GLOBALS->pv_vcd_partial_c_2==GLOBALS->rootv_vcd_partial_c_2) GLOBALS->pv_vcd_partial_c_2->root=GLOBALS->rootv_vcd_partial_c_2;
}
else
{
GLOBALS->rootv_vcd_partial_c_2=v;
}
}
else
{
GLOBALS->rootv_vcd_partial_c_2=v;
}
GLOBALS->pv_vcd_partial_c_2=v;
}
else /* regular vcd var, not an evcd port var */
{
vtok=get_vartoken(0, 1);
if(vtok==V_END) goto err;
v->size=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
vtok=get_strtoken();
if(vtok==V_END) goto err;
v->id=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+1);
strcpy(v->id, GLOBALS->yytext_vcd_partial_c_2);
v->nid=vcdid_hash(GLOBALS->yytext_vcd_partial_c_2,GLOBALS->yylen_vcd_partial_c_2);
if(v->nid == (GLOBALS->vcd_hash_max+1))
{
GLOBALS->vcd_hash_max = v->nid;
}
else
if((v->nid>0)&&(v->nid<=GLOBALS->vcd_hash_max))
{
/* general case with aliases */
}
else
{
GLOBALS->vcd_hash_kill = 1;
}
if(v->nid < GLOBALS->vcd_minid_vcd_partial_c_2) GLOBALS->vcd_minid_vcd_partial_c_2 = v->nid;
if(v->nid > GLOBALS->vcd_maxid_vcd_partial_c_2) GLOBALS->vcd_maxid_vcd_partial_c_2 = v->nid;
vtok=get_vartoken(1, 0);
if(vtok!=V_STRING) goto err;
if(GLOBALS->slisthier_len)
{
v->name=(char *)malloc_2(GLOBALS->slisthier_len+1+GLOBALS->yylen_vcd_partial_c_2+1);
strcpy(v->name,GLOBALS->slisthier);
strcpy(v->name+GLOBALS->slisthier_len,GLOBALS->vcd_hier_delimeter);
if(GLOBALS->alt_hier_delimeter)
{
strcpy_vcdalt(v->name+GLOBALS->slisthier_len+1,GLOBALS->yytext_vcd_partial_c_2,GLOBALS->alt_hier_delimeter);
}
else
{
if((strcpy_delimfix(v->name+GLOBALS->slisthier_len+1,GLOBALS->yytext_vcd_partial_c_2)) && (GLOBALS->yytext_vcd_partial_c_2[0] != '\\'))
{
char *sd=(char *)malloc_2(GLOBALS->slisthier_len+1+GLOBALS->yylen_vcd_partial_c_2+2);
strcpy(sd,GLOBALS->slisthier);
strcpy(sd+GLOBALS->slisthier_len,GLOBALS->vcd_hier_delimeter);
sd[GLOBALS->slisthier_len+1] = '\\';
strcpy(sd+GLOBALS->slisthier_len+2,v->name+GLOBALS->slisthier_len+1);
free_2(v->name);
v->name = sd;
}
}
}
else
{
v->name=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+1);
if(GLOBALS->alt_hier_delimeter)
{
strcpy_vcdalt(v->name,GLOBALS->yytext_vcd_partial_c_2,GLOBALS->alt_hier_delimeter);
}
else
{
if((strcpy_delimfix(v->name,GLOBALS->yytext_vcd_partial_c_2)) && (GLOBALS->yytext_vcd_partial_c_2[0] != '\\'))
{
char *sd=(char *)malloc_2(GLOBALS->yylen_vcd_partial_c_2+2);
sd[0] = '\\';
strcpy(sd+1,v->name);
free_2(v->name);
v->name = sd;
}
}
}
if(GLOBALS->pv_vcd_partial_c_2)
{
if(!strcmp(GLOBALS->pv_vcd_partial_c_2->name,v->name) && (v->lsi != GLOBALS->pv_vcd_partial_c_2->lsi))
{
GLOBALS->pv_vcd_partial_c_2->chain=v;
v->root=GLOBALS->rootv_vcd_partial_c_2;
if(GLOBALS->pv_vcd_partial_c_2==GLOBALS->rootv_vcd_partial_c_2) GLOBALS->pv_vcd_partial_c_2->root=GLOBALS->rootv_vcd_partial_c_2;
}
else
{
GLOBALS->rootv_vcd_partial_c_2=v;
}
}
else
{
GLOBALS->rootv_vcd_partial_c_2=v;
}
GLOBALS->pv_vcd_partial_c_2=v;
num_seen = 0;
vtok=get_vartoken(0, 1);
if(vtok==V_END) goto dumpv;
if(vtok!=V_LB) goto err;
colon_seen = 0;
vtok=get_vartoken(0, 0);
if(vtok!=V_STRING) goto err;
num_seen = 1;
v->msi=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
vtok=get_vartoken(0, 0);
if(vtok==V_RB)
{
v->lsi=v->msi;
goto dumpv;
}
if(vtok!=V_COLON) goto err;
colon_seen = 1;
vtok=get_vartoken(0, 0);
if(vtok!=V_STRING) goto err;
v->lsi=atoi_64(GLOBALS->yytext_vcd_partial_c_2);
vtok=get_vartoken(0, 0);
if(vtok!=V_RB) goto err;
}
dumpv:
if(v->size == 0)
{
if(v->vartype != V_EVENT)
{
if(v->vartype != V_STRINGTYPE)
{
if(!GLOBALS->mti_realparam_fix)
{
v->size = 1;
}
else
{
v->vartype = V_REAL;
}
}
}
else
{
v->size = 1;
}
} /* MTI fix */
else
{
unsigned int abslen = (v->msi >= v->lsi) ? (v->msi - v->lsi + 1) : (v->lsi - v->msi + 1);
if(!colon_seen)
{
if(num_seen && (v->size > 1))
{
char buf[32];
char *sfix;
int vname_len = strlen(v->name);
int num_len = snprintf(buf, 32, "[%d]", v->lsi);
sfix = malloc_2(vname_len + num_len + 1);
memcpy(sfix, v->name, vname_len);
memcpy(sfix+vname_len, buf, num_len + 1);
free_2(v->name);
v->name = sfix;
}
if(v->size > 1)
{
v->lsi = 0;
v->msi = v->size - 1;
}
}
else
{
if((v->size != abslen) && (num_seen))
{
if(v->lsi < v->msi)
{
v->msi = v->lsi + v->size - 1;
}
else
{
v->lsi = v->msi + v->size - 1;
}
}
}
}
if((v->vartype==V_REAL)||(v->vartype==V_STRINGTYPE)||((GLOBALS->convert_to_reals)&&((v->vartype==V_INTEGER)||(v->vartype==V_PARAMETER))))
{
if(v->vartype != V_STRINGTYPE)
{
v->vartype=V_REAL;
}
v->size=1; /* override any data we parsed in */
v->msi=v->lsi=0;
}
else
if((v->size>1)&&(v->msi<=0)&&(v->lsi<=0))
{
if(v->vartype==V_EVENT)
{
v->size=1;
}
else
{
/* any criteria for the direction here? */
v->msi=v->size-1;
v->lsi=0;
}
}
else
if((v->msi>v->lsi)&&((v->msi-v->lsi+1)!=v->size))
{
if((v->vartype!=V_EVENT)&&(v->vartype!=V_PARAMETER))
{
if((v->msi-v->lsi+1) > v->size) /* if() is 2d add */
{
v->msi = v->size-1; v->lsi = 0;
}
/* all this formerly was goto err; */
}
else
{
v->size=v->msi-v->lsi+1;
}
}
else
if((v->lsi>=v->msi)&&((v->lsi-v->msi+1)!=v->size))
{
if((v->vartype!=V_EVENT)&&(v->vartype!=V_PARAMETER))
{
if((v->lsi-v->msi+1) > v->size) /* if() is 2d add */
{
v->lsi = v->size-1; v->msi = 0;
}
/* all this formerly was goto err; */
}
else
{
v->size=v->lsi-v->msi+1;
}
}
/* initial conditions */
v->value=(char *)malloc_2(v->size+1);
v->value[v->size]=0;
v->narray=(struct Node **)calloc_2(v->size,sizeof(struct Node *));
v->tr_array=(hptr *)calloc_2(v->size,sizeof(hptr));
v->app_array=(hptr *)calloc_2(v->size,sizeof(hptr));
{
int i;
if(GLOBALS->atomic_vectors)
{
for(i=0;isize;i++)
{
v->value[i]='x';
}
v->narray[0]=(struct Node *)calloc_2(1,sizeof(struct Node));
v->narray[0]->head.time=-1;
v->narray[0]->head.v.h_val=AN_X;
}
else
{
for(i=0;isize;i++)
{
v->value[i]='x';
v->narray[i]=(struct Node *)calloc_2(1,sizeof(struct Node));
v->narray[i]->head.time=-1;
v->narray[i]->head.v.h_val=AN_X;
}
}
}
if(!GLOBALS->vcdsymroot_vcd_partial_c_2)
{
GLOBALS->vcdsymroot_vcd_partial_c_2=GLOBALS->vcdsymcurr_vcd_partial_c_2=v;
}
else
{
GLOBALS->vcdsymcurr_vcd_partial_c_2->next=v;
GLOBALS->vcdsymcurr_vcd_partial_c_2=v;
}
GLOBALS->numsyms_vcd_partial_c_2++;
goto bail;
err:
if(v)
{
GLOBALS->error_count_vcd_partial_c_2++;
if(v->name)
{
fprintf(stderr, "Near byte %d, $VAR parse error encountered with '%s'\n", (int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)), v->name);
free_2(v->name);
}
else
{
fprintf(stderr, "Near byte %d, $VAR parse error encountered\n", (int)(GLOBALS->vcdbyteno_vcd_partial_c_2+(GLOBALS->vst_vcd_partial_c_2-GLOBALS->vcdbuf_vcd_partial_c_2)));
}
if(v->id) free_2(v->id);
if(v->value) free_2(v->value);
free_2(v);
GLOBALS->pv_vcd_partial_c_2 = NULL;
}
bail:
if(vtok!=V_END) sync_end(NULL);
break;
}
case T_ENDDEFINITIONS:
GLOBALS->header_over_vcd_partial_c_2=1; /* do symbol table management here */
create_sorted_table();
if((!GLOBALS->sorted_vcd_partial_c_2)&&(!GLOBALS->indexed_vcd_partial_c_2))
{
fprintf(stderr, "No symbols in VCD file..nothing to do!\n");
exit(1);
}
if(GLOBALS->error_count_vcd_partial_c_2)
{
fprintf(stderr, "\n%d VCD parse errors encountered, exiting.\n", GLOBALS->error_count_vcd_partial_c_2);
exit(1);
}
return;
break;
case T_STRING:
if(!GLOBALS->header_over_vcd_partial_c_2)
{
GLOBALS->header_over_vcd_partial_c_2=1; /* do symbol table management here */
create_sorted_table();
if((!GLOBALS->sorted_vcd_partial_c_2)&&(!GLOBALS->indexed_vcd_partial_c_2)) break;
}
{
/* catchall for events when header over */
if(GLOBALS->yytext_vcd_partial_c_2[0]=='#')
{
TimeType tim;
tim=atoi_64(GLOBALS->yytext_vcd_partial_c_2+1);
if(GLOBALS->start_time_vcd_partial_c_2<0)
{
GLOBALS->start_time_vcd_partial_c_2=tim;
}
GLOBALS->current_time_vcd_partial_c_2=tim;
if(GLOBALS->end_time_vcd_partial_c_2end_time_vcd_partial_c_2=tim; /* in case of malformed vcd files */
DEBUG(fprintf(stderr,"#"TTFormat"\n",tim));
}
else
{
parse_valuechange();
}
}
break;
case T_DUMPALL: /* dump commands modify vals anyway so */
case T_DUMPPORTSALL:
break; /* just loop through.. */
case T_DUMPOFF:
case T_DUMPPORTSOFF:
GLOBALS->dumping_off_vcd_partial_c_2=1;
/* if((!GLOBALS->blackout_regions)||((GLOBALS->blackout_regions)&&(GLOBALS->blackout_regions->bstart<=GLOBALS->blackout_regions->bend))) : remove redundant condition */
if((!GLOBALS->blackout_regions)||(GLOBALS->blackout_regions->bstart<=GLOBALS->blackout_regions->bend))
{
struct blackout_region_t *bt = calloc_2(1, sizeof(struct blackout_region_t));
bt->bstart = GLOBALS->current_time_vcd_partial_c_2 * GLOBALS->time_scale;
bt->next = GLOBALS->blackout_regions;
GLOBALS->blackout_regions = bt;
}
break;
case T_DUMPON:
case T_DUMPPORTSON:
GLOBALS->dumping_off_vcd_partial_c_2=0;
if((GLOBALS->blackout_regions)&&(GLOBALS->blackout_regions->bstart>GLOBALS->blackout_regions->bend))
{
GLOBALS->blackout_regions->bend = GLOBALS->current_time_vcd_partial_c_2 * GLOBALS->time_scale;
}
break;
case T_DUMPVARS:
case T_DUMPPORTS:
if(GLOBALS->current_time_vcd_partial_c_2<0)
{ GLOBALS->start_time_vcd_partial_c_2=GLOBALS->current_time_vcd_partial_c_2=GLOBALS->end_time_vcd_partial_c_2=0; }
break;
case T_VCDCLOSE:
sync_end("VCDCLOSE:");
break; /* next token will be '#' time related followed by $end */
case T_END: /* either closure for dump commands or */
break; /* it's spurious */
case T_UNKNOWN_KEY:
sync_end(NULL); /* skip over unknown keywords */
break;
case T_EOF:
if((GLOBALS->blackout_regions)&&(GLOBALS->blackout_regions->bstart>GLOBALS->blackout_regions->bend))
{
GLOBALS->blackout_regions->bend = GLOBALS->current_time_vcd_partial_c_2 * GLOBALS->time_scale;
}
return;
default:
DEBUG(fprintf(stderr,"UNKNOWN TOKEN\n"));
}
}
}
/*******************************************************************************/
hptr add_histent_p(TimeType tim, struct Node *n, char ch, int regadd, char *vector)
{
struct HistEnt *he, *rc;
char heval;
if(!vector)
{
if(!(rc=n->curr))
{
he=histent_calloc();
he->time=-1;
he->v.h_val=AN_X;
n->curr=he;
n->head.next=he;
add_histent_p(tim,n,ch,regadd, vector);
rc = he;
}
else
{
if(regadd) { tim*=(GLOBALS->time_scale); }
if(ch=='0') heval=AN_0; else
if(ch=='1') heval=AN_1; else
if((ch=='x')||(ch=='X')) heval=AN_X; else
if((ch=='z')||(ch=='Z')) heval=AN_Z; else
if((ch=='h')||(ch=='H')) heval=AN_H; else
if((ch=='u')||(ch=='U')) heval=AN_U; else
if((ch=='w')||(ch=='W')) heval=AN_W; else
if((ch=='l')||(ch=='L')) heval=AN_L; else
/* if(ch=='-') */ heval=AN_DASH; /* default */
if((n->curr->v.h_val!=heval)||(tim==GLOBALS->start_time_vcd_partial_c_2)||(n->vartype==ND_VCD_EVENT)||(GLOBALS->vcd_preserve_glitches)) /* same region == go skip */
{
if(n->curr->time==tim)
{
DEBUG(printf("Warning: Glitch at time ["TTFormat"] Signal [%p], Value [%c->%c].\n",
tim, n, AN_STR[n->curr->v.h_val], ch));
n->curr->v.h_val=heval; /* we have a glitch! */
GLOBALS->num_glitches_vcd_partial_c_3++;
if(!(n->curr->flags&HIST_GLITCH))
{
n->curr->flags|=HIST_GLITCH; /* set the glitch flag */
GLOBALS->num_glitch_regions_vcd_partial_c_3++;
}
}
else
{
he=histent_calloc();
he->time=tim;
he->v.h_val=heval;
n->curr->next=he;
if(n->curr->v.h_val==heval)
{
n->curr->flags|=HIST_GLITCH; /* set the glitch flag */
GLOBALS->num_glitch_regions_vcd_recoder_c_4++;
}
n->curr=he;
GLOBALS->regions+=regadd;
}
}
}
}
else
{
switch(ch)
{
case 's': /* string */
{
if(!(rc=n->curr))
{
he=histent_calloc();
he->flags=(HIST_STRING|HIST_REAL);
he->time=-1;
he->v.h_vector=NULL;
n->curr=he;
n->head.next=he;
add_histent_p(tim,n,ch,regadd, vector);
rc = he;
}
else
{
if(regadd) { tim*=(GLOBALS->time_scale); }
if(n->curr->time==tim)
{
DEBUG(printf("Warning: String Glitch at time ["TTFormat"] Signal [%p].\n",
tim, n));
if(n->curr->v.h_vector) free_2(n->curr->v.h_vector);
n->curr->v.h_vector=vector; /* we have a glitch! */
GLOBALS->num_glitches_vcd_partial_c_3++;
if(!(n->curr->flags&HIST_GLITCH))
{
n->curr->flags|=HIST_GLITCH; /* set the glitch flag */
GLOBALS->num_glitch_regions_vcd_partial_c_3++;
}
}
else
{
he=histent_calloc();
he->flags=(HIST_STRING|HIST_REAL);
he->time=tim;
he->v.h_vector=vector;
n->curr->next=he;
n->curr=he;
GLOBALS->regions+=regadd;
}
}
break;
}
case 'g': /* real number */
{
if(!(rc=n->curr))
{
he=histent_calloc();
he->flags=HIST_REAL;
he->time=-1;
#ifdef WAVE_HAS_H_DOUBLE
he->v.h_double = strtod("NaN", NULL);
#else
he->v.h_vector=NULL;
#endif
n->curr=he;
n->head.next=he;
add_histent_p(tim,n,ch,regadd, vector);
rc = he;
}
else
{
if(regadd) { tim*=(GLOBALS->time_scale); }
if(
#ifdef WAVE_HAS_H_DOUBLE
(vector&&(n->curr->v.h_double!=*(double *)vector))
#else
(n->curr->v.h_vector&&vector&&(*(double *)n->curr->v.h_vector!=*(double *)vector))
#endif
||(tim==GLOBALS->start_time_vcd_partial_c_2)
#ifndef WAVE_HAS_H_DOUBLE
||(!n->curr->v.h_vector)
#endif
||(GLOBALS->vcd_preserve_glitches)||(GLOBALS->vcd_preserve_glitches_real)
) /* same region == go skip */
{
if(n->curr->time==tim)
{
DEBUG(printf("Warning: Real number Glitch at time ["TTFormat"] Signal [%p].\n",
tim, n));
#ifdef WAVE_HAS_H_DOUBLE
n->curr->v.h_double = *((double *)vector);
#else
if(n->curr->v.h_vector) free_2(n->curr->v.h_vector);
n->curr->v.h_vector=vector; /* we have a glitch! */
#endif
GLOBALS->num_glitches_vcd_partial_c_3++;
if(!(n->curr->flags&HIST_GLITCH))
{
n->curr->flags|=HIST_GLITCH; /* set the glitch flag */
GLOBALS->num_glitch_regions_vcd_partial_c_3++;
}
}
else
{
he=histent_calloc();
he->flags=HIST_REAL;
he->time=tim;
#ifdef WAVE_HAS_H_DOUBLE
he->v.h_double = *((double *)vector);
#else
he->v.h_vector=vector;
#endif
n->curr->next=he;
n->curr=he;
GLOBALS->regions+=regadd;
}
}
else
{
#ifndef WAVE_HAS_H_DOUBLE
free_2(vector);
#endif
}
#ifdef WAVE_HAS_H_DOUBLE
free_2(vector);
#endif
}
break;
}
default:
{
if(!(rc=n->curr))
{
he=histent_calloc();
he->time=-1;
he->v.h_vector=NULL;
n->curr=he;
n->head.next=he;
add_histent_p(tim,n,ch,regadd, vector);
rc = he;
}
else
{
if(regadd) { tim*=(GLOBALS->time_scale); }
if(
(n->curr->v.h_vector&&vector&&(strcmp(n->curr->v.h_vector,vector)))
||(tim==GLOBALS->start_time_vcd_partial_c_2)
||(!n->curr->v.h_vector)
||(GLOBALS->vcd_preserve_glitches)
) /* same region == go skip */
{
if(n->curr->time==tim)
{
DEBUG(printf("Warning: Glitch at time ["TTFormat"] Signal [%p], Value [%c->%c].\n",
tim, n, AN_STR[n->curr->v.h_val], ch));
if(n->curr->v.h_vector) free_2(n->curr->v.h_vector);
n->curr->v.h_vector=vector; /* we have a glitch! */
GLOBALS->num_glitches_vcd_partial_c_3++;
if(!(n->curr->flags&HIST_GLITCH))
{
n->curr->flags|=HIST_GLITCH; /* set the glitch flag */
GLOBALS->num_glitch_regions_vcd_partial_c_3++;
}
}
else
{
he=histent_calloc();
he->time=tim;
he->v.h_vector=vector;
n->curr->next=he;
n->curr=he;
GLOBALS->regions+=regadd;
}
}
else
{
free_2(vector);
}
}
break;
}
}
}
return(rc);
}
static void add_tail_histents(void)
{
int j;
struct vcdsymbol *v;
hptr rc;
/* do 'x' trailers */
v=GLOBALS->vcdsymroot_vcd_partial_c_2;
while(v)
{
if((v->vartype==V_REAL)||(v->vartype==V_STRINGTYPE))
{
double *d;
d=malloc_2(sizeof(double));
*d=1.0;
rc = add_histent_p(MAX_HISTENT_TIME-1, v->narray[0], 'g', 0, (char *)d);
set_vcd_vartype(v, v->narray[0]);
v->app_array[0] = rc;
v->tr_array[0] = v->narray[0]->curr;
}
else
if((v->size==1)||(!GLOBALS->atomic_vectors))
for(j=0;jsize;j++)
{
rc = add_histent_p(MAX_HISTENT_TIME-1, v->narray[j], 'x', 0, NULL);
set_vcd_vartype(v, v->narray[j]);
v->app_array[j] = rc;
v->tr_array[j] = v->narray[j]->curr;
}
else
{
rc = add_histent_p(MAX_HISTENT_TIME-1, v->narray[0], 'x', 0, (char *)calloc_2(1,sizeof(char)));
set_vcd_vartype(v, v->narray[0]);
v->app_array[0] = rc;
v->tr_array[0] = v->narray[0]->curr;
}
v=v->next;
}
v=GLOBALS->vcdsymroot_vcd_partial_c_2;
while(v)
{
if((v->vartype==V_REAL)||(v->vartype==V_STRINGTYPE))
{
double *d;
d=malloc_2(sizeof(double));
*d=0.0;
add_histent_p(MAX_HISTENT_TIME, v->narray[0], 'g', 0, (char *)d);
}
else
if((v->size==1)||(!GLOBALS->atomic_vectors))
for(j=0;jsize;j++)
{
add_histent_p(MAX_HISTENT_TIME, v->narray[j], 'z', 0, NULL);
}
else
{
add_histent_p(MAX_HISTENT_TIME, v->narray[0], 'z', 0, (char *)calloc_2(1,sizeof(char)));
}
v=v->next;
}
}
/*******************************************************************************/
static void vcd_build_symbols(void)
{
int j;
int max_slen=-1;
struct sym_chain *sym_chain=NULL, *sym_curr=NULL;
int duphier=0;
char hashdirty;
struct vcdsymbol *v, *vprime;
char *str = wave_alloca(1); /* quiet scan-build null pointer warning below */
#ifdef _WAVE_HAVE_JUDY
int ss_len, longest = 0;
#endif
v=GLOBALS->vcdsymroot_vcd_partial_c_2;
while(v)
{
int msi;
int delta;
{
int slen;
int substnode;
msi=v->msi;
delta=((v->lsi-v->msi)<0)?-1:1;
substnode=0;
slen=strlen(v->name);
str=(slen>max_slen)?(wave_alloca((max_slen=slen)+32)):(str); /* more than enough */
strcpy(str,v->name);
if((v->msi>=0)||(v->msi != v->lsi))
{
strcpy(str+slen,GLOBALS->vcd_hier_delimeter);
slen++;
}
if((vprime=bsearch_vcd(v->id, strlen(v->id)))!=v) /* hash mish means dup net */
{
if(v->size!=vprime->size)
{
fprintf(stderr,"ERROR: Duplicate IDs with differing width: %s %s\n", v->name, vprime->name);
}
else
{
substnode=1;
}
}
if(((v->size==1)||(!GLOBALS->atomic_vectors))&&(v->vartype!=V_REAL)&&(v->vartype!=V_STRINGTYPE))
{
struct symbol *s = NULL;
for(j=0;jsize;j++)
{
if(v->msi>=0)
{
if(!GLOBALS->vcd_explicit_zero_subscripts)
sprintf(str+slen,"%d",msi);
else
sprintf(str+slen-1,"[%d]",msi);
}
hashdirty=0;
if(symfind(str, NULL))
{
char *dupfix=(char *)malloc_2(max_slen+32);
#ifndef _WAVE_HAVE_JUDY
hashdirty=1;
#endif
DEBUG(fprintf(stderr,"Warning: %s is a duplicate net name.\n",str));
do sprintf(dupfix, "$DUP%d%s%s", duphier++, GLOBALS->vcd_hier_delimeter, str);
while(symfind(dupfix, NULL));
strcpy(str, dupfix);
free_2(dupfix);
duphier=0; /* reset for next duplicate resolution */
}
/* fallthrough */
{
s=symadd(str,hashdirty?hash(str):GLOBALS->hashcache);
#ifdef _WAVE_HAVE_JUDY
ss_len = strlen(str); if(ss_len >= longest) { longest = ss_len + 1; }
#endif
s->n=v->narray[j];
if(substnode)
{
struct Node *n, *n2;
n=s->n;
n2=vprime->narray[j];
/* nname stays same */
n->head=n2->head;
n->curr=n2->curr;
/* harray calculated later */
n->numhist=n2->numhist;
}
#ifndef _WAVE_HAVE_JUDY
s->n->nname=s->name;
#endif
if(!GLOBALS->firstnode)
{
GLOBALS->firstnode=
GLOBALS->curnode=calloc_2(1, sizeof(struct symchain));
}
else
{
GLOBALS->curnode->next=calloc_2(1, sizeof(struct symchain));
GLOBALS->curnode=GLOBALS->curnode->next;
}
GLOBALS->curnode->symbol=s;
GLOBALS->numfacs++;
DEBUG(fprintf(stderr,"Added: %s\n",str));
}
msi+=delta;
}
if((j==1)&&(v->root))
{
s->vec_root=(struct symbol *)v->root; /* these will get patched over */
s->vec_chain=(struct symbol *)v->chain; /* these will get patched over */
v->sym_chain=s;
if(!sym_chain)
{
sym_curr=(struct sym_chain *)calloc_2(1,sizeof(struct sym_chain));
sym_chain=sym_curr;
}
else
{
sym_curr->next=(struct sym_chain *)calloc_2(1,sizeof(struct sym_chain));
sym_curr=sym_curr->next;
}
sym_curr->val=s;
}
}
else /* atomic vector */
{
if((v->vartype!=V_REAL)&&(v->vartype!=V_STRINGTYPE)&&(v->vartype!=V_INTEGER)&&(v->vartype!=V_PARAMETER))
/* if((v->vartype!=V_REAL)&&(v->vartype!=V_STRINGTYPE)) */
{
sprintf(str+slen-1,"[%d:%d]",v->msi,v->lsi);
/* 2d add */
if((v->msi>v->lsi)&&((v->msi-v->lsi+1)!=v->size))
{
if((v->vartype!=V_EVENT)&&(v->vartype!=V_PARAMETER))
{
v->msi = v->size-1; v->lsi = 0;
}
}
else
if((v->lsi>=v->msi)&&((v->lsi-v->msi+1)!=v->size))
{
if((v->vartype!=V_EVENT)&&(v->vartype!=V_PARAMETER))
{
v->lsi = v->size-1; v->msi = 0;
}
}
}
else
{
*(str+slen-1)=0;
}
hashdirty=0;
if(symfind(str, NULL))
{
char *dupfix=(char *)malloc_2(max_slen+32);
#ifndef _WAVE_HAVE_JUDY
hashdirty=1;
#endif
DEBUG(fprintf(stderr,"Warning: %s is a duplicate net name.\n",str));
do sprintf(dupfix, "$DUP%d%s%s", duphier++, GLOBALS->vcd_hier_delimeter, str);
while(symfind(dupfix, NULL));
strcpy(str, dupfix);
free_2(dupfix);
duphier=0; /* reset for next duplicate resolution */
}
/* fallthrough */
{
struct symbol *s;
s=symadd(str,hashdirty?hash(str):GLOBALS->hashcache); /* cut down on double lookups.. */
#ifdef _WAVE_HAVE_JUDY
ss_len = strlen(str); if(ss_len >= longest) { longest = ss_len + 1; }
#endif
s->n=v->narray[0];
if(substnode)
{
struct Node *n, *n2;
n=s->n;
n2=vprime->narray[0];
/* nname stays same */
n->head=n2->head;
n->curr=n2->curr;
/* harray calculated later */
n->numhist=n2->numhist;
n->extvals=n2->extvals;
n->msi=n2->msi;
n->lsi=n2->lsi;
}
else
{
s->n->msi=v->msi;
s->n->lsi=v->lsi;
s->n->extvals=1;
}
#ifndef _WAVE_HAVE_JUDY
s->n->nname=s->name;
#endif
if(!GLOBALS->firstnode)
{
GLOBALS->firstnode=
GLOBALS->curnode=calloc_2(1, sizeof(struct symchain));
}
else
{
GLOBALS->curnode->next=calloc_2(1, sizeof(struct symchain));
GLOBALS->curnode=GLOBALS->curnode->next;
}
GLOBALS->curnode->symbol=s;
GLOBALS->numfacs++;
DEBUG(fprintf(stderr,"Added: %s\n",str));
}
}
}
v=v->next;
}
#ifdef _WAVE_HAVE_JUDY
{
Pvoid_t PJArray = GLOBALS->sym_judy;
PPvoid_t PPValue;
char *Index = calloc_2(1, longest);
for (PPValue = JudySLFirst (PJArray, (uint8_t *)Index, PJE0);
PPValue != (PPvoid_t) NULL;
PPValue = JudySLNext (PJArray, (uint8_t *)Index, PJE0))
{
struct symbol *s = *(struct symbol **)PPValue;
s->name = strdup_2(Index);
s->n->nname = s->name;
}
free_2(Index);
}
#endif
if(sym_chain)
{
sym_curr=sym_chain;
while(sym_curr)
{
sym_curr->val->vec_root= ((struct vcdsymbol *)sym_curr->val->vec_root)->sym_chain;
if ((struct vcdsymbol *)sym_curr->val->vec_chain)
sym_curr->val->vec_chain=((struct vcdsymbol *)sym_curr->val->vec_chain)->sym_chain;
DEBUG(printf("Link: ('%s') '%s' -> '%s'\n",sym_curr->val->vec_root->name, sym_curr->val->name, sym_curr->val->vec_chain?sym_curr->val->vec_chain->name:"(END)"));
sym_chain=sym_curr;
sym_curr=sym_curr->next;
free_2(sym_chain);
}
}
}
/*******************************************************************************/
static void vcd_cleanup(void)
{
struct slist *s, *s2;
if(GLOBALS->slisthier) { free_2(GLOBALS->slisthier); GLOBALS->slisthier=NULL; }
s=GLOBALS->slistroot;
while(s)
{
s2=s->next;
if(s->str)free_2(s->str);
free_2(s);
s=s2;
}
GLOBALS->slistroot=GLOBALS->slistcurr=NULL; GLOBALS->slisthier_len=0;
}
/*******************************************************************************/
TimeType vcd_partial_main(char *fname)
{
unsigned int shmidu = ~(0L);
int shmid;
GLOBALS->pv_vcd_partial_c_2=GLOBALS->rootv_vcd_partial_c_2=NULL;
GLOBALS->vcd_hier_delimeter[0]=GLOBALS->hier_delimeter;
errno=0; /* reset in case it's set for some reason */
GLOBALS->yytext_vcd_partial_c_2=(char *)malloc_2(GLOBALS->T_MAX_STR_vcd_partial_c_2+1);
if(!GLOBALS->hier_was_explicitly_set) /* set default hierarchy split char */
{
GLOBALS->hier_delimeter='.';
}
#ifdef __MINGW32__
if(GetEnvironmentVariable("SHMID", NULL, 0))
{
char sEnv[128];
GetEnvironmentVariable("SHMID", sEnv, 128);
sscanf(sEnv, "%x", &shmidu);
}
else
#endif
{
if(!strcmp(fname, "-vcd"))
{
if(!fscanf(stdin, "%x", &shmidu)) shmidu = ~(0L); /* allow use of -v flag to pass straight from stdin */
}
else
{
sscanf(fname, "%x", &shmidu); /* passed as a filename */
}
}
shmid = (int)shmidu;
#ifdef __MINGW32__
{
HANDLE hMapFile;
char mapName[257];
sprintf(mapName, "shmidcat%d", shmid);
hMapFile = OpenFileMapping(FILE_MAP_ALL_ACCESS, FALSE, mapName);
if(hMapFile == NULL)
{
fprintf(stderr, "Could not attach shared memory map name '%s', exiting.\n", mapName);
exit(255);
}
GLOBALS->consume_ptr_vcd_partial_c_1 = GLOBALS->buf_vcd_partial_c_2 = MapViewOfFile(hMapFile, FILE_MAP_ALL_ACCESS, 0, 0, WAVE_PARTIAL_VCD_RING_BUFFER_SIZE);
if(GLOBALS->consume_ptr_vcd_partial_c_1 == NULL)
{
fprintf(stderr, "Could not map view of file '%s', exiting.\n", mapName);
exit(255);
}
}
#else
errno = 0;
GLOBALS->consume_ptr_vcd_partial_c_1 = GLOBALS->buf_vcd_partial_c_2 = shmat(shmid, NULL, 0);
if(errno)
{
fprintf(stderr, "Could not attach shared memory ID %08x\n", shmid);
perror("Why");
exit(255);
}
#endif
sym_hash_initialize(GLOBALS);
getch_alloc(); /* alloc membuff for vcd getch buffer */
build_slisthier();
GLOBALS->vcd_preserve_glitches = 1; /* splicing dictates that we override */
while(!GLOBALS->header_over_vcd_partial_c_2) { vcd_parse(); }
if(GLOBALS->varsplit_vcd_partial_c_2)
{
free_2(GLOBALS->varsplit_vcd_partial_c_2);
GLOBALS->varsplit_vcd_partial_c_2=NULL;
}
if((!GLOBALS->sorted_vcd_partial_c_2)&&(!GLOBALS->indexed_vcd_partial_c_2))
{
fprintf(stderr, "No symbols in VCD file..is it malformed? Exiting!\n");
exit(1);
}
add_tail_histents();
vcd_build_symbols();
vcd_sortfacs();
vcd_cleanup();
GLOBALS->min_time=GLOBALS->start_time_vcd_partial_c_2*GLOBALS->time_scale;
GLOBALS->max_time=GLOBALS->end_time_vcd_partial_c_2*GLOBALS->time_scale;
GLOBALS->global_time_offset = GLOBALS->global_time_offset * GLOBALS->time_scale;
if((GLOBALS->min_time==GLOBALS->max_time)||(GLOBALS->max_time==0))
{
GLOBALS->min_time = GLOBALS->max_time = 0;
}
GLOBALS->is_vcd=~0;
GLOBALS->partial_vcd = ~0;
#ifdef __linux__
{
struct shmid_ds ds;
shmctl(shmid, IPC_RMID, &ds); /* mark for destroy */
}
#endif
return(GLOBALS->max_time);
}
/*******************************************************************************/
static void regen_harray(Trptr t, nptr nd)
{
int i, histcount;
hptr histpnt;
hptr *harray;
if(!nd->harray) /* make quick array lookup for aet display */
{
histpnt=&(nd->head);
histcount=0;
while(histpnt)
{
histcount++;
histpnt=histpnt->next;
}
nd->numhist=histcount;
if(!(nd->harray=harray=(hptr *)malloc_2(histcount*sizeof(hptr))))
{
fprintf( stderr, "Out of memory, can't add %s to analyzer\n",
nd->nname );
free_2(t);
return; /* scan-build : really can't do anything here */
}
histpnt=&(nd->head);
for(i=0;inname,
(*harray)->time, (*harray)->val); */
harray++;
histpnt=histpnt->next;
}
}
}
/* mark vectors that need to be regenerated */
static void regen_trace_mark(Trptr t, int mandclear)
{
if(t->vector)
{
bvptr b = t->n.vec;
bptr bts = b->bits;
int i;
if(1)
{
for(i=0;innbits;i++)
{
if(!bts->nodes[i]->expansion)
{
if(bts->nodes[i]->harray)
{
free_2(bts->nodes[i]->harray);
bts->nodes[i]->harray = NULL;
}
}
else
{
t->interactive_vector_needs_regeneration = 1;
}
}
}
for(i=0;innbits;i++)
{
if(!bts->nodes[i]->harray)
{
t->interactive_vector_needs_regeneration = 1;
return;
}
}
}
else
{
if(t->n.nd) /* comment and blank traces don't have a valid node */
if((t->n.nd->harray) && (mandclear))
{
free_2(t->n.nd->harray);
t->n.nd->harray = NULL;
}
}
}
/* sweep through and regen nodes/dirty vectors */
static void regen_trace_sweep(Trptr t)
{
if(!t->vector)
{
if(t->n.nd) /* comment and blank traces don't have a valid node */
if(!t->n.nd->harray)
{
regen_harray(t, t->n.nd);
}
}
else if(t->interactive_vector_needs_regeneration)
{
bvptr b = t->n.vec;
bptr bts = b->bits;
int i;
bvptr b2;
for(i=0;innbits;i++)
{
if(bts->nodes[i]->expansion)
{
nptr parent = bts->nodes[i]->expansion->parent;
int parentbit = bts->nodes[i]->expansion->parentbit;
DeleteNode(bts->nodes[i]);
bts->nodes[i] = ExtractNodeSingleBit(parent, parentbit);
}
if(!bts->nodes[i]->harray)
{
regen_harray(t, bts->nodes[i]);
}
}
if(!bts->name)
{
bts->name = "";
b2 = bits2vector(bts);
bts->name = NULL;
}
else
{
b2 = bits2vector(bts);
}
t->n.vec = b2;
b2->bits=bts;
free_2(b2->bvname);
b2->bvname = b->bvname;
for(i=0;inumregions;i++)
{
free_2(b->vectors[i]);
}
free_2(b);
}
}
/*******************************************************************************/
void kick_partial_vcd(void)
{
if(GLOBALS->partial_vcd)
{
#ifdef __MINGW32__
Sleep(10);
#else
struct timeval tv;
tv.tv_sec = 0;
tv.tv_usec = 1000000 / 100;
select(0, NULL, NULL, NULL, &tv);
#endif
while(*GLOBALS->consume_ptr_vcd_partial_c_1)
{
int old_maxtime_marker_conflict = (GLOBALS->tims.marker > GLOBALS->max_time);
vcd_parse();
GLOBALS->min_time=GLOBALS->start_time_vcd_partial_c_2*GLOBALS->time_scale;
GLOBALS->max_time=GLOBALS->end_time_vcd_partial_c_2*GLOBALS->time_scale;
GLOBALS->tims.last=GLOBALS->max_time;
GLOBALS->tims.end=GLOBALS->tims.last; /* until the configure_event of wavearea */
if(!GLOBALS->timeset_vcd_partial_c_1)
{
GLOBALS->tims.first=GLOBALS->tims.start=GLOBALS->tims.laststart=GLOBALS->min_time;
GLOBALS->timeset_vcd_partial_c_1 = 1;
}
update_endcap_times_for_partial_vcd();
update_maxmarker_labels();
if(old_maxtime_marker_conflict)
{
old_maxtime_marker_conflict = (GLOBALS->tims.marker<=GLOBALS->max_time); /* data is now past what was invisible marker */
}
vcd_partial_mark_and_sweep(1);
if ((GLOBALS->zoom_dyn) && (!GLOBALS->helpbox_is_active))
{
GLOBALS->tims.marker = GLOBALS->tims.last;
service_zoom_full(NULL, NULL);
GLOBALS->signalwindow_width_dirty=1;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
}
else if ((GLOBALS->zoom_dyne) && (!GLOBALS->helpbox_is_active))
{
GLOBALS->tims.marker = GLOBALS->tims.last;
service_zoom_right(NULL, NULL);
GLOBALS->signalwindow_width_dirty=1;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
}
else if ((old_maxtime_marker_conflict) && (!GLOBALS->helpbox_is_active))
{
GLOBALS->signalwindow_width_dirty=1;
MaxSignalLength();
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
else
{
signalarea_configure_event(GLOBALS->signalarea, NULL);
wavearea_configure_event(GLOBALS->wavearea, NULL);
}
update_maxmarker_labels();
gtkwave_main_iteration();
}
}
gtkwave_main_iteration();
}
static void vcd_partial_regen_node_expansion(Trptr t)
{
if(!t->vector)
{
if(t->n.nd && t->n.nd->expansion)
{
nptr np_ex = ExtractNodeSingleBit(t->n.nd->expansion->parent, t->n.nd->expansion->parentbit);
DeleteNode(t->n.nd);
t->n.nd = np_ex;
t->name_full = np_ex->nname;
t->name = (GLOBALS->hier_max_level) ? hier_extract(t->name_full, GLOBALS->hier_max_level) : t->name_full;
}
}
}
void vcd_partial_mark_and_sweep(int mandclear)
{
Trptr t;
/* node */
t = GLOBALS->traces.first; while(t) { if(!t->vector) regen_trace_mark(t, mandclear); t = t->t_next; }
t = GLOBALS->traces.buffer; while(t) { if(!t->vector) regen_trace_mark(t, mandclear); t = t->t_next; }
t = GLOBALS->traces.first; while(t) { if(!t->vector) regen_trace_sweep(t); t = t->t_next; }
t = GLOBALS->traces.buffer; while(t) { if(!t->vector) regen_trace_sweep(t); t = t->t_next; }
/* node that is single bit extracted */
t = GLOBALS->traces.first; while(t) { vcd_partial_regen_node_expansion(t); t = t->t_next; }
t = GLOBALS->traces.buffer; while(t) { vcd_partial_regen_node_expansion(t); t = t->t_next; }
/* vector */
t = GLOBALS->traces.first; while(t) { if(t->vector) regen_trace_mark(t, mandclear); t = t->t_next; }
t = GLOBALS->traces.buffer; while(t) { if(t->vector) regen_trace_mark(t, mandclear); t = t->t_next; }
t = GLOBALS->traces.first; while(t) { if(t->vector) regen_trace_sweep(t); t = t->t_next; }
t = GLOBALS->traces.buffer; while(t) { if(t->vector) regen_trace_sweep(t); t = t->t_next; }
/* floating point */
t = GLOBALS->traces.first; while(t) { if(t->minmax_valid) t->minmax_valid = 0; t = t->t_next; }
t = GLOBALS->traces.buffer; while(t) { if(t->minmax_valid) t->minmax_valid = 0; t = t->t_next; }
}
gtkwave-gtk3-3.3.125/src/vcd_partial.h 0000664 0001750 0001750 00000000631 15047725112 016745 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_VCD_PARTIAL_H
#define WAVE_VCD_PARTIAL_H
void update_endcap_times_for_partial_vcd(void);
#endif
gtkwave-gtk3-3.3.125/src/interp.c 0000664 0001750 0001750 00000021717 15047725112 015761 0 ustar bybell bybell /**********
Copyright 1990 Regents of the University of California. All rights reserved.
Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
Spice is covered now covered by the BSD Copyright:
Copyright (c) 1985-1991 The Regents of the University of California.
All rights reserved.
Permission is hereby granted, without written agreement and without license
or royalty fees, to use, copy, modify, and distribute this software and its
documentation for any purpose, provided that the above copyright notice and
the following two paragraphs appear in all copies of this software.
IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN
"AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO PROVIDE
MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
**********/
/*
* Polynomial interpolation code.
*/
#include
#include
#include
#include
#include
#ifndef HAVE_BZERO
#define bcopy(a,b,c) memcpy((b),(a),(c))
#define bzero(a,b) memset((a),0,(b))
#define bcmp(a,b,c) memcmp((a),(b),(c))
#endif
#if 0
static void
printmat (char *name, double *mat, int m, int n)
{
int i, j;
printf ("\n\r=== Matrix: %s ===\n\r", name);
for (i = 0; i < m; i++)
{
printf (" | ");
for (j = 0; j < n; j++)
printf ("%G ", mat[i * n + j]);
printf ("|\n\r");
}
printf ("===\n\r");
return;
}
#endif
static double
ft_peval (double x, double *coeffs, int degree)
{
double y;
int i;
if (!coeffs)
return 0.0; /* XXX Should not happen */
y = coeffs[degree]; /* there are (degree+1) coeffs */
for (i = degree - 1; i >= 0; i--)
{
y *= x;
y += coeffs[i];
}
return y;
}
/* Returns the index of the last element that was calculated. oval is the
* value of the old scale at the end of the interval that is being interpolated
* from, and sign is 1 if the old scale was increasing, and -1 if it was
* decreasing.
*/
static int
putinterval (double *poly, int degree, double *nvec, int last, double *nscale,
int nlen, double oval, int sign)
{
int end, i;
/* See how far we have to go. */
for (end = last + 1; end < nlen; end++)
if (nscale[end] * sign > oval * sign)
break;
end--;
for (i = last + 1; i <= end; i++)
nvec[i] = ft_peval (nscale[i], poly, degree);
return (end);
}
/* Takes n = (degree+1) doubles, and fills in result with the n coefficients
* of the polynomial that will fit them. It also takes a pointer to an
* array of n ^ 2 + n doubles to use for scratch -- we want to make this
* fast and avoid doing mallocs for each call.
*/
static int
ft_polyfit (double *xdata, double *ydata, double *result, int degree,
double *scratch)
{
double *mat1 = scratch;
int l, k, j, i;
int n = degree + 1;
double *mat2 = scratch + n * n; /* XXX These guys are hacks! */
double d;
bzero ((char *) result, n * sizeof (double));
bzero ((char *) mat1, n * n * sizeof (double));
bcopy ((char *) ydata, (char *) mat2, n * sizeof (double));
/* Fill in the matrix with x^k for 0 <= k <= degree for each point */
l = 0;
for (i = 0; i < n; i++)
{
d = 1.0;
for (j = 0; j < n; j++)
{
mat1[l] = d;
d *= xdata[i];
l += 1;
}
}
/* Do Gauss-Jordan elimination on mat1. */
for (i = 0; i < n; i++)
{
int lindex;
double largest;
/* choose largest pivot */
for (j = i, largest = mat1[i * n + i], lindex = i; j < n; j++)
{
if (fabs (mat1[j * n + i]) > largest)
{
largest = fabs (mat1[j * n + i]);
lindex = j;
}
}
if (lindex != i)
{
/* swap rows i and lindex */
for (k = 0; k < n; k++)
{
d = mat1[i * n + k];
mat1[i * n + k] = mat1[lindex * n + k];
mat1[lindex * n + k] = d;
}
d = mat2[i];
mat2[i] = mat2[lindex];
mat2[lindex] = d;
}
/* Make sure we have a non-zero pivot. */
if (mat1[i * n + i] == 0.0)
{
/* this should be rotated. */
return (0);
}
for (j = i + 1; j < n; j++)
{
d = mat1[j * n + i] / mat1[i * n + i];
for (k = 0; k < n; k++)
mat1[j * n + k] -= d * mat1[i * n + k];
mat2[j] -= d * mat2[i];
}
}
for (i = n - 1; i > 0; i--)
for (j = i - 1; j >= 0; j--)
{
d = mat1[j * n + i] / mat1[i * n + i];
for (k = 0; k < n; k++)
mat1[j * n + k] -= d * mat1[i * n + k];
mat2[j] -= d * mat2[i];
}
/* Now write the stuff into the result vector. */
for (i = 0; i < n; i++)
{
result[i] = mat2[i] / mat1[i * n + i];
/* printf(stderr, "result[%d] = %G\n", i, result[i]); */
}
#define ABS_TOL 0.001
#define REL_TOL 0.001
/* Let's check and make sure the coefficients are ok. If they aren't,
* just return false. This is not the best way to do it.
*/
for (i = 0; i < n; i++)
{
d = ft_peval (xdata[i], result, degree);
if (fabs (d - ydata[i]) > ABS_TOL)
{
/*
fprintf(stderr,
"Error: polyfit: x = %le, y = %le, int = %le\n",
xdata[i], ydata[i], d);
printmat("mat1", mat1, n, n);
printmat("mat2", mat2, n, 1);
*/
return (0);
}
else if (fabs (d - ydata[i]) / (fabs (d) > ABS_TOL ? fabs (d) :
ABS_TOL) > REL_TOL)
{
/*
fprintf(stderr,
"Error: polyfit: x = %le, y = %le, int = %le\n",
xdata[i], ydata[i], d);
printmat("mat1", mat1, n, n);
printmat("mat2", mat2, n, 1);
*/
return (0);
}
}
return (1);
}
/* Interpolate data from oscale to nscale. data is assumed to be olen long,
* ndata will be nlen long. Returns false if the scales are too strange
* to deal with. Note that we are guaranteed that either both scales are
* strictly increasing or both are strictly decreasing.
*
* Usage: return indicates success or failure
*
* data[] = old y
* oscale[] = old x
* olen = size of above array
*
* ndata[] = routine fills in with new y
* nscale[] = user fills in with new x
* nlen = user fills in with size of above array
*
* note that degree > 2 will result in bumpy curves if the derivatives
* are not smooth
*/
int
ft_interpolate (double *data, double *ndata, double *oscale, int olen,
double *nscale, int nlen, int degree)
{
double *result, *scratch, *xdata, *ydata;
int sign, lastone, i, l;
int rc;
if ((olen < 2) || (nlen < 2))
{
/* fprintf(stderr, "Error: lengths too small to interpolate.\n"); */
return (0);
}
if ((degree < 1) || (degree > olen))
{
/* fprintf(stderr, "Error: degree is %d, can't interpolate.\n",
degree); */
return (0);
}
if (oscale[1] < oscale[0])
sign = -1;
else
sign = 1;
scratch = (double *) malloc ((degree + 1) * (degree + 2) * sizeof (double));
result = (double *) malloc ((degree + 1) * sizeof (double));
xdata = (double *) malloc ((degree + 1) * sizeof (double));
ydata = (double *) malloc ((degree + 1) * sizeof (double));
/* Deal with the first degree pieces. */
bcopy ((char *) data, (char *) ydata, (degree + 1) * sizeof (double));
bcopy ((char *) oscale, (char *) xdata, (degree + 1) * sizeof (double));
while (!ft_polyfit (xdata, ydata, result, degree, scratch))
{
/* If it doesn't work this time, bump the interpolation
* degree down by one.
*/
if (--degree == 0)
{
/* fprintf(stderr, "ft_interpolate: Internal Error.\n"); */
rc = 0;
goto bot;
}
}
/* Add this part of the curve. What we do is evaluate the polynomial
* at those points between the last one and the one that is greatest,
* without being greater than the leftmost old scale point, or least
* if the scale is decreasing at the end of the interval we are looking
* at.
*/
lastone = -1;
for (i = 0; i < degree; i++)
{
lastone = putinterval (result, degree, ndata, lastone,
nscale, nlen, xdata[i], sign);
}
/* Now plot the rest, piece by piece. l is the
* last element under consideration.
*/
for (l = degree + 1; l < olen; l++)
{
/* Shift the old stuff by one and get another value. */
for (i = 0; i < degree; i++)
{
xdata[i] = xdata[i + 1];
ydata[i] = ydata[i + 1];
}
ydata[i] = data[l];
xdata[i] = oscale[l];
while (!ft_polyfit (xdata, ydata, result, degree, scratch))
{
if (--degree == 0)
{
/* fprintf(stderr,
"interpolate: Internal Error.\n"); */
rc = 0;
goto bot;
}
}
lastone = putinterval (result, degree, ndata, lastone,
nscale, nlen, xdata[i], sign);
}
if (lastone < nlen - 1) /* ??? */
ndata[nlen - 1] = data[olen - 1];
rc = 1;
bot:
free (scratch);
free (xdata);
free (ydata);
free (result);
return (rc);
}
gtkwave-gtk3-3.3.125/src/symbol.c 0000664 0001750 0001750 00000014501 15047725112 015756 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2001-2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include "globals.h"
#include
#include
#ifndef __MINGW32__
#include
#endif
#include
#include
#include
#include
#include
#include "symbol.h"
#include "vcd.h"
#include "lxt.h"
#include "bsearch.h"
#include "hierpack.h"
#ifdef _WAVE_HAVE_JUDY
#include
#endif
/*
* s_selected accessors
*/
#ifdef _WAVE_HAVE_JUDY
char get_s_selected(struct symbol *s)
{
int rc = Judy1Test(GLOBALS->s_selected, (Word_t)s, PJE0);
return(rc);
}
char set_s_selected(struct symbol *s, char value)
{
if(value)
{
Judy1Set ((Pvoid_t)&GLOBALS->s_selected, (Word_t)s, PJE0);
}
else
{
Judy1Unset ((Pvoid_t)&GLOBALS->s_selected, (Word_t)s, PJE0);
}
return(value);
}
void destroy_s_selected(void)
{
Judy1FreeArray(&GLOBALS->s_selected, PJE0);
GLOBALS->s_selected = NULL;
}
#else
char get_s_selected(struct symbol *s)
{
return(s->s_selected);
}
char set_s_selected(struct symbol *s, char value)
{
return((s->s_selected = value));
}
void destroy_s_selected(void)
{
/* nothing */
}
#endif
/*
* hash create/destroy
*/
void sym_hash_initialize(void *g)
{
#ifdef _WAVE_HAVE_JUDY
((struct Global *)g)->sym_judy = NULL;
#else
((struct Global *)g)->sym_hash=(struct symbol **)calloc_2(SYMPRIME,sizeof(struct symbol *));
#endif
}
void sym_hash_destroy(void *g)
{
struct Global *gg = (struct Global *)g;
#ifdef _WAVE_HAVE_JUDY
JudySLFreeArray(&gg->sym_judy, PJE0);
gg->sym_judy = NULL;
#else
if(gg->sym_hash)
{
free_2(gg->sym_hash); gg->sym_hash = NULL;
}
#endif
}
/*
* Generic hash function for symbol names...
*/
int hash(char *s)
{
#ifndef _WAVE_HAVE_JUDY
char *p;
char ch;
unsigned int h=0, h2=0, pos=0, g;
for(p=s;*p;p++)
{
ch=*p;
h2<<=3;
h2-=((unsigned int)ch+(pos++)); /* this handles stranded vectors quite well.. */
h=(h<<4)+ch;
if((g=h&0xf0000000))
{
h=h^(g>>24);
h=h^g;
}
}
h^=h2; /* combine the two hashes */
GLOBALS->hashcache=h%SYMPRIME;
#else
(void)s;
#endif
return(GLOBALS->hashcache);
}
/*
* add symbol to table. no duplicate checking
* is necessary as aet's are "correct."
*/
struct symbol *symadd(char *name, int hv)
{
struct symbol *s=(struct symbol *)calloc_2(1,sizeof(struct symbol));
#ifdef _WAVE_HAVE_JUDY
(void)hv;
PPvoid_t PPValue = JudySLIns(&GLOBALS->sym_judy, (uint8_t *)name, PJE0);
*((struct symbol **)PPValue) = s;
#else
strcpy(s->name=(char *)malloc_2(strlen(name)+1),name);
s->sym_next=GLOBALS->sym_hash[hv];
GLOBALS->sym_hash[hv]=s;
#endif
return(s);
}
struct symbol *symadd_name_exists(char *name, int hv)
{
struct symbol *s=(struct symbol *)calloc_2(1,sizeof(struct symbol));
#ifdef _WAVE_HAVE_JUDY
(void)hv;
PPvoid_t PPValue = JudySLIns(&GLOBALS->sym_judy, (uint8_t *)name, PJE0);
*((struct symbol **)PPValue) = s;
s->name = name; /* redundant for now */
#else
s->name = name;
s->sym_next=GLOBALS->sym_hash[hv];
GLOBALS->sym_hash[hv]=s;
#endif
return(s);
}
/*
* find a slot already in the table...
*/
static struct symbol *symfind_2(char *s, unsigned int *rows_return)
{
#ifndef _WAVE_HAVE_JUDY
int hv;
struct symbol *temp;
#endif
if(!GLOBALS->facs_are_sorted)
{
#ifdef _WAVE_HAVE_JUDY
PPvoid_t PPValue = JudySLGet(GLOBALS->sym_judy, (uint8_t *)s, PJE0);
if(PPValue)
{
return(*(struct symbol **)PPValue);
}
#else
hv=hash(s);
if(!(temp=GLOBALS->sym_hash[hv])) return(NULL); /* no hash entry, add here wanted to add */
while(temp)
{
if(!strcmp(temp->name,s))
{
return(temp); /* in table already */
}
if(!temp->sym_next) break;
temp=temp->sym_next;
}
#endif
return(NULL); /* not found, add here if you want to add*/
}
else /* no sense hashing if the facs table is built */
{
struct symbol *sr;
DEBUG(printf("BSEARCH: %s\n",s));
sr = bsearch_facs(s, rows_return);
if(sr)
{
}
else
{
/* this is because . is > in ascii than chars like $ but . was converted to 0x1 on sort */
char *s2;
int i;
int mat;
#ifndef WAVE_HIERFIX
if(!GLOBALS->escaped_names_found_vcd_c_1)
{
return(sr);
}
#endif
if(GLOBALS->facs_have_symbols_state_machine == 0)
{
if(GLOBALS->escaped_names_found_vcd_c_1)
{
mat = 1;
}
else
{
mat = 0;
for(i=0;inumfacs;i++)
{
int was_packed = HIER_DEPACK_STATIC;
char *hfacname = NULL;
hfacname = hier_decompress_flagged(GLOBALS->facs[i]->name, &was_packed);
s2 = hfacname;
while(*s2)
{
if(*s2 < GLOBALS->hier_delimeter)
{
mat = 1;
break;
}
s2++;
}
/* if(was_packed) { free_2(hfacname); } ...not needed with HIER_DEPACK_STATIC */
if(mat) { break; }
}
}
if(mat)
{ GLOBALS->facs_have_symbols_state_machine = 1; }
else
{ GLOBALS->facs_have_symbols_state_machine = 2; } /* prevent code below from executing */
}
if(GLOBALS->facs_have_symbols_state_machine == 1)
{
mat = 0;
for(i=0;inumfacs;i++)
{
int was_packed = HIER_DEPACK_STATIC;
char *hfacname = NULL;
hfacname = hier_decompress_flagged(GLOBALS->facs[i]->name, &was_packed);
if(!strcmp(hfacname, s))
{
mat = 1;
}
/* if(was_packed) { free_2(hfacname); } ...not needed with HIER_DEPACK_STATIC */
if(mat)
{
sr = GLOBALS->facs[i];
break;
}
}
}
}
return(sr);
}
}
struct symbol *symfind(char *s, unsigned int *rows_return)
{
struct symbol *s_pnt = symfind_2(s, rows_return);
if(!s_pnt)
{
int len = strlen(s);
if(len)
{
char ch = s[len-1];
if((ch != ']') && (ch != '}'))
{
char *s2 = wave_alloca(len + 4);
memcpy(s2, s, len);
strcpy(s2+len, "[0]"); /* bluespec vs modelsim */
s_pnt = symfind_2(s2, rows_return);
}
}
}
return(s_pnt);
}
gtkwave-gtk3-3.3.125/src/interp.h 0000664 0001750 0001750 00000000727 15047725112 015764 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2010
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#ifndef WAVE_FT_INTERP_H
#define WAVE_FT_INTERP_H
int ft_interpolate (double *data, double *ndata, double *oscale, int olen, double *nscale, int nlen, int degree);
#endif
gtkwave-gtk3-3.3.125/src/lxt.c 0000664 0001750 0001750 00000202271 15047725112 015263 0 ustar bybell bybell /*
* Copyright (c) Tony Bybell 2001-2014.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*/
#include
#include
#include "zlib.h"
#include "bzlib.h"
#if !defined __MINGW32__
#include
#include
#else
#include
#include
#endif
#include"globals.h"
#include
#include
#include
#include
#include
#include "symbol.h"
#include "vcd.h"
#include "lxt.h"
#include "bsearch.h"
#include "debug.h"
#include "hierpack.h"
/****************************************************************************/
/*
* functions which emit various big endian
* data to a file
*/
static int lt_emit_u8(FILE *handle, int value)
{
unsigned char buf[1];
int nmemb;
buf[0] = value & 0xff;
nmemb=fwrite(buf, sizeof(char), 1, handle);
GLOBALS->fpos_lxt_c_1+=nmemb;
return(nmemb);
}
static int lt_emit_u16(FILE *handle, int value)
{
unsigned char buf[2];
int nmemb;
buf[0] = (value>>8) & 0xff;
buf[1] = value & 0xff;
nmemb = fwrite(buf, sizeof(char), 2, handle);
GLOBALS->fpos_lxt_c_1+=nmemb;
return(nmemb);
}
static int lt_emit_u24(FILE *handle, int value)
{
unsigned char buf[3];
int nmemb;
buf[0] = (value>>16) & 0xff;
buf[1] = (value>>8) & 0xff;
buf[2] = value & 0xff;
nmemb=fwrite(buf, sizeof(char), 3, handle);
GLOBALS->fpos_lxt_c_1+=nmemb;
return(nmemb);
}
static int lt_emit_u32(FILE *handle, int value)
{
unsigned char buf[4];
int nmemb;
buf[0] = (value>>24) & 0xff;
buf[1] = (value>>16) & 0xff;
buf[2] = (value>>8) & 0xff;
buf[3] = value & 0xff;
nmemb=fwrite(buf, sizeof(char), 4, handle);
GLOBALS->fpos_lxt_c_1+=nmemb;
return(nmemb);
}
/****************************************************************************/
#define LXTHDR "LXTLOAD | "
/* its mmap() variant doesn't use file descriptors */
#if defined __MINGW32__
#define PROT_READ (0)
#define MAP_SHARED (0)
HANDLE hIn, hInMap;
char *win_fname = NULL;
void *mmap(void *start, size_t length, int prot, int flags, int fd, off_t offset)
{
close(fd);
hIn = CreateFile(win_fname, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if(hIn == INVALID_HANDLE_VALUE)
{
fprintf(stderr, "Could not open '%s' with CreateFile(), exiting.\n", win_fname);
exit(255);
}
hInMap = CreateFileMapping(hIn, NULL, PAGE_READONLY, 0, 0, NULL);
return(MapViewOfFile(hInMap, FILE_MAP_READ, 0, 0, 0));
}
int munmap(void *start, size_t length)
{
UnmapViewOfFile(start);
CloseHandle(hInMap); hInMap = NULL;
CloseHandle(hIn); hIn = NULL;
return(0);
}
#endif
/****************************************************************************/
#ifdef _WAVE_BE32
/*
* reconstruct 8/16/24/32 bits out of the lxt's representation
* of a big-endian integer. this is for 32-bit PPC so no byte
* swizzling needs to be done at all. for 24-bit ints, we have no danger of
* running off the end of memory provided we do the "-1" trick
* since we'll never read a 24-bit int at the very start of a file which
* means that we'll have a 32-bit word that we can read.
*/
inline static unsigned int get_byte(offset) {
return ((unsigned int)(*((unsigned char *)(GLOBALS->mm_lxt_c_1)+(offset))));
}
inline static unsigned int get_16(offset) {
return ((unsigned int)(*((unsigned short *)(((unsigned char *)(GLOBALS->mm_lxt_c_1))
+(offset)))));
}
inline static unsigned int get_32(offset) {
return (*(unsigned int *)(((unsigned char *)(GLOBALS->mm_lxt_c_1))+(offset)));
}
inline static unsigned int get_24(offset) {
return ((get_32((offset)-1)<<8)>>8);
}
inline static unsigned int get_64(offset) {
return ((((UTimeType)get_32(offset))<<32)|((UTimeType)get_32((offset)+4)));
}
#else
/*
* reconstruct 8/16/24/32 bits out of the lxt's representation
* of a big-endian integer. this should work on all architectures.
*/
#define get_byte(offset) ((unsigned int)(*((unsigned char *)GLOBALS->mm_lxt_c_1+offset)))
static unsigned int get_16(off_t offset)
{
unsigned char *nn=(unsigned char *)GLOBALS->mm_lxt_c_1+offset;
unsigned int m1=*((unsigned char *)(nn++));
unsigned int m2=*((unsigned char *)nn);
return((m1<<8)|m2);
}
static unsigned int get_24(off_t offset)
{
unsigned char *nn=(unsigned char *)GLOBALS->mm_lxt_c_1+offset;
unsigned int m1=*((unsigned char *)(nn++));
unsigned int m2=*((unsigned char *)(nn++));
unsigned int m3=*((unsigned char *)nn);
return((m1<<16)|(m2<<8)|m3);
}
static unsigned int get_32(off_t offset)
{
unsigned char *nn=(unsigned char *)GLOBALS->mm_lxt_c_1+offset;
unsigned int m1=*((unsigned char *)(nn++));
unsigned int m2=*((unsigned char *)(nn++));
unsigned int m3=*((unsigned char *)(nn++));
unsigned int m4=*((unsigned char *)nn);
return((m1<<24)|(m2<<16)|(m3<<8)|m4);
}
static UTimeType get_64(off_t offset)
{
return(
(((UTimeType)get_32(offset))<<32)
|((UTimeType)get_32(offset+4))
);
}
#endif
/****************************************************************************/
static void create_double_endian_mask(int offset)
{
double d;
int i, j;
static double p = 3.14159;
d= *((double *)((unsigned char *)GLOBALS->mm_lxt_c_1+offset));
if(p==d)
{
GLOBALS->double_is_native_lxt_c_1=1;
}
else
{
char *remote, *here;
remote = (char *)&d;
here = (char *)&p;
for(i=0;i<8;i++)
{
for(j=0;j<8;j++)
{
if(here[i]==remote[j])
{
GLOBALS->double_mask_lxt_c_1[i]=j;
break;
}
}
}
}
}
static char *swab_double_via_mask(int offset)
{
char swapbuf[8];
char *pnt = malloc_2(8*sizeof(char));
int i;
memcpy(swapbuf, ((unsigned char *)GLOBALS->mm_lxt_c_1+offset), 8);
for(i=0;i<8;i++)
{
pnt[i]=swapbuf[GLOBALS->double_mask_lxt_c_1[i]];
}
return(pnt);
}
/****************************************************************************/
/*
* convert 0123 to an mvl character representation
*/
static unsigned char convert_mvl(int value)
{
return("01zxhuwl-xxxxxxx"[value&15]);
}
/*
* given an offset into the aet, calculate the "time" of that
* offset in simulation. this func similar to how gtkwave can
* find the most recent valuechange that corresponds with
* an arbitrary timevalue.
*/
static int compar_mvl_timechain(const void *s1, const void *s2)
{
int key, obj, delta;
int rv;
key=*((int *)s1);
obj=*((int *)s2);
if((obj<=key)&&(obj>GLOBALS->max_compare_time_tc_lxt_c_2))
{
GLOBALS->max_compare_time_tc_lxt_c_2=obj;
GLOBALS->max_compare_pos_tc_lxt_c_2=(int *)s2 - GLOBALS->positional_information_lxt_c_1;
}
delta=key-obj;
if(delta<0) rv=-1;
else if(delta>0) rv=1;
else rv=0;
return(rv);
}
static TimeType bsearch_mvl_timechain(int key)
{
GLOBALS->max_compare_time_tc_lxt_c_2=-1; GLOBALS->max_compare_pos_tc_lxt_c_2=-1;
if(bsearch((void *)&key, (void *)GLOBALS->positional_information_lxt_c_1, GLOBALS->total_cycles_lxt_c_2, sizeof(int), compar_mvl_timechain))
{
/* nothing, all side effects are in bsearch */
}
if((GLOBALS->max_compare_pos_tc_lxt_c_2<=0)||(GLOBALS->max_compare_time_tc_lxt_c_2<0))
{
GLOBALS->max_compare_pos_tc_lxt_c_2=0; /* aix bsearch fix */
}
return(GLOBALS->time_information[GLOBALS->max_compare_pos_tc_lxt_c_2]);
}
/*
* build up decompression dictionary for MVL2 facs >16 bits ...
*/
static void build_dict(void)
{
gzFile zhandle;
off_t offs = GLOBALS->zdictionary_offset_lxt_c_1+24;
int total_mem, rc;
unsigned int i;
char *decmem=NULL;
char *pnt;
#if defined __MINGW32__
FILE *tmp;
#endif
GLOBALS->dict_num_entries_lxt_c_1 = get_32(GLOBALS->zdictionary_offset_lxt_c_1+0);
GLOBALS->dict_string_mem_required_lxt_c_1 = get_32(GLOBALS->zdictionary_offset_lxt_c_1+4);
GLOBALS->dict_16_offset_lxt_c_1 = get_32(GLOBALS->zdictionary_offset_lxt_c_1+8);
GLOBALS->dict_24_offset_lxt_c_1 = get_32(GLOBALS->zdictionary_offset_lxt_c_1+12);
GLOBALS->dict_32_offset_lxt_c_1 = get_32(GLOBALS->zdictionary_offset_lxt_c_1+16);
GLOBALS->dict_width_lxt_c_1 = get_32(GLOBALS->zdictionary_offset_lxt_c_1+20);
DEBUG(fprintf(stderr, LXTHDR"zdictionary_offset = %08x\n", GLOBALS->zdictionary_offset_lxt_c_1));
DEBUG(fprintf(stderr, LXTHDR"zdictionary_predec_size = %08x\n\n", GLOBALS->zdictionary_predec_size_lxt_c_1));
DEBUG(fprintf(stderr, LXTHDR"dict_num_entries = %d\n", GLOBALS->dict_num_entries_lxt_c_1));
DEBUG(fprintf(stderr, LXTHDR"dict_string_mem_required = %d\n", GLOBALS->dict_string_mem_required_lxt_c_1));
DEBUG(fprintf(stderr, LXTHDR"dict_16_offset = %d\n", GLOBALS->dict_16_offset_lxt_c_1));
DEBUG(fprintf(stderr, LXTHDR"dict_24_offset = %d\n", GLOBALS->dict_24_offset_lxt_c_1));
DEBUG(fprintf(stderr, LXTHDR"dict_32_offset = %d\n", GLOBALS->dict_32_offset_lxt_c_1));
fprintf(stderr, LXTHDR"Dictionary compressed MVL2 change records detected...\n");
#if defined __MINGW32__
{
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+offs;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->zdictionary_predec_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
zhandle = gzdopen(dup(fileno(tmp)), "rb");
}
#else
if(offs!=lseek(GLOBALS->fd_lxt_c_1, offs, SEEK_SET)) { fprintf(stderr, LXTHDR"dict lseek error at offset %08x\n", (unsigned int)offs); exit(255); }
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
decmem = malloc_2(total_mem = GLOBALS->dict_string_mem_required_lxt_c_1);
rc=gzread(zhandle, decmem, total_mem);
DEBUG(printf(LXTHDR"section offs for name decompression = %08x of len %d\n", offs, GLOBALS->dict_num_entries_lxt_c_1));
DEBUG(printf(LXTHDR"Decompressed size is %d bytes (vs %d)\n", rc, total_mem));
if(rc!=total_mem) { fprintf(stderr, LXTHDR"decompression size disparity %d bytes (vs %d)\n", rc, total_mem); exit(255); }
GLOBALS->dict_string_mem_array_lxt_c_1 = (char **)calloc_2(GLOBALS->dict_num_entries_lxt_c_1, sizeof(char *));
pnt = decmem;
for(i=0;idict_num_entries_lxt_c_1;i++)
{
GLOBALS->dict_string_mem_array_lxt_c_1[i]=pnt;
pnt+=(strlen(pnt)+1);
DEBUG(printf(LXTHDR"Dict %d: '1%s'\n", i, GLOBALS->dict_string_mem_array_lxt_c_1[i]));
}
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
fprintf(stderr, LXTHDR"...expanded %d entries from %08x into %08x bytes.\n", GLOBALS->dict_num_entries_lxt_c_1, GLOBALS->zdictionary_predec_size_lxt_c_1, GLOBALS->dict_string_mem_required_lxt_c_1);
}
/*
* decompress facility names and build up fac geometry
*/
static void build_facs(char *fname, char **f_name, struct Node *node_block)
{
char *buf, *bufprev = NULL, *bufcurr;
off_t offs=GLOBALS->facname_offset_lxt_c_1+8;
int i, j, clone;
char *pnt = NULL;
int total_mem = get_32(GLOBALS->facname_offset_lxt_c_1+4);
gzFile zhandle = NULL;
char *decmem=NULL;
#if defined __MINGW32__
FILE *tmp;
#endif
buf=malloc_2(total_mem);
pnt=bufprev=buf;
if(GLOBALS->zfacname_size_lxt_c_1)
{
int rc;
#if defined __MINGW32__
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+offs;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->zfacname_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
zhandle = gzdopen(dup(fileno(tmp)), "rb");
#else
if(offs!=lseek(GLOBALS->fd_lxt_c_1, offs, SEEK_SET)) { fprintf(stderr, LXTHDR"zfacname lseek error at offset %08x\n", (unsigned int)offs); exit(255); }
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
GLOBALS->mmcache_lxt_c_1 = GLOBALS->mm_lxt_c_1;
decmem = malloc_2(total_mem = GLOBALS->zfacname_predec_size_lxt_c_1); GLOBALS->mm_lxt_c_1 = decmem;
rc=gzread(zhandle, decmem, total_mem);
DEBUG(printf(LXTHDR"section offs for name decompression = %08x of len %d\n", offs, GLOBALS->zfacname_size_lxt_c_1));
DEBUG(printf(LXTHDR"Decompressed size is %d bytes (vs %d)\n", rc, total_mem));
if(rc!=total_mem) { fprintf(stderr, LXTHDR"decompression size disparity %d bytes (vs %d)\n", rc, total_mem); exit(255); }
offs=0; /* we're in our new memory region now.. */
}
fprintf(stderr, LXTHDR"Building %d facilities.\n", GLOBALS->numfacs);
for(i=0;inumfacs;i++)
{
clone=get_16(offs); offs+=2;
bufcurr=pnt;
for(j=0;jzfacname_size_lxt_c_1)
{
GLOBALS->mm_lxt_c_1 = GLOBALS->mmcache_lxt_c_1;
free_2(decmem); decmem = NULL;
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
}
if(!GLOBALS->facgeometry_offset_lxt_c_1)
{
fprintf(stderr, "LXT '%s' is missing a facility geometry section, exiting.\n", fname);
exit(255);
}
offs=GLOBALS->facgeometry_offset_lxt_c_1;
if(GLOBALS->zfacgeometry_size_lxt_c_1)
{
int rc;
#if defined __MINGW32__
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+offs;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->zfacgeometry_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
zhandle = gzdopen(dup(fileno(tmp)), "rb");
#else
if(offs!=lseek(GLOBALS->fd_lxt_c_1, offs, SEEK_SET)) { fprintf(stderr, LXTHDR"zfacgeometry lseek error at offset %08x\n", (unsigned int)offs); exit(255); }
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
GLOBALS->mmcache_lxt_c_1 = GLOBALS->mm_lxt_c_1;
total_mem = GLOBALS->numfacs * 16;
decmem = malloc_2(total_mem); GLOBALS->mm_lxt_c_1 = decmem;
rc=gzread(zhandle, decmem, total_mem);
DEBUG(printf(LXTHDR"section offs for facgeometry decompression = %08x of len %d\n", offs, GLOBALS->zfacgeometry_size_lxt_c_1));
DEBUG(printf(LXTHDR"Decompressed size is %d bytes (vs %d)\n", rc, total_mem));
if(rc!=total_mem) { fprintf(stderr, LXTHDR"decompression size disparity %d bytes (vs %d)\n", rc, total_mem); exit(255); }
offs=0; /* we're in our new memory region now.. */
}
for(i=0;inumfacs;i++)
{
GLOBALS->mvlfacs_lxt_c_2[i].node_alias=get_32(offs);
node_block[i].msi=get_32(offs+4);
node_block[i].lsi=get_32(offs+8);
GLOBALS->mvlfacs_lxt_c_2[i].flags=get_32(offs+12);
GLOBALS->mvlfacs_lxt_c_2[i].len=(node_block[i].lsi>node_block[i].msi)?(node_block[i].lsi-node_block[i].msi+1):(node_block[i].msi-node_block[i].lsi+1);
if(GLOBALS->mvlfacs_lxt_c_2[i].len>GLOBALS->lt_len_lxt_c_1) GLOBALS->lt_len_lxt_c_1 = GLOBALS->mvlfacs_lxt_c_2[i].len;
DEBUG(printf(LXTHDR"%s[%d:%d]\n", f_name[i], node_block[i].msi, node_block[i].lsi));
offs+=0x10;
}
GLOBALS->lt_buf_lxt_c_1 = malloc_2(GLOBALS->lt_len_lxt_c_1>255 ? GLOBALS->lt_len_lxt_c_1 : 256); /* in order to keep trivial LXT files from overflowing their buffer */
if(GLOBALS->zfacgeometry_size_lxt_c_1)
{
GLOBALS->mm_lxt_c_1 = GLOBALS->mmcache_lxt_c_1;
free_2(decmem); decmem = NULL;
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
}
}
/*
* build up the lastchange entries so we can start to walk
* through the aet..
*/
static void build_facs2(char *fname)
{
int i;
off_t offs;
int chg;
int maxchg=0, maxindx=0;
int last_position;
TimeType last_time;
char *decmem = NULL;
int total_mem;
gzFile zhandle = NULL;
#if defined __MINGW32__
FILE *tmp;
#endif
if((!GLOBALS->time_table_offset_lxt_c_1)&&(!GLOBALS->time_table_offset64_lxt_c_1))
{
fprintf(stderr, "LXT '%s' is missing a time table section, exiting.\n", fname);
exit(255);
}
if((GLOBALS->time_table_offset_lxt_c_1)&&(GLOBALS->time_table_offset64_lxt_c_1))
{
fprintf(stderr, "LXT '%s' has both 32 and 64-bit time table sections, exiting.\n", fname);
exit(255);
}
if(GLOBALS->time_table_offset_lxt_c_1)
{
offs = GLOBALS->time_table_offset_lxt_c_1;
DEBUG(printf(LXTHDR"Time table position: %08x\n", GLOBALS->time_table_offset_lxt_c_1 + 12));
GLOBALS->total_cycles_lxt_c_2=get_32(offs+0);
DEBUG(printf(LXTHDR"Total cycles: %d\n", GLOBALS->total_cycles_lxt_c_2));
if(GLOBALS->ztime_table_size_lxt_c_1)
{
int rc;
#if defined __MINGW32__
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+offs+4;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->ztime_table_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
zhandle = gzdopen(dup(fileno(tmp)), "rb");
#else
if((offs+4)!=lseek(GLOBALS->fd_lxt_c_1, offs+4, SEEK_SET)) { fprintf(stderr, LXTHDR"ztime_table lseek error at offset %08x\n", (unsigned int)offs); exit(255); }
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
GLOBALS->mmcache_lxt_c_1 = GLOBALS->mm_lxt_c_1;
total_mem = 4 + 4 + (GLOBALS->total_cycles_lxt_c_2 * 4) + (GLOBALS->total_cycles_lxt_c_2 * 4);
decmem = malloc_2(total_mem); GLOBALS->mm_lxt_c_1 = decmem;
rc=gzread(zhandle, decmem, total_mem);
DEBUG(printf(LXTHDR"section offs for timetable decompression = %08x of len %d\n", offs, GLOBALS->ztime_table_size_lxt_c_1));
DEBUG(printf(LXTHDR"Decompressed size is %d bytes (vs %d)\n", rc, total_mem));
if(rc!=total_mem) { fprintf(stderr, LXTHDR"decompression size disparity %d bytes (vs %d)\n", rc, total_mem); exit(255); }
offs=0; /* we're in our new memory region now.. */
}
else
{
offs+=4; /* skip past count to make consistent view between compressed/uncompressed */
}
GLOBALS->first_cycle_lxt_c_2=get_32(offs);
DEBUG(printf(LXTHDR"First cycle: %d\n", GLOBALS->first_cycle_lxt_c_2));
GLOBALS->last_cycle_lxt_c_2=get_32(offs+4);
DEBUG(printf(LXTHDR"Last cycle: %d\n", GLOBALS->last_cycle_lxt_c_2));
DEBUG(printf(LXTHDR"Total cycles (actual): %d\n", GLOBALS->last_cycle_lxt_c_2-GLOBALS->first_cycle_lxt_c_2+1));
/* rebuild time table from its deltas... */
GLOBALS->positional_information_lxt_c_1 = (int *)malloc_2(GLOBALS->total_cycles_lxt_c_2 * sizeof(int));
last_position=0;
offs+=8;
for(i=0;itotal_cycles_lxt_c_2;i++)
{
last_position = GLOBALS->positional_information_lxt_c_1[i] = get_32(offs) + last_position;
offs+=4;
}
GLOBALS->time_information = (TimeType *)malloc_2(GLOBALS->total_cycles_lxt_c_2 * sizeof(TimeType));
last_time=LLDescriptor(0);
for(i=0;itotal_cycles_lxt_c_2;i++)
{
last_time = GLOBALS->time_information[i] = ((TimeType)get_32(offs)) + last_time;
GLOBALS->time_information[i] *= (GLOBALS->time_scale);
offs+=4;
}
if(GLOBALS->ztime_table_size_lxt_c_1)
{
GLOBALS->mm_lxt_c_1 = GLOBALS->mmcache_lxt_c_1;
free_2(decmem); decmem = NULL;
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
}
}
else /* 64-bit read */
{
offs = GLOBALS->time_table_offset64_lxt_c_1;
DEBUG(printf(LXTHDR"Time table position: %08x\n", GLOBALS->time_table_offset64_lxt_c_1 + 20));
GLOBALS->total_cycles_lxt_c_2=(TimeType)((unsigned int)get_32(offs+0));
DEBUG(printf(LXTHDR"Total cycles: %d\n", GLOBALS->total_cycles_lxt_c_2));
if(GLOBALS->ztime_table_size_lxt_c_1)
{
int rc;
#if defined __MINGW32__
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+offs+4;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->ztime_table_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
zhandle = gzdopen(dup(fileno(tmp)), "rb");
#else
if((offs+4)!=lseek(GLOBALS->fd_lxt_c_1, offs+4, SEEK_SET)) { fprintf(stderr, LXTHDR"ztime_table lseek error at offset %08x\n", (unsigned int)offs); exit(255); }
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
GLOBALS->mmcache_lxt_c_1 = GLOBALS->mm_lxt_c_1;
total_mem = 8 + 8 + (GLOBALS->total_cycles_lxt_c_2 * 4) + (GLOBALS->total_cycles_lxt_c_2 * 8);
decmem = malloc_2(total_mem); GLOBALS->mm_lxt_c_1 = decmem;
rc=gzread(zhandle, decmem, total_mem);
DEBUG(printf(LXTHDR"section offs for timetable decompression = %08x of len %d\n", offs, GLOBALS->ztime_table_size_lxt_c_1));
DEBUG(printf(LXTHDR"Decompressed size is %d bytes (vs %d)\n", rc, total_mem));
if(rc!=total_mem) { fprintf(stderr, LXTHDR"decompression size disparity %d bytes (vs %d)\n", rc, total_mem); exit(255); }
offs=0; /* we're in our new memory region now.. */
}
else
{
offs+=4; /* skip past count to make consistent view between compressed/uncompressed */
}
GLOBALS->first_cycle_lxt_c_2=get_64(offs);
DEBUG(printf(LXTHDR"First cycle: %d\n", GLOBALS->first_cycle_lxt_c_2));
GLOBALS->last_cycle_lxt_c_2=get_64(offs+8);
DEBUG(printf(LXTHDR"Last cycle: %d\n", GLOBALS->last_cycle_lxt_c_2));
DEBUG(printf(LXTHDR"Total cycles (actual): %lld\n", GLOBALS->last_cycle_lxt_c_2-GLOBALS->first_cycle_lxt_c_2+1));
/* rebuild time table from its deltas... */
GLOBALS->positional_information_lxt_c_1 = (int *)malloc_2(GLOBALS->total_cycles_lxt_c_2 * sizeof(int));
last_position=0;
offs+=16;
for(i=0;itotal_cycles_lxt_c_2;i++)
{
last_position = GLOBALS->positional_information_lxt_c_1[i] = get_32(offs) + last_position;
offs+=4;
}
GLOBALS->time_information = (TimeType *)malloc_2(GLOBALS->total_cycles_lxt_c_2 * sizeof(TimeType));
last_time=LLDescriptor(0);
for(i=0;itotal_cycles_lxt_c_2;i++)
{
last_time = GLOBALS->time_information[i] = ((TimeType)get_64(offs)) + last_time;
GLOBALS->time_information[i] *= (GLOBALS->time_scale);
offs+=8;
}
if(GLOBALS->ztime_table_size_lxt_c_1)
{
GLOBALS->mm_lxt_c_1 = GLOBALS->mmcache_lxt_c_1;
free_2(decmem); decmem = NULL;
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
}
}
if(GLOBALS->sync_table_offset_lxt_c_1)
{
offs = GLOBALS->sync_table_offset_lxt_c_1;
if(GLOBALS->zsync_table_size_lxt_c_1)
{
int rc;
#if defined __MINGW32__
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+offs;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->zsync_table_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
zhandle = gzdopen(dup(fileno(tmp)), "rb");
#else
if(offs!=lseek(GLOBALS->fd_lxt_c_1, offs, SEEK_SET)) { fprintf(stderr, LXTHDR"zsync_table lseek error at offset %08x\n", (unsigned int)offs); exit(255); }
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
GLOBALS->mmcache_lxt_c_1 = GLOBALS->mm_lxt_c_1;
decmem = malloc_2(total_mem = GLOBALS->numfacs * 4); GLOBALS->mm_lxt_c_1 = decmem;
rc=gzread(zhandle, decmem, total_mem);
DEBUG(printf(LXTHDR"section offs for synctable decompression = %08x of len %d\n", offs, GLOBALS->zsync_table_size_lxt_c_1));
DEBUG(printf(LXTHDR"Decompressed size is %d bytes (vs %d)\n", rc, total_mem));
if(rc!=total_mem) { fprintf(stderr, LXTHDR"decompression size disparity %d bytes (vs %d)\n", rc, total_mem); exit(255); }
offs=0; /* we're in our new memory region now.. */
}
for(i=0;inumfacs;i++)
{
chg=get_32(offs); offs+=4;
if(chg>maxchg) {maxchg=chg; maxindx=i; }
GLOBALS->lastchange[i]=chg;
}
if(GLOBALS->zsync_table_size_lxt_c_1)
{
GLOBALS->mm_lxt_c_1 = GLOBALS->mmcache_lxt_c_1;
free_2(decmem); decmem = NULL;
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
}
GLOBALS->maxchange_lxt_c_1=maxchg;
GLOBALS->maxindex_lxt_c_1=maxindx;
}
if(GLOBALS->zchg_size_lxt_c_1)
{
/* we don't implement the tempfile version for windows... */
#if !defined __MINGW32__
if(GLOBALS->zchg_predec_size_lxt_c_1 > LXT_MMAP_MALLOC_BOUNDARY)
{
int fd_dummy;
char *nam = tmpnam_2(NULL, &fd_dummy);
FILE *tmp = fopen(nam, "wb");
unsigned int len=GLOBALS->zchg_predec_size_lxt_c_1;
int rc;
char buf[32768];
int fd2 = open(nam, O_RDONLY);
char testbyte[2]={0,0};
char is_bz2;
unlink(nam);
if(fd_dummy >=0) close(fd_dummy);
fprintf(stderr, LXTHDR"Compressed change records detected, making tempfile...\n");
if(GLOBALS->change_field_offset_lxt_c_1 != lseek(GLOBALS->fd_lxt_c_1, GLOBALS->change_field_offset_lxt_c_1, SEEK_SET)) { fprintf(stderr, LXTHDR"lseek error at offset %08x\n", (unsigned int)GLOBALS->change_field_offset_lxt_c_1); exit(255); }
is_bz2 = (read(GLOBALS->fd_lxt_c_1, &testbyte, 2))&&(testbyte[0]=='B')&&(testbyte[1]=='Z');
if(GLOBALS->change_field_offset_lxt_c_1 != lseek(GLOBALS->fd_lxt_c_1, GLOBALS->change_field_offset_lxt_c_1, SEEK_SET)) { fprintf(stderr, LXTHDR"lseek error at offset %08x\n", (unsigned int)GLOBALS->change_field_offset_lxt_c_1); exit(255); }
if(is_bz2)
{
zhandle = BZ2_bzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
while(len)
{
int siz = (len>32768) ? 32768 : len;
rc = BZ2_bzread(zhandle, buf, siz);
if(rc!=siz) { fprintf(stderr, LXTHDR"gzread error to tempfile %d (act) vs %d (exp), exiting.\n", rc, siz); exit(255); }
if(1 != fwrite(buf, siz, 1, tmp)) { fprintf(stderr, LXTHDR"fwrite error to tempfile, exiting.\n"); exit(255); };
len -= siz;
}
fprintf(stderr, LXTHDR"...expanded %08x into %08x bytes.\n", GLOBALS->zchg_size_lxt_c_1, GLOBALS->zchg_predec_size_lxt_c_1);
BZ2_bzclose(zhandle);
}
else
{
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
while(len)
{
int siz = (len>32768) ? 32768 : len;
rc = gzread(zhandle, buf, siz);
if(rc!=siz) { fprintf(stderr, LXTHDR"gzread error to tempfile %d (act) vs %d (exp), exiting.\n", rc, siz); exit(255); }
if(1 != fwrite(buf, siz, 1, tmp)) { fprintf(stderr, LXTHDR"fwrite error to tempfile, exiting.\n"); exit(255); };
len -= siz;
}
fprintf(stderr, LXTHDR"...expanded %08x into %08x bytes.\n", GLOBALS->zchg_size_lxt_c_1, GLOBALS->zchg_predec_size_lxt_c_1);
gzclose(zhandle);
}
munmap(GLOBALS->mm_lxt_c_1, GLOBALS->f_len_lxt_c_1); close(GLOBALS->fd_lxt_c_1);
fflush(tmp);
fseeko(tmp, 0, SEEK_SET);
fclose(tmp);
GLOBALS->fd_lxt_c_1 = fd2;
GLOBALS->mm_lxt_c_1=mmap(NULL, GLOBALS->zchg_predec_size_lxt_c_1, PROT_READ, MAP_SHARED, GLOBALS->fd_lxt_c_1, 0);
GLOBALS->mm_lxt_mmap_addr = GLOBALS->mm_lxt_c_1;
GLOBALS->mm_lxt_mmap_len = GLOBALS->zchg_predec_size_lxt_c_1;
GLOBALS->mm_lxt_c_1=(void *)((char *)GLOBALS->mm_lxt_c_1-4); /* because header and version don't exist in packed change records */
}
else
#endif
{
unsigned int len=GLOBALS->zchg_predec_size_lxt_c_1;
int rc;
char *buf = malloc_2(GLOBALS->zchg_predec_size_lxt_c_1);
char *pnt = buf;
char testbyte[2]={0,0};
char is_bz2;
fprintf(stderr, LXTHDR"Compressed change records detected...\n");
#if defined __MINGW32__
{
unsigned char *t = (char *)GLOBALS->mm_lxt_c_1+GLOBALS->change_field_offset_lxt_c_1;
tmp = tmpfile(); if(!tmp) { fprintf(stderr, LXTHDR"could not open decompression tempfile, exiting.\n"); exit(255); }
fwrite(t, GLOBALS->zchg_size_lxt_c_1, 1, tmp); fseek(tmp, 0, SEEK_SET);
is_bz2 = (get_byte(GLOBALS->change_field_offset_lxt_c_1)=='B') && (get_byte(GLOBALS->change_field_offset_lxt_c_1+1)=='Z');
}
#else
if(GLOBALS->change_field_offset_lxt_c_1 != lseek(GLOBALS->fd_lxt_c_1, GLOBALS->change_field_offset_lxt_c_1, SEEK_SET)) { fprintf(stderr, LXTHDR"lseek error at offset %08x\n", (unsigned int)GLOBALS->change_field_offset_lxt_c_1); exit(255); }
is_bz2 = (read(GLOBALS->fd_lxt_c_1, &testbyte, 2))&&(testbyte[0]=='B')&&(testbyte[1]=='Z');
if(GLOBALS->change_field_offset_lxt_c_1 != lseek(GLOBALS->fd_lxt_c_1, GLOBALS->change_field_offset_lxt_c_1, SEEK_SET)) { fprintf(stderr, LXTHDR"lseek error at offset %08x\n", (unsigned int)GLOBALS->change_field_offset_lxt_c_1); exit(255); }
#endif
if(is_bz2)
{
#if defined __MINGW32__
zhandle = BZ2_bzdopen(dup(fileno(tmp)), "rb");
#else
zhandle = BZ2_bzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
while(len)
{
int siz = (len>32768) ? 32768 : len;
rc = BZ2_bzread(zhandle, pnt, siz);
if(rc!=siz) { fprintf(stderr, LXTHDR"BZ2_bzread error to buffer %d (act) vs %d (exp), exiting.\n", rc, siz); exit(255); }
pnt += siz;
len -= siz;
}
fprintf(stderr, LXTHDR"...expanded %08x into %08x bytes.\n", GLOBALS->zchg_size_lxt_c_1, GLOBALS->zchg_predec_size_lxt_c_1);
BZ2_bzclose(zhandle);
}
else
{
#if defined __MINGW32__
zhandle = gzdopen(dup(fileno(tmp)), "rb");
#else
zhandle = gzdopen(dup(GLOBALS->fd_lxt_c_1), "rb");
#endif
while(len)
{
int siz = (len>32768) ? 32768 : len;
rc = gzread(zhandle, pnt, siz);
if(rc!=siz) { fprintf(stderr, LXTHDR"gzread error to buffer %d (act) vs %d (exp), exiting.\n", rc, siz); exit(255); }
pnt += siz;
len -= siz;
}
fprintf(stderr, LXTHDR"...expanded %08x into %08x bytes.\n", GLOBALS->zchg_size_lxt_c_1, GLOBALS->zchg_predec_size_lxt_c_1);
gzclose(zhandle);
#if defined __MINGW32__
fclose(tmp);
#endif
}
munmap(GLOBALS->mm_lxt_c_1, GLOBALS->f_len_lxt_c_1);
#if !defined __MINGW32__
close(GLOBALS->fd_lxt_c_1);
#endif
GLOBALS->fd_lxt_c_1=-1;
GLOBALS->mm_lxt_c_1=buf-4; /* because header and version don't exist in packed change records */
}
}
if(!GLOBALS->sync_table_offset_lxt_c_1)
{
off_t vlen = GLOBALS->zchg_predec_size_lxt_c_1 ? GLOBALS->zchg_predec_size_lxt_c_1+4 : 0;
unsigned int numfacs_bytes;
unsigned int num_records = 0;
unsigned int last_change_delta, numbytes;
int *positional_compar = GLOBALS->positional_information_lxt_c_1;
int *positional_kill_pnt = GLOBALS->positional_information_lxt_c_1 + GLOBALS->total_cycles_lxt_c_2;
char positional_kill = 0;
unsigned int dict_16_offset_new = 0;
unsigned int dict_24_offset_new = 0;
unsigned int dict_32_offset_new = 0;
char *nam;
FILE *tmp;
int recfd;
int fd_dummy;
offs = GLOBALS->zchg_predec_size_lxt_c_1 ? 4 : 0;
fprintf(stderr, LXTHDR"Linear LXT encountered...\n");
if(!GLOBALS->zchg_predec_size_lxt_c_1)
{
fprintf(stderr, LXTHDR"Uncompressed linear LXT not supported, exiting.\n");
exit(255);
}
if(GLOBALS->numfacs >= 256*65536)
{
numfacs_bytes = 3;
}
else
if(GLOBALS->numfacs >= 65536)
{
numfacs_bytes = 2;
}
else
if(GLOBALS->numfacs >= 256)
{
numfacs_bytes = 1;
}
else
{
numfacs_bytes = 0;
}
nam = tmpnam_2(NULL, &fd_dummy);
tmp = fopen(nam, "wb");
GLOBALS->fpos_lxt_c_1 = 4; /* fake 4 bytes padding */
recfd = open(nam, O_RDONLY);
unlink(nam);
if(fd_dummy >=0) close(fd_dummy);
while(offs < vlen)
{
int facidx = 0;
unsigned char cmd;
off_t offscache2, offscache3;
unsigned int height;
unsigned char cmdkill;
num_records++;
/* remake time vs position table on the fly */
if(!positional_kill)
{
if(offs == *positional_compar)
{
*positional_compar = GLOBALS->fpos_lxt_c_1;
positional_compar++;
if(positional_compar == positional_kill_pnt) positional_kill = 1;
}
}
switch(numfacs_bytes&3)
{
case 0: facidx = get_byte(offs); break;
case 1: facidx = get_16(offs); break;
case 2: facidx = get_24(offs); break;
case 3: facidx = get_32(offs); break;
}
if(facidx>GLOBALS->numfacs)
{
fprintf(stderr, LXTHDR"Facidx %d out of range (vs %d) at offset %08x, exiting.\n", facidx, GLOBALS->numfacs, (unsigned int)offs);
exit(255);
}
offs += (numfacs_bytes+1);
cmdkill = GLOBALS->mvlfacs_lxt_c_2[facidx].flags & (LT_SYM_F_DOUBLE|LT_SYM_F_STRING);
if(!cmdkill)
{
cmd = get_byte(offs);
if(cmd>0xf)
{
fprintf(stderr, LXTHDR"Command byte %02x invalid at offset %08x, exiting.\n", cmd, (unsigned int)offs);
exit(0);
}
offs++;
}
else
{
cmd=0;
}
offscache2 = offs;
height = GLOBALS->mvlfacs_lxt_c_2[facidx].node_alias;
if(height)
{
if(height >= 256*65536)
{
offs += 4;
}
else
if(height >= 65536)
{
offs += 3;
}
else
if(height >= 256)
{
offs += 2;
}
else
{
offs += 1;
}
}
offscache3 = offs;
if(!dict_16_offset_new)
{
if (offs == GLOBALS->dict_16_offset_lxt_c_1) { dict_16_offset_new = GLOBALS->fpos_lxt_c_1; }
}
else
if(!dict_24_offset_new)
{
if (offs == GLOBALS->dict_24_offset_lxt_c_1) { dict_24_offset_new = GLOBALS->fpos_lxt_c_1; }
}
else
if(!dict_32_offset_new)
{
if (offs == GLOBALS->dict_32_offset_lxt_c_1) { dict_32_offset_new = GLOBALS->fpos_lxt_c_1; }
}
/* printf("%08x : %04x %02x (%d) %s[%d:%d]\n", offscache, facidx, cmd, mvlfacs[facidx].len, mvlfacs[facidx].f_name, mvlfacs[facidx].msb, mvlfacs[facidx].lsb); */
if(!cmdkill)
switch(cmd)
{
unsigned int modlen;
case 0x0:
modlen = (!(GLOBALS->mvlfacs_lxt_c_2[facidx].flags<_SYM_F_INTEGER)) ? GLOBALS->mvlfacs_lxt_c_2[facidx].len : 32;
if((GLOBALS->dict_string_mem_array_lxt_c_1) && (modlen>GLOBALS->dict_width_lxt_c_1))
{
if((!GLOBALS->dict_16_offset_lxt_c_1)||(offscache3dict_16_offset_lxt_c_1))
{
offs += 1;
}
else
if((!GLOBALS->dict_24_offset_lxt_c_1)||(offscache3dict_24_offset_lxt_c_1))
{
offs += 2;
}
else
if((!GLOBALS->dict_32_offset_lxt_c_1)||(offscache3dict_32_offset_lxt_c_1))
{
offs += 3;
}
else
{
offs += 4;
}
}
else
{
offs += (modlen + 7)/8; /* was offs += (GLOBALS->mvlfacs_lxt_c_2[facidx].len + 7)/8 which is wrong for integers! */
}
break;
case 0x1:
offs += (GLOBALS->mvlfacs_lxt_c_2[facidx].len + 3)/4;
break;
case 0x2:
offs += (GLOBALS->mvlfacs_lxt_c_2[facidx].len + 1)/2;
break;
case 0x3:
case 0x4:
case 0x5:
case 0x6:
case 0x7:
case 0x8:
case 0x9:
case 0xa:
case 0xb: break; /* single byte, no extra "skip" */
case 0xc:
case 0xd:
case 0xe:
case 0xf: offs += ((cmd&3)+1); /* skip past numbytes_trans */
break;
}
else
{
/* cmdkill = 1 for strings + reals skip bytes */
if(GLOBALS->mvlfacs_lxt_c_2[facidx].flags & LT_SYM_F_DOUBLE)
{
offs += 8;
}
else /* strings */
{
while(get_byte(offs)) offs++;
offs++;
}
}
last_change_delta = GLOBALS->fpos_lxt_c_1 - GLOBALS->lastchange[facidx] - 2;
GLOBALS->lastchange[facidx] = GLOBALS->fpos_lxt_c_1;
GLOBALS->maxchange_lxt_c_1=GLOBALS->fpos_lxt_c_1;
GLOBALS->maxindex_lxt_c_1=facidx;
if(last_change_delta >= 256*65536)
{
numbytes = 3;
}
else
if(last_change_delta >= 65536)
{
numbytes = 2;
}
else
if(last_change_delta >= 256)
{
numbytes = 1;
}
else
{
numbytes = 0;
}
lt_emit_u8(tmp, (numbytes<<4) | cmd);
switch(numbytes&3)
{
case 0: lt_emit_u8(tmp, last_change_delta); break;
case 1: lt_emit_u16(tmp, last_change_delta); break;
case 2: lt_emit_u24(tmp, last_change_delta); break;
case 3: lt_emit_u32(tmp, last_change_delta); break;
}
if(offs-offscache2)
{
GLOBALS->fpos_lxt_c_1 += fwrite((char *)GLOBALS->mm_lxt_c_1+offscache2, 1, offs-offscache2, tmp); /* copy rest of relevant info */
}
}
GLOBALS->dict_16_offset_lxt_c_1 = dict_16_offset_new;
GLOBALS->dict_24_offset_lxt_c_1 = dict_24_offset_new;
GLOBALS->dict_32_offset_lxt_c_1 = dict_32_offset_new;
fflush(tmp);
fseeko(tmp, 0, SEEK_SET);
fclose(tmp);
fprintf(stderr, LXTHDR"%d linear records converted into %08x bytes.\n", num_records, GLOBALS->fpos_lxt_c_1-4);
#if !defined __MINGW32__
if(GLOBALS->zchg_predec_size_lxt_c_1 > LXT_MMAP_MALLOC_BOUNDARY)
{
munmap((char *)GLOBALS->mm_lxt_c_1+4, GLOBALS->zchg_predec_size_lxt_c_1); close(GLOBALS->fd_lxt_c_1);
GLOBALS->mm_lxt_mmap_addr = NULL;
GLOBALS->mm_lxt_mmap_len = 0;
}
else
#endif
{
free_2((char *)GLOBALS->mm_lxt_c_1+4);
}
GLOBALS->fd_lxt_c_1 = recfd;
#if defined __MINGW32__
win_fname = nam;
#endif
GLOBALS->mm_lxt_c_1=mmap(NULL, GLOBALS->fpos_lxt_c_1-4, PROT_READ, MAP_SHARED, recfd, 0);
GLOBALS->mm_lxt_mmap_addr = GLOBALS->mm_lxt_c_1;
GLOBALS->mm_lxt_mmap_len = GLOBALS->fpos_lxt_c_1-4;
GLOBALS->mm_lxt_c_1=(void *)((char *)GLOBALS->mm_lxt_c_1-4); /* because header and version don't exist in packed change records */
}
}
/*
* given a fac+offset, return the binary data for it
*/
static char *parse_offset(struct fac *which, off_t offs)
{
int v, v2;
unsigned int j;
int k;
unsigned int l;
char *pnt;
char repeat;
l=which->len;
pnt = GLOBALS->lt_buf_lxt_c_1;
v=get_byte(offs);
v2=v&0x0f;
switch(v2)
{
case 0x00: /* MVL2 */
{
unsigned int msk;
unsigned int bitcnt=0;
int ch;
if((GLOBALS->dict_string_mem_array_lxt_c_1) && (l>GLOBALS->dict_width_lxt_c_1))
{
unsigned int dictpos;
unsigned int ld;
offs += ((v>>4)&3)+2; /* skip value */
if((!GLOBALS->dict_16_offset_lxt_c_1)||(offsdict_16_offset_lxt_c_1))
{
dictpos = get_byte(offs);
}
else
if((!GLOBALS->dict_24_offset_lxt_c_1)||(offsdict_24_offset_lxt_c_1))
{
dictpos = get_16(offs);
}
else
if((!GLOBALS->dict_32_offset_lxt_c_1)||(offsdict_32_offset_lxt_c_1))
{
dictpos = get_24(offs);
}
else
{
dictpos = get_32(offs);
}
if(dictpos <= GLOBALS->dict_num_entries_lxt_c_1)
{
ld = strlen(GLOBALS->dict_string_mem_array_lxt_c_1[dictpos]);
for(j=0;j<(l-(ld+1));j++)
{
*(pnt++) = '0';
}
*(pnt++) = '1';
memcpy(pnt, GLOBALS->dict_string_mem_array_lxt_c_1[dictpos], ld);
}
else
{
fprintf(stderr, LXTHDR"dict entry at offset %08x [%d] out of range, ignoring!\n", dictpos, (unsigned int)offs);
for(j=0;j>4)&3)+2; /* skip value */
for(j=0;;j++)
{
ch=get_byte(offs+j);
msk=0x80;
for(k=0;k<8;k++)
{
*(pnt++)= (ch&msk) ? '1' : '0';
msk>>=1;
bitcnt++;
if(bitcnt==l) goto bail;
}
}
}
}
break;
case 0x01: /* MVL4 */
{
unsigned int bitcnt=0;
int ch;
int rsh;
offs += ((v>>4)&3)+2; /* skip value */
for(j=0;;j++)
{
ch=get_byte(offs+j);
rsh=6;
for(k=0;k<4;k++)
{
*(pnt++)=convert_mvl((ch>>rsh)&0x3);
rsh-=2;
bitcnt++;
if(bitcnt==l) goto bail;
}
}
}
break;
case 0x02: /* MVL9 */
{
unsigned int bitcnt=0;
int ch;
int rsh;
offs += ((v>>4)&3)+2; /* skip value */
for(j=0;;j++)
{
ch=get_byte(offs+j);
rsh=4;
for(k=0;k<2;k++)
{
*(pnt++)=convert_mvl(ch>>rsh);
rsh-=4;
bitcnt++;
if(bitcnt==l) goto bail;
}
}
}
break;
case 0x03: /* mvl repeat expansions */
case 0x04:
case 0x05:
case 0x06:
case 0x07:
case 0x08:
case 0x09:
case 0x0a:
case 0x0b:
repeat = convert_mvl(v2-3);
for(j=0;jlt_buf_lxt_c_1);
}
/*
* mainline
*/
TimeType lxt_main(char *fname)
{
int i;
struct Node *n;
struct symbol *s, *prevsymroot=NULL, *prevsym=NULL;
off_t tagpnt;
int tag;
struct symbol *sym_block = NULL;
struct Node *node_block = NULL;
char **f_name = NULL;
GLOBALS->fd_lxt_c_1=open(fname, O_RDONLY);
if(GLOBALS->fd_lxt_c_1<0)
{
fprintf(stderr, "Could not open '%s', exiting.\n", fname);
vcd_exit(255);
}
GLOBALS->f_len_lxt_c_1=lseek(GLOBALS->fd_lxt_c_1, (off_t)0, SEEK_END);
#if defined __MINGW32__
win_fname = fname;
#endif
GLOBALS->mm_lxt_c_1=mmap(NULL, GLOBALS->f_len_lxt_c_1, PROT_READ, MAP_SHARED, GLOBALS->fd_lxt_c_1, 0);
GLOBALS->mm_lxt_mmap_addr = GLOBALS->mm_lxt_c_1;
GLOBALS->mm_lxt_mmap_len = GLOBALS->f_len_lxt_c_1;
if(get_16((off_t)0)!=LT_HDRID) /* scan-build, assign to i= from get_16 removed */
{
fprintf(stderr, "Not an LXT format AET, exiting.\n");
vcd_exit(255);
}
if((GLOBALS->version_lxt_c_1=get_16((off_t)2))>LT_VERSION)
{
fprintf(stderr, "Version %d of LXT format AETs not supported, exiting.\n", GLOBALS->version_lxt_c_1);
vcd_exit(255);
}
if(get_byte(GLOBALS->f_len_lxt_c_1-1)!=LT_TRLID)
{
fprintf(stderr, "LXT '%s' is truncated, exiting.\n", fname);
vcd_exit(255);
}
DEBUG(printf(LXTHDR"Loading LXT '%s'...\n", fname));
DEBUG(printf(LXTHDR"Len: %d\n", (unsigned int)GLOBALS->f_len_lxt_c_1));
/* SPLASH */ splash_create();
tagpnt = GLOBALS->f_len_lxt_c_1-2;
while((tag=get_byte(tagpnt))!=LT_SECTION_END)
{
off_t offset = get_32(tagpnt-4);
tagpnt-=5;
switch(tag)
{
case LT_SECTION_CHG: GLOBALS->change_field_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_CHG at %08x\n", offset)); break;
case LT_SECTION_SYNC_TABLE: GLOBALS->sync_table_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_SYNC_TABLE at %08x\n", offset)); break;
case LT_SECTION_FACNAME: GLOBALS->facname_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_FACNAME at %08x\n", offset)); break;
case LT_SECTION_FACNAME_GEOMETRY: GLOBALS->facgeometry_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_FACNAME_GEOMETRY at %08x\n", offset)); break;
case LT_SECTION_TIMESCALE: GLOBALS->timescale_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_TIMESCALE at %08x\n", offset)); break;
case LT_SECTION_TIME_TABLE: GLOBALS->time_table_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_TIME_TABLE at %08x\n", offset)); break;
case LT_SECTION_TIME_TABLE64: GLOBALS->time_table_offset64_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_TIME_TABLE64 at %08x\n", offset)); break;
case LT_SECTION_INITIAL_VALUE: GLOBALS->initial_value_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_INITIAL_VALUE at %08x\n", offset)); break;
case LT_SECTION_DOUBLE_TEST: GLOBALS->double_test_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_DOUBLE_TEST at %08x\n", offset)); break;
case LT_SECTION_ZFACNAME_PREDEC_SIZE: GLOBALS->zfacname_predec_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZFACNAME_PREDEC_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZFACNAME_SIZE: GLOBALS->zfacname_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZFACNAME_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZFACNAME_GEOMETRY_SIZE: GLOBALS->zfacgeometry_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZFACNAME_GEOMETRY_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZSYNC_SIZE: GLOBALS->zsync_table_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZSYNC_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZTIME_TABLE_SIZE: GLOBALS->ztime_table_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZTIME_TABLE_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZCHG_PREDEC_SIZE: GLOBALS->zchg_predec_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZCHG_PREDEC_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZCHG_SIZE: GLOBALS->zchg_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZCHG_SIZE = %08x\n", offset)); break;
case LT_SECTION_ZDICTIONARY: GLOBALS->zdictionary_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZDICTIONARY = %08x\n", offset)); break;
case LT_SECTION_ZDICTIONARY_SIZE: GLOBALS->zdictionary_predec_size_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_ZDICTIONARY_SIZE = %08x\n", offset)); break;
case LT_SECTION_EXCLUDE_TABLE: GLOBALS->exclude_offset_lxt_c_1=offset; DEBUG(printf(LXTHDR"LT_SECTION_EXCLUDE_TABLE = %08x\n", offset)); break;
case LT_SECTION_TIMEZERO: GLOBALS->lxt_timezero_offset=offset; DEBUG(printf(LXTHDR"LT_SECTION_TIMEZERO = %08x\n", offset)); break;
default: fprintf(stderr, "Skipping unknown section tag %02x.\n", tag); break;
}
}
if(GLOBALS->lxt_timezero_offset)
{
GLOBALS->global_time_offset = get_64(GLOBALS->lxt_timezero_offset);
}
if(GLOBALS->exclude_offset_lxt_c_1)
{
off_t offset = GLOBALS->exclude_offset_lxt_c_1;
int ix, num_blackouts = get_32(offset);
TimeType bs, be;
struct blackout_region_t *bt;
offset+=4;
for(ix=0;ixbstart = bs;
bt->bend = be;
bt->next = GLOBALS->blackout_regions;
GLOBALS->blackout_regions = bt;
}
}
if(GLOBALS->double_test_offset_lxt_c_1)
{
create_double_endian_mask(GLOBALS->double_test_offset_lxt_c_1);
}
if(GLOBALS->timescale_offset_lxt_c_1)
{
signed char scale;
scale=(signed char)get_byte(GLOBALS->timescale_offset_lxt_c_1);
exponent_to_time_scale(scale);
}
else
{
GLOBALS->time_dimension = 'n';
}
if(!GLOBALS->facname_offset_lxt_c_1)
{
fprintf(stderr, "LXT '%s' is missing a facility name section, exiting.\n", fname);
vcd_exit(255);
}
GLOBALS->numfacs=get_32(GLOBALS->facname_offset_lxt_c_1);
DEBUG(printf(LXTHDR"Number of facs: %d\n", GLOBALS->numfacs));
GLOBALS->mvlfacs_lxt_c_2=(struct fac *)calloc_2(GLOBALS->numfacs,sizeof(struct fac));
GLOBALS->resolve_lxt_alias_to=(struct Node **)calloc_2(GLOBALS->numfacs,sizeof(struct Node *));
GLOBALS->lastchange=(unsigned int *)calloc_2(GLOBALS->numfacs,sizeof(unsigned int));
f_name = calloc_2(GLOBALS->numfacs,sizeof(char *));
if(GLOBALS->initial_value_offset_lxt_c_1)
{
switch(get_byte(GLOBALS->initial_value_offset_lxt_c_1))
{
case 0: GLOBALS->initial_value_lxt_c_1 = AN_0; break;
case 1: GLOBALS->initial_value_lxt_c_1 = AN_1; break;
case 2: GLOBALS->initial_value_lxt_c_1 = AN_Z; break;
case 4: GLOBALS->initial_value_lxt_c_1 = AN_H; break;
case 5: GLOBALS->initial_value_lxt_c_1 = AN_U; break;
case 6: GLOBALS->initial_value_lxt_c_1 = AN_W; break;
case 7: GLOBALS->initial_value_lxt_c_1 = AN_L; break;
case 8: GLOBALS->initial_value_lxt_c_1 = AN_DASH; break;
default: GLOBALS->initial_value_lxt_c_1 = AN_X; break;
}
}
else
{
GLOBALS->initial_value_lxt_c_1 = AN_X;
}
if(GLOBALS->zdictionary_offset_lxt_c_1)
{
if(GLOBALS->zdictionary_predec_size_lxt_c_1)
{
build_dict();
}
else
{
fprintf(stderr, "LXT '%s' is missing a zdictionary_predec_size chunk, exiting.\n", fname);
vcd_exit(255);
}
}
sym_block = (struct symbol *)calloc_2(GLOBALS->numfacs, sizeof(struct symbol));
node_block = (struct Node *)calloc_2(GLOBALS->numfacs,sizeof(struct Node));
build_facs(fname, f_name, node_block);
/* SPLASH */ splash_sync(1, 5);
build_facs2(fname);
/* SPLASH */ splash_sync(2, 5);
/* do your stuff here..all useful info has been initialized by now */
if(!GLOBALS->hier_was_explicitly_set) /* set default hierarchy split char */
{
GLOBALS->hier_delimeter='.';
}
for(i=0;i